diff options
Diffstat (limited to 'UCoreUtils.pas')
| -rw-r--r-- | UCoreUtils.pas | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/UCoreUtils.pas b/UCoreUtils.pas index 1fae28b..b0ea388 100644 --- a/UCoreUtils.pas +++ b/UCoreUtils.pas @@ -121,8 +121,6 @@ function XORStr(const s: string; Key: byte): string; function FindCommonRoot(BasePath, DestPath: string): string; function BuildRelativePath(BasePath, DestPath: string): string; -procedure ReportGTKVersion; - // Internal locking procedure InternalLock; procedure InternalUnLock; @@ -1772,20 +1770,6 @@ begin end; end; -procedure ReportGTKVersion; -begin -{$IFDEF FPC} - DebugMsg(['Reported GTK version: ', gtk_major_version, '.', gtk_minor_version, '.', gtk_micro_version]); -{$ENDIF} - if Application.GTKVersion_2_8_0_Up then DebugMsg(['Using quirks for GTK+ >= 2.8.0']) else - if Application.GTKVersion_2_6_0_Up then DebugMsg(['Using quirks for GTK+ >= 2.6.0']) else - if Application.GTKVersion_2_4_0_Up then DebugMsg(['Using quirks for GTK+ >= 2.4.0']) else - if Application.GTKVersion_2_2_0_Up then DebugMsg(['Using quirks for GTK+ >= 2.2.0']) else - if Application.GTKVersion_2_0_5_Up then DebugMsg(['Using quirks for GTK+ >= 2.0.5']) else - DebugMsg(['Using quirks for GTK+ < 2.0.5']); -end; - - (********************************************************************************************************************************) var InternalLockVar: integer; procedure InternalLock; |