Posted to tcl by apw at Sun Sep 30 08:14:32 GMT 2007view raw

  1. package require Itcl 4.0
  2. load /home/arnulf/SOURCES/MEGAIMAGE/megapkg/build/arch/i386/Linux/megaimage.so
  3. source ntk.tcl
  4. source ntkBase.tcl
  5.  
  6. set path [ntk window .win1 400 400]
  7. puts stderr "path!$path!"
  8. puts stderr "width![$path configure -width]!"
  9. puts stderr "width![$path cget -width]!"
  10. puts stderr "obj![$path obj]!"