#------------------------------------
# the root menu

DestroyMenu AMenuRoot
AddToMenu   AMenuRoot "Root Menu" Title
+ "&Programs"		Popup Applications
+ "&Window Ops"		Popup AMenuWinOps
+ "&Ametista Config"	Popup AMenuConfig
+ "" Nop
+ "&Terminal"		FuncFvwmSimpleTerminal
+ "&FVWM Console"	Module FvwmConsole
+ "" Nop
+ "&Restart"		Restart
+ "&Quit"		Quit

# AMenuRootProgram is defined in applications

DestroyFunc FuncFvwmSimpleTerminal
AddToFunc   FuncFvwmSimpleTerminal
+ I Test (x xterm) Exec xterm
+ I TestRc (Match) break
+ I Test (x rxvt) Exec rxvt
+ I TestRc (Match) break
+ I Echo Please install xterm, rxvt or edit application

#------------------------------------
# some window ops menu

DestroyMenu AMenuWinOps
AddToMenu   AMenuWinOps
#+ "&Move" Move
+ "&Move" Pick AFuncMove
+ "&Resize" Resize
+ "(Un)&Iconify" Iconify
+ "(Un)&Shade" WindowShade
+ "(Un)S&tick" Stick
+ "" Nop
+ "S&cale"  Popup AMenuWinOpsScale item +90 c
+ "R&otate" Popup AMenuWinOpsRotate item +90 c
+ "&Transparency" Popup AMenuWinOpsTransparency item +90 c
+ "R&eset TFMs"  Pick sma Reset
+ "" Nop 
+ "&Close" Close
+ "&Destroy" Destroy
+ "" Nop
+ "&Identify" FvwmIdent

DestroyMenu AMenuWinOpsScale
AddToMenu   AMenuWinOpsScale
+ "+ 50 %%" Pick sma Scale 1.5
+ "+ 40 %%" Pick sma Scale 1.4
+ "+ 30 %%" Pick sma Scale 1.3
+ "+ 20 %%" Pick sma Scale 1.2
+ "+ 10 %%" Pick sma Scale 1.1
+ "" Nop
+ "- 10 %%" Pick sma Scale 0.9
+ "- 20 %%" Pick sma Scale 0.8
+ "- 30 %%" Pick sma Scale 0.7
+ "- 40 %%" Pick sma Scale 0.6
+ "- 50 %%" Pick sma Scale 0.5

DestroyMenu AMenuWinOpsRotate
AddToMenu   AMenuWinOpsRotate "Drag vs ..." Title
+ "&X axis" AFuncDragRotateWindow DragRotateX RotateX
+ "&Y axis" AFuncDragRotateWindow DragRotateY RotateY
+ "&Z axis" AFuncDragRotateWindow DragRotateZ RotateZ
+ "XY &axis" AFuncDragRotateWindow DragRotateXY RotateXY


DestroyMenu AMenuWinOpsTransparency
AddToMenu   AMenuWinOpsTransparency
+ "None"  Pick sma SetTransparency 1
+ "10 %%" Pick sma SetTransparency 0.9
+ "20 %%" Pick sma SetTransparency 0.8
+ "30 %%" Pick sma SetTransparency 0.7
+ "40 %%" Pick sma SetTransparency 0.6
+ "50 %%" Pick sma SetTransparency 0.5
+ "60 %%" Pick sma SetTransparency 0.4
+ "70 %%" Pick sma SetTransparency 0.3
+ "80 %%" Pick sma SetTransparency 0.2
+ "90 %%" Pick sma SetTransparency 0.1

ChangeMenuStyle AMenuStyleWinOps AMenuWinOps
ChangeMenuStyle AMenuStyleWinOps AMenuWinOpsScale
ChangeMenuStyle AMenuStyleWinOps AMenuWinOpsRotate
ChangeMenuStyle AMenuStyleWinOps AMenuWinOpsTransparency
ChangeMenuStyle AMenuStyleWinOps AMenuWinOpsMoveToDesk

