diff options
| author | Tomas Bzatek <tbzatek@redhat.com> | 2024-12-23 12:09:37 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@redhat.com> | 2024-12-23 12:09:37 +0100 |
| commit | 585635371a182d2b3cd5400f6d26d8e20ade6dbd (patch) | |
| tree | fe4d71d71ac7aec633488546e939fcca8a754ccd /UCoreUtils.pas | |
| parent | 6475cd8e422b88e8d0fa3499195e6392bd3bbf12 (diff) | |
| download | tuxcmd-585635371a182d2b3cd5400f6d26d8e20ade6dbd.tar.xz | |
Drop Application.GTKVersion_2_xxx_Up
...and related quirks along with it.
Assume latest gtk2 release.
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; |