Tools__ProjectDefinitionEditor.st
changeset 3523 25fa267c550a
parent 2727 e5f434daebb5
equal deleted inserted replaced
3522:2a319ce12319 3523:25fa267c550a
    82 
    82 
    83     "Do not manually edit this!! If it is corrupted,
    83     "Do not manually edit this!! If it is corrupted,
    84      the UIHelpTool may not be able to read the specification."
    84      the UIHelpTool may not be able to read the specification."
    85 
    85 
    86     "
    86     "
    87      UIHelpTool openOnClass:Tools::ProjectDefinitionEditor    
    87      UIHelpTool openOnClass:Tools::ProjectDefinitionEditor
    88     "
    88     "
    89 
    89 
    90     <resource: #help>
    90     <resource: #help>
    91 
    91 
    92     ^ super flyByHelpSpec addPairsFrom:#(
    92     ^ super flyByHelpSpec addPairsFrom:#(
    95 '";"-separated list of file extensions'
    95 '";"-separated list of file extensions'
    96 
    96 
    97 )
    97 )
    98 
    98 
    99     "Created: / 15-10-2006 / 14:34:57 / cg"
    99     "Created: / 15-10-2006 / 14:34:57 / cg"
   100 !
       
   101 
       
   102 helpSpec
       
   103     "This resource specification was automatically generated
       
   104      by the UIHelpTool of ST/X."
       
   105 
       
   106     "Do not manually edit this!! If it is corrupted,
       
   107      the UIHelpTool may not be able to read the specification."
       
   108 
       
   109     "
       
   110      UIHelpTool openOnClass:Tools::ProjectDefinitionEditor    
       
   111     "
       
   112 
       
   113     <resource: #help>
       
   114 
       
   115     ^ super helpSpec addPairsFrom:#(
       
   116 
       
   117 #documentExtensions
       
   118 '";"-separated list of file extensions'
       
   119 
       
   120 )
       
   121 ! !
   100 ! !
   122 
   101 
   123 !ProjectDefinitionEditor class methodsFor:'interface specs'!
   102 !ProjectDefinitionEditor class methodsFor:'interface specs'!
   124 
   103 
   125 classesSpec
   104 classesSpec
   179      Tools::ProjectDefinitionEditor new openInterface:#compilationSpec
   158      Tools::ProjectDefinitionEditor new openInterface:#compilationSpec
   180     "
   159     "
   181 
   160 
   182     <resource: #canvas>
   161     <resource: #canvas>
   183 
   162 
   184     ^ 
   163     ^
   185      #(FullSpec
   164      #(FullSpec
   186         name: compilationSpec
   165 	name: compilationSpec
   187         window: 
   166 	window:
   188        (WindowSpec
   167        (WindowSpec
   189           label: 'NewApplication'
   168 	  label: 'NewApplication'
   190           name: 'NewApplication'
   169 	  name: 'NewApplication'
   191           min: (Point 0 0)
   170 	  min: (Point 0 0)
   192           bounds: (Rectangle 0 0 433 300)
   171 	  bounds: (Rectangle 0 0 433 300)
   193         )
   172 	)
   194         component: 
   173 	component:
   195        (SpecCollection
   174        (SpecCollection
   196           collection: (
   175 	  collection: (
   197            (FramedBoxSpec
   176 	   (FramedBoxSpec
   198               label: 'Optimization'
   177 	      label: 'Optimization'
   199               name: 'FramedBox1'
   178 	      name: 'FramedBox1'
   200               layout: (LayoutFrame 0 0 0 0 0 1 93 0)
   179 	      layout: (LayoutFrame 0 0 0 0 0 1 93 0)
   201               labelPosition: topLeft
   180 	      labelPosition: topLeft
   202               translateLabel: true
   181 	      translateLabel: true
   203               component: 
   182 	      component:
   204              (SpecCollection
   183 	     (SpecCollection
   205                 collection: (
   184 		collection: (
   206                  (LabelSpec
   185 		 (LabelSpec
   207                     label: 'STC Optimization Flags:'
   186 		    label: 'STC Optimization Flags:'
   208                     name: 'Label1'
   187 		    name: 'Label1'
   209                     layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
   188 		    layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
   210                     translateLabel: true
   189 		    translateLabel: true
   211                     adjust: right
   190 		    adjust: right
   212                   )
   191 		  )
   213                  (ComboBoxSpec
   192 		 (ComboBoxSpec
   214                     name: 'STCOptimizationFlagsComboBox'
   193 		    name: 'STCOptimizationFlagsComboBox'
   215                     layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
   194 		    layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
   216                     model: stcOptimizationFlagsHolder
   195 		    model: stcOptimizationFlagsHolder
   217                     acceptOnPointerLeave: false
   196 		    acceptOnPointerLeave: false
   218                     comboList: stcOptimizationFlagList
   197 		    comboList: stcOptimizationFlagList
   219                     postBuildCallback: flagHolderBuilt:
   198 		    postBuildCallback: flagHolderBuilt:
   220                   )
   199 		  )
   221                  (LabelSpec
   200 		 (LabelSpec
   222                     label: 'CC Optimization Flags:'
   201 		    label: 'CC Optimization Flags:'
   223                     name: 'Label2'
   202 		    name: 'Label2'
   224                     layout: (LayoutFrame 0 0.0 35 0 160 0 57 0)
   203 		    layout: (LayoutFrame 0 0.0 35 0 160 0 57 0)
   225                     translateLabel: true
   204 		    translateLabel: true
   226                     adjust: right
   205 		    adjust: right
   227                   )
   206 		  )
   228                  (ComboBoxSpec
   207 		 (ComboBoxSpec
   229                     name: 'CCOptimizationFlagsComboBox'
   208 		    name: 'CCOptimizationFlagsComboBox'
   230                     layout: (LayoutFrame 162 0.0 33 0 0 1.0 55 0)
   209 		    layout: (LayoutFrame 162 0.0 33 0 0 1.0 55 0)
   231                     model: ccOptimizationFlagsHolder
   210 		    model: ccOptimizationFlagsHolder
   232                     acceptOnPointerLeave: false
   211 		    acceptOnPointerLeave: false
   233                     comboList: ccOptimizationFlagList
   212 		    comboList: ccOptimizationFlagList
   234                     postBuildCallback: flagHolderBuilt:
   213 		    postBuildCallback: flagHolderBuilt:
   235                   )
   214 		  )
   236                  )
   215 		 )
   237                
   216 
   238               )
   217 	      )
   239             )
   218 	    )
   240            (FramedBoxSpec
   219 	   (FramedBoxSpec
   241               label: 'Includes'
   220 	      label: 'Includes'
   242               name: 'FramedBox2'
   221 	      name: 'FramedBox2'
   243               layout: (LayoutFrame 0 0 98 0 0 1 160 0)
   222 	      layout: (LayoutFrame 0 0 98 0 0 1 160 0)
   244               labelPosition: topLeft
   223 	      labelPosition: topLeft
   245               translateLabel: true
   224 	      translateLabel: true
   246               component: 
   225 	      component:
   247              (SpecCollection
   226 	     (SpecCollection
   248                 collection: (
   227 		collection: (
   249                  (LabelSpec
   228 		 (LabelSpec
   250                     label: 'Additional Includes:'
   229 		    label: 'Additional Includes:'
   251                     name: 'Label3'
   230 		    name: 'Label3'
   252                     layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
   231 		    layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
   253                     translateLabel: true
   232 		    translateLabel: true
   254                     adjust: right
   233 		    adjust: right
   255                   )
   234 		  )
   256                  (InputFieldSpec
   235 		 (InputFieldSpec
   257                     name: 'IncludeFlagsEntryField'
   236 		    name: 'IncludeFlagsEntryField'
   258                     layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
   237 		    layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
   259                     model: includeFlagsHolder
   238 		    model: includeFlagsHolder
   260                     acceptOnReturn: true
   239 		    acceptOnReturn: true
   261                     acceptOnTab: true
   240 		    acceptOnTab: true
   262                     acceptOnLostFocus: true
   241 		    acceptOnLostFocus: true
   263                     acceptOnPointerLeave: false
   242 		    acceptOnPointerLeave: false
   264                   )
   243 		  )
   265                  )
   244 		 )
   266                
   245 
   267               )
   246 	      )
   268             )
   247 	    )
   269            )
   248 	   )
   270          
   249 
   271         )
   250 	)
   272       )
   251       )
   273 !
   252 !
   274 
   253 
   275 descriptionSpec
   254 descriptionSpec
   276     "This resource specification was automatically generated
   255     "This resource specification was automatically generated
   286 
   265 
   287     <resource: #canvas>
   266     <resource: #canvas>
   288 
   267 
   289     ^
   268     ^
   290      #(FullSpec
   269      #(FullSpec
   291         name: descriptionSpec
   270 	name: descriptionSpec
   292         window:
   271 	window:
   293        (WindowSpec
   272        (WindowSpec
   294           label: 'NewApplication'
   273 	  label: 'NewApplication'
   295           name: 'NewApplication'
   274 	  name: 'NewApplication'
   296           min: (Point 0 0)
   275 	  min: (Point 0 0)
   297           bounds: (Rectangle 0 0 433 300)
   276 	  bounds: (Rectangle 0 0 433 300)
   298         )
   277 	)
   299         component:
   278 	component:
   300        (SpecCollection
   279        (SpecCollection
   301           collection: (
   280 	  collection: (
   302            (LabelSpec
   281 	   (LabelSpec
   303               label: 'Company:'
   282 	      label: 'Company:'
   304               name: 'CompanyLabel'
   283 	      name: 'CompanyLabel'
   305               layout: (LayoutFrame 2 0.0 13 0 160 0 35 0)
   284 	      layout: (LayoutFrame 2 0.0 13 0 160 0 35 0)
   306               translateLabel: true
   285 	      translateLabel: true
   307               adjust: right
   286 	      adjust: right
   308             )
   287 	    )
   309            (InputFieldSpec
   288 	   (InputFieldSpec
   310               name: 'CompanyEntryField'
   289 	      name: 'CompanyEntryField'
   311               layout: (LayoutFrame 162 0.0 12 0 -2 1.0 34 0)
   290 	      layout: (LayoutFrame 162 0.0 12 0 -2 1.0 34 0)
   312               model: companyNameHolder
   291 	      model: companyNameHolder
   313               acceptOnReturn: true
   292 	      acceptOnReturn: true
   314               acceptOnTab: true
   293 	      acceptOnTab: true
   315               acceptOnLostFocus: true
   294 	      acceptOnLostFocus: true
   316               acceptOnPointerLeave: false
   295 	      acceptOnPointerLeave: false
   317             )
   296 	    )
   318            (LabelSpec
   297 	   (LabelSpec
   319               label: 'Description:'
   298 	      label: 'Description:'
   320               name: 'DescriptionLabel'
   299 	      name: 'DescriptionLabel'
   321               layout: (LayoutFrame 2 0.0 39 0 160 0 61 0)
   300 	      layout: (LayoutFrame 2 0.0 39 0 160 0 61 0)
   322               translateLabel: true
   301 	      translateLabel: true
   323               adjust: right
   302 	      adjust: right
   324             )
   303 	    )
   325            (InputFieldSpec
   304 	   (InputFieldSpec
   326               name: 'DescriptionEntryField'
   305 	      name: 'DescriptionEntryField'
   327               layout: (LayoutFrame 162 0.0 38 0 -2 1.0 60 0)
   306 	      layout: (LayoutFrame 162 0.0 38 0 -2 1.0 60 0)
   328               model: descriptionHolder
   307 	      model: descriptionHolder
   329               acceptOnReturn: true
   308 	      acceptOnReturn: true
   330               acceptOnTab: true
   309 	      acceptOnTab: true
   331               acceptOnLostFocus: true
   310 	      acceptOnLostFocus: true
   332               acceptOnPointerLeave: false
   311 	      acceptOnPointerLeave: false
   333             )
   312 	    )
   334            (LabelSpec
   313 	   (LabelSpec
   335               label: 'ProductName:'
   314 	      label: 'ProductName:'
   336               name: 'ProductNameLabel'
   315 	      name: 'ProductNameLabel'
   337               layout: (LayoutFrame 2 0.0 65 0 160 0 87 0)
   316 	      layout: (LayoutFrame 2 0.0 65 0 160 0 87 0)
   338               translateLabel: true
   317 	      translateLabel: true
   339               adjust: right
   318 	      adjust: right
   340             )
   319 	    )
   341            (InputFieldSpec
   320 	   (InputFieldSpec
   342               name: 'ProductNameEntryField'
   321 	      name: 'ProductNameEntryField'
   343               layout: (LayoutFrame 162 0.0 64 0 -2 1.0 86 0)
   322 	      layout: (LayoutFrame 162 0.0 64 0 -2 1.0 86 0)
   344               model: productNameHolder
   323 	      model: productNameHolder
   345               acceptOnReturn: true
   324 	      acceptOnReturn: true
   346               acceptOnTab: true
   325 	      acceptOnTab: true
   347               acceptOnLostFocus: true
   326 	      acceptOnLostFocus: true
   348               acceptOnPointerLeave: false
   327 	      acceptOnPointerLeave: false
   349             )
   328 	    )
   350            (LabelSpec
   329 	   (LabelSpec
   351               label: 'ProductVersion:'
   330 	      label: 'ProductVersion:'
   352               name: 'ProductVersionLabel'
   331 	      name: 'ProductVersionLabel'
   353               layout: (LayoutFrame 2 0.0 91 0 160 0 113 0)
   332 	      layout: (LayoutFrame 2 0.0 91 0 160 0 113 0)
   354               translateLabel: true
   333 	      translateLabel: true
   355               adjust: right
   334 	      adjust: right
   356             )
   335 	    )
   357            (InputFieldSpec
   336 	   (InputFieldSpec
   358               name: 'MajorVersionNrEntryField'
   337 	      name: 'MajorVersionNrEntryField'
   359               layout: (LayoutFrame 162 0.0 90 0 182 0.0 112 0)
   338 	      layout: (LayoutFrame 162 0.0 90 0 182 0.0 112 0)
   360               model: majorVersionNrHolder
   339 	      model: majorVersionNrHolder
   361               type: number
   340 	      type: number
   362               acceptOnReturn: true
   341 	      acceptOnReturn: true
   363               acceptOnTab: true
   342 	      acceptOnTab: true
   364               acceptOnLostFocus: true
   343 	      acceptOnLostFocus: true
   365               acceptOnPointerLeave: false
   344 	      acceptOnPointerLeave: false
   366             )
   345 	    )
   367            (InputFieldSpec
   346 	   (InputFieldSpec
   368               name: 'MinorVersionNrEntryField'
   347 	      name: 'MinorVersionNrEntryField'
   369               layout: (LayoutFrame 184 0.0 90 0 204 0.0 112 0)
   348 	      layout: (LayoutFrame 184 0.0 90 0 204 0.0 112 0)
   370               model: minorVersionNrHolder
   349 	      model: minorVersionNrHolder
   371               type: numberOrNil
   350 	      type: numberOrNil
   372               acceptOnReturn: true
   351 	      acceptOnReturn: true
   373               acceptOnTab: true
   352 	      acceptOnTab: true
   374               acceptOnLostFocus: true
   353 	      acceptOnLostFocus: true
   375               acceptOnPointerLeave: false
   354 	      acceptOnPointerLeave: false
   376             )
   355 	    )
   377            (InputFieldSpec
   356 	   (InputFieldSpec
   378               name: 'RevisionNrEntryField'
   357 	      name: 'RevisionNrEntryField'
   379               layout: (LayoutFrame 206 0.0 90 0 226 0.0 112 0)
   358 	      layout: (LayoutFrame 206 0.0 90 0 226 0.0 112 0)
   380               model: revisionNrHolder
   359 	      model: revisionNrHolder
   381               type: number
   360 	      type: number
   382               acceptOnReturn: true
   361 	      acceptOnReturn: true
   383               acceptOnTab: true
   362 	      acceptOnTab: true
   384               acceptOnLostFocus: true
   363 	      acceptOnLostFocus: true
   385               acceptOnPointerLeave: false
   364 	      acceptOnPointerLeave: false
   386             )
   365 	    )
   387            (InputFieldSpec
   366 	   (InputFieldSpec
   388               name: 'ReleaseNrEntryField'
   367 	      name: 'ReleaseNrEntryField'
   389               layout: (LayoutFrame 228 0.0 90 0 248 0.0 112 0)
   368 	      layout: (LayoutFrame 228 0.0 90 0 248 0.0 112 0)
   390               model: releaseNrHolder
   369 	      model: releaseNrHolder
   391               type: number
   370 	      type: number
   392               acceptOnReturn: true
   371 	      acceptOnReturn: true
   393               acceptOnTab: true
   372 	      acceptOnTab: true
   394               acceptOnLostFocus: true
   373 	      acceptOnLostFocus: true
   395               acceptOnPointerLeave: false
   374 	      acceptOnPointerLeave: false
   396             )
   375 	    )
   397            (LabelSpec
   376 	   (LabelSpec
   398               label: 'LegalCopyright:'
   377 	      label: 'LegalCopyright:'
   399               name: 'LegalCopyrightLabel'
   378 	      name: 'LegalCopyrightLabel'
   400               layout: (LayoutFrame 2 0.0 119 0 160 0 141 0)
   379 	      layout: (LayoutFrame 2 0.0 119 0 160 0 141 0)
   401               translateLabel: true
   380 	      translateLabel: true
   402               adjust: right
   381 	      adjust: right
   403             )
   382 	    )
   404            (InputFieldSpec
   383 	   (InputFieldSpec
   405               name: 'LegalCopyrightEntryField'
   384 	      name: 'LegalCopyrightEntryField'
   406               layout: (LayoutFrame 162 0.0 118 0 -2 1.0 140 0)
   385 	      layout: (LayoutFrame 162 0.0 118 0 -2 1.0 140 0)
   407               model: legalCopyrightHolder
   386 	      model: legalCopyrightHolder
   408               acceptOnReturn: true
   387 	      acceptOnReturn: true
   409               acceptOnTab: true
   388 	      acceptOnTab: true
   410               acceptOnLostFocus: true
   389 	      acceptOnLostFocus: true
   411               acceptOnPointerLeave: false
   390 	      acceptOnPointerLeave: false
   412             )
   391 	    )
   413            (LabelSpec
   392 	   (LabelSpec
   414               label: 'FileDescriptionDescription:'
   393 	      label: 'FileDescriptionDescription:'
   415               name: 'FileDescriptionLabel'
   394 	      name: 'FileDescriptionLabel'
   416               layout: (LayoutFrame 2 0.0 161 0 160 0 183 0)
   395 	      layout: (LayoutFrame 2 0.0 161 0 160 0 183 0)
   417               translateLabel: true
   396 	      translateLabel: true
   418               adjust: right
   397 	      adjust: right
   419             )
   398 	    )
   420            (InputFieldSpec
   399 	   (InputFieldSpec
   421               name: 'FileDescriptionEntryField'
   400 	      name: 'FileDescriptionEntryField'
   422               layout: (LayoutFrame 162 0.0 160 0 -2 1.0 182 0)
   401 	      layout: (LayoutFrame 162 0.0 160 0 -2 1.0 182 0)
   423               model: fileDescriptionHolder
   402 	      model: fileDescriptionHolder
   424               acceptOnReturn: true
   403 	      acceptOnReturn: true
   425               acceptOnTab: true
   404 	      acceptOnTab: true
   426               acceptOnLostFocus: true
   405 	      acceptOnLostFocus: true
   427               acceptOnPointerLeave: false
   406 	      acceptOnPointerLeave: false
   428             )
   407 	    )
   429            (LabelSpec
   408 	   (LabelSpec
   430               label: 'FileVersion:'
   409 	      label: 'FileVersion:'
   431               name: 'FileVersionLabel'
   410 	      name: 'FileVersionLabel'
   432               layout: (LayoutFrame 2 0.0 187 0 160 0 209 0)
   411 	      layout: (LayoutFrame 2 0.0 187 0 160 0 209 0)
   433               translateLabel: true
   412 	      translateLabel: true
   434               adjust: right
   413 	      adjust: right
   435             )
   414 	    )
   436            (InputFieldSpec
   415 	   (InputFieldSpec
   437               name: 'FileMajorVersionNrEntryField'
   416 	      name: 'FileMajorVersionNrEntryField'
   438               layout: (LayoutFrame 162 0.0 186 0 182 0.0 208 0)
   417 	      layout: (LayoutFrame 162 0.0 186 0 182 0.0 208 0)
   439               model: fileMajorVersionNrHolder
   418 	      model: fileMajorVersionNrHolder
   440               type: number
   419 	      type: number
   441               acceptOnReturn: true
   420 	      acceptOnReturn: true
   442               acceptOnTab: true
   421 	      acceptOnTab: true
   443               acceptOnLostFocus: true
   422 	      acceptOnLostFocus: true
   444               acceptOnPointerLeave: false
   423 	      acceptOnPointerLeave: false
   445             )
   424 	    )
   446            (InputFieldSpec
   425 	   (InputFieldSpec
   447               name: 'FileMinorVersionNrEntryField'
   426 	      name: 'FileMinorVersionNrEntryField'
   448               layout: (LayoutFrame 184 0.0 186 0 204 0.0 208 0)
   427 	      layout: (LayoutFrame 184 0.0 186 0 204 0.0 208 0)
   449               model: fileMinorVersionNrHolder
   428 	      model: fileMinorVersionNrHolder
   450               type: number
   429 	      type: number
   451               acceptOnReturn: true
   430 	      acceptOnReturn: true
   452               acceptOnTab: true
   431 	      acceptOnTab: true
   453               acceptOnLostFocus: true
   432 	      acceptOnLostFocus: true
   454               acceptOnPointerLeave: false
   433 	      acceptOnPointerLeave: false
   455             )
   434 	    )
   456            (InputFieldSpec
   435 	   (InputFieldSpec
   457               name: 'FileRevisionNrEntryField'
   436 	      name: 'FileRevisionNrEntryField'
   458               layout: (LayoutFrame 206 0.0 186 0 226 0.0 208 0)
   437 	      layout: (LayoutFrame 206 0.0 186 0 226 0.0 208 0)
   459               model: fileRevisionNrHolder
   438 	      model: fileRevisionNrHolder
   460               type: number
   439 	      type: number
   461               acceptOnReturn: true
   440 	      acceptOnReturn: true
   462               acceptOnTab: true
   441 	      acceptOnTab: true
   463               acceptOnLostFocus: true
   442 	      acceptOnLostFocus: true
   464               acceptOnPointerLeave: false
   443 	      acceptOnPointerLeave: false
   465             )
   444 	    )
   466            (InputFieldSpec
   445 	   (InputFieldSpec
   467               name: 'FileReleaseNrEntryField'
   446 	      name: 'FileReleaseNrEntryField'
   468               layout: (LayoutFrame 228 0.0 186 0 248 0.0 208 0)
   447 	      layout: (LayoutFrame 228 0.0 186 0 248 0.0 208 0)
   469               model: fileReleaseNrHolder
   448 	      model: fileReleaseNrHolder
   470               type: number
   449 	      type: number
   471               acceptOnReturn: true
   450 	      acceptOnReturn: true
   472               acceptOnTab: true
   451 	      acceptOnTab: true
   473               acceptOnLostFocus: true
   452 	      acceptOnLostFocus: true
   474               acceptOnPointerLeave: false
   453 	      acceptOnPointerLeave: false
   475             )
   454 	    )
   476            (LabelSpec
   455 	   (LabelSpec
   477               label: 'Icon Filename:'
   456 	      label: 'Icon Filename:'
   478               name: 'IconFileNameLabel'
   457 	      name: 'IconFileNameLabel'
   479               layout: (LayoutFrame 2 0.0 236 0 160 0 258 0)
   458 	      layout: (LayoutFrame 2 0.0 236 0 160 0 258 0)
   480               visibilityChannel: isApplicationDefinitionHolder
   459 	      visibilityChannel: isApplicationDefinitionHolder
   481               translateLabel: true
   460 	      translateLabel: true
   482               adjust: right
   461 	      adjust: right
   483             )
   462 	    )
   484            (InputFieldSpec
   463 	   (InputFieldSpec
   485               name: 'IconFileNameEntryField'
   464 	      name: 'IconFileNameEntryField'
   486               layout: (LayoutFrame 162 0.0 234 0 -2 1.0 256 0)
   465 	      layout: (LayoutFrame 162 0.0 234 0 -2 1.0 256 0)
   487               visibilityChannel: isApplicationDefinitionHolder
   466 	      visibilityChannel: isApplicationDefinitionHolder
   488               model: iconFileNameHolder
   467 	      model: iconFileNameHolder
   489               acceptOnReturn: true
   468 	      acceptOnReturn: true
   490               acceptOnTab: true
   469 	      acceptOnTab: true
   491               acceptOnLostFocus: true
   470 	      acceptOnLostFocus: true
   492               acceptOnPointerLeave: false
   471 	      acceptOnPointerLeave: false
   493             )
   472 	    )
   494            )
   473 	   )
   495 
   474 
   496         )
   475 	)
   497       )
   476       )
   498 !
   477 !
   499 
   478 
   500 extensionsSpec
   479 extensionsSpec
   501     "This resource specification was automatically generated
   480     "This resource specification was automatically generated
   598      Tools::ProjectDefinitionEditor new openInterface:#startupSpec
   577      Tools::ProjectDefinitionEditor new openInterface:#startupSpec
   599     "
   578     "
   600 
   579 
   601     <resource: #canvas>
   580     <resource: #canvas>
   602 
   581 
   603     ^ 
   582     ^
   604      #(FullSpec
   583      #(FullSpec
   605         name: startupSpec
   584 	name: startupSpec
   606         window: 
   585 	window:
   607        (WindowSpec
   586        (WindowSpec
   608           label: 'NewApplication'
   587 	  label: 'NewApplication'
   609           name: 'NewApplication'
   588 	  name: 'NewApplication'
   610           min: (Point 0 0)
   589 	  min: (Point 0 0)
   611           bounds: (Rectangle 0 0 433 300)
   590 	  bounds: (Rectangle 0 0 433 300)
   612         )
   591 	)
   613         component: 
   592 	component:
   614        (SpecCollection
   593        (SpecCollection
   615           collection: (
   594 	  collection: (
   616            (FramedBoxSpec
   595 	   (FramedBoxSpec
   617               label: 'Startup'
   596 	      label: 'Startup'
   618               name: 'StartupFrame'
   597 	      name: 'StartupFrame'
   619               layout: (LayoutFrame 0 0 0 0 0 1 93 0)
   598 	      layout: (LayoutFrame 0 0 0 0 0 1 93 0)
   620               labelPosition: topLeft
   599 	      labelPosition: topLeft
   621               translateLabel: true
   600 	      translateLabel: true
   622               component: 
   601 	      component:
   623              (SpecCollection
   602 	     (SpecCollection
   624                 collection: (
   603 		collection: (
   625                  (LabelSpec
   604 		 (LabelSpec
   626                     label: 'Startup Class:'
   605 		    label: 'Startup Class:'
   627                     name: 'Label1'
   606 		    name: 'Label1'
   628                     layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
   607 		    layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
   629                     translateLabel: true
   608 		    translateLabel: true
   630                     adjust: right
   609 		    adjust: right
   631                   )
   610 		  )
   632                  (InputFieldSpec
   611 		 (InputFieldSpec
   633                     name: 'StartupClassEntryField'
   612 		    name: 'StartupClassEntryField'
   634                     layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
   613 		    layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
   635                     model: startupClassNameHolder
   614 		    model: startupClassNameHolder
   636                     acceptOnReturn: true
   615 		    acceptOnReturn: true
   637                     acceptOnTab: true
   616 		    acceptOnTab: true
   638                     acceptOnLostFocus: true
   617 		    acceptOnLostFocus: true
   639                     acceptOnPointerLeave: false
   618 		    acceptOnPointerLeave: false
   640                   )
   619 		  )
   641                  (LabelSpec
   620 		 (LabelSpec
   642                     label: 'Startup Selector:'
   621 		    label: 'Startup Selector:'
   643                     name: 'Label2'
   622 		    name: 'Label2'
   644                     layout: (LayoutFrame 0 0.0 35 0 160 0 57 0)
   623 		    layout: (LayoutFrame 0 0.0 35 0 160 0 57 0)
   645                     translateLabel: true
   624 		    translateLabel: true
   646                     adjust: right
   625 		    adjust: right
   647                   )
   626 		  )
   648                  (InputFieldSpec
   627 		 (InputFieldSpec
   649                     name: 'StartupSelectorEntryField'
   628 		    name: 'StartupSelectorEntryField'
   650                     layout: (LayoutFrame 162 0.0 33 0 0 1.0 55 0)
   629 		    layout: (LayoutFrame 162 0.0 33 0 0 1.0 55 0)
   651                     model: startupSelectorHolder
   630 		    model: startupSelectorHolder
   652                     acceptOnReturn: true
   631 		    acceptOnReturn: true
   653                     acceptOnTab: true
   632 		    acceptOnTab: true
   654                     acceptOnLostFocus: true
   633 		    acceptOnLostFocus: true
   655                     acceptOnPointerLeave: false
   634 		    acceptOnPointerLeave: false
   656                   )
   635 		  )
   657                  )
   636 		 )
   658                
   637 
   659               )
   638 	      )
   660             )
   639 	    )
   661            (FramedBoxSpec
   640 	   (FramedBoxSpec
   662               label: 'Execution'
   641 	      label: 'Execution'
   663               name: 'ExecutionFrame'
   642 	      name: 'ExecutionFrame'
   664               layout: (LayoutFrame 0 0 94 0 0 1 176 0)
   643 	      layout: (LayoutFrame 0 0 94 0 0 1 176 0)
   665               labelPosition: topLeft
   644 	      labelPosition: topLeft
   666               translateLabel: true
   645 	      translateLabel: true
   667               component: 
   646 	      component:
   668              (SpecCollection
   647 	     (SpecCollection
   669                 collection: (
   648 		collection: (
   670                  (CheckBoxSpec
   649 		 (CheckBoxSpec
   671                     label: 'Non-GUI Application'
   650 		    label: 'Non-GUI Application'
   672                     name: 'Non-GUI CheckBox'
   651 		    name: 'Non-GUI CheckBox'
   673                     layout: (LayoutFrame 0 0.0 7 0 0 0.5 29 0)
   652 		    layout: (LayoutFrame 0 0.0 7 0 0 0.5 29 0)
   674                     model: isNonGUIApplicationHolder
   653 		    model: isNonGUIApplicationHolder
   675                     translateLabel: true
   654 		    translateLabel: true
   676                   )
   655 		  )
   677                  (CheckBoxSpec
   656 		 (CheckBoxSpec
   678                     label: 'Singlethreaded'
   657 		    label: 'Singlethreaded'
   679                     name: 'SinglethreadedCheckBox'
   658 		    name: 'SinglethreadedCheckBox'
   680                     layout: (LayoutFrame 0 0.5 7 0 0 1 29 0)
   659 		    layout: (LayoutFrame 0 0.5 7 0 0 1 29 0)
   681                     enableChannel: isNonGUIApplicationHolder
   660 		    enableChannel: isNonGUIApplicationHolder
   682                     model: startSinglethreadedHolder
   661 		    model: startSinglethreadedHolder
   683                     translateLabel: true
   662 		    translateLabel: true
   684                   )
   663 		  )
   685                  (CheckBoxSpec
   664 		 (CheckBoxSpec
   686                     label: 'Has Console'
   665 		    label: 'Has Console'
   687                     name: 'HasConsoleCheckBox1'
   666 		    name: 'HasConsoleCheckBox1'
   688                     layout: (LayoutFrame 0 0.5 34 0 0 1 56 0)
   667 		    layout: (LayoutFrame 0 0.5 34 0 0 1 56 0)
   689                     enableChannel: isGUIApplicationHolder
   668 		    enableChannel: isGUIApplicationHolder
   690                     model: shownHasConsoleHolder
   669 		    model: shownHasConsoleHolder
   691                     translateLabel: true
   670 		    translateLabel: true
   692                   )
   671 		  )
   693                  )
   672 		 )
   694                
   673 
   695               )
   674 	      )
   696             )
   675 	    )
   697            (FramedBoxSpec
   676 	   (FramedBoxSpec
   698               label: 'File Extensions'
   677 	      label: 'File Extensions'
   699               name: 'FileExtensionsFrame'
   678 	      name: 'FileExtensionsFrame'
   700               layout: (LayoutFrame 0 0 177 0 0 1 237 0)
   679 	      layout: (LayoutFrame 0 0 177 0 0 1 237 0)
   701               labelPosition: topLeft
   680 	      labelPosition: topLeft
   702               translateLabel: true
   681 	      translateLabel: true
   703               component: 
   682 	      component:
   704              (SpecCollection
   683 	     (SpecCollection
   705                 collection: (
   684 		collection: (
   706                  (LabelSpec
   685 		 (LabelSpec
   707                     label: 'Document Extensions:'
   686 		    label: 'Document Extensions:'
   708                     name: 'Label3'
   687 		    name: 'Label3'
   709                     layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
   688 		    layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
   710                     activeHelpKey: documentExtensions
   689 		    activeHelpKey: documentExtensions
   711                     translateLabel: true
   690 		    translateLabel: true
   712                     adjust: right
   691 		    adjust: right
   713                   )
   692 		  )
   714                  (InputFieldSpec
   693 		 (InputFieldSpec
   715                     activeHelpKey: documentExtensions
   694 		    activeHelpKey: documentExtensions
   716                     name: 'EntryField1'
   695 		    name: 'EntryField1'
   717                     layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
   696 		    layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
   718                     model: documentExtensionsListStringHolder
   697 		    model: documentExtensionsListStringHolder
   719                     type: string
   698 		    type: string
   720                     acceptOnReturn: true
   699 		    acceptOnReturn: true
   721                     acceptOnTab: true
   700 		    acceptOnTab: true
   722                     acceptOnLostFocus: true
   701 		    acceptOnLostFocus: true
   723                     acceptOnPointerLeave: false
   702 		    acceptOnPointerLeave: false
   724                   )
   703 		  )
   725                  )
   704 		 )
   726                
   705 
   727               )
   706 	      )
   728             )
   707 	    )
   729            )
   708 	   )
   730          
   709 
   731         )
   710 	)
   732       )
   711       )
   733 
   712 
   734     "Modified: / 15-10-2006 / 14:35:12 / cg"
   713     "Modified: / 15-10-2006 / 14:35:12 / cg"
   735 !
   714 !
   736 
   715 
   981      (Menu new fromLiteralArrayEncoding:(Tools::ProjectDefinitionEditor mainMenu)) startUp
   960      (Menu new fromLiteralArrayEncoding:(Tools::ProjectDefinitionEditor mainMenu)) startUp
   982     "
   961     "
   983 
   962 
   984     <resource: #menu>
   963     <resource: #menu>
   985 
   964 
   986     ^ 
   965     ^
   987      #(Menu
   966      #(Menu
   988         (
   967 	(
   989          (MenuItem
   968 	 (MenuItem
   990             label: 'File'
   969 	    label: 'File'
   991             translateLabel: true
   970 	    translateLabel: true
   992             submenu: 
   971 	    submenu:
   993            (Menu
   972 	   (Menu
   994               (
   973 	      (
   995                (MenuItem
   974 	       (MenuItem
   996                   label: 'New Library'
   975 		  label: 'New Library'
   997                   itemValue: menuNewLibraryDefinition
   976 		  itemValue: menuNewLibraryDefinition
   998                   translateLabel: true
   977 		  translateLabel: true
   999                 )
   978 		)
  1000                (MenuItem
   979 	       (MenuItem
  1001                   label: 'New Application'
   980 		  label: 'New Application'
  1002                   itemValue: menuNewApplicationDefinition
   981 		  itemValue: menuNewApplicationDefinition
  1003                   translateLabel: true
   982 		  translateLabel: true
  1004                 )
   983 		)
  1005                (MenuItem
   984 	       (MenuItem
  1006                   label: '-'
   985 		  label: '-'
  1007                 )
   986 		)
  1008                (MenuItem
   987 	       (MenuItem
  1009                   label: 'Open...'
   988 		  label: 'Open...'
  1010                   itemValue: menuOpen
   989 		  itemValue: menuOpen
  1011                   translateLabel: true
   990 		  translateLabel: true
  1012                 )
   991 		)
  1013                (MenuItem
   992 	       (MenuItem
  1014                   label: '-'
   993 		  label: '-'
  1015                 )
   994 		)
  1016                (MenuItem
   995 	       (MenuItem
  1017                   enabled: hasDefinitionClassHolder
   996 		  enabled: hasDefinitionClassHolder
  1018                   label: 'Save'
   997 		  label: 'Save'
  1019                   itemValue: menuSave
   998 		  itemValue: menuSave
  1020                   translateLabel: true
   999 		  translateLabel: true
  1021                 )
  1000 		)
  1022                (MenuItem
  1001 	       (MenuItem
  1023                   enabled: hasDefinitionClassHolder
  1002 		  enabled: hasDefinitionClassHolder
  1024                   label: 'Save As...'
  1003 		  label: 'Save As...'
  1025                   itemValue: menuSaveAs
  1004 		  itemValue: menuSaveAs
  1026                   translateLabel: true
  1005 		  translateLabel: true
  1027                 )
  1006 		)
  1028                (MenuItem
  1007 	       (MenuItem
  1029                   label: '-'
  1008 		  label: '-'
  1030                 )
  1009 		)
  1031                (MenuItem
  1010 	       (MenuItem
  1032                   label: 'Exit'
  1011 		  label: 'Exit'
  1033                   itemValue: closeRequest
  1012 		  itemValue: closeRequest
  1034                   translateLabel: true
  1013 		  translateLabel: true
  1035                 )
  1014 		)
  1036                )
  1015 	       )
  1037               nil
  1016 	      nil
  1038               nil
  1017 	      nil
  1039             )
  1018 	    )
  1040           )
  1019 	  )
  1041          (MenuItem
  1020 	 (MenuItem
  1042             label: 'Definition'
  1021 	    label: 'Definition'
  1043             translateLabel: true
  1022 	    translateLabel: true
  1044             submenu: 
  1023 	    submenu:
  1045            (Menu
  1024 	   (Menu
  1046               (
  1025 	      (
  1047                (MenuItem
  1026 	       (MenuItem
  1048                   enabled: hasDefinitionClassHolder
  1027 		  enabled: hasDefinitionClassHolder
  1049                   label: 'Generate Definitions'
  1028 		  label: 'Generate Definitions'
  1050                   itemValue: menuGenerateProjectDefinitions
  1029 		  itemValue: menuGenerateProjectDefinitions
  1051                   translateLabel: true
  1030 		  translateLabel: true
  1052                 )
  1031 		)
  1053                )
  1032 	       )
  1054               nil
  1033 	      nil
  1055               nil
  1034 	      nil
  1056             )
  1035 	    )
  1057           )
  1036 	  )
  1058          (MenuItem
  1037 	 (MenuItem
  1059             label: 'Classes'
  1038 	    label: 'Classes'
  1060             translateLabel: true
  1039 	    translateLabel: true
  1061             isVisible: classesMenuVisibleHolder
  1040 	    isVisible: classesMenuVisibleHolder
  1062             submenuChannel: classListMenu
  1041 	    submenuChannel: classListMenu
  1063             keepLinkedMenu: true
  1042 	    keepLinkedMenu: true
  1064           )
  1043 	  )
  1065          (MenuItem
  1044 	 (MenuItem
  1066             label: 'Extensions'
  1045 	    label: 'Extensions'
  1067             translateLabel: true
  1046 	    translateLabel: true
  1068             isVisible: extensionsMenuVisibleHolder
  1047 	    isVisible: extensionsMenuVisibleHolder
  1069             submenuChannel: extensionsListMenu
  1048 	    submenuChannel: extensionsListMenu
  1070             keepLinkedMenu: true
  1049 	    keepLinkedMenu: true
  1071           )
  1050 	  )
  1072          (MenuItem
  1051 	 (MenuItem
  1073             label: 'Prerequisites'
  1052 	    label: 'Prerequisites'
  1074             translateLabel: true
  1053 	    translateLabel: true
  1075             isVisible: prerequisitesMenuVisibleHolder
  1054 	    isVisible: prerequisitesMenuVisibleHolder
  1076             submenuChannel: prerequisitesListMenu
  1055 	    submenuChannel: prerequisitesListMenu
  1077             keepLinkedMenu: true
  1056 	    keepLinkedMenu: true
  1078           )
  1057 	  )
  1079          (MenuItem
  1058 	 (MenuItem
  1080             label: 'MENU_Help'
  1059 	    label: 'MENU_Help'
  1081             translateLabel: true
  1060 	    translateLabel: true
  1082             startGroup: conditionalRight
  1061 	    startGroup: conditionalRight
  1083             submenu: 
  1062 	    submenu:
  1084            (Menu
  1063 	   (Menu
  1085               (
  1064 	      (
  1086                (MenuItem
  1065 	       (MenuItem
  1087                   label: 'Documentation'
  1066 		  label: 'Documentation'
  1088                   itemValue: openDocumentation
  1067 		  itemValue: openDocumentation
  1089                   translateLabel: true
  1068 		  translateLabel: true
  1090                 )
  1069 		)
  1091                (MenuItem
  1070 	       (MenuItem
  1092                   label: '-'
  1071 		  label: '-'
  1093                 )
  1072 		)
  1094                (MenuItem
  1073 	       (MenuItem
  1095                   label: 'About this Application...'
  1074 		  label: 'About this Application...'
  1096                   itemValue: openAboutThisApplication
  1075 		  itemValue: openAboutThisApplication
  1097                   translateLabel: true
  1076 		  translateLabel: true
  1098                 )
  1077 		)
  1099                )
  1078 	       )
  1100               nil
  1079 	      nil
  1101               nil
  1080 	      nil
  1102             )
  1081 	    )
  1103           )
  1082 	  )
  1104          )
  1083 	 )
  1105         nil
  1084 	nil
  1106         nil
  1085 	nil
  1107       )
  1086       )
  1108 !
  1087 !
  1109 
  1088 
  1110 prerequisitesListMenu
  1089 prerequisitesListMenu
  1111     "This resource specification was automatically generated
  1090     "This resource specification was automatically generated
  1166 
  1145 
  1167     <resource: #tableColumns>
  1146     <resource: #tableColumns>
  1168 
  1147 
  1169     ^#(
  1148     ^#(
  1170       (DataSetColumnSpec
  1149       (DataSetColumnSpec
  1171          label: 'Class'
  1150 	 label: 'Class'
  1172          labelAlignment: left
  1151 	 labelAlignment: left
  1173          labelButtonType: Button
  1152 	 labelButtonType: Button
  1174          model: className
  1153 	 model: className
  1175          canSelect: false
  1154 	 canSelect: false
  1176        )
  1155        )
  1177       (DataSetColumnSpec
  1156       (DataSetColumnSpec
  1178          label: 'Auto'
  1157 	 label: 'Auto'
  1179          labelButtonType: Button
  1158 	 labelButtonType: Button
  1180          editorType: CheckToggle
  1159 	 editorType: CheckToggle
  1181          rendererType: CheckToggle
  1160 	 rendererType: CheckToggle
  1182          model: autoloaded
  1161 	 model: autoloaded
  1183        )
  1162        )
  1184       (DataSetColumnSpec
  1163       (DataSetColumnSpec
  1185          label: 'Win32'
  1164 	 label: 'Win32'
  1186          labelButtonType: Button
  1165 	 labelButtonType: Button
  1187          editorType: CheckToggle
  1166 	 editorType: CheckToggle
  1188          rendererType: CheckToggle
  1167 	 rendererType: CheckToggle
  1189          model: win32
  1168 	 model: win32
  1190        )
  1169        )
  1191       (DataSetColumnSpec
  1170       (DataSetColumnSpec
  1192          label: 'Unix'
  1171 	 label: 'Unix'
  1193          labelButtonType: Button
  1172 	 labelButtonType: Button
  1194          editorType: CheckToggle
  1173 	 editorType: CheckToggle
  1195          rendererType: CheckToggle
  1174 	 rendererType: CheckToggle
  1196          model: unix
  1175 	 model: unix
  1197        )
  1176        )
  1198       )
  1177       )
  1199     
  1178 
  1200 !
  1179 !
  1201 
  1180 
  1202 extensionsTableColumns
  1181 extensionsTableColumns
  1203     "This resource specification was automatically generated
  1182     "This resource specification was automatically generated
  1204      by the DataSetBuilder of ST/X."
  1183      by the DataSetBuilder of ST/X."
  1280 
  1259 
  1281 !ProjectDefinitionEditor methodsFor:'aspects'!
  1260 !ProjectDefinitionEditor methodsFor:'aspects'!
  1282 
  1261 
  1283 ccOptimizationFlagList
  1262 ccOptimizationFlagList
  1284     ^ #(
  1263     ^ #(
  1285         '-O'
  1264 	'-O'
  1286         '-g'
  1265 	'-g'
  1287     )
  1266     )
  1288 
  1267 
  1289     "Created: / 15-10-2006 / 15:14:39 / cg"
  1268     "Created: / 15-10-2006 / 15:14:39 / cg"
  1290 !
  1269 !
  1291 
  1270 
  1292 ccOptimizationFlagsHolder
  1271 ccOptimizationFlagsHolder
  1293     ccOptimizationFlagsHolder isNil ifTrue:[
  1272     ccOptimizationFlagsHolder isNil ifTrue:[
  1294         ccOptimizationFlagsHolder := ValueHolder new.
  1273 	ccOptimizationFlagsHolder := ValueHolder new.
  1295     ].
  1274     ].
  1296     ^ ccOptimizationFlagsHolder
  1275     ^ ccOptimizationFlagsHolder
  1297 
  1276 
  1298     "Created: / 15-10-2006 / 15:13:14 / cg"
  1277     "Created: / 15-10-2006 / 15:13:14 / cg"
  1299 !
  1278 !
  1334     "Modified: / 04-09-2006 / 17:58:15 / cg"
  1313     "Modified: / 04-09-2006 / 17:58:15 / cg"
  1335 !
  1314 !
  1336 
  1315 
  1337 documentExtensionsListStringHolder
  1316 documentExtensionsListStringHolder
  1338     documentExtensionsListStringHolder isNil ifTrue:[
  1317     documentExtensionsListStringHolder isNil ifTrue:[
  1339         documentExtensionsListStringHolder := '' asValue.
  1318 	documentExtensionsListStringHolder := '' asValue.
  1340     ].
  1319     ].
  1341     ^ documentExtensionsListStringHolder.
  1320     ^ documentExtensionsListStringHolder.
  1342 
  1321 
  1343     "Created: / 15-10-2006 / 14:32:29 / cg"
  1322     "Created: / 15-10-2006 / 14:32:29 / cg"
  1344 !
  1323 !
  1429     ^ fileRevisionNrHolder.
  1408     ^ fileRevisionNrHolder.
  1430 !
  1409 !
  1431 
  1410 
  1432 hasConsoleHolder
  1411 hasConsoleHolder
  1433     hasConsoleHolder isNil ifTrue:[
  1412     hasConsoleHolder isNil ifTrue:[
  1434         hasConsoleHolder := false asValue
  1413 	hasConsoleHolder := false asValue
  1435     ].
  1414     ].
  1436     ^ hasConsoleHolder.
  1415     ^ hasConsoleHolder.
  1437 
  1416 
  1438     "Created: / 20-09-2006 / 14:39:18 / cg"
  1417     "Created: / 20-09-2006 / 14:39:18 / cg"
  1439 !
  1418 !
  1462     "Created: / 20-09-2006 / 14:38:32 / cg"
  1441     "Created: / 20-09-2006 / 14:38:32 / cg"
  1463 !
  1442 !
  1464 
  1443 
  1465 isNonGUIApplicationHolder
  1444 isNonGUIApplicationHolder
  1466     isNonGUIApplicationHolder isNil ifTrue:[
  1445     isNonGUIApplicationHolder isNil ifTrue:[
  1467         isNonGUIApplicationHolder := false asValue.
  1446 	isNonGUIApplicationHolder := false asValue.
  1468         isNonGUIApplicationHolder addDependent:self.
  1447 	isNonGUIApplicationHolder addDependent:self.
  1469     ].
  1448     ].
  1470     ^ isNonGUIApplicationHolder.
  1449     ^ isNonGUIApplicationHolder.
  1471 
  1450 
  1472     "Created: / 05-09-2006 / 13:34:31 / cg"
  1451     "Created: / 05-09-2006 / 13:34:31 / cg"
  1473     "Modified: / 15-10-2006 / 14:00:03 / cg"
  1452     "Modified: / 15-10-2006 / 14:00:03 / cg"
  1601     ^ selectedClassIndexHolder.
  1580     ^ selectedClassIndexHolder.
  1602 !
  1581 !
  1603 
  1582 
  1604 shownHasConsoleHolder
  1583 shownHasConsoleHolder
  1605     shownHasConsoleHolder isNil ifTrue:[
  1584     shownHasConsoleHolder isNil ifTrue:[
  1606         shownHasConsoleHolder := IndirectValue for:self hasConsoleHolder.
  1585 	shownHasConsoleHolder := IndirectValue for:self hasConsoleHolder.
  1607     ].
  1586     ].
  1608     ^ shownHasConsoleHolder
  1587     ^ shownHasConsoleHolder
  1609 
  1588 
  1610     "Created: / 15-10-2006 / 13:59:01 / cg"
  1589     "Created: / 15-10-2006 / 13:59:01 / cg"
  1611 !
  1590 !
  1612 
  1591 
  1613 shownHasConsoleValue
  1592 shownHasConsoleValue
  1614     ^ BlockValue 
  1593     ^ BlockValue
  1615         with:[:m1 :m2 | self isGUIApplicationHolder value not
  1594 	with:[:m1 :m2 | self isGUIApplicationHolder value not
  1616                         or:[ self hasConsoleHolder value] ]
  1595 			or:[ self hasConsoleHolder value] ]
  1617         argument:(self hasConsoleHolder)
  1596 	argument:(self hasConsoleHolder)
  1618         argument:(self isGUIApplicationHolder).
  1597 	argument:(self isGUIApplicationHolder).
  1619 
  1598 
  1620     "Created: / 15-10-2006 / 13:54:16 / cg"
  1599     "Created: / 15-10-2006 / 13:54:16 / cg"
  1621 !
  1600 !
  1622 
  1601 
  1623 startSinglethreadedHolder
  1602 startSinglethreadedHolder
  1647     "Created: / 05-09-2006 / 13:34:20 / cg"
  1626     "Created: / 05-09-2006 / 13:34:20 / cg"
  1648 !
  1627 !
  1649 
  1628 
  1650 stcOptimizationFlagList
  1629 stcOptimizationFlagList
  1651     ^ #(
  1630     ^ #(
  1652         '+optSpace'
  1631 	'+optSpace'
  1653         '+optSpace2'
  1632 	'+optSpace2'
  1654         '+optSpace3'
  1633 	'+optSpace3'
  1655         '+optInline'
  1634 	'+optInline'
  1656         '-optInline'
  1635 	'-optInline'
  1657         '-inlineNew'
  1636 	'-inlineNew'
  1658         '-inlineNot'
  1637 	'-inlineNot'
  1659     )
  1638     )
  1660 
  1639 
  1661     "Created: / 15-10-2006 / 15:14:29 / cg"
  1640     "Created: / 15-10-2006 / 15:14:29 / cg"
  1662 !
  1641 !
  1663 
  1642 
  1664 stcOptimizationFlagsHolder
  1643 stcOptimizationFlagsHolder
  1665     stcOptimizationFlagsHolder isNil ifTrue:[
  1644     stcOptimizationFlagsHolder isNil ifTrue:[
  1666         stcOptimizationFlagsHolder := ValueHolder new.
  1645 	stcOptimizationFlagsHolder := ValueHolder new.
  1667     ].
  1646     ].
  1668     ^ stcOptimizationFlagsHolder
  1647     ^ stcOptimizationFlagsHolder
  1669 
  1648 
  1670     "Modified: / 15-10-2006 / 15:13:10 / cg"
  1649     "Modified: / 15-10-2006 / 15:13:10 / cg"
  1671 !
  1650 !
  1730 fetchClassListEntries
  1709 fetchClassListEntries
  1731     |entries|
  1710     |entries|
  1732 
  1711 
  1733     entries := OrderedCollection new.
  1712     entries := OrderedCollection new.
  1734     definitionClass
  1713     definitionClass
  1735         classNamesAndAttributesDo:[:className :attributes |
  1714 	classNamesAndAttributesDo:[:className :attributes |
  1736             |entry|
  1715 	    |entry|
  1737 
  1716 
  1738             entry := ClassListEntry new.
  1717 	    entry := ClassListEntry new.
  1739             entry
  1718 	    entry
  1740                 className:className
  1719 		className:className
  1741                 autoloaded:(attributes includes:#autoload)
  1720 		autoloaded:(attributes includes:#autoload)
  1742                 win32:(attributes includes:#win32)
  1721 		win32:(attributes includes:#win32)
  1743                 unix:(attributes includes:#unix).
  1722 		unix:(attributes includes:#unix).
  1744             entries add:entry.
  1723 	    entries add:entry.
  1745         ].
  1724 	].
  1746     entries sort:[:a :b | a className < b className].
  1725     entries sort:[:a :b | a className < b className].
  1747     ^ entries.
  1726     ^ entries.
  1748 
  1727 
  1749     "Created: / 05-09-2006 / 12:31:26 / cg"
  1728     "Created: / 05-09-2006 / 12:31:26 / cg"
  1750     "Modified: / 21-11-2006 / 18:04:35 / cg"
  1729     "Modified: / 21-11-2006 / 18:04:35 / cg"
  1799     self isNonGUIApplicationHolder value:(isApplicationDefinition and:[definitionClass isGUIApplication not]).
  1778     self isNonGUIApplicationHolder value:(isApplicationDefinition and:[definitionClass isGUIApplication not]).
  1800     self hasConsoleHolder value:(isApplicationDefinition and:[definitionClass isConsoleApplication]).
  1779     self hasConsoleHolder value:(isApplicationDefinition and:[definitionClass isConsoleApplication]).
  1801     self startSinglethreadedHolder value:(isApplicationDefinition and:[definitionClass isSingleThreadedApplication]).
  1780     self startSinglethreadedHolder value:(isApplicationDefinition and:[definitionClass isSingleThreadedApplication]).
  1802 
  1781 
  1803     isApplicationDefinition ifTrue:[
  1782     isApplicationDefinition ifTrue:[
  1804         startupClassName := definitionClass name.
  1783 	startupClassName := definitionClass name.
  1805         startupSelector := #start.
  1784 	startupSelector := #start.
  1806 
  1785 
  1807         Error handle:[:ex | ] do:[ startupClassName := definitionClass startupClassName].
  1786 	Error handle:[:ex | ] do:[ startupClassName := definitionClass startupClassName].
  1808         Error handle:[:ex | ] do:[ startupSelector := definitionClass startupSelector].
  1787 	Error handle:[:ex | ] do:[ startupSelector := definitionClass startupSelector].
  1809         self startupClassNameHolder value:startupClassName.
  1788 	self startupClassNameHolder value:startupClassName.
  1810         self startupSelectorHolder value:startupSelector.
  1789 	self startupSelectorHolder value:startupSelector.
  1811 
  1790 
  1812         self iconFileNameHolder value:(definitionClass applicationIconFileName).
  1791 	self iconFileNameHolder value:(definitionClass applicationIconFileName).
  1813         self tabList value:(self class tabListForApplication).
  1792 	self tabList value:(self class tabListForApplication).
  1814         self documentExtensionsListStringHolder value:(definitionClass documentExtensions asStringWith:';').
  1793 	self documentExtensionsListStringHolder value:(definitionClass documentExtensions asStringWith:';').
  1815     ] ifFalse:[
  1794     ] ifFalse:[
  1816         self tabList value:(self class tabListForLibrary).
  1795 	self tabList value:(self class tabListForLibrary).
  1817     ].
  1796     ].
  1818 
  1797 
  1819     self companyNameHolder value:(definitionClass companyName).
  1798     self companyNameHolder value:(definitionClass companyName).
  1820     self descriptionHolder value:(definitionClass description).
  1799     self descriptionHolder value:(definitionClass description).
  1821     self legalCopyrightHolder value:(definitionClass legalCopyright).
  1800     self legalCopyrightHolder value:(definitionClass legalCopyright).
  1834     self classListHolder value:(self fetchClassListEntries).
  1813     self classListHolder value:(self fetchClassListEntries).
  1835     self extensionsListHolder value:(self fetchExtensionsListEntries).
  1814     self extensionsListHolder value:(self fetchExtensionsListEntries).
  1836     self prerequisitesListHolder value:(self fetchPrerequisitesListEntries).
  1815     self prerequisitesListHolder value:(self fetchPrerequisitesListEntries).
  1837 
  1816 
  1838     self window notNil ifTrue:[
  1817     self window notNil ifTrue:[
  1839         self window
  1818 	self window
  1840             label:(isApplicationDefinition
  1819 	    label:(isApplicationDefinition
  1841                     ifTrue:'Application'
  1820 		    ifTrue:'Application'
  1842                     ifFalse:'Library' )
  1821 		    ifFalse:'Library' )
  1843                         , ' Definition: ',definitionClass name.
  1822 			, ' Definition: ',definitionClass name.
  1844     ].
  1823     ].
  1845 
  1824 
  1846     "Created: / 04-09-2006 / 16:34:39 / cg"
  1825     "Created: / 04-09-2006 / 16:34:39 / cg"
  1847     "Modified: / 15-10-2006 / 14:32:45 / cg"
  1826     "Modified: / 15-10-2006 / 14:32:45 / cg"
  1848 !
  1827 !
  1854     "Created: / 07-09-2006 / 12:26:54 / cg"
  1833     "Created: / 07-09-2006 / 12:26:54 / cg"
  1855 !
  1834 !
  1856 
  1835 
  1857 update:something with:parameter from:changedObject
  1836 update:something with:parameter from:changedObject
  1858     changedObject == self selectedTabIndexHolder ifTrue:[
  1837     changedObject == self selectedTabIndexHolder ifTrue:[
  1859         self updateMenuVisibility.
  1838 	self updateMenuVisibility.
  1860         ^ self.
  1839 	^ self.
  1861     ].
  1840     ].
  1862     changedObject == self isNonGUIApplicationHolder ifTrue:[
  1841     changedObject == self isNonGUIApplicationHolder ifTrue:[
  1863         changedObject value ifTrue:[
  1842 	changedObject value ifTrue:[
  1864             "/ a NON-GUI application - always has a console
  1843 	    "/ a NON-GUI application - always has a console
  1865             self shownHasConsoleHolder valueHolder:true
  1844 	    self shownHasConsoleHolder valueHolder:true
  1866         ] ifFalse:[
  1845 	] ifFalse:[
  1867             "/ a GUI application - sometimes has a console
  1846 	    "/ a GUI application - sometimes has a console
  1868             self shownHasConsoleHolder valueHolder:(self hasConsoleHolder)
  1847 	    self shownHasConsoleHolder valueHolder:(self hasConsoleHolder)
  1869         ].
  1848 	].
  1870         ^ self.
  1849 	^ self.
  1871     ].
  1850     ].
  1872     ^ super update:something with:parameter from:changedObject
  1851     ^ super update:something with:parameter from:changedObject
  1873 
  1852 
  1874     "Created: / 03-09-2006 / 10:59:42 / cg"
  1853     "Created: / 03-09-2006 / 10:59:42 / cg"
  1875     "Modified: / 15-10-2006 / 14:08:23 / cg"
  1854     "Modified: / 15-10-2006 / 14:08:23 / cg"
  1898     "Modified: / 03-09-2006 / 10:53:14 / cg"
  1877     "Modified: / 03-09-2006 / 10:53:14 / cg"
  1899 !
  1878 !
  1900 
  1879 
  1901 flagHolderBuilt:aComboBox
  1880 flagHolderBuilt:aComboBox
  1902     aComboBox menuSelectAction:[:txt |
  1881     aComboBox menuSelectAction:[:txt |
  1903         self updateFlagsIn:aComboBox from:txt
  1882 	self updateFlagsIn:aComboBox from:txt
  1904     ].
  1883     ].
  1905 
  1884 
  1906     "Created: / 15-10-2006 / 15:11:50 / cg"
  1885     "Created: / 15-10-2006 / 15:11:50 / cg"
  1907 !
  1886 !
  1908 
  1887 
  1930 
  1909 
  1931 editNew:definitionClass
  1910 editNew:definitionClass
  1932     |className class newPackage|
  1911     |className class newPackage|
  1933 
  1912 
  1934     self hasUnsavedChanges ifTrue:[
  1913     self hasUnsavedChanges ifTrue:[
  1935         self halt.
  1914 	self halt.
  1936     ].
  1915     ].
  1937     className := Dialog
  1916     className := Dialog
  1938                     requestClassName:'Name of new Definition class'
  1917 		    requestClassName:'Name of new Definition class'
  1939                     okLabel:'Create'
  1918 		    okLabel:'Create'
  1940                     initialAnswer:'private_myProject'.
  1919 		    initialAnswer:'private_myProject'.
  1941     className isEmptyOrNil ifTrue:[^ self].
  1920     className isEmptyOrNil ifTrue:[^ self].
  1942 
  1921 
  1943     class := Smalltalk classNamed:className.
  1922     class := Smalltalk classNamed:className.
  1944     class notNil ifTrue:[
  1923     class notNil ifTrue:[
  1945         (class isLibraryDefinition == (definitionClass == LibraryDefinition)) ifFalse:[
  1924 	(class isLibraryDefinition == (definitionClass == LibraryDefinition)) ifFalse:[
  1946             Dialog warn:(resources
  1925 	    Dialog warn:(resources
  1947                             string:'A class named "%1" already exists as %2.'
  1926 			    string:'A class named "%1" already exists as %2.'
  1948                             with:className allBold
  1927 			    with:className allBold
  1949                             with:(class isLibraryDefinition 
  1928 			    with:(class isLibraryDefinition
  1950                                     ifTrue:'Library'
  1929 				    ifTrue:'Library'
  1951                                     ifFalse:'Application')).
  1930 				    ifFalse:'Application')).
  1952             ^ self
  1931 	    ^ self
  1953         ].
  1932 	].
  1954         Dialog warn:(resources
  1933 	Dialog warn:(resources
  1955                             string:'A class named "%1" already exists. Editing the existing definition.'
  1934 			    string:'A class named "%1" already exists. Editing the existing definition.'
  1956                             with:className allBold).
  1935 			    with:className allBold).
  1957     ] ifFalse:[
  1936     ] ifFalse:[
  1958         newPackage := className copy replaceAll:$_ with:$/.
  1937 	newPackage := className copy replaceAll:$_ with:$/.
  1959         newPackage replaceAll:$/ with:$:. 
  1938 	newPackage replaceAll:$/ with:$:.
  1960         class := definitionClass newNamed:className package:newPackage.
  1939 	class := definitionClass newNamed:className package:newPackage.
  1961     ].
  1940     ].
  1962     self definitionClass:class.
  1941     self definitionClass:class.
  1963 
  1942 
  1964     "Created: / 15-10-2006 / 14:50:15 / cg"
  1943     "Created: / 15-10-2006 / 14:50:15 / cg"
  1965 !
  1944 !
  2056 
  2035 
  2057 menuSaveAs
  2036 menuSaveAs
  2058     |className class newPackage|
  2037     |className class newPackage|
  2059 
  2038 
  2060     className := Dialog
  2039     className := Dialog
  2061                     requestClassName:'Name of new Definition class'
  2040 		    requestClassName:'Name of new Definition class'
  2062                     okLabel:'Create'
  2041 		    okLabel:'Create'
  2063                     initialAnswer:'private_myProject'.
  2042 		    initialAnswer:'private_myProject'.
  2064     className isEmptyOrNil ifTrue:[^ self].
  2043     className isEmptyOrNil ifTrue:[^ self].
  2065     class := Smalltalk classNamed:className.
  2044     class := Smalltalk classNamed:className.
  2066     class notNil ifTrue:[
  2045     class notNil ifTrue:[
  2067         Dialog warn:(resources
  2046 	Dialog warn:(resources
  2068                             string:'A class named %1 already exists'
  2047 			    string:'A class named %1 already exists'
  2069                             with:className).
  2048 			    with:className).
  2070         ^ self.
  2049 	^ self.
  2071     ].
  2050     ].
  2072     newPackage := className copy replaceAll:$_ with:$/.
  2051     newPackage := className copy replaceAll:$_ with:$/.
  2073     newPackage replaceAll:$/ with:$:. 
  2052     newPackage replaceAll:$/ with:$:.
  2074     class := ApplicationDefinition newNamed:className package:newPackage.
  2053     class := ApplicationDefinition newNamed:className package:newPackage.
  2075     self menuSaveAs:class.
  2054     self menuSaveAs:class.
  2076 
  2055 
  2077     "Modified: / 15-10-2006 / 14:47:53 / cg"
  2056     "Modified: / 15-10-2006 / 14:47:53 / cg"
  2078 !
  2057 !
  2109     |s flags base negation|
  2088     |s flags base negation|
  2110 
  2089 
  2111     s := aComboBox editor contents.
  2090     s := aComboBox editor contents.
  2112     flags := s asCollectionOfWords.
  2091     flags := s asCollectionOfWords.
  2113     (flags includes:flag) ifFalse:[
  2092     (flags includes:flag) ifFalse:[
  2114         base := (flag copyFrom:2).
  2093 	base := (flag copyFrom:2).
  2115         negation := (flag startsWith:'+') 
  2094 	negation := (flag startsWith:'+')
  2116                         ifTrue:[ ('-',base) ]
  2095 			ifTrue:[ ('-',base) ]
  2117                         ifFalse:[ ('+',base) ].
  2096 			ifFalse:[ ('+',base) ].
  2118         flags remove:negation ifAbsent:[].
  2097 	flags remove:negation ifAbsent:[].
  2119         flags add:flag.
  2098 	flags add:flag.
  2120         aComboBox editor contents:(flags asStringWith:' ').
  2099 	aComboBox editor contents:(flags asStringWith:' ').
  2121     ].
  2100     ].
  2122 
  2101 
  2123     "Created: / 15-10-2006 / 15:35:53 / cg"
  2102     "Created: / 15-10-2006 / 15:35:53 / cg"
  2124 ! !
  2103 ! !
  2125 
  2104