-
Notifications
You must be signed in to change notification settings - Fork 0
/
40-Window-Menu
168 lines (140 loc) · 7.64 KB
/
40-Window-Menu
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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
## vim: sts=0:noet:syntax=fvwm:foldmethod=marker
##
## ╻ ╻╻┏┓╻╺┳┓┏━┓╻ ╻ ┏┳┓┏━╸┏┓╻╻ ╻
## ┃╻┃┃┃┗┫ ┃┃┃ ┃┃╻┃ ┃┃┃┣╸ ┃┗┫┃ ┃
## ┗┻┛╹╹ ╹╺┻┛┗━┛┗┻┛ ╹ ╹┗━╸╹ ╹┗━┛
#### NORMAL WINDOW MENU
DestroyMenu NormalWindowMenu
AddToMenu NormalWindowMenu
+ "$[infostore.icon_wm_window_maximize]&Maximize Alt-F10" Schedule 300 ToggleMaximize animate
+ "$[infostore.icon_wm_window_iconify]Iconify Alt-F9" IconifyWindow
+ "$[infostore.icon_wm_window_iconify]Iconify&Except" IconifyExcept
+ "$[infostore.icon_wm_window_iconify]Iconify&All" IconifyAll
+ "" Nop
+ "&Layers >" PopUp LayerMenu
+ "&Styles >" PopUp StyleMenu
+ "$[infostore.icon_wm_window_move]Send &To >" PopUp MoveToDesktopMenu
+ "" Nop
+ "$[infostore.icon_wm_scrot]Screensh&ot Alt-Print" Schedule 1000 MaimWindow
+ "$[infostore.icon_wm_identify]&Identify Win-I" Module FvwmIdent
+ "" Nop
+ "$[infostore.icon_wm_application_exit]&Close Alt-F4" CloseWindow
#### ICONIC WINDOW MENU
CopyMenuStyle * IconicWindowMenuStyle
MenuStyle IconicWindowMenuStyle Font $[infostore.font_small_bold]
MenuStyle IconicWindowMenuStyle BorderWidth $[infostore.thumb_borderwidth]
DestroyMenu IconicWindowMenu
AddToMenu IconicWindowMenu
+ "$[infostore.icon_wm_window_deiconify]&DeIconify" DeIconifyWindow
+ "$[infostore.icon_wm_window_deiconify]DeIconify&All" DeIconifyAll
+ "$[infostore.icon_wm_identify]&Identify" Module FvwmIdent
+ "$[infostore.icon_wm_application_exit]&Close" CloseWindow
ChangeMenuStyle IconicWindowMenuStyle IconicWindowMenu
#### MOVE TO DESKTOP SUBMENU
DestroyMenu MoveToDesktopMenu
PipeRead ' for zz in $(seq $[infostore.desk_min] $[infostore.desk_max]) ; \
do echo "AddToMenu MoveToDesktopMenu \
\\"$[infostore.icon_wm_window_move]$zz\\" MoveSwitch $zz" ; done '
#### LAYER SUBMENU
DestroyMenu LayerMenu
AddToMenu LayerMenu
+ DynamicPopupAction MakeLayerMenu
CopyMenuStyle * LayerMenuStyle
MenuStyle LayerMenuStyle ItemFormat "%|%13.13i%.15l%.15r%|"
MenuStyle LayerMenuStyle Font $[infostore.font_small_bold]
ChangeMenuStyle LayerMenuStyle LayerMenu
DestroyFunc MakeLayerMenu
AddToFunc MakeLayerMenu
+ I DestroyMenu recreate LayerMenu
+ I ThisWindow (Layer $[infostore.toplayer]) AddToMenu LayerMenu \
"$[infostore.icon_wm_tick]&Top Layer $[infostore.toplayer]" Nop
+ I ThisWindow (!Layer $[infostore.toplayer]) AddToMenu LayerMenu \
"$[infostore.icon_wm_null]&Top Layer $[infostore.toplayer]" WindowStyle StaysOnTop
+ I ThisWindow (Layer $[infostore.putlayer]) AddToMenu LayerMenu \
"$[infostore.icon_wm_tick]&Put Layer $[infostore.putlayer]" Nop
+ I ThisWindow (!Layer $[infostore.putlayer]) AddToMenu LayerMenu \
"$[infostore.icon_wm_null]&Put Layer $[infostore.putlayer]" WindowStyle StaysPut
+ I ThisWindow (Layer $[infostore.iconiclayer]) AddToMenu LayerMenu \
"$[infostore.icon_wm_tick]&Iconic Layer $[infostore.iconiclayer]" Nop
+ I ThisWindow (!Layer $[infostore.iconiclayer]) AddToMenu LayerMenu \
"$[infostore.icon_wm_null]&Iconic Layer $[infostore.iconiclayer]" \
SetLayer $[infostore.iconiclayer]
+ I ThisWindow (Layer $[infostore.bottomlayer]) AddToMenu LayerMenu \
"$[infostore.icon_wm_tick]&Bottom Layer $[infostore.bottomlayer]" Nop
+ I ThisWindow (!Layer $[infostore.bottomlayer]) AddToMenu LayerMenu \
"$[infostore.icon_wm_null]&Bottom Layer $[infostore.bottomlayer]" WindowStyle StaysOnBottom
+ I ThisWindow (Layer 0) AddToMenu LayerMenu \
"$[infostore.icon_wm_tick]&Zero Layer 0" Nop
+ I ThisWindow (!Layer $[infostore.bottomlayer]) AddToMenu LayerMenu \
"$[infostore.icon_wm_null]&Zero Layer 0" SetLayer 0
#### STYLE SUBMENU
DestroyMenu StyleMenu
AddToMenu StyleMenu
+ DynamicPopupAction MakeStyleMenu
DestroyFunc MakeStyleMenu
AddToFunc MakeStyleMenu
+ I DestroyMenu recreate StyleMenu
+ I ThisWindow ( State $[infostore.state_titledwindow]) \
AddToMenu StyleMenu "$[infostore.icon_wm_tick]&Titled" Schedule 300 ToggleTitle
+ I ThisWindow (!State $[infostore.state_titledwindow]) \
AddToMenu StyleMenu "$[infostore.icon_wm_null]&Titled" Schedule 300 ToggleTitle
+ I ThisWindow ( State $[infostore.state_borderedwindow]) \
AddToMenu StyleMenu "$[infostore.icon_wm_tick]&Border" ToggleBorders
+ I ThisWindow (!State $[infostore.state_borderedwindow]) \
AddToMenu StyleMenu "$[infostore.icon_wm_null]&Border" ToggleBorders
+ I ThisWindow (Sticky) \
AddToMenu StyleMenu "$[infostore.icon_wm_tick]Sticky" Schedule 300 WindowStyle !Sticky
+ I ThisWindow (!Sticky) \
AddToMenu StyleMenu "$[infostore.icon_wm_null]Sticky" Schedule 300 WindowStyle Sticky
+ I ThisWindow ( AcceptsFocus) \
AddToMenu StyleMenu "$[infostore.icon_wm_null]NeverFocus" ToggleFocusable
+ I ThisWindow (!AcceptsFocus) \
AddToMenu StyleMenu "$[infostore.icon_wm_tick]NeverFocus" ToggleFocusable
+ I ThisWindow ( FixedSize) \
AddToMenu StyleMenu "$[infostore.icon_wm_tick]FixedSize" ToggleFixedSize
+ I ThisWindow (!FixedSize) \
AddToMenu StyleMenu "$[infostore.icon_wm_null]FixedSize" ToggleFixedSize
+ I ThisWindow ( FixedPosition) \
AddToMenu StyleMenu "$[infostore.icon_wm_tick]FixedPosition" ToggleFixedPosition
+ I ThisWindow (!FixedPosition) \
AddToMenu StyleMenu "$[infostore.icon_wm_null]FixedPosition" ToggleFixedPosition
+ I ThisWindow ( State $[infostore.state_windowlistskip]) \
AddToMenu StyleMenu "$[infostore.icon_wm_tick]WindowListSkip" ToggleWindowListSkip
+ I ThisWindow (!State $[infostore.state_windowlistskip]) \
AddToMenu StyleMenu "$[infostore.icon_wm_null]WindowListSkip" ToggleWindowListSkip
+ I ThisWindow ( Maximizable) \
AddToMenu StyleMenu "$[infostore.icon_wm_tick]Maximizable" ToggleMaximizable
+ I ThisWindow (!Maximizable) \
AddToMenu StyleMenu "$[infostore.icon_wm_null]Maximizable" ToggleMaximizable
+ I ThisWindow ( Iconifiable) \
AddToMenu StyleMenu "$[infostore.icon_wm_tick]Iconifiable" ToggleIconifiable
+ I ThisWindow (!Iconifiable) \
AddToMenu StyleMenu "$[infostore.icon_wm_null]Iconifiable" ToggleIconifiable
+ I ThisWindow ( State $[infostore.state_autoiconify]) \
AddToMenu StyleMenu "$[infostore.icon_wm_tick]AutoIconify" ToggleAutoIconify
+ I ThisWindow (!State $[infostore.state_autoiconify]) \
AddToMenu StyleMenu "$[infostore.icon_wm_null]AutoIconify" ToggleAutoIconify
# CopyMenuStyle * NormalWindowMenuStyle
# MenuStyle NormalWindowMenuStyle ItemFormat "%|%13.13i%.15l%.15r%|"
# MenuStyle NormalWindowMenuStyle Font $[infostore.font_small_bold]
# DestroyMenu NormalWindowMenu
# AddToMenu NormalWindowMenu
# + DynamicPopupAction MakeNormalWindowMenu
#
# ChangeMenuStyle NormalWindowMenuStyle NormalWindowMenu
#DestroyMenu IconicWindowMenu
#AddToMenu IconicWindowMenu
#+ DynamicPopupAction MakeIconicWindowMenu
# DestroyFunc MakeIconicWindowMenu
# AddToFunc MakeIconicWindowMenu
# + I DestroyMenu recreate IconicWindowMenu
# + I AddToMenu IconicWindowMenu "$[infostore.icon_wm_window_deiconify]&DeIconify" DeIconifyWindow
# + I ThisWindow AddToMenu IconicWindowMenu \
# "$[infostore.icon_wm_window_deiconify]DeIconify&All" DeIconifyAll
# + I ThisWindow (Sticky) AddToMenu IconicWindowMenu \
# "$[infostore.icon_wm_pin]Un&Sticky" Schedule 200 WindowStyle !Sticky
# + I ThisWindow (!Sticky) AddToMenu IconicWindowMenu \
# "$[infostore.icon_wm_pin]&Sticky" Schedule 200 WindowStyle Sticky
# + I AddToMenu IconicWindowMenu "$[infostore.icon_wm_identify]&Identify" Module FvwmIdent
# + I ThisWindow (Closable) AddToMenu IconicWindowMenu \
# "$[infostore.icon_wm_application_exit]&Close" ThisWindow Close