51 lines
1.2 KiB
Tcl
51 lines
1.2 KiB
Tcl
# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
|
|
#
|
|
# $Id: compound.tcl,v 1.2 2002/11/13 21:12:18 idiscovery Exp $
|
|
#
|
|
proc About {} {
|
|
return "the compound image type"
|
|
}
|
|
|
|
proc Test {} {
|
|
set num 3
|
|
# Test for create
|
|
#
|
|
#
|
|
test {image create compound -foo} {missing}
|
|
test {image create compound -window} {missing}
|
|
test {image create compound -window foo} {path name}
|
|
test {set image1 [image create compound -window .b]} {path name}
|
|
|
|
for {set i 0} {$i < $num} {incr i} {
|
|
button .b$i
|
|
pack .b$i
|
|
}
|
|
|
|
# (0) Empty image
|
|
#
|
|
test {set image0 [image create compound -window .b0]}
|
|
|
|
# (1) Simple image
|
|
#
|
|
test {set image1 [image create compound -window .b1]}
|
|
|
|
$image1 add line
|
|
$image1 add text -text Hello
|
|
|
|
# (2) Two lines
|
|
#
|
|
test {set image2 [image create compound -window .b2]}
|
|
|
|
$image2 add line
|
|
$image2 add text -text "Line One"
|
|
$image2 add line
|
|
$image2 add text -text "Line Two"
|
|
|
|
|
|
# Display them
|
|
#
|
|
for {set i 0} {$i < $num} {incr i} {
|
|
.b$i config -image [set image$i]
|
|
}
|
|
}
|