paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 12:19:16 +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,
////////////////////////////////////////////////////
glib2, gdk2, gtk2, Pango,
WSStdCtrls, WSLCLClasses, GtkWSStdCtrls, Gtk2Int, LCLType, GtkDef, LCLProc,
Gtk2CellRenderer, GTKWinApiWindow, gtkglobals, gtkproc, InterfaceBase;
WSControls, WSStdCtrls, WSLCLClasses, GtkWSStdCtrls, Gtk2Int, LCLType, GtkDef,
LCLProc, Gtk2CellRenderer, GTKWinApiWindow, gtkglobals, gtkproc, InterfaceBase;
type
@ -1327,9 +1327,9 @@ begin
//DebugLn(['TGtk2WSCustomComboBox.DestroyHandle ',dbgsName(AWinControl),' ClassParent=',ClassParent.ClassName]);
{$NOTE TGtk2WSCustomComboBox.DestroyHandle: fixme: calling inherited does not call TGtkWSWinControl.DestroyHandle}
//inherited DestroyHandle(AWinControl);
TGtk2WidgetSet(WidgetSet).DestroyLCLComponent(AWinControl);
// inherited DestroyHandle doesn't work, because that is determined at
// compile time, while the WS class hierarchy is created at runtime
TWSWinControlClass(TGtk2WSCustomComboBox.Classparent).DestroyHandle(AWinControl);
end;
{ TGtk2WSCustomGroupBox }