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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tix/] [tests/] [general/] [slistbox.tcl] - Blame information for rev 1771

Go to most recent revision | Details | Compare with Previous | View Log


proc About {} {
    return "Testing ScrolledListBox"
}
 
proc Test {} {
    set w [tixScrolledListBox .listbox]
    pack $w
 
    foreach item {{1 1} 2 3 4 5 6} {
        $w subwidget listbox insert end $item
    }
 
    Click [$w subwidget listbox] 30 30
 
    destroy $w
}

Line No.	Rev	Author	Line
1	578	markom	`proc About {} {`
2			`return "Testing ScrolledListBox"`
3			`}`
4
5			`proc Test {} {`
6			`set w [tixScrolledListBox .listbox]`
7			`pack $w`
8
9			`foreach item {{1 1} 2 3 4 5 6} {`
10			`$w subwidget listbox insert end $item`
11			`}`
12
13			`Click [$w subwidget listbox] 30 30`
14
15			`destroy $w`
16			`}`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tix/] [tests/] [general/] [slistbox.tcl] - Blame information for rev 1771