From 5cfb3cfebfe354242edf8585d5dab4506b0c95ca Mon Sep 17 00:00:00 2001
From: Nick Bowler <nbowler@ellipticsemi.com>
Date: Tue, 19 Aug 2008 16:24:28 -0400
Subject: [PATCH] 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.
---
 config        |  5 ++++-
 global/alttab | 24 ++++++++++++++++++++++++
 2 files changed, 28 insertions(+), 1 deletion(-)
 create mode 100644 global/alttab

diff --git a/config b/config
index e80e6e5..47efd64 100644
--- 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
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
-- 
2.43.0