home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2000 December
/
PCWorld_2000-12_cd.bin
/
Komunikace
/
Comanche
/
xuibuilder
/
xuiLabelCreator.tcl
< prev
next >
Wrap
Text File
|
2000-11-02
|
390b
|
17 lines
class labelCreator {
inherit stringCreator
method createObject {token xuiBuilder}
}
body labelCreator::createObject {token xuiBuilder} {
if [string length [set parentName [$xuiBuilder cget -currentParentName]]] {
set name $parentName.[dom::getAttribute $token name]
} else {
set name ::#auto
}
return [xuiLabel $name]
}