PATH:
usr
/
share
/
tk8.5
/
demos
# dialog2.tcl -- # # This demonstration script creates a dialog box with a global grab. after idle { .dialog2.msg configure -wraplength 4i } after 100 { grab -global .dialog2 } set i [tk_dialog .dialog2 "Dialog with global grab" {This dialog box uses a global grab, so it prevents you from interacting with anything on your display until you invoke one of the buttons below. Global grabs are almost always a bad idea; don't use them unless you're truly desperate.} warning 0 OK Cancel {Show Code}] switch $i { 0 {puts "You pressed OK"} 1 {puts "You pressed Cancel"} 2 {showCode .dialog2} }
[-] tree.tcl
[edit]
[-] toolbar.tcl
[edit]
[-] textpeer.tcl
[edit]
[-] spin.tcl
[edit]
[-] label.tcl
[edit]
[-] ctext.tcl
[edit]
[-] paned1.tcl
[edit]
[-] button.tcl
[edit]
[-] radio.tcl
[edit]
[-] sayings.tcl
[edit]
[+]
..
[-] timer
[edit]
[-] ttkbut.tcl
[edit]
[-] states.tcl
[edit]
[-] README
[edit]
[-] ttknote.tcl
[edit]
[-] puzzle.tcl
[edit]
[-] bind.tcl
[edit]
[-] combo.tcl
[edit]
[-] check.tcl
[edit]
[-] paned2.tcl
[edit]
[-] bitmap.tcl
[edit]
[-] browse
[edit]
[-] license.terms
[edit]
[-] ttkscale.tcl
[edit]
[-] plot.tcl
[edit]
[-] rmt
[edit]
[-] tcolor
[edit]
[-] tclIndex
[edit]
[-] ttkprogress.tcl
[edit]
[-] arrow.tcl
[edit]
[-] aniwave.tcl
[edit]
[-] widget
[edit]
[-] items.tcl
[edit]
[-] style.tcl
[edit]
[-] colors.tcl
[edit]
[-] twind.tcl
[edit]
[-] text.tcl
[edit]
[-] labelframe.tcl
[edit]
[-] entry1.tcl
[edit]
[-] hello
[edit]
[-] filebox.tcl
[edit]
[-] knightstour.tcl
[edit]
[-] dialog2.tcl
[edit]
[-] ruler.tcl
[edit]
[-] form.tcl
[edit]
[-] dialog1.tcl
[edit]
[-] msgbox.tcl
[edit]
[-] ttkpane.tcl
[edit]
[-] image2.tcl
[edit]
[-] floor.tcl
[edit]
[-] mclist.tcl
[edit]
[-] menu.tcl
[edit]
[-] ixset
[edit]
[-] entry2.tcl
[edit]
[-] rolodex
[edit]
[+]
images
[-] goldberg.tcl
[edit]
[-] unicodeout.tcl
[edit]
[-] vscale.tcl
[edit]
[-] nl.msg
[edit]
[-] search.tcl
[edit]
[-] icon.tcl
[edit]
[-] menubu.tcl
[edit]
[-] ttkmenu.tcl
[edit]
[-] en.msg
[edit]
[-] anilabel.tcl
[edit]
[-] entry3.tcl
[edit]
[-] cscroll.tcl
[edit]
[-] image1.tcl
[edit]
[-] clrpick.tcl
[edit]
[-] pendulum.tcl
[edit]
[-] hscale.tcl
[edit]