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

proc exit_dialog {msg} {
    wm withdraw .
    tk_dialog .diag "Error !" $msg "" "" "OK -> Exit"
    exit 1
}

# popup a window
proc popup {win} {
    update
    if {[winfo exists $win]} {
        if {[winfo viewable $win]} {
            raise $win
        } else {
            wm deiconify $win
        }
        return 1
    } else {
        return 0
    }
}

if {[catch {package require Rtd 2.19} msg]} {
    exit_dialog $msg
}

lappend auto_path [pwd]

wm withdraw .
rtdq4App .rtdq4
