--- a/ApplicationBuilder.st Sun Apr 19 21:07:17 1998 +0200
+++ b/ApplicationBuilder.st Tue Apr 21 00:39:08 1998 +0200
@@ -1221,15 +1221,15 @@
initialize
"initialize all aspects"
- |homeDir|
+ |topDir|
super initialize.
aspects := self class aspects.
- homeDir := Filename homeDirectory asFilename.
+ topDir := (Filename currentDirectory asFilename construct:'..') construct:'..'.
- self aspectsAt: #topDirectory putFirst: (homeDir construct: 'stx') name.
+ self aspectsAt: #topDirectory putFirst: topDir pathName.
aspects at: #systemLibraries put: ObjectFileLoader searchedLibraries asValue.
(aspects at: #systemLibrary put: ((aspects at: #systemLibraries) value at: 1 ifAbsent: '') asValue) addDependent: self.
self aspectsAt: #oldSystemLibrary putFirst: (aspects at: #systemLibrary) value.
@@ -1239,17 +1239,17 @@
self aspectsAt: #applicationName putFirst: 'application'.
self aspectsAt: #startupMessage putFirst: 'Smalltalk start'.
- self aspectsAt: #startupCFile putFirst: (homeDir construct: 'stx/librun/main.c') name.
+ self aspectsAt: #startupCFile putFirst: (topDir construct: 'librun/main.c') pathName.
- self aspectsAt: #targetDirectory putFirst: (homeDir construct: 'stx/projects/application') name.
- self aspectsAt: #libraryDirectory putFirst: (homeDir construct: 'stx/projects/smalltalk') name.
+ self aspectsAt: #targetDirectory putFirst: ((topDir construct: 'projects') construct:'application') pathName.
+ self aspectsAt: #libraryDirectory putFirst: ((topDir construct: 'projects') construct:'smalltalk') pathName.
self aspectsAt: #stxLibraries putFirst:
(ObjectMemory binaryModuleInfo collect: [:binMoInfo| (binMoInfo name copy reverse upTo: $ ) reverse]) asSortedCollection.
self aspectsAt: #userLibraries putFirst: OrderedCollection new.
- aspects at: #buildDate put: Date today printString, ' ', Time now printString.
+ aspects at: #buildDate put: (Date today printString, ' ', Time now printString) asValue.
self aspectsAt: #linkRCFiles putFirst: true.
self aspectsAt: #linkResources putFirst: true.
@@ -1357,5 +1357,5 @@
!ApplicationBuilder class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ApplicationBuilder.st,v 1.5 1998-04-18 22:58:38 tz Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ApplicationBuilder.st,v 1.6 1998-04-20 22:38:49 cg Exp $'
! !