--- a/ProjectView.st Sat Mar 25 23:23:29 1995 +0100
+++ b/ProjectView.st Sat Mar 25 23:24:57 1995 +0100
@@ -32,23 +32,24 @@
"launch browsers for all classes/methods which are defined in this package"
self topView withWaitCursorDo:[
- |classes packageName|
+ |classes packageName|
- packageName := myProject packageName.
- classes := myProject classes.
- classes notNil ifTrue:[
- SystemBrowser browseClasses:classes
- title:'classes in package ' , packageName.
+ packageName := myProject packageName.
+ classes := myProject classes.
+ classes notNil ifTrue:[
+ SystemBrowser browseClasses:classes
+ title:'classes in package ' , packageName.
- classes := classes asSet addAll:(classes collect:[:c | c class]).
- ] ifFalse:[
- classes := #()
- ].
- SystemBrowser browseMethodsWhere:[:cls :mthd :sel |
- mthd package = packageName
- and:[(classes includes:cls) not]
- ]
- title:'additional methods in package ' , packageName
+ classes := classes asIdentitySet.
+ classes addAll:(classes collect:[:c | c class]).
+ ] ifFalse:[
+ classes := #()
+ ].
+ SystemBrowser browseMethodsWhere:[:cls :mthd :sel |
+ mthd package = packageName
+ and:[(classes includes:cls) not]
+ ]
+ title:'additional methods in package ' , packageName
]
!
@@ -56,6 +57,7 @@
|box d|
box := FilenameEnterBox new.
+ box directoriesOnly.
box title:(resources string:'Directory of project (fileOuts will go there):').
(d := myProject directory) notNil ifTrue:[
box initialText:d
@@ -82,33 +84,33 @@
projectPackage
self topView withWaitCursorDo:[
- |box p existingPackages|
+ |box p existingPackages|
- existingPackages := Set new.
- Smalltalk allClassesDo:[:aClass |
- |p|
+ existingPackages := Set new.
+ Smalltalk allClassesDo:[:aClass |
+ |p|
- (p := aClass package) notNil ifTrue:[
- existingPackages add:(p asString)
- ]
- ].
- Method allInstancesDo:[:aClass |
- |p|
+ (p := aClass package) notNil ifTrue:[
+ existingPackages add:(p asString)
+ ]
+ ].
+ Method allInstancesDo:[:aClass |
+ |p|
- (p := aClass package) notNil ifTrue:[
- existingPackages add:(p asString)
- ]
- ].
+ (p := aClass package) notNil ifTrue:[
+ existingPackages add:(p asString)
+ ]
+ ].
- box := ListSelectionBox title:'Package (new classes/methods will be put into that):'.
- box list:(existingPackages asOrderedCollection sort).
- (p := myProject packageName) notNil ifTrue:[
- box initialText:p
- ].
- box action:[:packageName |
- myProject packageName:packageName
- ].
- box showAtPointer
+ box := ListSelectionBox title:'Package (new classes/methods will be put into that):'.
+ box list:(existingPackages asOrderedCollection sort).
+ (p := myProject packageName) notNil ifTrue:[
+ box initialText:p
+ ].
+ box action:[:packageName |
+ myProject packageName:packageName
+ ].
+ box showAtPointer
]
@@ -133,12 +135,12 @@
saveProjectFiles
self topView withWaitCursorDo:[
- |dir|
+ |dir|
- dir := myProject directory.
- (self confirm:'create source files in: ' , dir , ' ?') ifTrue:[
- myProject createProjectFiles.
- ]
+ dir := myProject directory.
+ (self confirm:'create source files in: ' , dir , ' ?') ifTrue:[
+ myProject createProjectFiles.
+ ]
].
!
@@ -157,19 +159,20 @@
box initialText:(myProject name).
box action:[:newName |
myProject name:newName.
- self setProject:myProject
+ self setProject:myProject.
+ self windowGroup process name:'Project: ' , newName.
].
box showAtPointer
!
buildProject
self topView withWaitCursorDo:[
- |dir|
+ |dir|
- self saveProjectFiles.
- (self confirm:'make object files in: ' , dir , ' ?') ifTrue:[
- myProject buildProject.
- ]
+ self saveProjectFiles.
+ (self confirm:'make object files in: ' , dir , ' ?') ifTrue:[
+ myProject buildProject.
+ ]
].
!