Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
show dottet java class names in class-search box.
authorClaus Gittinger <cg@exept.de>
Mon, 20 Jul 1998 13:11:07 +0200
changeset 1727 5082609d043f
parent 1726 37e8450c18ad
child 1728 d37f0c65815d
show dottet java class names in class-search box. use #copyReplaceAll:with:
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- 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!
--- 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!
hg/stx-libtool