home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / bin / prime / oz'widget.tcl < prev    next >
Text File  |  2005-10-29  |  798b  |  41 lines
  1. proc oz'widget::property {this args} {
  2.     set optstring {
  3.         {pos   "0 0"}
  4.         {alpha "1"  }
  5.         {dsize "0 0"}
  6.         {isize "0 0"}
  7.         {repeat}
  8.         {pan}
  9.     }
  10.  
  11.     array set v [cmdline::getopt $args $optstring]
  12.  
  13.     if $v(pos?) {
  14.         oz'widget::x $this $v(pos.0)
  15.         oz'widget::y $this $v(pos.1)
  16.     }
  17.  
  18.     if $v(alpha?) {
  19.         oz'widget::alpha $this $v(alpha)
  20.     }
  21.  
  22.     if $v(dsize?) {
  23.         oz'widget::dwidth  $this $v(dsize.0)
  24.         oz'widget::dheight $this $v(dsize.1)
  25.     }
  26.  
  27.     if $v(isize?) {
  28.         oz'widget::iwidth  $this $v(isize.0)
  29.         oz'widget::iheight $this $v(isize.1)
  30.     }
  31.  
  32.     if $v(repeat?) {
  33.         oz'widget::repeat $this 1
  34.     }
  35.  
  36.     if $v(pan?) {
  37.         oz'widget::pan $this 1
  38.     }
  39. }
  40.  
  41.