Posted to tcl by ro at Wed Jan 02 07:54:17 GMT 2008view raw

  1. load [file join $dir megaimage.dll]
  2. load [file join $dir ntk.dll]
  3.  
  4. set size 100
  5. set obj_x 100
  6. set obj_y 50
  7.  
  8. set canvas_width 600
  9. set canvas_height 800
  10.  
  11.  
  12. set obj [megaimage-blank $canvas_width $canvas_height]
  13. $obj rectangle $obj_x $obj_y $size $size {255 255 255 0}
  14.  
  15.  
  16. set winid [ntk-create-sys-window 400 400 1]
  17.  
  18. ntk-map-sys-window $winid
  19.  
  20. ntk-put-image $winid $obj
  21.