####################
# 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 "Root menu" Title
+ I + "%xapp_big.png%&1. Lock screen" Exec exec $[infostore.lock]
+ 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 $[infostore.num_pages] $[gt.Send to page]`