paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 20:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Removed FOCUSIN messages

Browse Source 
Removed Bitbtn created message
Shane

git-svn-id: trunk@1249 -
This commit is contained in:
lazarus 2002-02-09 01:48:10 +00:00
parent ff5ebb9c16
commit 0a98fff39c
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/gtk/gtkwinapiwindow.pp
View File

@ -213,10 +213,6 @@ function GTKAPIWidgetClient_FocusIn(Widget: PGTKWidget;
Event: PGdkEventFocus): gint; cdecl;
begin
// Assert(False, 'Trace:[GTKAPIWidgetClient_FocusIn]');
Writeln('------------------------');
Writeln('FOCUSIN');
Writeln('------------------------');
gtk_widget_set_flags(Widget, GTK_HAS_FOCUS);
GTKAPIWidgetClient_DrawCaret(PGTKAPIWidgetClient(Widget));
Result := gtk_False;
@ -226,9 +222,6 @@ function GTKAPIWidgetClient_FocusOut(Widget: PGTKWidget;
Event: PGdkEventFocus): gint; cdecl;
begin
// Assert(False, 'Trace:[GTKAPIWidgetClient_FocusOut]');
Writeln('------------------------');
Writeln('FOCUSOUT');
Writeln('------------------------');
gtk_widget_unset_flags(Widget, GTK_HAS_FOCUS);
GTKAPIWidgetClient_DrawCaret(PGTKAPIWidgetClient(Widget));
Result := gtk_False;
@ -725,6 +718,11 @@ end.
{ =============================================================================
$Log$
Revision 1.23 2002/03/15 13:15:24 lazarus
Removed FOCUSIN messages
Removed Bitbtn created message
Shane
Revision 1.22 2002/03/14 20:28:50 lazarus
Bug fix for Mattias.
Fixed spinedit so you can now get the value and set the value.