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>
Thu, 31 Jul 1997 22:42:31 +0200
changeset 1266 ee97c01c22c9
parent 1265 3db375412f5d
child 1267 17fc5184fb22
checkin from browser
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Thu Jul 31 21:21:36 1997 +0200
+++ b/BrowserView.st	Thu Jul 31 22:42:31 1997 +0200
@@ -19,7 +19,8 @@
 		lastMethodCategory aspect variableListView fullProtocol
 		lockUpdates autoSearch myLabel acceptClass lastSourceLogMessage
 		lastCategory lastModule lastPackage lastMethodMoveClass
-		namespaceList allNamespaces gotClassList classList selectorList'
+		namespaceList allNamespaces gotClassList classList selectorList
+		showAllNamespaces'
 	classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon
 		StopIcon TraceIcon TimeIcon'
 	poolDictionaries:''
@@ -5232,6 +5233,7 @@
     super initialize.
 
     showInstance := true.
+    showAllNamespaces := false.
     fullClass := false.
     fullProtocol := false.
     gotClassList := false.
@@ -5241,7 +5243,7 @@
     "inform me, when Smalltalk changes"
     Smalltalk addDependent:self
 
-    "Modified: 4.1.1997 / 19:58:52 / cg"
+    "Modified: 31.7.1997 / 22:32:09 / cg"
 !
 
 postRealize
@@ -8484,13 +8486,22 @@
     labels := #('new namespace').
     selectors := #(nameSpaceNewNameSpace).
 
+"/    showAllNamespaces ifTrue:[
+"/        labels := labels , #( '-' 'show topLevel namespaces only').
+"/        selectors := selectors , #(nil showTopLevelNamespaces).
+"/    ] ifFalse:[
+"/        labels := labels , #( '-' 'show all namespaces').
+"/        selectors := selectors , #(nil showAllNamespaces).
+"/    ].
+
+
     (currentNamespace notNil
     and:[currentNamespace ~~ Smalltalk
     and:[currentNamespace ~= '* all *']]) ifTrue:[
         "/ is it all empty ?
         currentNamespace allClasses isEmpty ifTrue:[
-            labels := #('new namespace' '-' 'remove').
-            selectors := #(nameSpaceNewNameSpace nil nameSpaceRemove).
+            labels := labels , #('-' 'remove').
+            selectors := selectors , #(nil nameSpaceRemove).
         ]
     ].
 
@@ -8500,7 +8511,7 @@
         receiver:self.
 
     "Created: 4.1.1997 / 23:51:38 / cg"
-    "Modified: 16.1.1997 / 01:06:22 / cg"
+    "Modified: 31.7.1997 / 22:40:33 / cg"
 !
 
 nameSpaceNewNameSpace
@@ -8637,11 +8648,22 @@
 
     allNamespaces isNil ifTrue:[
         allNamespaces := Namespace allNamespaces.
+
+        showAllNamespaces ifFalse:[
+            "/ only topLevel namespaces are shown
+            "/ i.e. those without colons in their name
+
+            allNamespaces := allNamespaces select:[:ns |
+                                                    |nm|
+
+                                                    nm := ns name.
+                                                    (nm includes:$:) not
+                                                  ].
+        ]
     ].
     ^ allNamespaces
 
-    "Created: 20.12.1996 / 19:18:03 / cg"
-    "Modified: 2.1.1997 / 20:18:43 / cg"
+    "Modified: 31.7.1997 / 22:32:30 / cg"
 !
 
 listOfNamespaces
@@ -8681,6 +8703,24 @@
     "Modified: 20.12.1996 / 19:18:29 / cg"
 !
 
