
class xuiImage {
    inherit xuiObject
    constructor {} {
    setXuiClass image
    }   
    variable image {}
    method setImage {newImage} {set image $newImage}
    method getImage {} {return $image}

    method clone 
    method copyClone { clone }
}

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

body xuiImage::copyClone { clone } {
   $clone setImage $image
}






