####################### Initialization Functions ############################
DestroyFunc InitFunction 
AddToFunc InitFunction 	 "I"  GotoDesk 0 1
+	"I"	reinit-DeskTerm
+	"I"	GotoDesk 0 2
+	"I"	reinit-DeskTerm
+	"I"	GotoDesk 0 3
+	"I"	reinit-DeskTerm
+	"I"	GotoDesk 0 4
+	"I"	reinit-DeskTerm
+	"I"	GotoDesk 0 5
+	"I"	reinit-DeskTerm
+	"I"	GotoDesk 0 6
+	"I"	reinit-DeskTerm
+	"I"	GotoDesk 0 7
+	"I"	reinit-DeskTerm
+	"I"	GotoDesk 0 8
+	"I"	reinit-DeskTerm
+	"I"	GotoDesk 0 9
+	"I"	reinit-DeskTerm
+	"I"	GotoDesk 0 10
+	"I"	reinit-DeskTerm
+	"I"	GotoDesk 0 11
+	"I"	reinit-DeskTerm
+	"I"	GotoDesk 0 12
+	"I"	reinit-DeskTerm
+	"I"	GotoDesk 0 1
+	"I"	All ( DeskTerm* ) WindowShade
+       "I"     Module FvwmButtons
+       "I"     Module FvwmBanner
+	"I"     Exec esdplay /usr/share/fvwm-shell/snd/gong.au &

DestroyFunc RestartFunction
AddToFunc RestartFunction "I"     KillModule FvwmAudio
+	"I"	All ( DeskTerm* ) WindowShade
+	"I"	All ( DeskTerm* ) WindowShade
+       "I"     Module FvwmButtons
+       "I"     Module FvwmBanner
+	"I"     Exec esdplay /usr/share/fvwm-shell/snd/gong.au &


AddToFunc reinit-DeskTerm  "I"	Exec $terminal -name DeskTerm$$d $terminal_options
+	"I"	Wait DeskTerm$$d
+	"I"	All ( DeskTerm$$d ) Resize 100 85
+	"I"	All ( DeskTerm$$d ) Maximize 100 85


######################## Sample Functions ##########################

AddToFunc MailFunction	   "I" Next [$0] WindowShade -1
+		           "I" Next [$0] Focus
+			   "I" None [$0] Exec $0 $1

AddToFunc Move-or-Raise		"I" Raise
+				"M" Move
+  				"D" WindowShade

AddToFunc Move-or-Raise2	"M" Raise
+				"M" Move
+  				"D" WindowShade

#AddToFunc Maximize-Func		"M" Maximize	 100 -15p
#+				"C" Maximize	 100 -15p
#+				"D" Maximize	 100 -15p
#+				"M" Move 	 0 15p
#+				"C" Move 	 0 15p
#+				"D" Move	 0 15p

AddToFunc Maximize-Func		"M" Maximize	 100 100
+				"C" Maximize	 100 100
+				"D" Maximize	 100 100


AddToFunc Move-or-Iconify       "I" Raise
+                               "M" Move
+				"C" WindowShade 

AddToFunc Resize-or-Raise	"I" Raise
+				"M" Resize
+				"D" WindowShade

AddToFunc Resize-or-Raise2	"M" Raise
+				"M" Resize
+				"D" WindowShade 

AddToFunc PrintFunction		"I" Raise
+				"I" Exec xdpr -id $w

AddToFunc PrintReverseFunction  "I" Raise
+                               "I" Exec xdpr 1/2 -h -rv -id $w

AddToFunc Iconify-and-Raise     "I" WindowShade 
+                               "I" Raise

AddToFunc Focus-and-Raise       "I" Focus
+                               "I" Raise

AddToFunc Focus-and-Shade       "I" Focus
+                               "I" WindowShade
+                               "I" Raise
+				"I" Exec esdplay /usr/share/fvwm-shell/snd/slide.au &

AddToFunc Desk-Focus-and-Shade1 "I" All [DeskTerm*] Raise
+	"I" Next [CurrentPage DeskTerm*] Focus
+ 	"I" Key Escape	A        C      Next Desk-Focus-and-Shade2
+ 	"I" Key L1 	A        N      Next Desk-Focus-and-Shade2

AddToFunc Desk-Focus-and-Shade2  "I" All [DeskTerm*] Lower
+ 	"I" Key Escape	A        C      Next Desk-Focus-and-Shade1
+ 	"I" Key L1 	A        N      Next Desk-Focus-and-Shade1

AddToFunc FocusAndWarp "I" Focus
+                      "I" WarpToWindow 2p 2p

AddToFunc DeiconifyFocusAndWarp "I" WindowShade -1
+                               "I" FocusAndWarp

AddToFunc ChangeDefaultFocus "I" Style "*" $0
+                            "I" Recapture

