--- 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!