[sawfish] added popup-window-list-menu

[Christopher Bratusek <chrisb src gnome org>]

commit afdc95ef19223faea9fcaa79c313dafb15a2b8e6
Author: Christopher Roy Bratusek <chris nanolx org>
Date:   Sat Dec 12 11:31:55 2009 +0100

    added popup-window-list-menu

 ChangeLog                   |    3 +++
 install-sh                  |    5 +++--
 lisp/sawfish/wm/autoload.jl |    1 +
 lisp/sawfish/wm/menus.jl    |    6 ++++++
 4 files changed, 13 insertions(+), 2 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index d0610bd..efcef38 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,9 @@
 2009-12-12  Christopher Bratusek <zanghar freenet de>
 	* README.IMPORTANT: updated
 
+	* lisp/sawfish/wm/autoload.jl
+	* lisp/sawfish/wm/menus.jl: added popup-window-list-menu command
+
 2009-12-12  Teika Kazura <teika lavabit com>
 	* man/faq.texi
 	* man/news.texi
diff --git a/install-sh b/install-sh
index a5897de..6781b98 100755
--- a/install-sh
+++ b/install-sh
@@ -1,7 +1,7 @@
 #!/bin/sh
 # install - install a program, script, or datafile
 
-scriptversion=2006-12-25.00
+scriptversion=2009-04-28.21; # UTC
 
 # This originates from X11R5 (mit/util/scripts/install.sh), which was
 # later released in X11R6 (xc/config/util/install.sh) with the
@@ -515,5 +515,6 @@ done
 # eval: (add-hook 'write-file-hooks 'time-stamp)
 # time-stamp-start: "scriptversion="
 # time-stamp-format: "%:y-%02m-%02d.%02H"
-# time-stamp-end: "$"
+# time-stamp-time-zone: "UTC"
+# time-stamp-end: "; # UTC"
 # End:
diff --git a/lisp/sawfish/wm/autoload.jl b/lisp/sawfish/wm/autoload.jl
index 58d3f3e..9c74019 100644
--- a/lisp/sawfish/wm/autoload.jl
+++ b/lisp/sawfish/wm/autoload.jl
@@ -30,6 +30,7 @@
 (autoload-command 'popup-window-menu 'sawfish.wm.menus)
 (autoload-command 'popup-root-menu 'sawfish.wm.menus)
 (autoload-command 'popup-apps-menu 'sawfish.wm.menus)
+(autoload-command 'popup-window-list-menu 'sawfish.wm.menus)
 (autoload-window-animator 'wireframe 'sawfish.wm.animation.outline)
 (autoload-window-animator 'solid 'sawfish.wm.animation.outline)
 (autoload-window-animator 'cross 'sawfish.wm.animation.outline)
diff --git a/lisp/sawfish/wm/menus.jl b/lisp/sawfish/wm/menus.jl
index 987f2e8..de03f07 100644
--- a/lisp/sawfish/wm/menus.jl
+++ b/lisp/sawfish/wm/menus.jl
@@ -24,6 +24,7 @@
 	    menu-stop-process
 	    popup-menu
 	    popup-window-menu
+	    popup-window-list-menu
 	    popup-root-menu
 	    popup-apps-menu
 	    add-window-menu-toggle
@@ -344,6 +345,10 @@ before killing it.")
     (let-fluids ((menu-args (list w)))
        (popup-menu window-ops-menu)))
 
+  (define (popup-window-list-menu)
+    "Display the window-list menu."
+    (popup-menu window-menu))
+
   (define (popup-root-menu)
     "Display the main menu."
     (popup-menu root-menu))
@@ -356,6 +361,7 @@ before killing it.")
   (define-command 'popup-window-menu popup-window-menu #:spec "%W")
   (define-command 'popup-root-menu popup-root-menu)
   (define-command 'popup-apps-menu popup-apps-menu)
+  (define-command 'popup-window-list-menu popup-window-list-menu)
 
 ;;; menu modifiers