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

gtk: gtkWSPopupMenuDeactivate must be procedure instead of function according to gtk sources and docs

Browse Source 
git-svn-id: trunk@20846 -
This commit is contained in:
paul 2009-07-13 02:42:05 +00:00
parent 35383c2aac
commit 1062d0b0aa
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk/gtkwsmenus.pp
View File

@ -325,7 +325,7 @@ end;
{ TGtkWSMenu }
class function TGtkWSMenu.CreateHandle(const AMenu: TMenu): HMENU;
class function TGtkWSMenu.CreateHandle(const AMenu: TMenu): HMENU;
var
Widget: PGtkWidget;
WidgetInfo: PWidgetInfo;
@ -377,11 +377,10 @@ begin
//else DebugLn('No valid popupDelayedClose event');
end;
function gtkWSPopupMenuDeactivate(widget: PGtkWidget; data: gPointer): GBoolean; cdecl;
procedure gtkWSPopupMenuDeactivate(widget: PGtkWidget; data: gPointer); cdecl;
begin
Include(PWidgetInfo(Data)^.Flags, wwiValidQueuedEvent);
g_idle_add(@gtkWSPopupDelayedClose, data);
Result := CallBackDefaultReturn;
end;
class procedure TGtkWSPopupMenu.SetCallbacks(const AGtkWidget: PGtkWidget;