Tools__ProjectBuilderAssistantApplication.st
changeset 3339 3fdbc94fcf09
parent 3337 f9ec2e76c54c
child 3340 c3f16b9e2999
equal deleted inserted replaced
3338:c62417f88241 3339:3fdbc94fcf09
   317 
   317 
   318     "Do not manually edit this!! If it is corrupted,
   318     "Do not manually edit this!! If it is corrupted,
   319      the UIHelpTool may not be able to read the specification."
   319      the UIHelpTool may not be able to read the specification."
   320 
   320 
   321     "
   321     "
   322      UIHelpTool openOnClass:Tools::ProjectBuilderAssistantApplication    
   322      UIHelpTool openOnClass:Tools::ProjectBuilderAssistantApplication
   323     "
   323     "
   324 
   324 
   325     <resource: #help>
   325     <resource: #help>
   326 
   326 
   327     ^ super helpSpec addPairsFrom:#(
   327     ^ super helpSpec addPairsFrom:#(
   328 
   328 
       
   329 #companyName
       
   330 ''
       
   331 
   329 #hideOtherStartupClasses
   332 #hideOtherStartupClasses
       
   333 ''
       
   334 
       
   335 #productName
       
   336 ''
       
   337 
       
   338 #programName
   330 ''
   339 ''
   331 
   340 
   332 )
   341 )
   333 ! !
   342 ! !
   334 
   343 
  1097                collection: (
  1106                collection: (
  1098                 (LabelSpec
  1107                 (LabelSpec
  1099                    label: 'Product Name:'
  1108                    label: 'Product Name:'
  1100                    name: 'Label1'
  1109                    name: 'Label1'
  1101                    layout: (LayoutFrame 0 0 10 0 148 0 40 0)
  1110                    layout: (LayoutFrame 0 0 10 0 148 0 40 0)
  1102                    translateLabel: true
  1111                    activeHelpKey: productName
  1103                    adjust: right
  1112                    translateLabel: true
       
  1113                    adjust: left
  1104                  )
  1114                  )
  1105                 (InputFieldSpec
  1115                 (InputFieldSpec
  1106                    name: 'EntryField4'
  1116                    name: 'EntryField4'
  1107                    layout: (LayoutFrame 150 0.0 10 0 0 1.0 40 0)
  1117                    layout: (LayoutFrame 150 0.0 10 0 0 1.0 40 0)
       
  1118                    activeHelpKey: productName
  1108                    model: productNameHolder
  1119                    model: productNameHolder
  1109                    acceptOnLostFocus: true
  1120                    acceptOnLostFocus: true
  1110                    acceptOnPointerLeave: true
  1121                    acceptOnPointerLeave: true
  1111                    viewClassName: ''
  1122                    viewClassName: ''
  1112                  )
  1123                  )
  1113                 (LabelSpec
  1124                 (LabelSpec
  1114                    label: 'Company Name:'
  1125                    label: 'Company Name:'
  1115                    name: 'Label2'
  1126                    name: 'Label2'
  1116                    layout: (LayoutFrame 0 0 45 0 148 0 75 0)
  1127                    layout: (LayoutFrame 0 0 45 0 148 0 75 0)
  1117                    translateLabel: true
  1128                    activeHelpKey: companyName
  1118                    adjust: right
  1129                    translateLabel: true
       
  1130                    adjust: left
  1119                  )
  1131                  )
  1120                 (InputFieldSpec
  1132                 (InputFieldSpec
  1121                    name: 'EntryField3'
  1133                    name: 'EntryField3'
  1122                    layout: (LayoutFrame 150 0.0 45 0 0 1.0 75 0)
  1134                    layout: (LayoutFrame 150 0.0 45 0 0 1.0 75 0)
       
  1135                    activeHelpKey: companyName
  1123                    model: companyNameHolder
  1136                    model: companyNameHolder
       
  1137                    acceptOnLostFocus: true
       
  1138                    acceptOnPointerLeave: true
       
  1139                    viewClassName: ''
       
  1140                  )
       
  1141                 )
       
  1142               
       
  1143              )
       
  1144            )
       
  1145           (FramedBoxSpec
       
  1146              label: 'Executable'
       
  1147              name: 'FramedBox4'
       
  1148              layout: (LayoutFrame 0 0.0 124 0 4 1.0 200 0)
       
  1149              visibilityChannel: execuableNameVisible
       
  1150              labelPosition: topLeft
       
  1151              translateLabel: true
       
  1152              component: 
       
  1153             (SpecCollection
       
  1154                collection: (
       
  1155                 (LabelSpec
       
  1156                    label: 'Name:'
       
  1157                    name: 'Label3'
       
  1158                    layout: (LayoutFrame 0 0 10 0 148 0 40 0)
       
  1159                    activeHelpKey: programName
       
  1160                    translateLabel: true
       
  1161                    adjust: left
       
  1162                  )
       
  1163                 (InputFieldSpec
       
  1164                    name: 'EntryField5'
       
  1165                    layout: (LayoutFrame 150 0.0 10 0 0 1.0 40 0)
       
  1166                    activeHelpKey: programName
       
  1167                    model: executableNameHolder
       
  1168                    isReadOnly: true
  1124                    acceptOnLostFocus: true
  1169                    acceptOnLostFocus: true
  1125                    acceptOnPointerLeave: true
  1170                    acceptOnPointerLeave: true
  1126                    viewClassName: ''
  1171                    viewClassName: ''
  1127                  )
  1172                  )
  1128                 )
  1173                 )
  1163       (SpecCollection
  1208       (SpecCollection
  1164          collection: (
  1209          collection: (
  1165           (FramedBoxSpec
  1210           (FramedBoxSpec
  1166              label: 'Build Directory'
  1211              label: 'Build Directory'
  1167              name: 'FramedBox3'
  1212              name: 'FramedBox3'
  1168              layout: (LayoutFrame 0 0.0 5 0 4 1.0 79 0)
  1213              layout: (LayoutFrame 0 0.0 5 0 4 1.0 115 0)
  1169              labelPosition: topLeft
  1214              labelPosition: topLeft
  1170              translateLabel: true
  1215              translateLabel: true
  1171              component: 
  1216              component: 
  1172             (SpecCollection
  1217             (SpecCollection
  1173                collection: (
  1218                collection: (
  1176                    layout: (LayoutFrame 0 0.0 10 0 0 1.0 40 0)
  1221                    layout: (LayoutFrame 0 0.0 10 0 0 1.0 40 0)
  1177                    model: buildDirectoryHolder
  1222                    model: buildDirectoryHolder
  1178                    acceptOnPointerLeave: true
  1223                    acceptOnPointerLeave: true
  1179                    viewClassName: FilenameWidgetWithHistory
  1224                    viewClassName: FilenameWidgetWithHistory
  1180                  )
  1225                  )
       
  1226                 (ActionButtonSpec
       
  1227                    label: 'Clear'
       
  1228                    name: 'Button1'
       
  1229                    layout: (LayoutFrame -127 1 50 0 -2 1 72 0)
       
  1230                    translateLabel: true
       
  1231                    model: clearBuildDirectory
       
  1232                  )
  1181                 )
  1233                 )
  1182               
  1234               
  1183              )
  1235              )
  1184            )
  1236            )
  1185           (FramedBoxSpec
  1237           (FramedBoxSpec
  1186              label: 'Compiler / Toolchain'
  1238              label: 'Compiler / Toolchain'
  1187              name: 'FramedBox4'
  1239              name: 'FramedBox4'
  1188              layout: (LayoutFrame 0 0.0 81 0 4 1.0 155 0)
  1240              layout: (LayoutFrame 0 0.0 116 0 4 1.0 190 0)
  1189              labelPosition: topLeft
  1241              labelPosition: topLeft
  1190              translateLabel: true
  1242              translateLabel: true
  1191              component: 
  1243              component: 
  1192             (SpecCollection
  1244             (SpecCollection
  1193                collection: (
  1245                collection: (
  1210               
  1262               
  1211              )
  1263              )
  1212            )
  1264            )
  1213           (TextEditorSpec
  1265           (TextEditorSpec
  1214              name: 'TextEditor1'
  1266              name: 'TextEditor1'
  1215              layout: (LayoutFrame 2 0.0 158 0 -2 1.0 303 0)
  1267              layout: (LayoutFrame 2 0.0 190 0 -2 1.0 303 0)
  1216              level: -1
  1268              level: -1
  1217              visibilityChannel: compilerWarnMessageVisibleHolder
  1269              visibilityChannel: compilerWarnMessageVisibleHolder
  1218              model: compilerWarnMessageHolder
  1270              model: compilerWarnMessageHolder
  1219              hasHorizontalScrollBar: true
  1271              hasHorizontalScrollBar: true
  1220              hasVerticalScrollBar: true
  1272              hasVerticalScrollBar: true
  1852 
  1904 
  1853 buildDirectoryChanged
  1905 buildDirectoryChanged
  1854     self updateButtonEnableState.
  1906     self updateButtonEnableState.
  1855 !
  1907 !
  1856 
  1908 
       
  1909 clearBuildDirectory
       
  1910     self halt.
       
  1911 !
       
  1912 
  1857 createNewApplication
  1913 createNewApplication
  1858     <resource: #uiCallback>
  1914     <resource: #uiCallback>
  1859 
  1915 
  1860     |newAppName newAppClass|
  1916     |newAppName newAppClass|
  1861 
  1917 
  2406 
  2462 
  2407     compilerWarnMessageVisibleHolder isNil ifTrue:[
  2463     compilerWarnMessageVisibleHolder isNil ifTrue:[
  2408         compilerWarnMessageVisibleHolder := false asValue.
  2464         compilerWarnMessageVisibleHolder := false asValue.
  2409     ].
  2465     ].
  2410     ^ compilerWarnMessageVisibleHolder.
  2466     ^ compilerWarnMessageVisibleHolder.
       
  2467 !
       
  2468 
       
  2469 execuableNameVisible
       
  2470     ^ self projectTypeIsNonGuiApplication
       
  2471 !
       
  2472 
       
  2473 executableNameHolder
       
  2474     |holder|
       
  2475 
       
  2476     (holder := builder bindingAt:#executableNameHolder) isNil ifTrue:[
       
  2477         builder aspectAt:#executableNameHolder put:(holder := nil asValue).
       
  2478     ].
       
  2479     ^ holder.
  2411 !
  2480 !
  2412 
  2481 
  2413 hasApplicationSelectedHolder
  2482 hasApplicationSelectedHolder
  2414     <resource: #uiAspect>
  2483     <resource: #uiAspect>
  2415 
  2484