Changeset 2552

Timestamp:

Oct 7, 2012, 1:08:41 PM (13 years ago)

Author:

Andreas Schnellbacher

Message:

• Added: Refresh menu on keyset change to update key def strings.

File:

• trunk/src/netlabs/macros/keys.e (modified) (2 diffs)

trunk/src/netlabs/macros/keys.e ¶

@@ -983 +983 @@
    endif
 
+   if fKeysetChanged | activeaccel <> Name then
+      fRefreshMenu = 1
+   else
+      fRefreshMenu = 0
+   endif
+
    --dprintf( 'Keyset = 'Name', KeyDefs = 'KeyDefs', Previous: activeaccel = 'activeaccel' = 'GetAVar( 'keyset.'activeaccel)', .filename = '.filename)
+   --dprintf( 'SetKeyset2: Name = 'Name', activeaccel = 'activeaccel', fKeysetChanged = 'fKeysetChanged', PrevKeyDefs = 'PrevKeyDefs', NextKeyDefs = 'NextKeyDefs)
 
    -- Activate keyset: accelerator keys
@@ -996 +1003 @@
       SetAVar( 'keydef.'KeyString, EtkKeyDef)
    enddo
+
+   if fRefreshMenu then
+      if isadefc( 'RefreshMenu') then
+         'RefreshMenu'
+      endif
+   endif
 
 ; ---------------------------------------------------------------------------