equal
deleted
inserted
replaced
663 ) |
663 ) |
664 component: |
664 component: |
665 (SpecCollection |
665 (SpecCollection |
666 collection: ( |
666 collection: ( |
667 (FramedBoxSpec |
667 (FramedBoxSpec |
668 label: 'Deploy Installation File' |
668 label: 'Files for Deployment' |
669 name: 'FramedBox3' |
669 name: 'FramedBox3' |
670 layout: (LayoutFrame 0 0.0 5 0 4 1.0 0 1) |
670 layout: (LayoutFrame 0 0.0 5 0 4 1.0 0 1) |
671 labelPosition: topLeft |
671 labelPosition: topLeft |
672 translateLabel: true |
672 translateLabel: true |
673 component: |
673 component: |
674 (SpecCollection |
674 (SpecCollection |
675 collection: ( |
675 collection: ( |
676 (SubCanvasSpec |
676 (SubCanvasSpec |
677 name: 'SubCanvas1' |
677 name: 'SubCanvas1' |
678 layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
678 layout: (LayoutFrame 0 0 0 0 0 1 -30 1) |
679 hasHorizontalScrollBar: false |
679 hasHorizontalScrollBar: false |
680 hasVerticalScrollBar: false |
680 hasVerticalScrollBar: false |
681 clientHolder: fileBrowserInstance |
681 clientHolder: fileBrowserInstance |
682 createNewApplication: true |
682 createNewApplication: true |
683 createNewBuilder: true |
683 createNewBuilder: true |
|
684 ) |
|
685 (HorizontalPanelViewSpec |
|
686 name: 'HorizontalPanel1' |
|
687 layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
|
688 horizontalLayout: center |
|
689 verticalLayout: center |
|
690 horizontalSpace: 3 |
|
691 verticalSpace: 3 |
|
692 component: |
|
693 (SpecCollection |
|
694 collection: ( |
|
695 (ActionButtonSpec |
|
696 label: 'Open Windows Explorer' |
|
697 name: 'Button1' |
|
698 translateLabel: true |
|
699 resizeForLabel: true |
|
700 model: doOpenExplorer |
|
701 extent: (Point 172 22) |
|
702 ) |
|
703 ) |
|
704 |
|
705 ) |
684 ) |
706 ) |
685 ) |
707 ) |
686 |
708 |
687 ) |
709 ) |
688 ) |
710 ) |
787 UserPreferences systemBrowserClass openOnPackage:selectedProjectDefinition package. |
809 UserPreferences systemBrowserClass openOnPackage:selectedProjectDefinition package. |
788 ! |
810 ! |
789 |
811 |
790 doGenerateProjectContentsDefinition |
812 doGenerateProjectContentsDefinition |
791 self generatePackageContentsMethods |
813 self generatePackageContentsMethods |
|
814 ! |
|
815 |
|
816 doOpenExplorer |
|
817 OperatingSystem |
|
818 openApplicationForDocument:(projectBuilder packageBuildDirectory) operation:#explore. |
792 ! |
819 ! |
793 |
820 |
794 doStartMake |
821 doStartMake |
795 <resource: #uiCallback> |
822 <resource: #uiCallback> |
796 |
823 |
880 selectedApplicationChanged |
907 selectedApplicationChanged |
881 self selectedApplicationIndexHolder value isNil ifTrue:[ |
908 self selectedApplicationIndexHolder value isNil ifTrue:[ |
882 selectedApplication := nil. |
909 selectedApplication := nil. |
883 ] ifFalse:[ |
910 ] ifFalse:[ |
884 selectedApplication := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value). |
911 selectedApplication := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value). |
|
912 ]. |
|
913 selectedApplication notNil ifTrue:[ |
|
914 "/ generate startupClass code |
|
915 CodeGeneratorTool |
|
916 compile:(selectedProjectDefinition startupClassName_codeFor:(selectedApplication name)) |
|
917 forClass:selectedProjectDefinition theMetaclass |
|
918 inCategory:'description - startup'. |
885 ]. |
919 ]. |
886 self updateApplicationComment. |
920 self updateApplicationComment. |
887 self updateButtonEnableState. |
921 self updateButtonEnableState. |
888 ! |
922 ! |
889 |
923 |
1258 ]. |
1292 ]. |
1259 self selectedProjectsComment value:comment. |
1293 self selectedProjectsComment value:comment. |
1260 ! |
1294 ! |
1261 |
1295 |
1262 updateListOfApplicationsInProject |
1296 updateListOfApplicationsInProject |
1263 |applicationClasses package| |
1297 |applicationClasses package startUpClassName startUpClass appClassIndex| |
1264 |
1298 |
|
1299 appClassIndex := nil. |
1265 self selectedApplicationIndexHolder value:nil. |
1300 self selectedApplicationIndexHolder value:nil. |
|
1301 |
1266 selectedProjectDefinition isNil ifTrue:[ |
1302 selectedProjectDefinition isNil ifTrue:[ |
1267 applicationClasses := #() |
1303 applicationClasses := #() |
1268 ] ifFalse:[ |
1304 ] ifFalse:[ |
1269 package := selectedProjectDefinition package. |
1305 package := selectedProjectDefinition package. |
1270 |
1306 |
1273 (cls package = package |
1309 (cls package = package |
1274 and:[ cls isSubclassOf:ApplicationModel ]) |
1310 and:[ cls isSubclassOf:ApplicationModel ]) |
1275 ]. |
1311 ]. |
1276 applicationClasses := applicationClasses asOrderedCollection. |
1312 applicationClasses := applicationClasses asOrderedCollection. |
1277 applicationClasses sort:[:a :b | a name < b name]. |
1313 applicationClasses sort:[:a :b | a name < b name]. |
1278 ]. |
1314 |
1279 self listOfApplicationsInProject value:applicationClasses |
1315 startUpClassName := selectedProjectDefinition startupClassName. |
|
1316 startUpClassName notNil ifTrue:[ |
|
1317 startUpClass := Smalltalk classNamed:startUpClassName. |
|
1318 startUpClass notNil ifTrue:[ |
|
1319 appClassIndex := applicationClasses indexOf:startUpClass. |
|
1320 appClassIndex == 0 ifTrue:[ appClassIndex := nil ]. |
|
1321 ]. |
|
1322 ]. |
|
1323 ]. |
|
1324 self listOfApplicationsInProject value:applicationClasses. |
|
1325 |
|
1326 self selectedApplicationIndexHolder value:appClassIndex. |
1280 ! |
1327 ! |
1281 |
1328 |
1282 updateListOfClassesInProject |
1329 updateListOfClassesInProject |
1283 self listOfClassesInProject value:(selectedProjectDefinition classNames). |
1330 self listOfClassesInProject value:(selectedProjectDefinition classNames). |
1284 ! |
1331 ! |