URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
[/] [or1k/] [tags/] [start/] [insight/] [tk/] [tests/] [script] - Rev 579
Go to most recent revision | Compare with Previous | Blame | View Log
interp create x
x eval {set argc 2}
x eval {set argv "-geometry 10x10+0+0"}
x eval {load {} Tk}
x eval {
button .b -text hello
bind .b <Destroy> foo
}
x alias foo destroy_x
proc destroy_x {} {interp delete x}
update
exit
Go to most recent revision | Compare with Previous | Blame | View Log