diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-10-12 12:16:57 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-10-12 12:16:57 +0200 |
| commit | 928e2dc79b46a455ef0c0096ddf40682e07b4a27 (patch) | |
| tree | 85cf08ae19bdd5ac44261802b2e16972cc38e792 /libgtk_kylix/GTKForms.pas | |
| parent | c29edff595cff9d43a607c15b5af6e2ec101263a (diff) | |
| download | tuxcmd-0.6.53.tar.xz | |
Implement VFS question and password callbacksv0.6.53
Diffstat (limited to 'libgtk_kylix/GTKForms.pas')
| -rw-r--r-- | libgtk_kylix/GTKForms.pas | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/libgtk_kylix/GTKForms.pas b/libgtk_kylix/GTKForms.pas index 167db27..0f85652 100644 --- a/libgtk_kylix/GTKForms.pas +++ b/libgtk_kylix/GTKForms.pas @@ -1,6 +1,6 @@ (* GTK-Kylix Library: GTKForms - Basic windows (TGTKForm, TGTKDialog), TGTKApplication, TGDKScreen - Version 0.6.26 (last updated 2007-08-19) + Version 0.6.27 (last updated 2008-10-11) Copyright (C) 2007 Tomas Bzatek <tbzatek@users.sourceforge.net> This library is free software; you can redistribute it and/or @@ -31,6 +31,8 @@ uses gtk2, gdk2, glib2, Classes, SysUtils, GTKControls, GTKConsts; type // Some basic types PCharArray = array[0..0] of PChar; + __pthread_t = {$ifdef cpu64}QWord{$else}DWord{$endif}; + TCustomGTKForm = class; (****************************************** TGDKSCREEN **************************************************************************) @@ -178,6 +180,7 @@ type // Some basic types FOnException: TExceptionEvent; FMainForm: TCustomGTKForm; FMainFormSet, FGTK205Up, FGTK220Up, FGTK240Up, FGTK260Up, FGTK280Up: Boolean; + FThreadID: __pthread_t; procedure Quit; protected procedure CreateHandle; @@ -206,6 +209,7 @@ type // Some basic types 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 ThreadID: __pthread_t read FThreadID; end; @@ -525,6 +529,7 @@ begin Classes.ApplicationShowException := ShowException; CreateHandle; HookSynchronizeWakeup; + FThreadID := 0; end; procedure my_g_thread_init(vtable:Pointer);cdecl;external 'libgthread-2.0.so' name 'g_thread_init'; @@ -678,12 +683,14 @@ begin end; procedure _exit(status: longint); cdecl; external 'libc.so.6' name '_exit'; +function __pthread_self: __pthread_t; cdecl; external 'libpthread.so.0' name 'pthread_self'; procedure TGTKApplication.Run; begin repeat try // gdk_threads_enter; + FThreadID := __pthread_self; gtk_main; // gdk_threads_leave; except |