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

gtk2: added check before SetMainWidget call

Browse Source 
git-svn-id: trunk@12255 -
This commit is contained in:
paul 2007-09-30 10:55:04 +00:00
parent 9912f6cd2a
commit 83df47bec7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1296,7 +1296,8 @@ begin
SetMainWidget(Box, ComboWidget);
SetMainWidget(Box, GTK_BIN(ComboWidget)^.child);
SetMainWidget(Box, PGtkComboBoxPrivate(PGtkComboBox(ComboWidget)^.priv)^.button);
if PGtkComboBoxPrivate(PGtkComboBox(ComboWidget)^.priv)^.button <> nil then
SetMainWidget(Box, PGtkComboBoxPrivate(PGtkComboBox(ComboWidget)^.priv)^.button);
WidgetInfo^.CoreWidget := ComboWidget;
WidgetInfo^.ClientWidget := Box;