Pass the command while closing Hw.Tk GUI
Hi,
I want to pass the command while closing the GUI that will unregister the proc and Unset the variables.
FYI: I no need to add a separate close button, I want to add it in that window closing button.
Find more posts tagged with
Sort by:
1 - 2 of
21
Hi,
That close button is not belonged to Tk but Windows
So, must use window manager (wm)...
Example:
proc onClosing {window} { puts -nonewline "Closing window... " set ans [tk_messageBox -title "Confirm" -message "Are you sure closing me?" -type yesno] if {$ans == "yes"} { #unset your variables here... #unregister your procs here... #finally, must explicit destroy the window: destroy $window puts "Done!" } else { puts "but not!" } } set w .sampleWindow destroy $w toplevel $w wm title $w "Sample closing window" pack [label $w.l -text "Close me by clicking on [X] upper left"] wm protocol $w WM_DELETE_WINDOW [list onClosing $w]
Thanks tinh,
understood the command wm protocol....
Thanks for best example..
Sort by:
1 - 1 of
11
Hi,
That close button is not belonged to Tk but Windows
So, must use window manager (wm)...
Example:
proc onClosing {window} { puts -nonewline "Closing window... " set ans [tk_messageBox -title "Confirm" -message "Are you sure closing me?" -type yesno] if {$ans == "yes"} { #unset your variables here... #unregister your procs here... #finally, must explicit destroy the window: destroy $window puts "Done!" } else { puts "but not!" } } set w .sampleWindow destroy $w toplevel $w wm title $w "Sample closing window" pack [label $w.l -text "Close me by clicking on [X] upper left"] wm protocol $w WM_DELETE_WINDOW [list onClosing $w]
Hi,
That close button is not belonged to Tk but Windows
So, must use window manager (wm)...
Example:
proc onClosing {window} { puts -nonewline "Closing window... " set ans [tk_messageBox -title "Confirm" -message "Are you sure closing me?" -type yesno] if {$ans == "yes"} { #unset your variables here... #unregister your procs here... #finally, must explicit destroy the window: destroy $window puts "Done!" } else { puts "but not!" } } set w .sampleWindow destroy $w toplevel $w wm title $w "Sample closing window" pack [label $w.l -text "Close me by clicking on [X] upper left"] wm protocol $w WM_DELETE_WINDOW [list onClosing $w]