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

gtk2 interface: removed workaround for calling inherited (bug #9415)

Browse Source 
git-svn-id: trunk@11895 -
This commit is contained in:
vincents 2007-08-31 22:35:11 +00:00
parent 09e1f9441a
commit 37abeb0106
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -37,8 +37,8 @@ uses
StdCtrls, LMessages, StdCtrls, LMessages,
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
glib2, gdk2, gtk2, Pango, glib2, gdk2, gtk2, Pango,
WSStdCtrls, WSLCLClasses, GtkWSStdCtrls, Gtk2Int, LCLType, GtkDef, LCLProc, WSControls, WSStdCtrls, WSLCLClasses, GtkWSStdCtrls, Gtk2Int, LCLType, GtkDef,
Gtk2CellRenderer, GTKWinApiWindow, gtkglobals, gtkproc, InterfaceBase; LCLProc, Gtk2CellRenderer, GTKWinApiWindow, gtkglobals, gtkproc, InterfaceBase;
type type
@ -1327,9 +1327,9 @@ begin
//DebugLn(['TGtk2WSCustomComboBox.DestroyHandle ',dbgsName(AWinControl),' ClassParent=',ClassParent.ClassName]); //DebugLn(['TGtk2WSCustomComboBox.DestroyHandle ',dbgsName(AWinControl),' ClassParent=',ClassParent.ClassName]);
{$NOTE TGtk2WSCustomComboBox.DestroyHandle: fixme: calling inherited does not call TGtkWSWinControl.DestroyHandle} // inherited DestroyHandle doesn't work, because that is determined at
//inherited DestroyHandle(AWinControl); // compile time, while the WS class hierarchy is created at runtime
TGtk2WidgetSet(WidgetSet).DestroyLCLComponent(AWinControl); TWSWinControlClass(TGtk2WSCustomComboBox.Classparent).DestroyHandle(AWinControl);
end; end;
{ TGtk2WSCustomGroupBox } { TGtk2WSCustomGroupBox }