BrowserView.st
changeset 2833 5bceae325a3e
parent 2829 d6e4369d4a20
child 2840 9806b72e36f9
--- 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!