--- a/ProjectView.st Tue Jan 11 18:06:39 2000 +0100
+++ b/ProjectView.st Tue Jan 11 20:03:42 2000 +0100
@@ -495,7 +495,7 @@
box := ListSelectionBox title:(resources string:'PROJECT_PACKAGENAME') withCRs.
box list:(existingPackages asOrderedCollection sort).
- (p := myProject packageName) notNil ifTrue:[
+ (p := myProject package) notNil ifTrue:[
box initialText:p
].
box action:[:packageName |
@@ -768,5 +768,5 @@
!ProjectView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.47 1999-07-26 14:03:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.48 2000-01-11 19:03:42 cg Exp $'
! !