# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 900933067 -7200
# Node ID 5082609d043f9eaa9f6fea14ab5ee4a4873865eb
# Parent  37e8450c18ad783037072aca54e7c2a3f0c962f5
show dottet java class names in class-search box.
use #copyReplaceAll:with:

diff -r 37e8450c18ad -r 5082609d043f BrowserView.st
--- a/BrowserView.st	Fri Jul 17 11:14:14 1998 +0200
+++ b/BrowserView.st	Mon Jul 20 13:11:07 1998 +0200
@@ -2329,7 +2329,7 @@
                             s := nil
                         ] ifFalse:[
                             (s includes:$") ifTrue:[
-                                s := s copy replaceAll:$" with:$'.
+                                s := s copyReplaceAll:$" with:$'.
                             ].
                             isComment := true
                         ]
@@ -2420,7 +2420,7 @@
         self normalLabel
     ]
 
-    "Modified: / 17.6.1998 / 11:28:57 / cg"
+    "Modified: / 18.7.1998 / 22:52:50 / cg"
 !
 
 classDocumentation
@@ -5160,7 +5160,15 @@
     classNames := Set new.
     caselessMatchingNames := Set new.
     Smalltalk allBehaviorsDo:[:aClass |
-        thisName := aClass name.
+        "/ to make it look better,
+        "/ show dotted names
+        "/ thisName := aClass name.
+        thisName := (aClass isJavaClass ifTrue:[
+                        aClass displayString. "/ fullName copyReplaceAll:$/ with:$.
+                     ] ifFalse:[
+                        aClass name
+                     ]
+                    ).
         (aMatchString match:thisName) ifTrue:[
             classNames add:thisName
         ] ifFalse:[
@@ -5188,10 +5196,14 @@
 
     className isNil ifTrue:[^ self].
 
+    "/ use slashed javaName for search.
+    (className includes:$.) ifTrue:[
+        className := className copyReplaceAll:$. with:$/
+    ].
     self switchToClassNamed:className.
     self classSelectionChanged.
 
-    "Modified: / 16.6.1998 / 10:12:08 / cg"
+    "Modified: / 18.7.1998 / 23:09:57 / cg"
 !
 
 switchToClassNamed:aString
@@ -9491,7 +9503,7 @@
     box := self listBoxTitle:'accept in which method category ?' okText:'accept' list:someCategories.
 
     lastMethodCategory isNil ifTrue:[
-        txt := 'as yet undefined' "/ 'new methods'
+        txt := '* as yet undefined *' "/ 'new methods'
     ] ifFalse:[
         txt := lastMethodCategory
     ].
@@ -9500,7 +9512,7 @@
     box showAtPointer.
     ^ retVal
 
-    "Modified: / 16.7.1998 / 18:19:08 / cg"
+    "Modified: / 18.7.1998 / 22:18:25 / cg"
 !
 
 askForSearchSelectorTitle:title openWith:aSelector
@@ -11791,6 +11803,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.427 1998-07-16 16:28:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.428 1998-07-20 11:11:07 cg Exp $'
 ! !
 BrowserView initialize!
diff -r 37e8450c18ad -r 5082609d043f BrwsrView.st
--- a/BrwsrView.st	Fri Jul 17 11:14:14 1998 +0200
+++ b/BrwsrView.st	Mon Jul 20 13:11:07 1998 +0200
@@ -2329,7 +2329,7 @@
                             s := nil
                         ] ifFalse:[
                             (s includes:$") ifTrue:[
-                                s := s copy replaceAll:$" with:$'.
+                                s := s copyReplaceAll:$" with:$'.
                             ].
                             isComment := true
                         ]
@@ -2420,7 +2420,7 @@
         self normalLabel
     ]
 
-    "Modified: / 17.6.1998 / 11:28:57 / cg"
+    "Modified: / 18.7.1998 / 22:52:50 / cg"
 !
 
 classDocumentation
@@ -5160,7 +5160,15 @@
     classNames := Set new.
     caselessMatchingNames := Set new.
     Smalltalk allBehaviorsDo:[:aClass |
-        thisName := aClass name.
+        "/ to make it look better,
+        "/ show dotted names
+        "/ thisName := aClass name.
+        thisName := (aClass isJavaClass ifTrue:[
+                        aClass displayString. "/ fullName copyReplaceAll:$/ with:$.
+                     ] ifFalse:[
+                        aClass name
+                     ]
+                    ).
         (aMatchString match:thisName) ifTrue:[
             classNames add:thisName
         ] ifFalse:[
@@ -5188,10 +5196,14 @@
 
     className isNil ifTrue:[^ self].
 
+    "/ use slashed javaName for search.
+    (className includes:$.) ifTrue:[
+        className := className copyReplaceAll:$. with:$/
+    ].
     self switchToClassNamed:className.
     self classSelectionChanged.
 
-    "Modified: / 16.6.1998 / 10:12:08 / cg"
+    "Modified: / 18.7.1998 / 23:09:57 / cg"
 !
 
 switchToClassNamed:aString
@@ -9491,7 +9503,7 @@
     box := self listBoxTitle:'accept in which method category ?' okText:'accept' list:someCategories.
 
     lastMethodCategory isNil ifTrue:[
-        txt := 'as yet undefined' "/ 'new methods'
+        txt := '* as yet undefined *' "/ 'new methods'
     ] ifFalse:[
         txt := lastMethodCategory
     ].
@@ -9500,7 +9512,7 @@
     box showAtPointer.
     ^ retVal
 
-    "Modified: / 16.7.1998 / 18:19:08 / cg"
+    "Modified: / 18.7.1998 / 22:18:25 / cg"
 !
 
 askForSearchSelectorTitle:title openWith:aSelector
@@ -11791,6 +11803,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.427 1998-07-16 16:28:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.428 1998-07-20 11:11:07 cg Exp $'
 ! !
 BrowserView initialize!