quit.tcl

   1 #!/usr/bin/wish
   2 package require Fvwm
   3 wm withdraw .
   4 if {[tk_dialog .t "Confirmation" "This will end your session.
   5 Please, Confirme" warning -1 " Yes, log me out " " No, I continue "]==0} {
   6     ::fvwm::send Quit
   7 }
   8
   9 exit 0