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 >
Wrap
Text File
|
2005-10-29
|
798b
|
41 lines
proc oz'widget::property {this args} {
set optstring {
{pos "0 0"}
{alpha "1" }
{dsize "0 0"}
{isize "0 0"}
{repeat}
{pan}
}
array set v [cmdline::getopt $args $optstring]
if $v(pos?) {
oz'widget::x $this $v(pos.0)
oz'widget::y $this $v(pos.1)
}
if $v(alpha?) {
oz'widget::alpha $this $v(alpha)
}
if $v(dsize?) {
oz'widget::dwidth $this $v(dsize.0)
oz'widget::dheight $this $v(dsize.1)
}
if $v(isize?) {
oz'widget::iwidth $this $v(isize.0)
oz'widget::iheight $this $v(isize.1)
}
if $v(repeat?) {
oz'widget::repeat $this 1
}
if $v(pan?) {
oz'widget::pan $this 1
}
}