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

  1. load [file join $dir megaimage.dll]
  2. load [file join $dir megaimagetk.dll]
  3.  
  4. set obj [megaimage-blank 200 300]
  5. $obj rectangle 100 100 20 20 {255 255 255 0}
  6.  
  7. pack [megaimage.frame .f] -fill both -expand 1
  8. .f size 200 300
  9. .f objsetimage $obj