Tools__ProjectBuilderAssistantApplication.st
changeset 2973 39b101cb0e93
parent 2970 6d37e90dab00
child 2975 023690659ed7
equal deleted inserted replaced
2972:7db782e25d01 2973:39b101cb0e93
   364 #makeAll
   364 #makeAll
   365 'Build a self-installing deployable package.'
   365 'Build a self-installing deployable package.'
   366 
   366 
   367 #makeExe
   367 #makeExe
   368 'Build the executable only (for test-running).'
   368 'Build the executable only (for test-running).'
       
   369 
       
   370 #makeExeQuick
       
   371 'Quick build the executable only (for test-running). 
       
   372 Does not regenerate the header files. Only the target package files are recreated.'
   369 
   373 
   370 #makeOutput
   374 #makeOutput
   371 'Displays the output of the build process (make command).'
   375 'Displays the output of the build process (make command).'
   372 
   376 
   373 #openExplorer
   377 #openExplorer
  1328                     activeHelpKey: makeOutput
  1332                     activeHelpKey: makeOutput
  1329                     model: makeOutputHolder
  1333                     model: makeOutputHolder
  1330                     hasHorizontalScrollBar: true
  1334                     hasHorizontalScrollBar: true
  1331                     hasVerticalScrollBar: true
  1335                     hasVerticalScrollBar: true
  1332                     hasKeyboardFocusInitially: false
  1336                     hasKeyboardFocusInitially: false
       
  1337                     viewClassName: 'TextCollector'
  1333                     postBuildCallback: postBuildMakeOutputWindow:
  1338                     postBuildCallback: postBuildMakeOutputWindow:
  1334                     viewClassName: 'TextCollector'
       
  1335                   )
  1339                   )
  1336                  )
  1340                  )
  1337                
  1341                
  1338               )
  1342               )
  1339             )
  1343             )
  1360                     label: 'Make EXE only'
  1364                     label: 'Make EXE only'
  1361                     name: 'Button5'
  1365                     name: 'Button5'
  1362                     activeHelpKey: makeExe
  1366                     activeHelpKey: makeExe
  1363                     translateLabel: true
  1367                     translateLabel: true
  1364                     model: doStartMakeExe
  1368                     model: doStartMakeExe
       
  1369                     enableChannel: startMakeButtonEnabled
       
  1370                     extent: (Point 107 22)
       
  1371                   )
       
  1372                  (ActionButtonSpec
       
  1373                     label: 'Quick Make EXE'
       
  1374                     name: 'Button16'
       
  1375                     activeHelpKey: makeExeQuick
       
  1376                     translateLabel: true
       
  1377                     model: doStartMakeExeQuick
  1365                     enableChannel: startMakeButtonEnabled
  1378                     enableChannel: startMakeButtonEnabled
  1366                     extent: (Point 107 22)
  1379                     extent: (Point 107 22)
  1367                   )
  1380                   )
  1368                  (ViewSpec
  1381                  (ViewSpec
  1369                     name: 'Box1'
  1382                     name: 'Box1'
  1930     <resource: #uiCallback>
  1943     <resource: #uiCallback>
  1931 
  1944 
  1932     self doStartMake:'exe'
  1945     self doStartMake:'exe'
  1933 !
  1946 !
  1934 
  1947 
       
  1948 doStartMakeExeQuick
       
  1949     <resource: #uiCallback>
       
  1950 
       
  1951     self doStartMake:'exeQuick'
       
  1952 !
       
  1953 
  1935 doStopMake
  1954 doStopMake
  1936     <resource: #uiCallback>
  1955     <resource: #uiCallback>
  1937 
  1956 
  1938     |p|
  1957     |p|
  1939 
  1958 
  1995             makeOutputWindow endEntry.
  2014             makeOutputWindow endEntry.
  1996         ].
  2015         ].
  1997         ex proceed.
  2016         ex proceed.
  1998     ] do:[
  2017     ] do:[
  1999         self getProjectBuilder.
  2018         self getProjectBuilder.
  2000         projectBuilder makeExeOnly:(what = 'exe').
  2019         projectBuilder makeExeOnly:((what = 'exe') or:[what = 'exeQuick']).
       
  2020         projectBuilder makeQuick:(what = 'exeQuick').
  2001 
  2021 
  2002         Error handle:[:ex |
  2022         Error handle:[:ex |
  2003             makeOutputWindow endEntry.
  2023             makeOutputWindow endEntry.
  2004             makeOutputWindow cr.
  2024             makeOutputWindow cr.
  2005             makeOutputWindow nextPutLine:(ex description colorizeAllWith:Color white on:Color red).
  2025             makeOutputWindow nextPutLine:(ex description colorizeAllWith:Color white on:Color red).