
class xuiNumber {
    inherit xuiString

    constructor {} {
    setXuiClass number
    }   
    method clone
    method copyClone
}

body xuiNumber::clone {{parentName {::#auto}}} {
   set clone [xuiNumber $parentName.$name]
   copyClone $clone
   return $clone
}

body xuiNumber::copyClone { clone } {
   xuiObject::copyClone $clone
   xuiString::copyClone $clone
   $clone setXuiClass $xuiClass  
}






