]>
Commit | Line | Data |
---|---|---|
6a5fa4e0 MG |
1 | # mkLabel w |
2 | # | |
3 | # Create a top-level window that displays a bunch of labels. | |
4 | # | |
5 | # Arguments: | |
6 | # w - Name to use for new top-level window. | |
7 | ||
8 | proc mkLabel {{w .l1}} { | |
9 | global tk_library | |
10 | catch {destroy $w} | |
11 | toplevel $w | |
12 | dpos $w | |
13 | wm title $w "Label Demonstration" | |
14 | wm iconname $w "Labels" | |
15 | message $w.msg -font -Adobe-times-medium-r-normal--*-180* -aspect 300 \ | |
16 | -text "Five labels are displayed below: three textual ones on the left, and a bitmap label and a text label on the right. Labels are pretty boring because you can't do anything with them. Click the \"OK\" button when you've seen enough." | |
17 | frame $w.frame -borderwidth 10 | |
18 | pack append $w.frame \ | |
19 | [frame $w.frame.right -borderwidth 10] {right} \ | |
20 | [label $w.frame.l1 -text "First label"] {top frame w pady 4 expand} \ | |
21 | [label $w.frame.l2 -text "Second label, raised just for fun" \ | |
22 | -relief raised] {top frame w pady 4 expand} \ | |
23 | [label $w.frame.l3 -text "Third label, sunken" -relief sunken ] \ | |
24 | {top frame w pady 4 expand} | |
25 | pack append $w.frame.right \ | |
26 | [label $w.frame.right.bitmap -bitmap @$tk_library/demos/bitmaps/face \ | |
27 | -borderwidth 2 -relief sunken] top \ | |
28 | [label $w.frame.right.caption -text "Tcl/Tk Proprietor"] bottom | |
29 | button $w.ok -text OK -command "destroy $w" | |
30 | ||
31 | pack append $w $w.msg {top frame c} $w.frame {top expand fill} \ | |
32 | $w.ok {bottom fill} | |
33 | } |