Posted to tcl by ro at Wed Jan 02 07:24:24 GMT 2008view raw
- load [file join $dir megaimage.dll]
- load [file join $dir megaimagetk.dll]
- set obj [megaimage-blank 200 300]
- $obj rectangle 100 100 20 20 {255 255 255 0}
- pack [megaimage.frame .f] -fill both -expand 1
- .f size 200 300
- .f objsetimage $obj