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

Fallbacks to old code in new shortcut code.

Browse Source 
git-svn-id: trunk@14843 -
This commit is contained in:
sekelsenmat 2008-04-16 00:27:57 +00:00
parent f54bea2fc5
commit 6b91ca9e45
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk2/gtk2wsmenus.pp
View File

@ -234,7 +234,10 @@ begin
//DebugLn(['TGtkWSMenuItem.SetShortCut ',dbgsName(AMenuItem),' ',ShortCutToText(NewShortCut)]);
// Gets the inner widgets. They should already be created by now
// Temporary: At least it writes the names of the shortcuts
UpdateInnerMenuItem(AMenuItem, PGTKWidget(AMenuItem.Handle), NewShortCut);
{ // Gets the inner widgets. They should already be created by now
MenuWidget := PGtkMenuItem(AMenuItem.Handle);
@ -242,7 +245,7 @@ begin
// Converts the shortcut to a gtk friendly format and sets it
{ ShortCutToKey(NewShortCut, CurKey, CurShift);
ShortCutToKey(NewShortCut, CurKey, CurShift);
accel_path := 'LCLApp/Menu/' + GetAcceleratorString(CurKey, CurShift);