diff -r 5b46f277b3e1 -r a35169ceb247 ProjectBrowser.st
--- a/ProjectBrowser.st	Wed Mar 24 16:26:52 1999 +0100
+++ b/ProjectBrowser.st	Wed Mar 24 16:27:33 1999 +0100
@@ -250,17 +250,17 @@
           #name: #rightCanvasSpecForDeployment
           #window: 
            #(#WindowSpec
+              #label: 'NewApplication'
               #name: 'NewApplication'
               #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0)
               #level: 0
-              #label: 'NewApplication'
               #min: #(#Point 10 10)
               #max: #(#Point 1280 1024)
               #bounds: #(#Rectangle 216 173 516 473)
               #usePreferredExtent: false
               #returnIsOKInDialog: true
               #escapeIsCancelInDialog: true
-          )
+            )
           #component: 
            #(#SpecCollection
               #collection: 
@@ -268,70 +268,73 @@
                  #(#HorizontalPanelViewSpec
                     #name: 'HorizontalPanel1'
                     #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
+                    #horizontalLayout: #fitSpace
+                    #verticalLayout: #center
+                    #horizontalSpace: 3
+                    #verticalSpace: 3
                     #component: 
                      #(#SpecCollection
                         #collection: 
                          #(
                            #(#ActionButtonSpec
+                              #label: 'Cancel'
                               #name: 'Button1'
-                              #label: 'Cancel'
                               #translateLabel: true
                               #model: #cancel
                               #enableChannel: #modifiedChannel
                               #extent: #(#Point 145 22)
-                          )
+                            )
                            #(#ActionButtonSpec
+                              #label: 'OK'
                               #name: 'Button2'
-                              #label: 'OK'
                               #translateLabel: true
                               #model: #accept
                               #enableChannel: #modifiedChannel
                               #extent: #(#Point 146 22)
+                            )
                           )
-                        )
-                    )
-                    #horizontalLayout: #fitSpace
-                    #verticalLayout: #center
-                    #horizontalSpace: 3
-                    #verticalSpace: 3
-                )
+                      )
+                  )
                  #(#FramedBoxSpec
+                    #label: 'Delivery'
                     #name: 'FramedBox1'
                     #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 124 0)
+                    #labelPosition: #topLeft
+                    #translateLabel: true
                     #component: 
                      #(#SpecCollection
                         #collection: 
                          #(
                            #(#CheckBoxSpec
+                              #label: 'Compiled Binary'
                               #name: 'CheckBox1'
                               #layout: #(#LayoutFrame 0 0.0 10 0 0 1.0 32 0)
                               #model: #deliverCompiledBinary
-                              #label: 'Compiled Binary'
                               #translateLabel: true
-                          )
+                            )
                            #(#CheckBoxSpec
+                              #label: 'Zip Archive'
                               #name: 'CheckBox2'
                               #layout: #(#LayoutFrame 0 0.0 38 0 0 1.0 60 0)
                               #model: #deliverZipArchive
-                              #label: 'Zip Archive'
                               #translateLabel: true
-                          )
+                            )
                            #(#CheckBoxSpec
+                              #label: 'Sources'
                               #name: 'CheckBox3'
                               #layout: #(#LayoutFrame 0 0.0 66 0 0 1.0 88 0)
                               #model: #deliverSources
-                              #label: 'Sources'
                               #translateLabel: true
+                            )
                           )
-                        )
-                    )
-                    #label: 'Delivery'
+                      )
+                  )
+                 #(#FramedBoxSpec
+                    #label: 'Install Directory'
+                    #name: 'FramedBox2'
+                    #layout: #(#LayoutFrame 0 0.0 125 0 0 1.0 190 0)
                     #labelPosition: #topLeft
                     #translateLabel: true
-                )
-                 #(#FramedBoxSpec
-                    #name: 'FramedBox2'
-                    #layout: #(#LayoutFrame 0 0.0 125 0 0 1.0 190 0)
                     #component: 
                      #(#SpecCollection
                         #collection: 
@@ -341,16 +344,13 @@
                               #layout: #(#LayoutFrame 0 0.0 5 0 0 1.0 27 0)
                               #model: #installDirectory
                               #modifiedChannel: #modifiedChannel
+                            )
                           )
-                        )
-                    )
-                    #label: 'Install Directory'
-                    #labelPosition: #topLeft
-                    #translateLabel: true
+                      )
+                  )
                 )
-              )
-          )
-      )
+            )
+        )
 !
 
 rightCanvasSpecForEditableText
@@ -687,7 +687,7 @@
               #usePreferredExtent: false
               #returnIsOKInDialog: true
               #escapeIsCancelInDialog: true
-          )
+            )
           #component: 
            #(#SpecCollection
               #collection: 
@@ -697,7 +697,7 @@
                     #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
                     #menu: #menu
                     #textDefault: true
-                )
+                  )
                  #(#VariableHorizontalPanelSpec
                     #name: 'VariableHorizontalPanel1'
                     #layout: #(#LayoutFrame 0 0.0 40 0.0 0 1.0 -24 1.0)
