From 585635371a182d2b3cd5400f6d26d8e20ade6dbd Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Mon, 23 Dec 2024 12:09:37 +0100 Subject: Drop Application.GTKVersion_2_xxx_Up ...and related quirks along with it. Assume latest gtk2 release. --- UCoreUtils.pas | 16 ---------------- 1 file changed, 16 deletions(-) (limited to 'UCoreUtils.pas') 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; -- cgit v1.2.3