home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / bin / prime / oz'label.tcl < prev    next >
Text File  |  2005-10-29  |  587b  |  21 lines
  1. proc oz'label::property {this args} {
  2.     set optstring {
  3.         {text ""}
  4.         {font ""}
  5.         {fsize 10}
  6.         {color "1 1 1"}
  7.         {center 1}
  8.     }
  9.  
  10.     array set v [cmdline::getopt $args $optstring]
  11.  
  12.     if {$v(text?)}   {oz'label::text   $this $v(text)}
  13.     if {$v(center?)} {oz'label::center $this $v(center)}
  14.     if {$v(font?)}   {oz'label::font   $this $v(font)}
  15.     if {$v(fsize?)}  {oz'label::fsize  $this $v(fsize)}
  16.     if {$v(color?)}  {oz'label::color  $this $v(color.0) $v(color.1) $v(color.2)}
  17.  
  18.     eval "oz'widget::property $this $args"
  19. }
  20.  
  21.