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, 22 Apr 1999 16:09:57 +0200
changeset 2108 bb5caa5f014a
parent 2107 3b6cbfc7fa5c
child 2109 a0fe5f821c3a
checkin from browser
ProjectV.st file | annotate | diff | comparison | revisions
ProjectView.st file | annotate | diff | comparison | revisions 
--- a/ProjectV.st	Thu Apr 22 14:07:29 1999 +0200
+++ b/ProjectV.st	Thu Apr 22 16:09:57 1999 +0200
@@ -459,64 +459,71 @@
      quickly later."
 
     self topView withWaitCursorDo:[
-	|box p existingPackages allClasses|
+        |box p existingPackages allClasses|
+
+        existingPackages := Set new.
+        (allClasses := Smalltalk allClasses) do:[:aClass |
+            |p|
 
-	existingPackages := Set new.
-	(allClasses := Smalltalk allClasses) do:[:aClass |
-	    |p|
+"/            aClass isLoaded ifTrue:[
+                p := aClass package.
+                p size == 0 ifTrue:[
+                    p := 'no package'.
+                ].
+                existingPackages add:(p asString).
 
-	    aClass isLoaded ifTrue:[
-		(p := aClass package) notNil ifTrue:[
-		    existingPackages add:(p asString)
-		].
-		aClass methodDictionary do:[:aMethod |
-		    (p := aMethod package) notNil ifTrue:[
-			existingPackages add:(p asString)
-		    ]
-		].
-		aClass class methodDictionary do:[:aMethod |
-		    (p := aMethod package) notNil ifTrue:[
-			existingPackages add:(p asString)
-		    ]
-		].
-	    ]
-	].
+                aClass methodDictionary do:[:aMethod |
+                    p := aMethod package.
+                    p size == 0 ifTrue:[
+                        p := 'no package'.
+                    ].
+                    existingPackages add:(p asString).
+                ].
+                aClass class methodDictionary do:[:aMethod |
+                    p := aMethod package.
+                    p size == 0 ifTrue:[
+                        p := 'no package'.
+                    ].
+                    existingPackages add:(p asString).
+                ].
+"/            ]
+        ].
 
-	box := ListSelectionBox title:(resources string:'PROJECT_PACKAGENAME') withCRs.
-	box list:(existingPackages asOrderedCollection sort).
-	(p := myProject packageName) notNil ifTrue:[
-	    box initialText:p
-	].
-	box action:[:packageName |
-	    |someClass module directory|
+        box := ListSelectionBox title:(resources string:'PROJECT_PACKAGENAME') withCRs.
+        box list:(existingPackages asOrderedCollection sort).
+        (p := myProject packageName) notNil ifTrue:[
+            box initialText:p
+        ].
+        box action:[:packageName |
+            |someClass module directory|
 
-	    "/ (try) to extract the module & repository directory from someClass which
-	    "/ is already contained in that package
+            "/ (try) to extract the module & repository directory from someClass which
+            "/ is already contained in that package
 
-	    Smalltalk allClasses 
-		detect:[:cls | 
-				|info|
+            Smalltalk allClasses 
+                detect:[:cls | 
+                                |info|
 
-				(cls package = packageName) ifTrue:[
-				    (info := cls packageSourceCodeInfo) notNil ifTrue:[
-					module := info at:#module ifAbsent:nil.
-					directory := info at:#directory ifAbsent:nil.
-				    ]
-				].
-				module notNil and:[directory notNil].
-			]
-		ifNone:nil.
+                                (cls package = packageName) ifTrue:[
+                                    (info := cls packageSourceCodeInfo) notNil ifTrue:[
+                                        module := info at:#module ifAbsent:nil.
+                                        directory := info at:#directory ifAbsent:nil.
+                                    ]
+                                ].
+                                module notNil and:[directory notNil].
+                        ]
+                ifNone:nil.
 
-	    module notNil ifTrue:[
-		myProject repositoryModule:module
-	    ].
-	    directory notNil ifTrue:[
-		myProject repositoryDirectory:directory
-	    ].
-	    myProject packageName:packageName.
+            module notNil ifTrue:[
+                myProject repositoryModule:module
+            ].
+            directory notNil ifTrue:[
+                myProject repositoryDirectory:directory
+            ].
+            myProject packageName:packageName.
 
-	].
-	box showAtPointer
+        ].
+        box showAtPointer
     ]
 
     "Created: 9.12.1995 / 16:50:45 / cg"
