Initial revision

diff --git a/install.tcl b/install.tcl
new file mode 100644 (file)
index 0000000..5308a0e
--- /dev/null
+++ b/install.tcl
@@ -0,0 +1,177 @@
+#!/usr/local/bin/wish -f
+#
+# $Id$
+#
+# Installation script for Tkinspect release 5.  To install:
+#
+# 1. Go to the tkinspect source directory.
+# 2. Type: wish -f install.tcl.
+# 3. Fill out the form.
+# 4. Hit the install button.  If all goes well, the last line in
+#    the log window should be "Installed finished."
+#
+
+if ![file exists tclIndex] {
+    puts "Generating auto loader index..."
+    auto_mkindex . *.tcl
+}
+
+set tkinspect_library .
+lappend auto_path .
+
+stl_lite_init
+
+widget install_path {
+    param label
+    param variable
+    method create {} {
+       entry $self.e -width 60 -bd 2 -relief sunken
+       label $self.l
+       pack $self.e -side right
+       pack $self.l -side left
+       bind $self <FocusIn> { if {"%d" != "NotifyPointer"} { focus %W.e } }
+    }
+    method reconfig {} {
+       $self.l config -text $slot(label)
+       $self.e config -textvariable $slot(variable)
+    }
+}
+
+widget install_dir {
+    object_include install_path
+    method verify {} {
+       upvar #0 $slot(variable) dir
+       set dir [uplevel #0 [list subst $dir]]
+       if ![file exists $dir] {
+           set ans [tk_dialog .mkdir "Create Directory?" "The directroy $dir does not exists, should I create it?" question 0 "Yes" "Cancel Install"]
+           if {$ans == 1} {
+               return 0
+           }
+           if [catch {exec mkdir $dir} msg] {
+               tk_dialog .error "Error Making Directory" "Couldn't make directory $dir: $msg" error 0 "Ok"
+               return 0
+           }
+       }
+       return 1
+    }
+}
+
+widget install_exec {
+    object_include install_path
+    method verify {} {
+       upvar #0 $slot(variable) file
+       set file [uplevel #0 [list subst $file]]
+       if ![file executable $file] {
+           tk_dialog .error "Error" "Executable $file isn't executable!" error 0 "Ok"
+           return 0
+       }
+       return 1
+    }
+}
+
+text .instructions -relief ridge -bd 4 -width 20 -height 3 -wrap word
+.instructions insert 1.0 {\
+Fill out the pathnames below and press the install button.  Any errors will appear in log window below.
+}
+bind .instructions <FocusIn> {
+    if {"%d" != "NotifyPointer"} { tk_focusContinue %W }
+}
+pack .instructions -side top -fill both -expand 1
+set prefix /usr/local
+install_dir .prefix -label Prefix: -variable prefix
+set bindir \$prefix/bin
+install_dir .bindir -label "Bin dir:" -variable bindir
+set libdir \$prefix/lib/tkinspect
+install_dir .libdir -label "Library dir:" -variable libdir
+set wish /usr/local/bin/wish
+install_exec .wish -label "Wish executable:" -variable wish
+pack .prefix .bindir .libdir .wish -side top -fill x
+
+text .log -width 70 -height 10 -bd 4 -relief ridge
+pack .log -side top -fill both -expand 1
+bind .log <FocusIn> {
+    if {"%d" != "NotifyPointer"} { tk_focusContinue %W }
+}
+
+frame .buttons
+pack .buttons -side top
+button .install -text "Install" -command install
+button .cancel -text "Cancel" -command "destroy ."
+pack .install .cancel -in .buttons -side left
+
+wm title . "Tkinspect Installation"
+center_window .
+
+proc log {msg} {
+    .log insert end "$msg"
+    .log see end
+    update idletasks
+}
+
+proc install_files {dir files} {
+    foreach file $files {
+       log "Copying $file to $dir..."
+       if {[catch {exec rm -f $dir/[file tail $file]}] || [catch {exec cp $file $dir} error] || [catch {exec chmod 0444 $dir/[file tail $file]} error]} {
+           log "whoops: $error, install aborted.\n"
+           return 0
+       }
+       log "ok.\n"
+    }
+    return 1
+}
+
+proc regsub_quote {string} {
+    regsub -all {\\([0-9])} $string {\\\\\1} string
+    regsub -all "&" $string {\\&} string
+    return $string
+}
+
+proc install {} {
+    global prefix libdir bindir wish
+    foreach w {.prefix .bindir .libdir .wish} {
+       log "Checking [$w cget -variable]..."
+       if ![$w verify] {
+           log "install aborted\n"
+           return
+       }
+       log "ok.\n"
+    }
+    if ![file isdirectory $libdir/stl-lite] {
+       log "Making $libdir/stl-lite directory..."
+       if [catch {exec mkdir $libdir/stl-lite} error] {
+           log "whoops: $error, install aborted.\n"
+           return
+       }
+       log "ok.\n"
+    }
+    if ![install_files $libdir {
+       about.tcl defaults.tcl lists.tcl globals_list.tcl procs_list.tcl
+       windows_list.tcl value.tcl stl.tcl sls.xbm tclIndex
+    }] {
+       return
+    }
+    if ![install_files $libdir/stl-lite {
+       stl-lite/filechsr.tcl stl-lite/simpleentry.tcl stl-lite/object.tcl
+       stl-lite/tk_util.tcl
+    }] {
+       return
+    }
+    log "Making tkinspect shell script..."
+    if [catch {
+       exec rm -f $bindir/tkinspect
+       set fp [open tkinspect.tcl r]
+       set text [read $fp]
+       close $fp
+       regsub -all @tkinspect_library@ $text [regsub_quote $libdir] text
+       regsub -all @wish@ $text [regsub_quote $wish] text
+       set fp [open $bindir/tkinspect w]
+       puts $fp $text
+       close $fp
+       exec chmod 0555 $bindir/tkinspect
+    } error] {
+       log "whoops: $error, install aborted.\n"
+       return
+    }
+    log "ok.\n"
+    log "Install finished.\n"
+}