paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 07:40:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed gtk1 intf key handler result

Browse Source 
git-svn-id: trunk@5923 -
This commit is contained in:
mattias 2004-09-05 10:39:01 +00:00
parent 6756284868
commit f564ed3b0c
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk/gtkproc.inc
View File

@ -2186,8 +2186,12 @@ begin
end;
end;
{$IFDEF Gtk1}
Result:=true;
{$ELSE}
Result:=EventStopped;
//DebugLn('[HandleGTKKeyUpDown] ',TControl(Data).Name,':',TControl(Data).ClassName,' Result=',Result);
{$ENDIF}
//DebugLn('[HandleGTKKeyUpDown] ',DbgSName(TObject(Data)),' Result=',dbgs(Result));
end;
{------------------------------------------------------------------------------
@ -7238,6 +7242,9 @@ end;
{ =============================================================================
$Log$
Revision 1.304 2004/09/05 10:39:01 mattias
fixed gtk1 intf key handler result
Revision 1.303 2004/09/04 22:24:16 mattias
added default values for compiler skip options and improved many parts of synedit for UTF8