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

LCL: Clean comments after changing the shortcut function signatures.

Browse Source 
git-svn-id: trunk@29885 -
This commit is contained in:
juha 2011-03-17 11:54:31 +00:00
parent 4c2bf7e89d
commit f8585cd5ce
5 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/carbon/carbonwsmenus.pp
View File

@ -199,7 +199,7 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TCarbonWSMenuItem.SetShortCut Method: TCarbonWSMenuItem.SetShortCut
Params: AMenuItem - LCL menu item Params: AMenuItem - LCL menu item
OldShortCut - Old shortcut ShortCutK1 and ShortCutK2 - New shortcut key1 and key2
Sets the shortcut of menu item in Carbon interface Sets the shortcut of menu item in Carbon interface
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}

2
lcl/interfaces/cocoa/cocoawsmenus.pas
View File

@ -216,7 +216,7 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TCocoaWSMenuItem.SetShortCut Method: TCocoaWSMenuItem.SetShortCut
Params: AMenuItem - LCL menu item Params: AMenuItem - LCL menu item
OldShortCut - Old shortcut ShortCutK1 and ShortCutK2 - New shortcut key1 and key2
Sets the shortcut of menu item in Cocoa interface Sets the shortcut of menu item in Cocoa interface
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}

3
lcl/interfaces/gtk/gtkproc.inc
View File

@ -6051,9 +6051,6 @@ begin
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
procedure UpdateInnerMenuItem(LCLMenuItem: TMenuItem;
MenuItemWidget: PGtkWidget; NewShortCut: TShortCut);
Update the inner widgets of a menuitem widget. Update the inner widgets of a menuitem widget.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure UpdateInnerMenuItem(LCLMenuItem: TMenuItem; MenuItemWidget: PGtkWidget; procedure UpdateInnerMenuItem(LCLMenuItem: TMenuItem; MenuItemWidget: PGtkWidget;

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

@ -237,7 +237,6 @@ class procedure TGtkWSMenuItem.SetShortCut(const AMenuItem: TMenuItem;
begin begin
if not WSCheckMenuItem(AMenuItem, 'SetShortCut') then if not WSCheckMenuItem(AMenuItem, 'SetShortCut') then
Exit; Exit;
//DebugLn(['TGtkWSMenuItem.SetShortCut ',dbgsName(AMenuItem),' ',ShortCutToText(NewShortCut)]);
UpdateInnerMenuItem(AMenuItem, PGTKWidget(AMenuItem.Handle), ShortCutK1, ShortCutK2); UpdateInnerMenuItem(AMenuItem, PGTKWidget(AMenuItem.Handle), ShortCutK1, ShortCutK2);
end; end;

4
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -5718,9 +5718,6 @@ begin
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
procedure UpdateInnerMenuItem(LCLMenuItem: TMenuItem;
MenuItemWidget: PGtkWidget; NewShortCut: TShortCut);
Update the inner widgets of a menuitem widget. Update the inner widgets of a menuitem widget.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure UpdateInnerMenuItem(LCLMenuItem: TMenuItem; MenuItemWidget: PGtkWidget; procedure UpdateInnerMenuItem(LCLMenuItem: TMenuItem; MenuItemWidget: PGtkWidget;
@ -5755,7 +5752,6 @@ var
Shift, Shift2: TShiftState; Shift, Shift2: TShiftState;
s: String; s: String;
begin begin
//DebugLn(['UpdateShortCutLabel ',dbgsName(LCLMenuItem),' ',ShortCutToText(NewShortCut)]);
ShortCutToKey(NewShortCut, Key, Shift); ShortCutToKey(NewShortCut, Key, Shift);
ShortCutToKey(ShortCutKey2, Key2, Shift2); ShortCutToKey(ShortCutKey2, Key2, Shift2);