URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tix/] [tests/] [itcl/] [itk.tcl] - Blame information for rev 1765

Details | Compare with Previous | View Log


# 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
}

Line No.	Rev	Author	Line
1	578	markom	`# This file tests the pixmap image reader`
2			`#`
3
4			`proc About {} {`
5			`return "This file performs tests with ITK mega widgets"`
6			`}`
7
8			`proc Test {} {`
9			`frame .f`
10			`pack .f`
11			`tixPanedWindow .f.tpw`
12			`pack .f.tpw -side left -expand yes -fill both`
13			`set p1 [.f.tpw add t1 -min 20 -size 120 ]`
14			`set p2 [.f.tpw add t2 -min 20 -size 80 ]`
15			`frame $p1.t1`
16			`frame $p2.t2`
17			`pack $p1.t1 $p2.t2`
18			`tixScrolledListBox $p1.t1.list`
19			`tixScrolledListBox $p2.t2.list`
20			`pack $p1.t1.list $p2.t2.list`
21
22			`Combobox .ibox -labeltext "ItkBox" -items {one two three}`
23			`pack .ibox`
24			`}`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tix/] [tests/] [itcl/] [itk.tcl] - Blame information for rev 1765