Lines Matching refs:Alert
43 # Create an alert window and display a message to the user.
45 proc Alert {dograb message args} {
47 # Initialize alert window.
49 catch {destroy .alert}
50 toplevel .alert -class alert
51 wm title .alert Alert
52 wm iconname .alert alert
53 wm group .alert .
54 wm transient .alert .
55 wm geometry .alert \
58 # Create alert window frame.
60 frame .alert.top -relief raised -border 1
61 frame .alert.bottom -relief raised -border 1
62 pack append .alert .alert.top {top fill expand} .alert.bottom \
64 message .alert.top.message -width 350 -justify left -text $message
65 pack append .alert.top .alert.top.message {top expand padx 5 pady 5}
71 frame .alert.bottom.0 -relief sunken -border 1
72 pack append .alert.bottom .alert.bottom.0 {left expand padx 10 pady 10}
73 button .alert.bottom.0.button -text [lindex $arg 0] \
74 -command "[lindex $arg 1]; destroy .alert"
75 pack append .alert.bottom.0 .alert.bottom.0.button {expand padx 12 pady 12}
76 bind .alert <Return> "[lindex $arg 1]; destroy .alert"
77 focus .alert
80 button .alert.bottom.$i -text [lindex $arg 0] \
81 -command "[lindex $arg 1]; destroy .alert"
82 pack append .alert.bottom .alert.bottom.$i {left expand padx 20}
86 bind .alert <Any-Enter> [list focus .alert]
88 tkwait visibility .alert
89 grab set .alert
91 focus .alert
331 Alert grab "You must snap an image before you can save it!" {" OK " {}}
332 tkwait window .alert
