Rough GTK3 port

1 files changed, 20 insertions, 15 deletions

diff --git a/UCoreUtils.pas b/UCoreUtils.pas
index c204d4e..1e531a3 100644
--- a/UCoreUtils.pas
+++ b/UCoreUtils.pas
@@ -21,7 +21,7 @@ unit UCoreUtils;
 
 interface
 
-uses gtk2, gdk2, glib2, lazglib2, SysUtils, Classes, ULibc, GTKClasses, UEngines;
+uses SysUtils, Classes, lazglib2, lazgdk3, lazgtk3, GTKClasses, UEngines, ULibc;
 
 type
   PIntArray = ^TIntArray;
@@ -819,17 +819,19 @@ const Authors : array[0..1] of PChar = ('Tomáš Bžatek <tbzatek@users.sourcefo
                              'Jozef Štaffen <jozef.staffen@gmail.com> - Slovak'#10 +
                              'Américo Monteiro <a_monteiro@netcabo.pt> - Portuguese'#10 +
                              'Sewon Jang <jangblue@gmail.com> - Korean';
-var AboutBox: PGtkWidget;
+var about_dialog: PGtkWidget;
 begin
-  if (libGnomeUI2Handle = nil) or (gnome_about_new = nil)
-    then Application.MessageBox(Format(LANGAboutString, [ConstAboutVersion, ConstAboutBuildDate]))
-    else begin
-           AboutBox := gnome_about_new('Tux Commander', nil, 'Copyright © 2002-2024 Tomáš Bžatek',
-                                       PChar(Format(LANGAboutStringGnome, [ConstAboutVersion, ConstAboutBuildDate])),
-                                       @Authors, nil, Translations, AppIcon128.FPixbuf);
-           gtk_window_set_transient_for(GTK_WINDOW(AboutBox), GTK_WINDOW(FMain.FWidget));
-           gtk_dialog_run(GTK_DIALOG(AboutBox));
-    end;
+  about_dialog := gtk_about_dialog_new();
+  gtk_about_dialog_set_program_name(PGtkAboutDialog(about_dialog), PChar('Tux Commander'));
+  gtk_about_dialog_set_version(PGtkAboutDialog(about_dialog), PChar(Format(LANGAboutStringGnome, [ConstAboutVersion, ConstAboutBuildDate])));
+  gtk_about_dialog_set_copyright(PGtkAboutDialog(about_dialog), PChar('Copyright © 2002-2024 Tomáš Bžatek'));
+  gtk_about_dialog_set_website(PGtkAboutDialog(about_dialog), PChar('https://tuxcmd.sourceforge.net/'));
+  gtk_about_dialog_set_authors(PGtkAboutDialog(about_dialog), @Authors);
+  gtk_about_dialog_set_translator_credits(PGtkAboutDialog(about_dialog), Translations);
+  //  TODO
+//  gtk_about_dialog_set_logo(PGtkAboutDialog(about_dialog), AppIcon128.FPixbuf);
+  gtk_window_set_transient_for(PGtkWindow(about_dialog), PGtkWindow(FMain.FWidget));
+  gtk_dialog_run(PGtkDialog(about_dialog));
 end;
 
 procedure SetupAppIcon;
@@ -842,7 +844,7 @@ begin
   List := g_list_append(List, AppIcon48.FPixbuf);
   List := g_list_append(List, AppIcon64.FPixbuf);
   List := g_list_append(List, AppIcon128.FPixbuf);
-  gtk_window_set_default_icon_list(GLIB2.PGList(List));
+  gtk_window_set_default_icon_list(List);
   g_list_free(List);
 end;
 
@@ -1721,6 +1723,8 @@ procedure SetupColors;
 var Color: TGDKColor;
     LocalListView: TGTKListView;
 begin
+  //  TODO
+{
   LocalListView := TGTKListView.Create(Application);
   try
     if ConfNormalItemDefaultColors then begin
@@ -1763,7 +1767,7 @@ begin
   except InactiveItemBGColorNum := $D0D0D0FF;  end;
   finally
     LocalListView.Free;
-  end;
+  end;}
 end;
 
 (********************************************************************************************************************************)
@@ -1865,8 +1869,9 @@ initialization
   SetupSignals;
 
   //  Parse tuxcmd rc file 
-  gtk_rc_parse_string(tuxcmd_rc_file);
-  
+  //  TODO
+//  gtk_rc_parse_string(tuxcmd_rc_file);
+
   AppPath := IncludeTrailingPathDelimiter(GetHomePath);
   IconPath := IncludeTrailingPathDelimiter(GetHomePath);
 end.