29 lines
741 B
Tcl
29 lines
741 B
Tcl
# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
|
|
#
|
|
# $Id: itk.tcl,v 1.2 2002/11/13 21:12:18 idiscovery Exp $
|
|
#
|
|
# This file tests the pixmap image reader
|
|
#
|
|
|
|
proc About {} {
|
|
return "This file performs tests with ITK mega widgets"
|
|
}
|
|
|
|
proc Test {} {
|
|
frame .f
|
|
pack .f
|
|
tixPanedWindow .f.tpw
|
|
pack .f.tpw -side left -expand yes -fill both
|
|
set p1 [.f.tpw add t1 -min 20 -size 120 ]
|
|
set p2 [.f.tpw add t2 -min 20 -size 80 ]
|
|
frame $p1.t1
|
|
frame $p2.t2
|
|
pack $p1.t1 $p2.t2
|
|
tixScrolledListBox $p1.t1.list
|
|
tixScrolledListBox $p2.t2.list
|
|
pack $p1.t1.list $p2.t2.list
|
|
|
|
Combobox .ibox -labeltext "ItkBox" -items {one two three}
|
|
pack .ibox
|
|
}
|