Displaying some Message Box

#!/bin/sh
# mssg1.tcl \
exec tclsh "$0" ${1+"$@"}
set answer [tk_messageBox -title "Application question " -message "really quit?" -type yesno -icon question]

switch $answer {
yes exit
no {tk_messageBox -message "I know like this application!" -type ok}

}