[clfswm-cvs] r271 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Tue Dec 15 16:00:39 2009
New Revision: 271

Log:
Replace Menu* keys with Alt-F10* in bindings*.lisp

Modified:
   clfswm/src/bindings-second-mode.lisp
   clfswm/src/bindings.lisp

Modified: clfswm/src/bindings-second-mode.lisp
==============================================================================
--- clfswm/src/bindings-second-mode.lisp	(original)
+++ clfswm/src/bindings-second-mode.lisp	Tue Dec 15 16:00:39 2009
@@ -133,9 +133,10 @@
     "start an emacs for another user"
     "exec xterm -e emacsremote")
   (define-shell (#\h) b-start-xclock "start an xclock" "exec xclock -d")
-  (define-second-key ("Menu") 'show-all-frames-info-key)
-  (define-second-key ("Menu" :shift) 'show-all-frames-info)
-  (define-second-key ("Menu" :control) 'toggle-show-root-frame)
+  (define-second-key ("F10" :mod-1) 'fast-layout-switch)
+  (define-second-key ("F10" :shift) 'show-all-frames-info-key)
+  (define-second-key ("F10" :shift :mod-1) 'show-all-frames-info)
+  (define-second-key ("F10" :control) 'toggle-show-root-frame)
   ;; Bind or jump functions
   (define-second-key ("1" :mod-1) 'bind-or-jump 1)
   (define-second-key ("2" :mod-1) 'bind-or-jump 2)

Modified: clfswm/src/bindings.lisp
==============================================================================
--- clfswm/src/bindings.lisp	(original)
+++ clfswm/src/bindings.lisp	Tue Dec 15 16:00:39 2009
@@ -58,10 +58,10 @@
   (define-main-key ("Page_Down" :mod-1) 'frame-raise-child)
   (define-main-key ("Home" :mod-1) 'switch-to-root-frame)
   (define-main-key ("Home" :mod-1 :shift) 'switch-and-select-root-frame)
-  (define-main-key ("Menu") 'fast-layout-switch)
-  (define-main-key ("Menu" :mod-1) 'show-all-frames-info-key)
-  (define-main-key ("Menu" :shift) 'show-all-frames-info)
-  (define-main-key ("Menu" :control) 'toggle-show-root-frame)
+  (define-main-key ("F10" :mod-1) 'fast-layout-switch)
+  (define-main-key ("F10" :shift) 'show-all-frames-info-key)
+  (define-main-key ("F10" :shift :mod-1) 'show-all-frames-info)
+  (define-main-key ("F10" :control) 'toggle-show-root-frame)
   (define-main-key (#\b :mod-1) 'banish-pointer)
   ;; Escape
   (define-main-key ("Escape" :control) 'ask-close/kill-current-window)