File: dialog2.tcl

package info (click to toggle)
sourcenav 5.0-4
  • links: PTS
  • area: main
  • in suites: woody
  • size: 73,848 kB
  • ctags: 54,442
  • sloc: ansic: 416,853; tcl: 106,388; sh: 22,483; cpp: 15,430; asm: 14,770; java: 9,042; makefile: 8,934; cobol: 5,377; yacc: 4,791; lex: 3,805; lisp: 536; exp: 434; perl: 422; sed: 318; awk: 282; cs: 200; csh: 141
file content (19 lines) | stat: -rw-r--r-- 681 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
# dialog2.tcl --
#
# This demonstration script creates a dialog box with a global grab.
#
# RCS: @(#) $Id: dialog2.tcl,v 1.9 2000/09/26 10:50:46 spolk Exp $

after idle {
    .dialog2.msg configure -wraplength 4i
}
after 100 {
    grab -global .dialog2
}
set i [tk_dialog .dialog2 "Dialog with local 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}
}