paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 17:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation problem with GTK2

Browse Source 
git-svn-id: trunk@5981 -
This commit is contained in:
mazen 2004-09-12 18:56:36 +00:00
parent 9801ff6e73
commit 9225f37bd8
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk/gtkobject.inc
View File

@ -3513,10 +3513,9 @@ begin
if (Sender is TControl) and assigned (data) then if (Sender is TControl) and assigned (data) then
begin begin
case TControl(Sender).fCompStyle of case TControl(Sender).fCompStyle of
{$Ifdef GTK1}
csListBox, csListBox,
csCheckListBox csCheckListBox:
{$EndIf} : TGtkListStringList(TLMSort(Data^).List).Sorted:= TGtkListStringList(TLMSort(Data^).List).Sorted:=
TLMSort(Data^).IsSorted; TLMSort(Data^).IsSorted;
{$IfDef GTK1} {$IfDef GTK1}
csCListBox: TGtkCListStringList(TLMSort(Data^).List).Sorted := csCListBox: TGtkCListStringList(TLMSort(Data^).List).Sorted :=
@ -8515,6 +8514,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.558 2004/09/12 18:56:36 mazen
* Fix compilation problem with GTK2
Revision 1.557 2004/09/12 13:30:13 micha Revision 1.557 2004/09/12 13:30:13 micha
remove handling of LM_SETFOCUS in interface, as it is never sent from LCL remove handling of LM_SETFOCUS in interface, as it is never sent from LCL