diff -r deda6cdfe287 -r 98b04ef482dc ProjectBrowser.st
--- a/ProjectBrowser.st	Tue Mar 23 12:09:45 1999 +0100
+++ b/ProjectBrowser.st	Tue Mar 23 14:20:40 1999 +0100
@@ -113,6 +113,27 @@
         ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@DH@@@@@@@@4QA@@@@@@@TQDPP@@@@@@MDQDH@@@@@@PQDQA@@@@@@LTQA@@@@@@M@I@L@@@@@EDPQD@@@@@@CQDIB@@@@@@DDQDPP@@@@@CEDPP@@@@@@@BPC@@@@@@@@DQ@@@@@@@@@B@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 132 0 0 132 0 132 255 0 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'B@@\@C8@_0A? C?@G<@? G<@_8@?0A?@C8@G@@H@@@@b') ; yourself); yourself]
 
 
+!
+
+prerequisitesIcon
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
+
+    "
+     self prerequisitesIcon inspect
+     ImageEditor openOnClass:self andSelector:#prerequisitesIcon
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:#'ProjectBrowser prerequisitesIcon'
+        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A8@D(@RPA80@C@^@=HRT/)^D$@C7#@RLAI@G(@@@@b') ; yourself); yourself]
+
+    "Modified: / 23.3.1999 / 14:28:11 / cg"
 ! !
 
 !ProjectBrowser class methodsFor:'interface specs'!
@@ -366,12 +387,12 @@
           #window: 
            #(#WindowSpec
               #name: 'NewApplication'
-              #layout: #(#LayoutFrame 170 0 122 0 469 0 421 0)
+              #layout: #(#LayoutFrame 134 0 100 0 433 0 399 0)
               #level: 0
               #label: 'NewApplication'
               #min: #(#Point 10 10)
               #max: #(#Point 1280 1024)
-              #bounds: #(#Rectangle 170 122 470 422)
+              #bounds: #(#Rectangle 134 100 434 400)
               #usePreferredExtent: false
               #returnIsOKInDialog: true
               #escapeIsCancelInDialog: true
@@ -422,7 +443,6 @@
                               #translateLabel: true
                               #model: #projectType
                               #isTriggerOnDown: true
-                              #lampColor: #(#Color 100.0 100.0 0.0)
                               #select: #application
                           )
                            #(#RadioButtonSpec
@@ -432,8 +452,7 @@
                               #translateLabel: true
                               #model: #projectType
                               #isTriggerOnDown: true
-                              #lampColor: #(#Color 100.0 100.0 0.0)
-                              #select: #classLibrary
+                              #select: #library
                           )
                         )
                     )
@@ -451,8 +470,8 @@
                            #(#InputFieldSpec
                               #name: 'EntryField1'
                               #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0)
+                              #enableChannel: #currentProjectWasNotLoadedFromFile
                               #model: #projectDirectory
-                              #isReadOnly: true
                           )
                         )
                     )
@@ -463,6 +482,8 @@
               )
           )
       )
+
+    "Modified: / 23.3.1999 / 14:20:32 / cg"
 !
 
 rightCanvasSpecForReadOnlyText
@@ -1003,6 +1024,23 @@
     ^ holder.
 !
 
+currentProjectWasNotLoadedFromFile
+    "automatically generated by UIPainter ..."
+
+    "*** the code below creates a default model when invoked."
+    "*** (which may not be the one you wanted)"
+    "*** Please change as required and accept in the browser."
+
+    |holder|
+
+    (holder := builder bindingAt:#currentProjectWasNotLoadedFromFile) isNil ifTrue:[
+        builder aspectAt:#currentProjectWasNotLoadedFromFile put:(holder :=  ValueHolder new).
+    ].
+    ^ holder.
+
+    "Created: / 23.3.1999 / 14:01:09 / cg"
+!
+
 hasProjectSelectedHolder
     ^ [
         self hasProjectNodeSelected
@@ -1061,6 +1099,23 @@
     ^ holder.
 !
 
+projectType
+    "automatically generated by UIPainter ..."
+
+    "*** the code below creates a default model when invoked."
+    "*** (which may not be the one you wanted)"
+    "*** Please change as required and accept in the browser."
+
+    |holder|
+
+    (holder := builder bindingAt:#projectType) isNil ifTrue:[
+        builder aspectAt:#projectType put:(holder :=  ValueHolder new).
+    ].
+    ^ holder.
+
+    "Created: / 23.3.1999 / 14:18:05 / cg"
+!
+
 rightCanvasTextHolder
     "automatically generated by UIPainter ..."
 
@@ -1212,6 +1267,7 @@
     ].
 
     prerequisitesNode contents:#prerequisites.
+    prerequisitesNode icon:(self class prerequisitesIcon).
 
     classesNode contents:#classes.
     classesNode icon:(self class classesIcon).
@@ -1236,6 +1292,7 @@
 
     ^ pNode
 
+    "Modified: / 23.3.1999 / 14:27:30 / cg"
 !
 
 projectTree
@@ -1254,6 +1311,22 @@
     ^ projectTree
 !
 
+readAspectsForProject
+    |p selectedNode|
+
+    self hasProjectNodeSelected ifTrue:[
+        selectedNode := self selectedTreeNode value.
+
+        p := selectedNode contents.
+
+        self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
+        self projectType value:(p type).
+    ].
+
+    "Created: / 23.3.1999 / 14:16:12 / cg"
+    "Modified: / 23.3.1999 / 14:18:38 / cg"
+!
+
 updateRightCanvas
     |selectedNode nodeContents spec|
 
@@ -1269,6 +1342,7 @@
     ].
 
     selectedNode isProjectNode ifTrue:[
+        self readAspectsForProject.
         self showCommentOf:selectedNode.
         ^ self.
     ].
@@ -1285,6 +1359,7 @@
     self currentCanvasHolder value:(self class emptyRightCanvasSpec).
     self rightCanvasTextHolder value:''.
 
+    "Modified: / 23.3.1999 / 14:16:02 / cg"
 ! !
 
 !ProjectBrowser methodsFor:'private - table col access'!