paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 14:29:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented changing dependency version

Browse Source 
git-svn-id: trunk@2539 -
This commit is contained in:
mattias 2002-08-17 23:41:27 +00:00
parent b442cc8877
commit 4c1df5ee3e
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -285,6 +285,7 @@ var
Mess : TLMessage; Mess : TLMessage;
begin begin
Result := True; Result := True;
if LockOnChange(PgtkObject(Widget),0)>0 then exit;
EventTrace('changed_editbox', data); EventTrace('changed_editbox', data);
Mess.Msg := CM_TEXTCHANGED; Mess.Msg := CM_TEXTCHANGED;
@ -296,6 +297,7 @@ var
MSG: TLMessage; MSG: TLMessage;
begin begin
Result := True; Result := True;
if LockOnChange(PgtkObject(Widget),0)>0 then exit;
EventTrace('day changed', data); EventTrace('day changed', data);
MSG.Msg := LM_DAYCHANGED; MSG.Msg := LM_DAYCHANGED;
Result := DeliverPostMessage(Data, MSG); Result := DeliverPostMessage(Data, MSG);
@ -2672,6 +2674,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.175 2003/04/10 09:22:42 mattias
implemented changing dependency version
Revision 1.174 2003/03/26 00:21:25 mattias Revision 1.174 2003/03/26 00:21:25 mattias
implemented build lazarus extra options -d implemented build lazarus extra options -d