#*******************************************************************************
# E.S.O. - VLT project
#
# "@(#) $Id: rtdq4Cut.tcl,v 1.14+ 1999/03/25 10:45:51 vltsccm Exp $"
#
# who       when      what
# --------  --------  ----------------------------------------------
# pbiereic  22/03/99  created

itk::usual rtdq4Cut {}

class rtdq4Cut {
    inherit RtdImageCut

    constructor {args} {
        eval RtdImageCut::constructor $args
    } {
        eval itk_initialize $args
    }

    method set_image {image} {
	config -image $image
        # get internal image handle
        set image_ [$image get_image]
    }
}