@@ -720,26 +720,26 @@
                               #hierarchicalList: #projectTreeHolder
                               #selectConditionSelector: #selectionChangeAllowed
                               #highlightMode: #label
-                          )
+                            )
                            #(#SubCanvasSpec
                               #name: 'SubCanvas1'
                               #hasHorizontalScrollBar: false
                               #hasVerticalScrollBar: false
                               #specHolder: #currentCanvasHolder
+                            )
                           )
-                        )
-                    )
+                      )
                     #handles: #(#Any 0.379433 1.0)
-                )
+                  )
                  #(#UISubSpecification
                     #name: 'infoBarSubSpec'
                     #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
                     #majorKey: #ToolApplicationModel
                     #minorKey: #windowSpecForInfoBar
+                  )
                 )
-              )
-          )
-      )
+            )
+        )
 ! !
 
 !ProjectBrowser class methodsFor:'menu specs'!
@@ -797,82 +797,81 @@
 
     <resource: #menu>
 
-    ^
-     
-       #(#Menu
-          
-           #(
-             #(#MenuItem
-                #label: 'File'
-                #translateLabel: true
-                #submenu: 
-                 #(#Menu
-                    
-                     #(
-                       #(#MenuItem
-                          #label: 'Load From...'
-                          #translateLabel: true
-                          #value: #openProject
-                      )
-                       #(#MenuItem
-                          #label: '-'
-                      )
-                       #(#MenuItem
-                          #label: 'Save'
-                          #translateLabel: true
-                          #value: #saveProject
-                          #enabled: #hasProjectSelectedHolder
-                      )
-                       #(#MenuItem
-                          #label: 'Save As...'
-                          #translateLabel: true
-                          #value: #saveProjectAs
-                          #enabled: #hasProjectSelectedHolder
-                      )
-                       #(#MenuItem
-                          #label: '-'
-                      )
-                       #(#MenuItem
-                          #label: 'Exit'
-                          #translateLabel: true
-                          #value: #closeRequest
-                      )
-                    ) nil
-                    nil
+    ^ 
+     #(#Menu
+        #(
+         #(#MenuItem
+            #label: 'File'
+            #translateLabel: true
+            #submenu: 
+           #(#Menu
+              #(
+               #(#MenuItem
+                  #label: 'Load From...'
+                  #translateLabel: true
+                  #value: #openProject
+                )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
+                  #label: 'Save'
+                  #translateLabel: true
+                  #value: #saveProject
+                  #enabled: #hasProjectSelectedHolder
+                )
+               #(#MenuItem
+                  #label: 'Save As...'
+                  #translateLabel: true
+                  #value: #saveProjectAs
+                  #enabled: #hasProjectSelectedHolder
+                )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
+                  #label: 'Exit'
+                  #translateLabel: true
+                  #value: #closeRequest
                 )
-            )
-             #(#MenuItem
-                #label: 'Project'
-                #translateLabel: true
-                #submenuChannel: #projectItemMenu
+               )
+              nil
+              nil
             )
-             #(#MenuItem
-                #label: 'Help'
-                #translateLabel: true
-                #startGroup: #right
-                #submenu: 
-                 #(#Menu
-                    
-                     #(
-                       #(#MenuItem
-                          #label: 'Documentation'
-                          #translateLabel: true
-                          #value: #openDocumentation
-                      )
-                       #(#MenuItem
-                          #label: '-'
-                      )
-                       #(#MenuItem
-                          #label: 'About this Application'
-                          #translateLabel: true
-                          #value: #openAboutThisApplication
-                      )
-                    ) nil
-                    nil
+          )
+         #(#MenuItem
+            #label: 'Project'
+            #translateLabel: true
+            #submenuChannel: #projectItemMenu
+          )
+         #(#MenuItem
+            #label: 'Help'
+            #translateLabel: true
+            #startGroup: #right
+            #submenu: 
+           #(#Menu
+              #(
+               #(#MenuItem
+                  #label: 'Documentation'
+                  #translateLabel: true
+                  #value: #openDocumentation
                 )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
+                  #label: 'About this Application'
+                  #translateLabel: true
+                  #value: #openAboutThisApplication
+                )
+               )
+              nil
+              nil
             )
-          ) nil
-          nil
+          )
+         )
+        nil
+        nil
       )
 !
 
@@ -1382,6 +1381,17 @@
 !ProjectBrowser methodsFor:'change & update'!
 
 update:something with:aParameter from:changedObject
+    something == #name ifTrue:[
+        "/ a project was renamed - update my tree
+        self projectTree children do:[:pNode |
+            pNode contents == changedObject ifTrue:[
+                pNode name:changedObject name.
+                pNode changed.
+            ]
+        ].
+        ^ self.
+    ].
+
     changedObject == self currentProject ifTrue:[
         self halt
     ].
@@ -1789,8 +1799,8 @@
 
         nm size > 0 ifTrue:[
             selectedProject name:nm.
-            selectedNode name:nm.
-            selectedNode changed.
+"/            selectedNode name:nm.
+"/            selectedNode changed.
         ]
     ]
 !