blob: b1788e49f1712aa9dc220c505d51a72fad4bea4f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
####################
# 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]`
|
