Merge menu_data and menu_windowops to menu.config.

1 files changed, 98 insertions, 0 deletions

diff --git a/menu.config b/menu.config
new file mode 100644
index 0000000..ac65991
--- /dev/null
+++ b/menu.config
@@ -0,0 +1,98 @@
+####################
+# FVWM Config Menu #
+####################
+
+DestroyMenu menu_fvwmConfig
+AddToMenu menu_fvwmConfig "FVWM" Title
++ MissingSubmenuFunction ConfigBrowser
++ "" Nop
+Test (x convert) + "&g. $[gt.Wallpaper]" Popup WallpaperBrowser Menu 100 0
+
+DestroyFunc ConfigBrowser
+AddToFunc ConfigBrowser
++ I DestroyMenu WallpaperBrowser
++ I AddToMenu WallpaperBrowser "$[gt.Wallpaper]" Title
++ I + DynamicPopDownAction DestroyMenu WallpaperBrowser
++ I Test (EnvMatch slideshow 0) + "&Slideshow On" SlideshowOn
++ I Test (EnvMatch slideshow 1) + "&Slideshow Off" SlideshowOff
++ I + "&Next Random Wall" RandomWall
+
+DestroyMenu menu_RootOps
+AddToMenu   menu_RootOps
++ DynamicPopupAction Function RootOpsMenuFunc
+
+AddToFunc RootOpsMenuFunc
++ I DestroyMenu recreate menu_RootOps
++ I AddToMenu menu_RootOps "$[gt.Menu raíz]" Title
++ I Test (x xscreensaver-command) + "%xapp_big.png%&1. $[gt.Lock Screen]" Exec exec xscreensaver-command -lock
++ I Test (!x xscreensaver-command, x alock) + "%xapp_big.png%&1. $[gt.Lock Screen]" Exec exec alock -auth none -bg blank -cursor glyph
++ I Test (!x xscreensaver-command, !x alock, x slock) + "%xapp_big.png%&1. $[gt.Lock Screen]" Exec exec slock
++ I + "%xapp_big.png%&2. $[gt.Restart]" Restart
++ I + "%xapp_big.png%&3. $[gt.Close]" Popup Quit-Verify
+
+DestroyMenu Quit-Verify
+AddToMenu   Quit-Verify
++I "Really quit FVWM?" Title
++I "Yes."              Quit
++I ""                  Nop
++I "Cancel."           Nop
+
+DestroyMenu menu_WindowOps
+AddToMenu menu_WindowOps
++ DynamicPopupAction Function WindowOpsFunc
+
+DestroyFunc WindowOpsFunc
+AddToFunc WindowOpsFunc
++ I DestroyMenu recreate menu_WindowOps
++ I AddToMenu menu_WindowOps "$[gt.Window]" Title
++ I + "&1. $[gt.Identify]" Pick Module FvwmIdent
++ I + "&2. $[gt.Close Window]" Pick Close
++ I + "&3. $[gt.Destroy]" Pick Destroy
++ I + "&4. $[gt.Size]" Pick Resize warptoborder
++ I ThisWindow (!Iconic, !Maximized, Maximizable) + "&5. $[gt.Maximize]" Pick Maximize
++ I TestRc (NoMatch) ThisWindow (!Iconic, Maximizable) + "&5. $[gt.Restore]" Pick Maximize
++ I TestRc (Error) + "&5. $[gt.Maximize]" Pick Maximize
++ I ThisWindow (Shaded) + "&6. $[gt.Unshade]" Pick WindowShade Toggle
++ I TestRc (NoMatch) + "&6. $[gt.Shade]" Pick WindowShade Toggle
++ I TestRc (Error) + "&6. $[gt.Shade]" Pick WindowShade Toggle
++ I + "&7. $[gt.Fullscreen]" Pick Fullscreen
++ I AddToMenu menu_WindowOps "$[gt.Window position]" Title
++ I + "&8. $[gt.Send to page]" Popup menu_WindowSendToPage
++ I + "&9. $[gt.Move Up]" Pick AnimatedMove keep 0p Warp
++ I + "&a. $[gt.Move to Left]" Pick AnimatedMove $[tab_size]p keep Warp
++ I SetEnv w_width $[w.width]
++ I SetEnv w_height $[w.height]
++ I + "&b. $[gt.Move to Right]" Pick \
+	PipeRead "echo AnimatedMove $$(($[vp_width] - $[w_width] - $[right_margin]))p keep Warp"
++ I + "&c. $[gt.Move Down]" Pick \
+	PipeRead "echo AnimatedMove keep $$(($[height] - $[w_height]))p Warp"
++ I UnsetEnv w_width
++ I UnsetEnv w_height
++ I + "&d. $[gt.Center]" Pick CentreWindow (136/2) (28/2) Animated
++ I + "&e. $[gt.Manual Move]" Pick Move
++ I ThisWindow (!Sticky) + "&f. $[gt.On all desktops]" Pick Stick
++ I TestRc (NoMatch) + "&f. $[gt.Drop here]" Pick Stick
++ I TestRc (Error) + "&f. $[gt.On all desktops]" Pick Stick
++ I AddToMenu menu_WindowOps "$[gt.Layer]" Title
++ I ThisWindow (!Overlapped) + "&g. $[gt.Bring Down]" Pick (CirculateHit) Lower
++ I ThisWindow (Overlapped) + "&g. $[gt.Raise]" Pick (CirculateHit) Raise
++ I ThisWindow (Layer 6) Nop
++ I TestRc (NoMatch) + "&h. $[gt.Always on Top]" Pick Layer 0 6
++ I TestRc (Error) + "&h. $[gt.Always on Top]" Pick Layer 0 6
++ I ThisWindow (Layer 2) Nop
++ I TestRc (NoMatch) + "&i. $[gt.Always Down]" Pick Layer 0 2
++ I TestRc (Error) + "&i. $[gt.Always Down]" Pick Layer 0 2
++ I ThisWindow (Layer 4) Nop
++ I TestRc (NoMatch) + "&j. $[gt.Default Layer]" Pick Layer 0 4
++ I TestRc (Error) + "&j. $[gt.Default Layer]" Pick Layer 0 4
+
+AddToMenu menu_WindowSendToPage \
+	DynamicPopupAction DynamicPagesMenu
+
+DestroyFunc DynamicPagesMenu
+AddToFunc DynamicPagesMenu
++ I DestroyMenu menu_WindowSendToPage
++ I AddToMenu menu_WindowSendToPage DynamicPopupAction DynamicPagesMenu
++ I AddToMenu menu_WindowSendToPage
++ I + "$[gt.Send to page]" Title
++ I Piperead `$[FVWM_USERDIR]/scripts/midclick_menu.sh $[gt.Send to page]`