diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-11-17 16:37:34 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-11-17 16:37:34 +0100 |
| commit | 8487ec272eaadcb60b778d440eba9e108282bf63 (patch) | |
| tree | 89eef8f8fd2c2dc888f9803a2a039961e1c9bdfd /libgtk_kylix/GTKMenus.pas | |
| parent | d884d5168984d36a5c08f4814e81b070d7c964d3 (diff) | |
| download | tuxcmd-8487ec272eaadcb60b778d440eba9e108282bf63.tar.xz | |
Fix some compiler warnings and hints
Diffstat (limited to 'libgtk_kylix/GTKMenus.pas')
| -rw-r--r-- | libgtk_kylix/GTKMenus.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgtk_kylix/GTKMenus.pas b/libgtk_kylix/GTKMenus.pas index 7b1b9a8..2534f4c 100644 --- a/libgtk_kylix/GTKMenus.pas +++ b/libgtk_kylix/GTKMenus.pas @@ -366,8 +366,8 @@ begin if FItemType = itTearOff then g_object_get(FWidget, 'tearoff-state', @b, nil) else if Assigned(FMenu) and (Count > 0) then g_object_get(FMenu, 'tearoff-state', @b, nil); end else begin - if FItemType = itTearOff then Result := Boolean(torn_off(PGTKTearOffMenuItem(FWidget)^)) else - if Assigned(FMenu) and (Count > 0) then Result := Boolean(torn_off(PGTKMenu(FMenu)^)); + if FItemType = itTearOff then b := Boolean(torn_off(PGTKTearOffMenuItem(FWidget)^)) else + if Assigned(FMenu) and (Count > 0) then b := Boolean(torn_off(PGTKMenu(FMenu)^)); end; Result := b; end; |