Add a simple window selector menu.

This may be entirely redundant in light of FVWM's WindowList feature,
but I can't figure out how to get it to display just the windows on the
current page.

diff --git a/config b/config
index e80e6e520397223e7f904d3c55d9ad8ea473e799..47efd64348b974b31b0ddc0582db4c6bc503072b 100644 (file)
--- a/config
+++ b/config
@@ -18,7 +18,6 @@ SetEnv QT_IM_MODULE 'uim'
 # Global Features
 Read global/multiscreen
 Read global/fullscreen
-Read global/windowmenu
 Read global/appspecific
 
 # Machine-specific features
@@ -26,6 +25,10 @@ PipeRead "[ -f '$[FVWM_USERDIR]/$[HOST]/config' ] \
           && echo Read $[HOST]/config \
          || echo Read default/config"
 
+# Menus (must be loaded after themes)
+Read global/windowmenu
+Read global/alttab
+
 # Virtual Desktops
 DesktopSize 6x1
 EdgeThickness 1

diff --git a/global/alttab b/global/alttab
new file mode 100644 (file)
index 0000000..cc01944
--- /dev/null
+++ b/global/alttab
@@ -0,0 +1,24 @@
+CopyMenuStyle * MenuWindowSelect
+MenuStyle MenuWindowSelect SelectOnRelease Alt_L
+
+# Window Selector
+DestroyMenu MenuWindowSelect
+AddToMenu   MenuWindowSelect
++ DynamicPopupAction MakeMenuWindowSelect
+ChangeMenuStyle MenuWindowSelect MenuWindowSelect
+
+DestroyFunc MakeMenuWindowSelect
+AddToFunc   MakeMenuWindowSelect
++ I DestroyMenu recreate MenuWindowSelect
++ I AddToMenu MenuWindowSelect "Page $[page.nx]" Title
++ I All (CurrentPage, !CirculateHit) AddToMenu MenuWindowSelect $[w.name]%$[w.miniiconfile]$[w.miniiconfile.svgopts]% WindowId $[w.id] WindowSelect
+
+DestroyFunc WindowSelect
+AddToFunc   WindowSelect
++ I Iconify off
++ I FlipFocus
++ I Raise
++ I WarpToWindow 5p 5p
+
+Key Tab A M NoWindow Popup MenuWindowSelect Root c c
+Mouse 2 R A Menu MenuWindowSelect