added: #doOpenExplorer
changed:
#page7_deploySpec
#selectedApplicationChanged
#updateListOfApplicationsInProject
--- a/Tools__ProjectBuilderAssistantApplication.st Wed Oct 21 00:23:16 2009 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st Wed Oct 21 01:16:05 2009 +0200
@@ -665,7 +665,7 @@
(SpecCollection
collection: (
(FramedBoxSpec
- label: 'Deploy Installation File'
+ label: 'Files for Deployment'
name: 'FramedBox3'
layout: (LayoutFrame 0 0.0 5 0 4 1.0 0 1)
labelPosition: topLeft
@@ -675,13 +675,35 @@
collection: (
(SubCanvasSpec
name: 'SubCanvas1'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
hasHorizontalScrollBar: false
hasVerticalScrollBar: false
clientHolder: fileBrowserInstance
createNewApplication: true
createNewBuilder: true
)
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel1'
+ layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
+ horizontalLayout: center
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Open Windows Explorer'
+ name: 'Button1'
+ translateLabel: true
+ resizeForLabel: true
+ model: doOpenExplorer
+ extent: (Point 172 22)
+ )
+ )
+
+ )
+ )
)
)
@@ -791,6 +813,11 @@
self generatePackageContentsMethods
!
+doOpenExplorer
+ OperatingSystem
+ openApplicationForDocument:(projectBuilder packageBuildDirectory) operation:#explore.
+!
+
doStartMake
<resource: #uiCallback>
@@ -883,6 +910,13 @@
] ifFalse:[
selectedApplication := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value).
].
+ selectedApplication notNil ifTrue:[
+ "/ generate startupClass code
+ CodeGeneratorTool
+ compile:(selectedProjectDefinition startupClassName_codeFor:(selectedApplication name))
+ forClass:selectedProjectDefinition theMetaclass
+ inCategory:'description - startup'.
+ ].
self updateApplicationComment.
self updateButtonEnableState.
!
@@ -1260,9 +1294,11 @@
!
updateListOfApplicationsInProject
- |applicationClasses package|
+ |applicationClasses package startUpClassName startUpClass appClassIndex|
+ appClassIndex := nil.
self selectedApplicationIndexHolder value:nil.
+
selectedProjectDefinition isNil ifTrue:[
applicationClasses := #()
] ifFalse:[
@@ -1275,8 +1311,19 @@
].
applicationClasses := applicationClasses asOrderedCollection.
applicationClasses sort:[:a :b | a name < b name].
+
+ startUpClassName := selectedProjectDefinition startupClassName.
+ startUpClassName notNil ifTrue:[
+ startUpClass := Smalltalk classNamed:startUpClassName.
+ startUpClass notNil ifTrue:[
+ appClassIndex := applicationClasses indexOf:startUpClass.
+ appClassIndex == 0 ifTrue:[ appClassIndex := nil ].
+ ].
+ ].
].
- self listOfApplicationsInProject value:applicationClasses
+ self listOfApplicationsInProject value:applicationClasses.
+
+ self selectedApplicationIndexHolder value:appClassIndex.
!
updateListOfClassesInProject