hg/stx-libtool2: comparison ProjectBrowser.st

equal deleted inserted replaced

-:5b46f277b3e1
+:a35169ceb247
 #(#FullSpec
 #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:
 #(
 #(#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:
 #(
 #(#InputFieldSpec
 #name: 'EntryField1'
 #layout: #(#LayoutFrame 0 0.0 5 0 0 1.0 27 0)
 #model: #installDirectory
 #modifiedChannel: #modifiedChannel
+)
 )
 )
 )
-#label: 'Install Directory'
-#labelPosition: #topLeft
-#translateLabel: true
 )
 )
 )
-)
 !
 rightCanvasSpecForEditableText
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 #bounds: #(#Rectangle 216 173 780 496)
 #menu: #mainMenu
 #usePreferredExtent: false
 #returnIsOKInDialog: true
 #escapeIsCancelInDialog: true
 )
 #component:
 #(#SpecCollection
 #collection:
 #(
 #(#MenuPanelSpec
 #name: 'ToolBar1'
 #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)
 #component:
 #(#SpecCollection
 #showDirectoryIndicator: true
 #valueChangeSelector: #itemSelected:
 #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'!
 classesItemMenu
 (Menu new fromLiteralArrayEncoding:(ProjectBrowser mainMenu)) startUp
 "
 <resource: #menu>
 ^
+#(#Menu
-#(#Menu
+#(
+#(#MenuItem
-#(
+#label: 'File'
-#(#MenuItem
+#translateLabel: true
-#label: 'File'
+#submenu:
-#translateLabel: true
+#(#Menu
-#submenu:
+#(
-#(#Menu
+#(#MenuItem
+#label: 'Load From...'
-#(
+#translateLabel: true
-#(#MenuItem
+#value: #openProject
-#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
 )
-)
+#(#MenuItem
-#(#MenuItem
+#label: '-'
-#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
 )
-)
+#(#MenuItem
-) nil
+#label: 'Save'
-nil
+#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
+)
+)
+#(#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
 )
 !
 menu
 "This resource specification was automatically generated
 ! !
 !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
 ].
 ! !
 request:'Rename to:'
 initialAnswer:selectedProject name.
 nm size > 0 ifTrue:[
 selectedProject name:nm.
-selectedNode name:nm.
+"/            selectedNode name:nm.
-selectedNode changed.
+"/            selectedNode changed.
 ]
 ]
 !
 saveProject

changeset 1085	a35169ceb247
parent 1081	b8f1b9924f40
child 1088	60edf3482db2