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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 03 Jan 1997 22:54:43 +0100
changeset 899 c373d5dd0586
parent 898 feb5df135b32
child 900 6fd4cb8c03e9
checkin from browser
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Fri Jan 03 20:17:54 1997 +0100
+++ b/BrowserView.st	Fri Jan 03 22:54:43 1997 +0100
@@ -3688,8 +3688,8 @@
             (aClass isNamespace not
             or:[aClass == Smalltalk]) ifTrue:[
                 nm := self displayedClassNameOf:aClass.
-                (newList includes:aClass) ifFalse:[
-"/                (classNames includes:nm) ifFalse:[
+"/                (newList includes:aClass) ifFalse:[
+                (classNames includes:nm) ifFalse:[
                     "/ show classes from other nameSpaces in italic
                     (currentNamespace ~= '* all *'
                     and:[(self findClassNamedInNameSpace:nm) isNil]) ifTrue:[
@@ -3752,8 +3752,8 @@
                     ].
                     match ifTrue:[
                         nm := self displayedClassNameOf:aClass.
-                        (newList includes:aClass) ifFalse:[
-"/                        (classNames includes:nm) ifFalse:[
+"/                        (newList includes:aClass) ifFalse:[
+                        (classNames includes:nm) ifFalse:[
                             (owner := aClass topOwningClass) notNil ifTrue:[
                                 actualNamespace := owner nameSpace
                             ] ifFalse:[
@@ -3781,8 +3781,8 @@
             (owner := aClass topOwningClass) notNil ifTrue:[
                 (newList includes:owner) ifTrue:[
                     nm := self displayedClassNameOf:aClass.
-                    (newList includes:aClass) ifFalse:[
-"/                            (classNames includes:nm) ifFalse:[
+"/                    (newList includes:aClass) ifFalse:[
+                    (classNames includes:nm) ifFalse:[
                         classNames add:nm.
                         newList add:aClass
                     ]
@@ -3810,7 +3810,7 @@
 
     ^ newList
 
-    "Modified: 3.1.1997 / 20:15:53 / cg"
+    "Modified: 3.1.1997 / 20:32:18 / cg"
 !
 
 listOfClassHierarchyOf:aClass
@@ -8911,6 +8911,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.236 1997-01-03 19:17:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.237 1997-01-03 21:54:43 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Fri Jan 03 20:17:54 1997 +0100
+++ b/BrwsrView.st	Fri Jan 03 22:54:43 1997 +0100
@@ -3688,8 +3688,8 @@
             (aClass isNamespace not
             or:[aClass == Smalltalk]) ifTrue:[
                 nm := self displayedClassNameOf:aClass.
-                (newList includes:aClass) ifFalse:[
-"/                (classNames includes:nm) ifFalse:[
+"/                (newList includes:aClass) ifFalse:[
+                (classNames includes:nm) ifFalse:[
                     "/ show classes from other nameSpaces in italic
                     (currentNamespace ~= '* all *'
                     and:[(self findClassNamedInNameSpace:nm) isNil]) ifTrue:[
@@ -3752,8 +3752,8 @@
                     ].
                     match ifTrue:[
                         nm := self displayedClassNameOf:aClass.
-                        (newList includes:aClass) ifFalse:[
-"/                        (classNames includes:nm) ifFalse:[
+"/                        (newList includes:aClass) ifFalse:[
+                        (classNames includes:nm) ifFalse:[
                             (owner := aClass topOwningClass) notNil ifTrue:[
                                 actualNamespace := owner nameSpace
                             ] ifFalse:[
@@ -3781,8 +3781,8 @@
             (owner := aClass topOwningClass) notNil ifTrue:[
                 (newList includes:owner) ifTrue:[
                     nm := self displayedClassNameOf:aClass.
-                    (newList includes:aClass) ifFalse:[
-"/                            (classNames includes:nm) ifFalse:[
+"/                    (newList includes:aClass) ifFalse:[
+                    (classNames includes:nm) ifFalse:[
                         classNames add:nm.
                         newList add:aClass
                     ]
@@ -3810,7 +3810,7 @@
 
     ^ newList
 
-    "Modified: 3.1.1997 / 20:15:53 / cg"
+    "Modified: 3.1.1997 / 20:32:18 / cg"
 !
 
 listOfClassHierarchyOf:aClass
@@ -8911,6 +8911,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.236 1997-01-03 19:17:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.237 1997-01-03 21:54:43 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool