[lazarus] The Code in CVS
Michael Van Canneyt
michael.vancanneyt at wisa.be
Mon May 3 11:24:23 EDT 1999
On Mon, 3 May 1999, Cliff Baeseman wrote:
> Shane,
>
> I have made a whole bunch of changes to the code in CVS. The control
> unit uses fixed widget placement
> but I did not get to include the memo stuff. I have a copy of the zip file
> you sent me on friday night if
> you need a copy to work your changes in.
Just a quick note: The stuff I reported about message methods is functional
in the latest snapshots, so you can remove all the ugly global dispatch
calls such as gtkOnActivate etc.
So
gtk_signal_connect(gtk_Object(fcomponent),'activate',gtk_Signal_Func(@gtkOnActivate),Self);
becomes
gtk_signal_connect(gtk_object(fcomponent),'activate',Gtk_Signal_Func(@DoActivate),Self)
And the DoActivate should be changed to:
Procedure TControl.DoActivate (Widget: pgtkwidget;Self : TControl); message 'activate';cdecl;
begin
// Do whatever needed on activate.
end;
Then GTK will directly call the DoActivate, instead of going through gtkonactivate.
The other calls need changing too, of course, but I assume you know how to do it.
Michael.
More information about the Lazarus
mailing list