@@ -757,5 +764,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.43 1999-01-18 14:18:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.44 1999-04-22 14:09:57 cg Exp $'
 ! !
--- a/ProjectView.st	Thu Apr 22 14:07:29 1999 +0200
+++ b/ProjectView.st	Thu Apr 22 16:09:57 1999 +0200
@@ -459,64 +459,71 @@
      quickly later."
 
     self topView withWaitCursorDo:[
-	|box p existingPackages allClasses|
+        |box p existingPackages allClasses|
+
+        existingPackages := Set new.
+        (allClasses := Smalltalk allClasses) do:[:aClass |
+            |p|
 
-	existingPackages := Set new.
-	(allClasses := Smalltalk allClasses) do:[:aClass |
-	    |p|
+"/            aClass isLoaded ifTrue:[
+                p := aClass package.
+                p size == 0 ifTrue:[
+                    p := 'no package'.
+                ].
+                existingPackages add:(p asString).
 
-	    aClass isLoaded ifTrue:[
-		(p := aClass package) notNil ifTrue:[
-		    existingPackages add:(p asString)
-		].
-		aClass methodDictionary do:[:aMethod |
-		    (p := aMethod package) notNil ifTrue:[
-			existingPackages add:(p asString)
-		    ]
-		].
-		aClass class methodDictionary do:[:aMethod |
-		    (p := aMethod package) notNil ifTrue:[
-			existingPackages add:(p asString)
-		    ]
-		].
-	    ]
-	].
+                aClass methodDictionary do:[:aMethod |
+                    p := aMethod package.
+                    p size == 0 ifTrue:[
+                        p := 'no package'.
+                    ].
+                    existingPackages add:(p asString).
+                ].
+                aClass class methodDictionary do:[:aMethod |
+                    p := aMethod package.
+                    p size == 0 ifTrue:[
+                        p := 'no package'.
+                    ].
+                    existingPackages add:(p asString).
+                ].
+"/            ]
+        ].
 
-	box := ListSelectionBox title:(resources string:'PROJECT_PACKAGENAME') withCRs.
-	box list:(existingPackages asOrderedCollection sort).
-	(p := myProject packageName) notNil ifTrue:[
-	    box initialText:p
-	].
-	box action:[:packageName |
-	    |someClass module directory|
+        box := ListSelectionBox title:(resources string:'PROJECT_PACKAGENAME') withCRs.
+        box list:(existingPackages asOrderedCollection sort).
+        (p := myProject packageName) notNil ifTrue:[
+            box initialText:p
+        ].
+        box action:[:packageName |
+            |someClass module directory|
 
-	    "/ (try) to extract the module & repository directory from someClass which
-	    "/ is already contained in that package
+            "/ (try) to extract the module & repository directory from someClass which
+            "/ is already contained in that package
 
-	    Smalltalk allClasses 
-		detect:[:cls | 
-				|info|
+            Smalltalk allClasses 
+                detect:[:cls | 
+                                |info|
 
-				(cls package = packageName) ifTrue:[
-				    (info := cls packageSourceCodeInfo) notNil ifTrue:[
-					module := info at:#module ifAbsent:nil.
-					directory := info at:#directory ifAbsent:nil.
-				    ]
-				].
-				module notNil and:[directory notNil].
-			]
-		ifNone:nil.
+                                (cls package = packageName) ifTrue:[
+                                    (info := cls packageSourceCodeInfo) notNil ifTrue:[
+                                        module := info at:#module ifAbsent:nil.
+                                        directory := info at:#directory ifAbsent:nil.
+                                    ]
+                                ].
+                                module notNil and:[directory notNil].
+                        ]
+                ifNone:nil.
 
-	    module notNil ifTrue:[
-		myProject repositoryModule:module
-	    ].
-	    directory notNil ifTrue:[
-		myProject repositoryDirectory:directory
-	    ].
-	    myProject packageName:packageName.
+            module notNil ifTrue:[
+                myProject repositoryModule:module
+            ].
+            directory notNil ifTrue:[
+                myProject repositoryDirectory:directory
+            ].
+            myProject packageName:packageName.
 
-	].
-	box showAtPointer
+        ].
+        box showAtPointer
     ]
 
     "Created: 9.12.1995 / 16:50:45 / cg"
@@ -757,5 +764,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.43 1999-01-18 14:18:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.44 1999-04-22 14:09:57 cg Exp $'
 ! !
hg/stx-libtool