Lines Matching refs:alert
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 \
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] \
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] \
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