Drop Application.GTKVersion_2_xxx_Up

...and related quirks along with it.

Assume latest gtk2 release.

1 files changed, 2 insertions, 26 deletions

diff --git a/libgtk_kylix/GTKForms.pas b/libgtk_kylix/GTKForms.pas
index e35357f..0224825 100644
--- a/libgtk_kylix/GTKForms.pas
+++ b/libgtk_kylix/GTKForms.pas
@@ -178,7 +178,7 @@ type    //  Some basic types
     FTerminated: Boolean;
     FOnException: TExceptionEvent;
     FMainForm: TCustomGTKForm;
-    FMainFormSet, FGTK205Up, FGTK220Up, FGTK240Up, FGTK260Up, FGTK280Up, FGTK212Up: Boolean;
+    FMainFormSet: Boolean;
     FThreadID: __pthread_t;
     procedure Quit;
   protected
@@ -205,12 +205,6 @@ type    //  Some basic types
     property Terminated: Boolean read FTerminated;
     property OnException: TExceptionEvent read FOnException write FOnException;
   published
-    property GTKVersion_2_0_5_Up: boolean read FGTK205Up;
-    property GTKVersion_2_2_0_Up: boolean read FGTK220Up;
-    property GTKVersion_2_4_0_Up: boolean read FGTK240Up;
-    property GTKVersion_2_6_0_Up: boolean read FGTK260Up;
-    property GTKVersion_2_8_0_Up: boolean read FGTK280Up;
-    property GTKVersion_2_12_0_Up: boolean read FGTK212Up;
     property ThreadID: __pthread_t read FThreadID;
   end;
 
@@ -547,7 +541,6 @@ procedure TGTKApplication.CreateHandle;
 var
   I: Integer;
   Temp: string;
-  Ver : Pchar;
 begin
   Argc := ParamCount + 1;
   Argv := AllocMem((Argc + 1) * SizeOf(PChar));
@@ -563,26 +556,9 @@ begin
   PCharArray(Argv^)[Argc] := nil;
   {$R+}
 
-  //  Check for correct version of GTK+ library
-  Ver := gtk_check_version(2, 12, 0);
-  FGTK212Up := Ver = nil;
-  if not FGTK212Up then Ver := gtk_check_version(2, 8, 0);
-  FGTK280Up := Ver = nil;
-  if not FGTK280Up then Ver := gtk_check_version(2, 6, 0);
-  FGTK260Up := Ver = nil;
-  if not FGTK260Up then Ver := gtk_check_version(2, 4, 0);
-  FGTK240Up := Ver = nil;
-  if not FGTK240Up then Ver := gtk_check_version(2, 2, 0);
-  FGTK220Up := Ver = nil;
-  if not FGTK220Up then Ver := gtk_check_version(2, 0, 5);
-  FGTK205Up := Ver = nil;
-  if not FGTK220Up then WriteLn('Warning: Your version of GTK+ is old and some workarounds has been activated. It is recommended to update GTK libraries at least to 2.2.0');
-  if Ver <> nil then Ver := gtk_check_version(2, 0, 0);
-  if Ver <> nil then WriteLn('Warning: There might be some problems with GTK+ library or version conflict.');
-
   //  Init threads
   my_g_thread_init(nil);
-  
+
   (*  ATTENTION: do not call gdk_threads_init(), it causes deadlocks and we don't really need it  *)
 //  gdk_threads_init;