
class guiImage  {
    inherit guiObject
    constructor {frame xuiImage} {
	pack [label $frame.l -image [$xuiImage getImage]]
    }
    method enable {} {}
    method disable {} {}
    method queryState {} {return 1}
}

