#!/bin/sh
# The next line is a comment in Tcl, but not sh, assumes the user has a wish in the PATH. \
    exec wish -f "$0" ${1+"$@"}
#
# $Header: /home/rockware/cvs-main/operator/operator,v 1.16 1995/03/02 23:37:46 erez Exp $
#
# Operator - Directories and files browser, Files & application (Desktop) manager.
#
# Written by: Erez Strauss.
#
# can handle symbolic link to a symbolic link ...
#
set OPSelf $argv0
while {[file type $OPSelf] == "link"} {
    set OPSelf [file readlink $OPSelf]
}
if {[exec dirname $OPSelf] == "."} {
    set OPSelf [pwd]/[file tail $OPSelf]
}
if ![file isdirectory [exec dirname $OPSelf]/tcl] {
    puts stderr "Installation problem, Can't file Operator tcl directory."
    exit 1
}
lappend auto_path [file dirname $OPSelf]/tcl
if [string match [winfo name .] operator] {
    opOperatorInit
    OpControl :: create
    OpDirView :: open [exec pwd]
    OpDirIcons :: open [exec pwd]
    OpDirTree :: open [exec pwd]
    OpAppGroup :: display_top
} {
    send operator {.control deiconify}
    send operator "OpDirView :: open [exec pwd]"
    send operator "OpDirIcons :: open [exec pwd]"
    send operator "OpDirTree :: open [exec pwd]"
    send operator "OpAppGroup :: display_top"
    destroy .
}
# End Of script.
