235
235
class procedure TGtkWSMenuItem.SetShortCut(const AMenuItem: TMenuItem;
238
238
if not WSCheckMenuItem(AMenuItem, 'SetShortCut') then
240
//DebugLn(['TGtkWSMenuItem.SetShortCut ',dbgsName(AMenuItem),' ',ShortCutToText(NewShortCut)]);
240
UpdateInnerMenuItem(AMenuItem, PGTKWidget(AMenuItem.Handle), ShortCutK1, ShortCutK2);
244
243
class procedure TGtkWSMenuItem.SetVisible(const AMenuItem: TMenuItem;