Example:
1 | wm withdraw . |
2 | set w [toplevel .t] |
3 | wm title .t {Tk Code Example} |
4 | set m [menu $w.menubar -tearoff 0] |
5 | $m add cascade -label File -menu [menu $m.file] |
6 | $m.file add command -label Quit -command exit |
7 | $m add cascade -label Help -menu [menu $m.help] |
8 | $m.help add command -label Index -command {puts "It will be added in next version."} |
9 | $w configure -menu $m |
10 | set f [frame $w.f1] |
11 | pack [label $f.label -text {A label}] -side left |
12 | pack [entry $f.entry] -side left -fill x -expand true |
13 | $f.entry insert 0 {This is an entry} |
14 | pack $f -fill x -padx 2 -pady 2 |
15 | set f [frame $w.f2] |
16 | pack [frame $f.rg -relief groove -bd 3] -side left -fill x -expand true |
17 | pack [label $f.rg.lbl -text Radiobuttons:] -side left |
18 | pack [radiobutton $f.rg.b1 -text Tea -variable choice -value 1] -side left |
19 | pack [radiobutton $f.rg.b2 -text Coffee -variable choice -value 0] -side left |
20 | pack [frame $f.cg -relief groove -bd 3] -side left -fill x -expand true |
21 | pack [label $f.cg.lbl -text Checkbuttons:] -side left |
22 | pack [checkbutton $f.cg.b1 -text Cream] -side left |
23 | pack [checkbutton $f.cg.b2 -text Sugar] -side left |
24 | pack $f -fill x -padx 2 -pady 2 |
25 | set f [frame $w.f3] |
26 | pack [label $f.lbl -text Scale:] -side left |
27 | pack [label $f.val -textvariable scaleval -width 4] -side left |
28 | pack [scale $f.scl -variable scaleval -orient horizontal -from 0 -to 10 -showvalue false] \ |
29 | -side left -fill x -expand true |
30 | pack $f -fill x -padx 2 -pady 2 |
31 | set f [frame $w.f4 -relief groove -bd 3] |
32 | pack [frame $f.lf] -side left -fill both -padx 3 -pady 3 |
33 | pack [listbox $f.lf.lb -yscrollcommand "$f.lf.sb set" -height 4] -side left -fill both -expand true |
34 | pack [scrollbar $f.lf.sb -command "$f.lf.lb yview"] -side left -fill y |
35 | $f.lf.lb insert end {Line 1 of listbox} {Line 2 of listbox} |
36 | pack [frame $f.tf] -side left -fill both -expand true -padx 3 -pady 3 |
37 | grid columnconfigure $f.tf 0 -weight 1 |
38 | grid rowconfigure $f.tf 0 -weight 1 |
39 | grid [text $f.tf.tx -yscrollcommand "$f.tf.sy set" -height 4 -width 25 -xscrollcommand "$f.tf.sx set"] \ |
40 | -column 0 -row 0 -sticky nsew |
41 | grid [scrollbar $f.tf.sy -command "$f.tf.tx yview"] -column 1 -row 0 -sticky ns |
42 | grid [scrollbar $f.tf.sx -command "$f.tf.tx xview" -orient horizontal] -column 0 -row 1 -sticky ew |
43 | $f.tf.tx insert end {This is a text widget} |
44 | pack $f -fill both -expand true -padx 2 -pady 2 |
45 | set f [frame $w.f5] |
46 | button $f.b1 -text Apply -default active -command {puts $scaleval} |
47 | button $f.b2 -text Reset -default normal -command {set scaleval 0} |
48 | button $f.b3 -text Quit -default normal -command exit |
49 | pack $f.b1 $f.b2 $f.b3 -padx 10 -side left |
50 | pack $f -pady 2 |
Recent Comments