#!/net/bisque.eng/export/vol0/tcl/install/5.x-sparc/bin/wish4.1b1
# imagemap.tcl --
# 	Image map editor (IME)
#
# Copyright (c) 1996 by Sun Microsystems
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# The next line is a Tcl comment, but a shell command \
  exec /net/bisque.eng/export/vol0/tcl/install/5.x-sparc/bin/wish4.1 "$0" "$@" & exit 0

#CONFIGURATION
set wish /net/bisque.eng/export/vol0/tcl/install/5.x-sparc/bin/wish8.0
set WebTk(version) {1.0 11/5/97}
set maintainer Brent.Welch@eng.sun.com
set WebTk(server) webcache1.eng
set WebTk(port) 8080
set WebTk(library) /net/bisque.eng/export/vol0/tcl/install/lib/webtk1.0
set WebTk(bin) /net/bisque.eng/export/vol0/tcl/install/bin
set WebTk(html) /net/bisque.eng/export/vol0/tcl/install/lib/webtk1.0/html
set WebTk(images) /net/bisque.eng/export/vol0/tcl/install/lib/webtk1.0/images
set WebTk(cache) /tmp/webtkcache
#END CONFIGURATION

set ime(library) $WebTk(library)
lappend auto_path $ime(library)
source $ime(library)/tkerror.tcl
source $ime(library)/$tcl_platform(platform).tcl

fileselectResources

tk appname imagemap

set file ""
foreach {flag value} $argv {
    switch -- $flag {
	-help { Usage ; exit 0 }
	-image { set ime(imagefile) $value }
	-conf { set ime(config) $value }
	default { set file $flag ; break }
    }
}

if [catch {IME_Init . $file} err] {
    puts stderr $err
}



