Tools__ProjectBuilderAssistantApplication.st
changeset 2648 23b690dfd69a
parent 2646 fd847e43cedd
child 2649 e851fc141ff1
equal deleted inserted replaced
2647:aedc794b630a 2648:23b690dfd69a
    25 
    25 
    26     "Do not manually edit this!! If it is corrupted,
    26     "Do not manually edit this!! If it is corrupted,
    27      the UIPainter may not be able to read the specification."
    27      the UIPainter may not be able to read the specification."
    28 
    28 
    29     "
    29     "
    30      UIPainter new openOnClass:ProjectBuilderAssistantApplication andSelector:#page1_projectTypeSelectionSpec
    30      UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page1_projectTypeSelectionSpec
    31      ProjectBuilderAssistantApplication new openInterface:#page1_projectTypeSelectionSpec
    31      Tools::ProjectBuilderAssistantApplication new openInterface:#page1_projectTypeSelectionSpec
    32     "
    32     "
    33 
    33 
    34     <resource: #canvas>
    34     <resource: #canvas>
    35 
    35 
    36     ^ 
    36     ^ 
   108               )
   108               )
   109             )
   109             )
   110            (FramedBoxSpec
   110            (FramedBoxSpec
   111               label: 'Existing Projects'
   111               label: 'Existing Projects'
   112               name: 'FramedBox2'
   112               name: 'FramedBox2'
   113               layout: (LayoutFrame 0 0.0 105 0 4 1.0 397 0)
   113               layout: (LayoutFrame 0 0.0 105 0 4 1.0 0 1)
   114               labelPosition: topLeft
   114               labelPosition: topLeft
   115               translateLabel: true
   115               translateLabel: true
   116               component: 
   116               component: 
   117              (SpecCollection
   117              (SpecCollection
   118                 collection: (
   118                 collection: (
   166 
   166 
   167     "Do not manually edit this!! If it is corrupted,
   167     "Do not manually edit this!! If it is corrupted,
   168      the UIPainter may not be able to read the specification."
   168      the UIPainter may not be able to read the specification."
   169 
   169 
   170     "
   170     "
   171      UIPainter new openOnClass:ProjectBuilderAssistantApplication andSelector:#page2_projectSelectionSpec
   171      UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page2_projectSelectionSpec
   172      ProjectBuilderAssistantApplication new openInterface:#page2_projectSelectionSpec
   172      Tools::ProjectBuilderAssistantApplication new openInterface:#page2_projectSelectionSpec
   173     "
   173     "
   174 
   174 
   175     <resource: #canvas>
   175     <resource: #canvas>
   176 
   176 
   177     ^ 
   177     ^ 
   217               )
   217               )
   218             )
   218             )
   219            (FramedBoxSpec
   219            (FramedBoxSpec
   220               label: 'Existing Projects'
   220               label: 'Existing Projects'
   221               name: 'FramedBox4'
   221               name: 'FramedBox4'
   222               layout: (LayoutFrame 0 0.0 70 0 4 1.0 362 0)
   222               layout: (LayoutFrame 0 0.0 70 0 4 1.0 -30 1)
   223               labelPosition: topLeft
   223               labelPosition: topLeft
   224               translateLabel: true
   224               translateLabel: true
   225               component: 
   225               component: 
   226              (SpecCollection
   226              (SpecCollection
   227                 collection: (
   227                 collection: (
   262                   )
   262                   )
   263                  )
   263                  )
   264                
   264                
   265               )
   265               )
   266             )
   266             )
   267            (ActionButtonSpec
   267            (HorizontalPanelViewSpec
   268               label: 'Browse Selected Project'
   268               name: 'HorizontalPanel1'
   269               name: 'Button3'
   269               layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
   270               layout: (LayoutFrame 9 0 363 0 189 0 385 0)
   270               horizontalLayout: leftSpace
   271               translateLabel: true
   271               verticalLayout: center
   272               model: doBrowseProject
   272               horizontalSpace: 3
       
   273               verticalSpace: 3
       
   274               component: 
       
   275              (SpecCollection
       
   276                 collection: (
       
   277                  (ActionButtonSpec
       
   278                     label: 'Browse Selected Project'
       
   279                     name: 'Button3'
       
   280                     translateLabel: true
       
   281                     model: doBrowseProject
       
   282                     extent: (Point 180 22)
       
   283                   )
       
   284                  )
       
   285                
       
   286               )
   273             )
   287             )
   274            )
   288            )
   275          
   289          
   276         )
   290         )
   277       )
   291       )
   283 
   297 
   284     "Do not manually edit this!! If it is corrupted,
   298     "Do not manually edit this!! If it is corrupted,
   285      the UIPainter may not be able to read the specification."
   299      the UIPainter may not be able to read the specification."
   286 
   300 
   287     "
   301     "
   288      UIPainter new openOnClass:ProjectBuilderAssistantApplication andSelector:#page3_applicationSelectionSpec
   302      UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page3_applicationSelectionSpec
   289      ProjectBuilderAssistantApplication new openInterface:#page3_applicationSelectionSpec
   303      Tools::ProjectBuilderAssistantApplication new openInterface:#page3_applicationSelectionSpec
   290     "
   304     "
   291 
   305 
   292     <resource: #canvas>
   306     <resource: #canvas>
   293 
   307 
   294     ^ 
   308     ^ 
   334               )
   348               )
   335             )
   349             )
   336            (FramedBoxSpec
   350            (FramedBoxSpec
   337               label: 'Existing Applications'
   351               label: 'Existing Applications'
   338               name: 'FramedBox4'
   352               name: 'FramedBox4'
   339               layout: (LayoutFrame 0 0.0 105 0 4 1.0 362 0)
   353               layout: (LayoutFrame 0 0.0 105 0 4 1.0 -30 1)
   340               labelPosition: topLeft
   354               labelPosition: topLeft
   341               translateLabel: true
   355               translateLabel: true
   342               component: 
   356               component: 
   343              (SpecCollection
   357              (SpecCollection
   344                 collection: (
   358                 collection: (
   372                   )
   386                   )
   373                  )
   387                  )
   374                
   388                
   375               )
   389               )
   376             )
   390             )
   377            (ActionButtonSpec
   391            (HorizontalPanelViewSpec
   378               label: 'Browse Selected Application'
   392               name: 'HorizontalPanel1'
   379               name: 'Button3'
   393               layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
   380               layout: (LayoutFrame 9 0 363 0 189 0 385 0)
   394               horizontalLayout: leftSpace
   381               translateLabel: true
   395               verticalLayout: center
   382               model: doBrowseApplication
   396               horizontalSpace: 3
       
   397               verticalSpace: 3
       
   398               component: 
       
   399              (SpecCollection
       
   400                 collection: (
       
   401                  (ActionButtonSpec
       
   402                     label: 'Browse Selected Application'
       
   403                     name: 'Button3'
       
   404                     translateLabel: true
       
   405                     model: doBrowseApplication
       
   406                     extent: (Point 180 22)
       
   407                   )
       
   408                  )
       
   409                
       
   410               )
   383             )
   411             )
   384            )
   412            )
   385          
   413          
   386         )
   414         )
   387       )
   415       )
   393 
   421 
   394     "Do not manually edit this!! If it is corrupted,
   422     "Do not manually edit this!! If it is corrupted,
   395      the UIPainter may not be able to read the specification."
   423      the UIPainter may not be able to read the specification."
   396 
   424 
   397     "
   425     "
   398      UIPainter new openOnClass:ProjectBuilderAssistantApplication andSelector:#page4_specifyIncludedClasses
   426      UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page4_specifyIncludedClasses
   399      ProjectBuilderAssistantApplication new openInterface:#page4_specifyIncludedClasses
   427      Tools::ProjectBuilderAssistantApplication new openInterface:#page4_specifyIncludedClasses
   400     "
   428     "
   401 
   429 
   402     <resource: #canvas>
   430     <resource: #canvas>
   403 
   431 
   404     ^ 
   432     ^ 
   415        (SpecCollection
   443        (SpecCollection
   416           collection: (
   444           collection: (
   417            (FramedBoxSpec
   445            (FramedBoxSpec
   418               label: 'Project Contents'
   446               label: 'Project Contents'
   419               name: 'FramedBox3'
   447               name: 'FramedBox3'
   420               layout: (LayoutFrame 0 0.0 5 0 4 1.0 362 0)
   448               layout: (LayoutFrame 0 0.0 5 0 4 1.0 -30 1)
   421               labelPosition: topLeft
   449               labelPosition: topLeft
   422               translateLabel: true
   450               translateLabel: true
   423               component: 
   451               component: 
   424              (SpecCollection
   452              (SpecCollection
   425                 collection: (
   453                 collection: (
   434                   )
   462                   )
   435                  )
   463                  )
   436                
   464                
   437               )
   465               )
   438             )
   466             )
   439            (ActionButtonSpec
   467            (HorizontalPanelViewSpec
   440               label: 'Browse Project Definition'
   468               name: 'HorizontalPanel1'
   441               name: 'Button3'
   469               layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
   442               layout: (LayoutFrame 9 0 363 0 189 0 385 0)
   470               horizontalLayout: center
   443               translateLabel: true
   471               verticalLayout: center
   444               model: doBrowseProject
   472               horizontalSpace: 3
   445             )
   473               verticalSpace: 3
   446            (ActionButtonSpec
   474               component: 
   447               label: 'Update Contents (Scan)'
   475              (SpecCollection
   448               name: 'Button4'
   476                 collection: (
   449               layout: (LayoutFrame 293 0 363 0 473 0 385 0)
   477                  (ActionButtonSpec
   450               translateLabel: true
   478                     label: 'Browse Project Definition'
   451               model: doGenerateProjectContentsDefinition
   479                     name: 'Button3'
       
   480                     translateLabel: true
       
   481                     model: doBrowseProject
       
   482                     extent: (Point 180 22)
       
   483                   )
       
   484                  (ActionButtonSpec
       
   485                     label: 'Update Contents (Scan)'
       
   486                     name: 'Button4'
       
   487                     translateLabel: true
       
   488                     model: doGenerateProjectContentsDefinition
       
   489                     extent: (Point 180 22)
       
   490                   )
       
   491                  )
       
   492                
       
   493               )
   452             )
   494             )
   453            )
   495            )
   454          
   496          
   455         )
   497         )
   456       )
   498       )
   537        (SpecCollection
   579        (SpecCollection
   538           collection: (
   580           collection: (
   539            (FramedBoxSpec
   581            (FramedBoxSpec
   540               label: 'Make Output'
   582               label: 'Make Output'
   541               name: 'FramedBox3'
   583               name: 'FramedBox3'
   542               layout: (LayoutFrame 0 0.0 5 0 4 1.0 -46 1)
   584               layout: (LayoutFrame 0 0.0 5 0 4 1.0 -30 1)
   543               labelPosition: topLeft
   585               labelPosition: topLeft
   544               translateLabel: true
   586               translateLabel: true
   545               component: 
   587               component: 
   546              (SpecCollection
   588              (SpecCollection
   547                 collection: (
   589                 collection: (
   557                   )
   599                   )
   558                  )
   600                  )
   559                
   601                
   560               )
   602               )
   561             )
   603             )
   562            (ActionButtonSpec
   604            (HorizontalPanelViewSpec
   563               label: 'Start Make'
   605               name: 'HorizontalPanel1'
   564               name: 'Button3'
   606               layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
   565               layout: (LayoutFrame 9 0 -42 1 116 0 -20 1)
   607               horizontalLayout: leftSpace
   566               translateLabel: true
   608               verticalLayout: center
   567               model: doStartMake
   609               horizontalSpace: 3
   568               enableChannel: startMakeButtonEnabled
   610               verticalSpace: 3
   569             )
   611               component: 
   570            (ActionButtonSpec
   612              (SpecCollection
   571               label: 'Stop Make'
   613                 collection: (
   572               name: 'Button4'
   614                  (ActionButtonSpec
   573               layout: (LayoutFrame 131 0 -42 1 238 0 -20 1)
   615                     label: 'Start Make'
   574               visibilityChannel: stopMakeButtonVisible
   616                     name: 'Button3'
   575               translateLabel: true
   617                     translateLabel: true
   576               model: doStopMake
   618                     model: doStartMake
       
   619                     enableChannel: startMakeButtonEnabled
       
   620                     extent: (Point 107 22)
       
   621                   )
       
   622                  (ActionButtonSpec
       
   623                     label: 'Stop Make'
       
   624                     name: 'Button4'
       
   625                     visibilityChannel: stopMakeButtonVisible
       
   626                     translateLabel: true
       
   627                     model: doStopMake
       
   628                     extent: (Point 107 22)
       
   629                   )
       
   630                  )
       
   631                
       
   632               )
   577             )
   633             )
   578            )
   634            )
   579          
   635          
   580         )
   636         )
   581       )
   637       )
   749                     self runBuildProcess
   805                     self runBuildProcess
   750                 ] ensure:[
   806                 ] ensure:[
   751                     self stopMakeButtonVisible value:false.
   807                     self stopMakeButtonVisible value:false.
   752                     self startMakeButtonEnabled value:true.
   808                     self startMakeButtonEnabled value:true.
   753                     makeProcess := nil.
   809                     makeProcess := nil.
       
   810                     self updateButtonEnableState.
   754                 ].
   811                 ].
   755             ] newProcess.
   812             ] newProcess.
   756 
   813 
   757     makeProcess priority:4.
   814     makeProcess priority:4.
   758     makeProcess priorityRange:(4 to:8).
   815     makeProcess priorityRange:(4 to:8).
   876     ^ browser.
   933     ^ browser.
   877 !
   934 !
   878 
   935 
   879 hasBuildDirectorySpecified
   936 hasBuildDirectorySpecified
   880     ^ self buildDirectoryHolder value notEmptyOrNil
   937     ^ self buildDirectoryHolder value notEmptyOrNil
       
   938 !
       
   939 
       
   940 hasProjectBuilder
       
   941     ^ projectBuilder notNil
   881 !
   942 !
   882 
   943 
   883 hasProjectSelected
   944 hasProjectSelected
   884     ^ self selectedProjectIndexHolder value notNil
   945     ^ self selectedProjectIndexHolder value notNil
   885 !
   946 !
  1140         )
  1201         )
  1141 
  1202 
  1142         (AssistantPageSpec
  1203         (AssistantPageSpec
  1143             pageTitle: 'Deploy'
  1204             pageTitle: 'Deploy'
  1144             windowSpecSelector: page7_deploySpec
  1205             windowSpecSelector: page7_deploySpec
       
  1206             canEnterQuerySelector: #hasProjectBuilder
  1145         )
  1207         )
  1146     ) decodeAsLiteralArray.
  1208     ) decodeAsLiteralArray.
  1147 ! !
  1209 ! !
  1148 
  1210 
  1149 !ProjectBuilderAssistantApplication methodsFor:'update'!
  1211 !ProjectBuilderAssistantApplication methodsFor:'update'!