+showAllNamespaces
+    "toggle to show all namespaces"
+
+    showAllNamespaces := true.
+    self updateNamespaceList
+
+    "Modified: 31.7.1997 / 22:33:16 / cg"
+!
+
+showTopLevelNamespaces
+    "toggle to show topLevel namespaces only"
+
+    showAllNamespaces := false.
+    self updateNamespaceList
+
+    "Created: 31.7.1997 / 22:33:29 / cg"
+!
+
 updateNamespaceList
     allNamespaces := nil.
     namespaceList notNil ifTrue:[
@@ -10438,6 +10478,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.324 1997-07-31 11:57:16 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.325 1997-07-31 20:42:31 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Thu Jul 31 21:21:36 1997 +0200
+++ b/BrwsrView.st	Thu Jul 31 22:42:31 1997 +0200
@@ -19,7 +19,8 @@
 		lastMethodCategory aspect variableListView fullProtocol
 		lockUpdates autoSearch myLabel acceptClass lastSourceLogMessage
 		lastCategory lastModule lastPackage lastMethodMoveClass
-		namespaceList allNamespaces gotClassList classList selectorList'
+		namespaceList allNamespaces gotClassList classList selectorList
+		showAllNamespaces'
 	classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon
 		StopIcon TraceIcon TimeIcon'
 	poolDictionaries:''
@@ -5232,6 +5233,7 @@
     super initialize.
 
     showInstance := true.
+    showAllNamespaces := false.
     fullClass := false.
     fullProtocol := false.
     gotClassList := false.
@@ -5241,7 +5243,7 @@
     "inform me, when Smalltalk changes"
     Smalltalk addDependent:self
 
-    "Modified: 4.1.1997 / 19:58:52 / cg"
+    "Modified: 31.7.1997 / 22:32:09 / cg"
 !
 
 postRealize
@@ -8484,13 +8486,22 @@
     labels := #('new namespace').
     selectors := #(nameSpaceNewNameSpace).
 
+"/    showAllNamespaces ifTrue:[
+"/        labels := labels , #( '-' 'show topLevel namespaces only').
+"/        selectors := selectors , #(nil showTopLevelNamespaces).
+"/    ] ifFalse:[
+"/        labels := labels , #( '-' 'show all namespaces').
+"/        selectors := selectors , #(nil showAllNamespaces).
+"/    ].
+
+
     (currentNamespace notNil
     and:[currentNamespace ~~ Smalltalk
     and:[currentNamespace ~= '* all *']]) ifTrue:[
         "/ is it all empty ?
         currentNamespace allClasses isEmpty ifTrue:[
-            labels := #('new namespace' '-' 'remove').
-            selectors := #(nameSpaceNewNameSpace nil nameSpaceRemove).
+            labels := labels , #('-' 'remove').
+            selectors := selectors , #(nil nameSpaceRemove).
         ]
     ].
 
@@ -8500,7 +8511,7 @@
         receiver:self.
 
     "Created: 4.1.1997 / 23:51:38 / cg"
-    "Modified: 16.1.1997 / 01:06:22 / cg"
+    "Modified: 31.7.1997 / 22:40:33 / cg"
 !
 
 nameSpaceNewNameSpace
@@ -8637,11 +8648,22 @@
 
     allNamespaces isNil ifTrue:[
         allNamespaces := Namespace allNamespaces.
+
+        showAllNamespaces ifFalse:[
+            "/ only topLevel namespaces are shown
+            "/ i.e. those without colons in their name
+
+            allNamespaces := allNamespaces select:[:ns |
+                                                    |nm|
+
+                                                    nm := ns name.
+                                                    (nm includes:$:) not
+                                                  ].
+        ]
     ].
     ^ allNamespaces
 
-    "Created: 20.12.1996 / 19:18:03 / cg"
-    "Modified: 2.1.1997 / 20:18:43 / cg"
+    "Modified: 31.7.1997 / 22:32:30 / cg"
 !
 
 listOfNamespaces
@@ -8681,6 +8703,24 @@
     "Modified: 20.12.1996 / 19:18:29 / cg"
 !
 
+showAllNamespaces
+    "toggle to show all namespaces"
+
+    showAllNamespaces := true.
+    self updateNamespaceList
+
+    "Modified: 31.7.1997 / 22:33:16 / cg"
+!
+
+showTopLevelNamespaces
+    "toggle to show topLevel namespaces only"
+
+    showAllNamespaces := false.
+    self updateNamespaceList
+
+    "Created: 31.7.1997 / 22:33:29 / cg"
+!
+
 updateNamespaceList
     allNamespaces := nil.
     namespaceList notNil ifTrue:[
@@ -10438,6 +10478,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.324 1997-07-31 11:57:16 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.325 1997-07-31 20:42:31 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool