[clfswm-cvs] r145 - in clfswm: . doc src

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Wed Jun  4 16:57:36 2008
New Revision: 145

Modified:
   clfswm/ChangeLog
   clfswm/doc/keys.html
   clfswm/doc/keys.txt
   clfswm/doc/menu.html
   clfswm/doc/menu.txt
   clfswm/src/bindings-second-mode.lisp
   clfswm/src/menu-def.lisp
Log:
Add raise/lower keys on second mode and in a menu entry

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Wed Jun  4 16:57:36 2008
@@ -1,5 +1,11 @@
 2008-06-04  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/menu-def.lisp (child-menu): New menu entry on raise/lower
+	child in its frame.
+
+	* src/bindings-second-mode.lisp ("Page_Down", "Page_Up"): New
+	second mode binding on raise/lower child in its frame.
+
 	* src/clfswm-nw-hooks.lisp (leave-focus-frame-nw-hook): Adapt
 	behaviour to the new raise/lower property.
 	Call clear-nw-hook before the rest of the hook.

Modified: clfswm/doc/keys.html
==============================================================================
--- clfswm/doc/keys.html	(original)
+++ clfswm/doc/keys.html	Wed Jun  4 16:57:36 2008
@@ -834,6 +834,28 @@
            Mod-1 
         </td>
         <td align="center" nowrap>
+          Page_up
+        </td>
+        <td style="color:#0000ff" nowrap>
+          Lower the child in the current frame
+        </td>
+      </tr>
+      <tr>
+        <td align="right" style="color:#ff0000" nowrap>
+           Mod-1 
+        </td>
+        <td align="center" nowrap>
+          Page_down
+        </td>
+        <td style="color:#0000ff" nowrap>
+          Raise the child in the current frame
+        </td>
+      </tr>
+      <tr>
+        <td align="right" style="color:#ff0000" nowrap>
+           Mod-1 
+        </td>
+        <td align="center" nowrap>
           Home
         </td>
         <td style="color:#0000ff" nowrap>

Modified: clfswm/doc/keys.txt
==============================================================================
--- clfswm/doc/keys.txt	(original)
+++ clfswm/doc/keys.txt	Wed Jun  4 16:57:36 2008
@@ -89,6 +89,8 @@
 Mod-1 Shift          Tab             Select the previous child
 Mod-1                Return          Enter in the selected frame - ie make it the root frame
 Mod-1 Shift          Return          Leave the selected frame - ie make its parent the root frame
+Mod-1                Page_up         Lower the child in the current frame
+Mod-1                Page_down       Raise the child in the current frame
 Mod-1                Home            Switch to the root frame
 Mod-1 Shift          Home            Switch and select the root frame
                      Menu            Show all frames info windows until a key is release

Modified: clfswm/doc/menu.html
==============================================================================
--- clfswm/doc/menu.html	(original)
+++ clfswm/doc/menu.html	Wed Jun  4 16:57:36 2008
@@ -63,6 +63,12 @@
     <p>
       a: Unhide all current frame hidden children
     </p>
+    <p>
+      Page_Up: Lower the child in the current frame
+    </p>
+    <p>
+      Page_Down: Raise the child in the current frame
+    </p>
     <hr>
     <h3>
       <a name="FRAME-MENU"></a><a href="#MAIN">Frame-Menu</a>

Modified: clfswm/doc/menu.txt
==============================================================================
--- clfswm/doc/menu.txt	(original)
+++ clfswm/doc/menu.txt	Wed Jun  4 16:57:36 2008
@@ -18,6 +18,8 @@
 u: Unhide a child in the current frame
 f: Unhide a child from all frames in the current frame
 a: Unhide all current frame hidden children
+Page_Up: Lower the child in the current frame
+Page_Down: Raise the child in the current frame
 
 Frame-Menu
 a: < Adding frame menu >

Modified: clfswm/src/bindings-second-mode.lisp
==============================================================================
--- clfswm/src/bindings-second-mode.lisp	(original)
+++ clfswm/src/bindings-second-mode.lisp	Wed Jun  4 16:57:36 2008
@@ -114,6 +114,11 @@
 (define-second-key ("Return" :mod-1) 'enter-frame)
 (define-second-key ("Return" :mod-1 :shift) 'leave-frame)
 
+
+(define-second-key ("Page_Up" :mod-1) 'frame-lower-child)
+(define-second-key ("Page_Down" :mod-1) 'frame-raise-child)
+
+
 (define-second-key ("Home" :mod-1) 'switch-to-root-frame)
 (define-second-key ("Home" :mod-1 :shift) 'switch-and-select-root-frame)
 

Modified: clfswm/src/menu-def.lisp
==============================================================================
--- clfswm/src/menu-def.lisp	(original)
+++ clfswm/src/menu-def.lisp	Wed Jun  4 16:57:36 2008
@@ -79,6 +79,9 @@
 (add-menu-key 'child-menu "u" 'unhide-a-child)
 (add-menu-key 'child-menu "f" 'unhide-a-child-from-all-frames)
 (add-menu-key 'child-menu "a" 'unhide-all-children)
+(add-menu-key 'child-menu "Page_Up" 'frame-lower-child)
+(add-menu-key 'child-menu "Page_Down" 'frame-raise-child)
+
 
 
 (add-sub-menu 'frame-menu "a" 'frame-adding-menu "Adding frame menu")