summaryrefslogtreecommitdiff
path: root/libgtk_kylix/GTKForms.pas
diff options
context:
space:
mode:
Diffstat (limited to 'libgtk_kylix/GTKForms.pas')
-rw-r--r--libgtk_kylix/GTKForms.pas28
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;