# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 966943660 -7200
# Node ID 9af04074a4bb6bae194255a09effc1c6b5ffbeb8
# Parent  5ba2a9de74723c0e03de72000775355e0c066b14
no direct access to super-class-instvars

diff -r 5ba2a9de7472 -r 9af04074a4bb SystemBrowser.st
--- a/SystemBrowser.st	Tue Aug 22 13:11:02 2000 +0200
+++ b/SystemBrowser.st	Tue Aug 22 13:27:40 2000 +0200
@@ -586,7 +586,7 @@
 
                                 (searchBlock value:sel asLowercase)
                            ]
-                     title:(ClassResources string:'selectors containing: %1' with:aString).
+                     title:(self classResources string:'selectors containing: %1' with:aString).
 
     browser notNil ifTrue:[
         browser autoSearch:aString 
@@ -2391,26 +2391,28 @@
 !
 
 getClassThenPerform:aSelector
-    |enterBox|
+    |enterBox resources|
+
+    resources := self classResources.
 
     enterBox := EnterBox title:(self classResources at:'Browse which class:') withCRs.
-    enterBox okText:(ClassResources at:'browse').
+    enterBox okText:(resources at:'browse').
     enterBox entryCompletionBlock:[:contents |
-	|s what m|
-
-	s := contents withoutSpaces.
-	what := Smalltalk classnameCompletion:s.
-	enterBox contents:what first.
+        |s what m|
+
+        s := contents withoutSpaces.
+        what := Smalltalk classnameCompletion:s.
+        enterBox contents:what first.
     ].
     enterBox action:[:className |
-	|cls|
-
-	cls := Smalltalk classNamed:className.
-	cls isNil ifTrue:[
-	    self warn:(ClassResources at:'no such class').
-	] ifFalse:[
-	    self perform:aSelector with:cls  
-	]
+        |cls|
+
+        cls := Smalltalk classNamed:className.
+        cls isNil ifTrue:[
+            self warn:(resources at:'no such class').
+        ] ifFalse:[
+            self perform:aSelector with:cls  
+        ]
     ].
     enterBox showAtPointer
 
@@ -2422,6 +2424,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.108 2000-08-22 11:11:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.109 2000-08-22 11:27:40 cg Exp $'
 ! !
 SystemBrowser initialize!