# ---------------------------------------------------------------------------
# Desk Config  
# ---------------------------------------------------------------------------

SetEnv FVWM_NUMBER_OF_DESK 4
# must be $FVWM_NUMBER_OF_DESK - 1
SetEnv FVWM_LAST_DESK 3

DesktopSize 1 1

DestroyMenu AMenuWinOpsMoveToDesk
AddToMenu   AMenuWinOpsMoveToDesk "Move To ..." Title

PipeRead 'i=0; while test 1 == `expr "(" ${i} "<" $[FVWM_NUMBER_OF_DESK] ")"`; \
	  do echo "DesktopName $i  $[gt.Desk]  $i"; \
	  echo "+ \\"$[gt.Desk] ${i}\\"	MoveToDesk 0 ${i}"; \
	  let i=${i}+1; \
	done'
