On Wed, 02 Nov 2005 11:30:02 +0100
darekm <[EMAIL PROTECTED]> wrote:
> Hi
> I investigate double invoked SetResizeRequest
>
>
> ones in TGtkWidgetSet.FinishComponentCreate {Gtkobject.inc)
> second in TWinControl.DoSendBoundsToInterface; {wincontrol.inc}
>
>
> I think in first is not need {gtkobject.inc}
>
>
> procedure TGtkWidgetSet.FinishComponentCreate(const ALCLObject: TObject;
> const AGTKObject: Pointer; const ASetupProps : Boolean);
> begin
> // MWE: next will be obsoleted by WinWidgetInfo
> if AGTKObject <> nil then
> Begin
> SetLCLObject(AGTKObject, ALCLObject);
> gtk_object_set_data(AGTKObject, 'Style',GtkNil);
> gtk_object_set_data(AGTKObject, 'ExStyle',GtkNil);
> end;
> //--------------------------
>
> // in the new (compatebility) situation setting the handle should not
> be needed
> // however lazarus fails to start, so I'm enabling it for now
> if (ALCLObject is TWinControl) then
> begin
> TWinControl(ALCLObject).Handle := THandle(AGTKObject);
> if AGTKObject <> nil then begin
> gtk_object_set_data(AGTKObject, 'Sender', ALCLObject);
>
> -----------
> SetResizeRequest(AGTKObject); <----------- remove
> +++++++++
Removed.
Mattias
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
