--- 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.
]
]
!