--- a/BrowserView.st Tue Nov 07 15:20:51 2000 +0100
+++ b/BrowserView.st Wed Nov 08 17:05:12 2000 +0100
@@ -8828,7 +8828,7 @@
|tree newText|
- tree := BRParser
+ tree := RBParser
parseMethod:oldText
onError: [:aString :position | ^ self "ignore any error"].
tree isNil ifTrue:[^ self].
@@ -8837,8 +8837,7 @@
codeView contents:newText.
codeView modified:true.
- "Modified: / 22.11.1999 / 11:53:55 / cg"
-!
+ "Modified: / 22.11.1999 / 11:53:55 / cg"!
methodGlobalReferends
"launch an enterBox for global symbol to search for"
@@ -10665,12 +10664,12 @@
self clearAcceptAction.
] ifFalse:[
(UserPreferences current autoFormatting
- and:[BRParser notNil
- and:[BRFormatter notNil]]) ifTrue:[
+ and:[RBParser notNil
+ and:[RBFormatter notNil]]) ifTrue:[
Object errorSignal handle:[:ex |
] do:[
|tree|
- tree := BRParser
+ tree := RBParser
parseMethod:code
onError: [:aString :position | nil].
tree notNil ifTrue:[
@@ -10724,8 +10723,7 @@
self normalLabel.
"Created: / 23.11.1995 / 14:16:43 / cg"
- "Modified: / 10.2.2000 / 14:15:03 / cg"
-! !
+ "Modified: / 10.2.2000 / 14:15:03 / cg"! !
!BrowserView methodsFor:'namespace menu'!
@@ -11414,7 +11412,7 @@
|sel cls superCls implClass mthdThere treeHere treeThere dictionary|
- (BRParser notNil and:[BRParser isLoaded]) ifTrue:[
+ (RBParser notNil and:[RBParser isLoaded]) ifTrue:[
"/ does new method redefine an inherited method,
"/ which does the same ?
@@ -11439,11 +11437,11 @@
implClass notNil ifTrue:[
"/ ok, it is redefined
mthdThere := implClass compiledMethodAt:sel.
- treeHere := BRParser
+ treeHere := RBParser
parseMethod:mthdHere source
onError: [:aString :position | ^ self "ignore any error"].
treeHere isNil ifTrue:[^ self].
- treeThere := BRParser
+ treeThere := RBParser
parseMethod:mthdThere source
onError: [:aString :position | ^ self "ignore any error"].
treeThere isNil ifTrue:[^ self].
@@ -11455,8 +11453,7 @@
]
].
- "Modified: / 18.2.2000 / 11:34:12 / cg"
-!
+ "Modified: / 18.2.2000 / 11:34:12 / cg"!
checkSelectionChangeAllowed
"return true, if selection change is ok;
@@ -12467,7 +12464,7 @@
in:theCode
forClass:actualClass)
].
- BRFormatter notNil ifTrue:[
+ RBFormatter notNil ifTrue:[
"/ use the refactoryBrowser for formatting, if present
codeView formatAction:[:theCode |
self methodFormatMethod:theCode.
@@ -12484,8 +12481,7 @@
"/ ]
"/ ].
- "Modified: / 10.2.2000 / 14:17:14 / cg"
-!
+ "Modified: / 10.2.2000 / 14:17:14 / cg"!
setDoitActionForClass
"tell the codeView what to do on doIt"
@@ -13791,6 +13787,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.646 2000-10-31 13:38:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.647 2000-11-08 16:04:35 cg Exp $'
! !
BrowserView initialize!