From: sls <sls>
Date: Sat, 11 Feb 1995 03:55:40 +0000 (+0000)
Subject: Use stl-lite instead of the real thing.  Update for install.tcl.
X-Git-Tag: r5_1_1~55
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=b410ab9c3eacc68877ac8eafff7c56b3395bcaea;p=tkinspect

Use stl-lite instead of the real thing.  Update for install.tcl.
---

diff --git a/tkinspect.tcl b/tkinspect.tcl
index c0576e9..de214ce 100644
--- a/tkinspect.tcl
+++ b/tkinspect.tcl
@@ -1,4 +1,6 @@
-#!@wish@ -f
+#!/bin/sh
+#\
+exec @wish@ -f "$0" ${1+"$@"}
 #
 # $Id$
 #
@@ -11,19 +13,13 @@ set tkinspect(list_classes) "procs_list globals_list windows_list"
 
 wm withdraw .
 
-if [file exists @stl_library@/tclIndex] {
-    lappend auto_path @stl_library@
-} else {
-    lappend auto_path /usr/local/lib/stl
-    lappend auto_path /vol/pub/stl-0.2/lib/stl
-}
-
 if [file exists @tkinspect_library@/tclIndex] {
     lappend auto_path [set tkinspect_library @tkinspect_library@]
 } else {
     lappend auto_path [set tkinspect_library .]
 }
 
+stl_lite_init
 
 proc tkinspect_exit {} {
     destroy .
@@ -204,7 +200,7 @@ proc tkinspect_failure {reason} {
     error $reason
 }
 proc tkerror {message} {
-    global tkinspect
+    global tkinspect errorInfo
     if [info exists tkinspect(error_is_failure)] {
 	unset tkinspect(error_is_failure)
 	tk_dialog .failure "Tkinspect Failure" $message warning 0 Ok
@@ -213,7 +209,6 @@ proc tkerror {message} {
     }
 }
 
-widgets_init
 tkinspect_widgets_init
 tkinspect_default_options
 if [file exists ~/.tkinspect_opts] {