PC World 2000 December/PCWorld_2000-12_cd.bin/Komunikace/Comanche/xuibuilder/xuiDirDefinitionCreator.tcl

Text File | 2000-11-02 | 494 b | 17 lines

class dirDefinitionCreator {
    inherit structureCreator
    method processSyntax {token object xuiBuilder}
}


body dirDefinitionCreator::processSyntax { token object xuiBuilder} {
     $object setAlign [dom::getAttribute $token align]
     $object setStyle [dom::getAttribute $token style]
     foreach component [dom::getElements $token] {
    $xuiBuilder configure -currentParentName $object
        $object addComponent [ $xuiBuilder handleObject $component]
     }
}