Put this code in your .sawfish/rc, and modify accordingly:
(setq root-menu
`((,(_ "Sawfish Rootmenu"))
()
(,(_ "_Windows") . window-menu)
(,(_ "Work_spaces") . workspace-menu)
()
(,(_ "_Programs") . apps-menu)
(,(_ "_Customize") . custom-menu)
()
(,(_ "Sessi_on")
(,(_ "Display Errors") display-errors)
(,(_ "Reload Appsmenu") update-apps-menu)
()
(,(_ "Restart Sawfish") restart)
(,(_ "Quit Sawfish") quit))
()
(,(_ "_Help")
(,(_ "_FAQ...") help:show-faq)
(,(_ "_News...") help:show-news)
(,(_ "_WWW page...") help:show-homepage)
(,(_ "_Manual...") help:show-programmer-manual)
()
(,(_ "_About Sawfish...") help:about))
()
(,(_ "Kill Window") (system "xkill &"))))
--
--
Daniel M. German
http://turingmachine.org/
http://silvernegative.com/
dmg (at) uvic (dot) ca
replace (at) with @ and (dot) with .
