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

removed unneeded handle

Browse Source 
git-svn-id: trunk@6023 -
This commit is contained in:
mattias 2004-09-18 01:18:00 +00:00
parent ada62722b1
commit 5b73c01f75
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3060,7 +3060,6 @@ end;
function TGtkWidgetSet.IntSendMessage3(LM_Message : Integer; Sender : TObject;
data : pointer) : integer;
var
handle : hwnd; // handle of sender
Widget : PGtkWidget; // pointer to gtk-widget (local use when neccessary)
Geometry : TGdkGeometry;
begin
@ -3102,7 +3101,6 @@ begin
else
begin
handle := hwnd(ObjectToGtkObject(Sender));
Case LM_Message of
LM_DESTROY :
@ -7898,6 +7896,9 @@ end;
{ =============================================================================
$Log$
Revision 1.580 2004/09/18 01:18:00 mattias
removed unneeded handle
Revision 1.579 2004/09/17 20:30:13 vincents
replaced write by DbgOut