Arjen Markus I have combined the advice by Marty Backe and Erik Leunissen into a small recipe for creating modal dialog(ue)s.
I felt a receipe was needed as the proper implementation requires:
both of which are somewhat obscure commands.
I have tested the code on UNIX (Sun Solaris with CDE window manager, Tcl/Tk 8.3.1) and Windows NT, Tcl/Tk 8.3.4). I have not paid any attention to the layout of the two windows :-)
#
# Create a button in the . window that displays a message box when pressed
#
button .hi -text Hi -command {tk_messageBox -message "Hi"}
pack .hi
#
# Create a second window which acts as modal dialogue:
# - make sure it is on top (first wait for the . window!)
# - grab the display (locally)
# - wait for the dialogue to disappear
#
# Note: the implementation is fairly rigorous. Leaving out
# some of the [wm] commands may work on a particular platform,
# but this way it works well on both UNIX and Windows)
# Leaving out [wm transient] gives a different appearance pack .button
# on Windows.
#
tkwait visibility .
toplevel .f
button .f.b -text Close -command {destroy .f}
pack .f.b
grab .f
wm transient .f .
wm protocol .f WM_DELETE_WINDOW {grab release .f; destroy .f}
raise .f
tkwait window .f Here's one Martin Bachem posted to the comp.lang.tcl newsgroup:
#!/bin/sh \
# exec wish "$0" "$@"
proc foreground_win { w } {
wm withdraw $w
wm deiconify $w
}
proc modal_window { } {
set w .dialod_window
catch { destroy $w }
toplevel $w
bind $ <ButtonPress> { raise $w }
wm title $w "Dialog Window"
# place all widgets here ...
catch {tkwait visibility $w}
catch {grab $w}
foreground_win $w
}
button .button -text "Show Modal Dialog" -command modal_window
foreground_win .