# Stuff to handle pretty pictures on the background.
SetEnv SETROOT "fvwm-root -r"
SetEnv BGFILE  "$[FVWM_USERDIR]/.state/wallpaper$[screen].png"
SetEnv BGROOT  "$[HOME]/wallpaper"

CopyMenuStyle * MenuWallpaper
MenuStyle MenuWallpaper ItemFormat "%.2|%5.5c%-16.3>%1|"

DestroyMenu MenuWallpaper
AddToMenu   MenuWallpaper
 + DynamicPopupAction MakeMenuWallpaper
ChangeMenuStyle MenuWallpaper MenuWallpaper

DestroyFunc MakeMenuWallpaper
AddToFunc   MakeMenuWallpaper
 + I DestroyMenu recreate MenuWallpaper
 + I AddToMenu MenuWallpaper Wallpaper Title
 + I PipeRead 'exec $[FVWM_USERDIR]/scripts/bgmenu.sh --menu=MenuWallpaper $[BGROOT]'

DestroyFunc SetWallpaper
AddToFunc   SetWallpaper
 + I Exec exec ln -sf "$0" "$[BGFILE]"
 + I Exec exec $[SETROOT] "$[BGFILE]"

DestroyFunc SetInitialWallpaper
AddToFunc   SetInitialWallpaper
 + I Exec if [ -f "$[BGFILE]" ]; then \
              $[SETROOT] "$[BGFILE]"; \
          else \
	      $[SETROOT] "$($[FVWM_USERDIR]/scripts/randombg.pl $[BGROOT])"; \
	  fi

AddToFunc InitFunction I SetInitialWallpaper
AddToFunc SessionInitFunction I SetInitialWallpaper