From: sls <sls>
Date: Tue, 7 Feb 1995 08:26:12 +0000 (+0000)
Subject: Add more options.
X-Git-Tag: r5_1_1~73
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=3f651a6a19e283bf091c2987accdc5d95cabe6d5;p=tkinspect

Add more options.
---

diff --git a/defaults.tcl b/defaults.tcl
index cc43e38..22790f1 100644
--- a/defaults.tcl
+++ b/defaults.tcl
@@ -12,7 +12,16 @@ proc tkinspect_default_options {} {
     option add *Frame.borderWidth 2
     option add *Value*vname*font \
 	-adobe-courier-medium-r-*-*-*-130-*-*-*-*-iso8859-*
-    option add *Value*Text*font \
+    option add *Text*font \
 	-adobe-courier-medium-r-*-*-*-130-*-*-*-*-iso8859-*
-    set tkinspect_default(lists) "procs_list globals_list windows_list"
+    option add *Tkinspect_main*Menubutton.borderWidth 0
+    option add *Procs_list.patterns {
+	^tk[A-Z].*
+	^auto_.*
+    }
+    option add *Globals_list.patterns {
+	^tkPriv.*
+	^auto_.*
+	^tk_.*
+    }
 }