Posted to tcl by ro at Wed Jan 02 07:54:17 GMT 2008view raw
- load [file join $dir megaimage.dll]
- load [file join $dir ntk.dll]
- set size 100
- set obj_x 100
- set obj_y 50
- set canvas_width 600
- set canvas_height 800
- set obj [megaimage-blank $canvas_width $canvas_height]
- $obj rectangle $obj_x $obj_y $size $size {255 255 255 0}
- set winid [ntk-create-sys-window 400 400 1]
- ntk-map-sys-window $winid
- ntk-put-image $winid $obj