;; This file implements the command '(safe-quit)' which gives a menu
;; asking if the user wants to quit or not. It should work with the 
;; VTWM profile and the FVWM profile.

(setq safe-quit-menu (construct-menu "Do you really want to quit ?"
                                     '("Yes" (end))
                                     '("No" ())))

(defun safe-quit ()
  (pop-menu safe-quit-menu))