Posted to tcl by ro at Wed Jan 02 08:40:16 GMT 2008view raw
- load [file join $dir megaimage.dll]
- load [file join $dir megaimagetk.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 0 0 $canvas_width $canvas_height {0 0 0 255}
- $obj rectangle $obj_x $obj_y $size $size {255 255 255 255}
- set p [image create photo]
- pack [label .p -width $canvas_width -height $canvas_height] \
- -fill both -expand 1
- .p conf -image $p
- megaimage.put.on.photo [$obj getdata] $p 0 0 set