Tools__NewClassWizardDialog.st
changeset 18423 eaf1834500a2
parent 17903 da4d8d935304
child 18880 2ada87d888e3
equal deleted inserted replaced
18422:e53c5e8ee417 18423:eaf1834500a2
    22 		createPrintMethodHolder createAccessorsHolder
    22 		createPrintMethodHolder createAccessorsHolder
    23 		createUpdateMethodHolder createInitializerHolder
    23 		createUpdateMethodHolder createInitializerHolder
    24 		createInitialGUICodeHolder classInstVarNamesHolder
    24 		createInitialGUICodeHolder classInstVarNamesHolder
    25 		classVarNamesHolder nameSpaceHolder categoryHolder
    25 		classVarNamesHolder nameSpaceHolder categoryHolder
    26 		stereotypeHolder isCreatingClassHolder listOfSuperclassesHolder
    26 		stereotypeHolder isCreatingClassHolder listOfSuperclassesHolder
    27 		canDisableTemplateCreationHolder'
    27 		canDisableTemplateCreationHolder indexTypeHolder
       
    28 		createClassInitializerMethodHolder'
    28 	classVariableNames:'LastLanguage LastSuperclass LastPackage LastNamespace
    29 	classVariableNames:'LastLanguage LastSuperclass LastPackage LastNamespace
    29 		LastCategory'
    30 		LastCategory'
    30 	poolDictionaries:''
    31 	poolDictionaries:''
    31 	category:'Interface-Browsers-New'
    32 	category:'Interface-Browsers-New'
    32 !
    33 !
   113 
   114 
   114 #createAccessors
   115 #createAccessors
   115 'Create getters and setters for all instance variables'
   116 'Create getters and setters for all instance variables'
   116 
   117 
   117 #createInitializer
   118 #createInitializer
   118 'Create an initial initialize method template'
   119 'Generate template code for initialized instances'
   119 
   120 
   120 #createPrintMethod
   121 #createPrintMethod
   121 'Create an initial print method template'
   122 'Create an initial print method template'
   122 
   123 
   123 #createRequiredMethods
   124 #createRequiredMethods
   127 'Create an initial update method template'
   128 'Create an initial update method template'
   128 
   129 
   129 #createInitialGUICode
   130 #createInitialGUICode
   130 'Create initial template code (mostly useful for applications)'
   131 'Create initial template code (mostly useful for applications)'
   131 
   132 
       
   133 #indexType
       
   134 'Instances will have indexed instance variables'
       
   135 
   132 #instanceVariableNames
   136 #instanceVariableNames
   133 'Instance variables (separated by spaces)'
   137 'Instance variables (separated by spaces)'
   134 
   138 
   135 #namespace
   139 #namespace
   136 'Optional namespace in which this class is to be created (default: Smalltalk).\Notice: namespaces are used to avoid name conflicts, not for organization\(that is what categries are for)'
   140 'Optional namespace in which this class is to be created (default: Smalltalk).\Notice: namespaces are used to avoid name conflicts, not for organization\(that is what categries are for)'
   160 'Superclass of the new class'
   164 'Superclass of the new class'
   161 
   165 
   162 )
   166 )
   163 
   167 
   164     "Modified: / 27-01-2012 / 14:41:44 / cg"
   168     "Modified: / 27-01-2012 / 14:41:44 / cg"
       
   169     "Modified: / 22-09-2018 / 16:06:18 / Claus Gittinger"
   165 ! !
   170 ! !
   166 
   171 
   167 !NewClassWizardDialog class methodsFor:'image specs'!
   172 !NewClassWizardDialog class methodsFor:'image specs'!
   168 
   173 
   169 wizardIcon
   174 wizardIcon
   297     <resource: #canvas>
   302     <resource: #canvas>
   298 
   303 
   299     ^ 
   304     ^ 
   300     #(FullSpec
   305     #(FullSpec
   301        name: windowSpec
   306        name: windowSpec
       
   307        uuid: '9a1f999e-be6f-11e8-b6ed-b8f6b1108e05'
   302        window: 
   308        window: 
   303       (WindowSpec
   309       (WindowSpec
   304          label: 'Class Creation Wizard'
   310          label: 'Class Creation Wizard'
   305          name: 'Class Creation Wizard'
   311          name: 'Class Creation Wizard'
       
   312          uuid: 'f1a8929c-be47-11e8-b6ed-b8f6b1108e05'
   306          min: (Point 10 10)
   313          min: (Point 10 10)
   307          bounds: (Rectangle 0 0 592 639)
   314          bounds: (Rectangle 0 0 592 639)
   308        )
   315        )
   309        component: 
   316        component: 
   310       (SpecCollection
   317       (SpecCollection
   311          collection: (
   318          collection: (
   312           (LabelSpec
   319           (LabelSpec
   313              label: 'wizardIcon'
   320              label: 'wizardIcon'
   314              name: 'Label10'
   321              name: 'Label10'
   315              layout: (LayoutFrame 0 0 0 0 100 0 90 0)
   322              layout: (LayoutFrame 0 0 0 0 100 0 90 0)
       
   323              uuid: 'f1a89490-be47-11e8-b6ed-b8f6b1108e05'
   316              hasCharacterOrientedLabel: false
   324              hasCharacterOrientedLabel: false
   317              translateLabel: true
   325              translateLabel: true
   318            )
   326            )
   319           (LabelSpec
   327           (LabelSpec
   320              label: 'Class/Package Creation Wizard'
   328              label: 'Class/Package Creation Wizard'
   321              name: 'Label11'
   329              name: 'Label11'
   322              layout: (LayoutFrame 100 0 10 0 390 0 50 0)
   330              layout: (LayoutFrame 100 0 10 0 390 0 50 0)
       
   331              uuid: 'f1a89634-be47-11e8-b6ed-b8f6b1108e05'
   323              translateLabel: true
   332              translateLabel: true
   324            )
   333            )
   325           (LabelSpec
   334           (LabelSpec
   326              label: 'Stereotype:'
   335              label: 'Stereotype:'
   327              name: 'Label13'
   336              name: 'Label13'
   328              layout: (LayoutFrame 10 0 91 0 180 0 113 0)
   337              layout: (LayoutFrame 10 0 91 0 180 0 117 0)
   329              activeHelpKey: stereotype
   338              activeHelpKey: stereotype
       
   339              uuid: 'f1a89724-be47-11e8-b6ed-b8f6b1108e05'
   330              translateLabel: true
   340              translateLabel: true
   331              adjust: right
   341              adjust: right
   332            )
   342            )
   333           (ComboListSpec
   343           (ComboListSpec
   334              name: 'ComboList3'
   344              name: 'ComboList3'
   335              layout: (LayoutFrame 190 0 91 0 -32 1 113 0)
   345              layout: (LayoutFrame 190 0 91 0 -32 1 117 0)
   336              activeHelpKey: stereotype
   346              activeHelpKey: stereotype
       
   347              uuid: 'f1a89814-be47-11e8-b6ed-b8f6b1108e05'
   337              model: stereotypeHolder
   348              model: stereotypeHolder
   338              comboList: listOfStereotypes
   349              comboList: listOfStereotypes
   339              useIndex: true
   350              useIndex: true
   340            )
   351            )
   341           (LabelSpec
   352           (LabelSpec
   342              label: 'Programming Language:'
   353              label: 'Programming Language:'
   343              name: 'Label9'
   354              name: 'Label9'
   344              layout: (LayoutFrame 7 0 126 0 301 0 148 0)
   355              layout: (LayoutFrame 7 0 126 0 301 0 152 0)
   345              activeHelpKey: programmingLanguage
   356              activeHelpKey: programmingLanguage
       
   357              uuid: 'f1a8be7a-be47-11e8-b6ed-b8f6b1108e05'
   346              visibilityChannel: isCreatingClassHolder
   358              visibilityChannel: isCreatingClassHolder
   347              translateLabel: true
   359              translateLabel: true
   348              adjust: right
   360              adjust: right
   349            )
   361            )
   350           (ComboListSpec
   362           (ComboListSpec
   351              name: 'ComboList1'
   363              name: 'ComboList1'
   352              layout: (LayoutFrame 308 0 126 0 -32 1 148 0)
   364              layout: (LayoutFrame 308 0 126 0 -32 1 152 0)
   353              activeHelpKey: programmingLanguage
   365              activeHelpKey: programmingLanguage
       
   366              uuid: 'f1a8bf92-be47-11e8-b6ed-b8f6b1108e05'
   354              visibilityChannel: isCreatingClassHolder
   367              visibilityChannel: isCreatingClassHolder
   355              model: languageHolder
   368              model: languageHolder
   356              comboList: listOfLanguages
   369              comboList: listOfLanguages
   357              useIndex: true
   370              useIndex: true
   358            )
   371            )
   359           (LabelSpec
   372           (LabelSpec
   360              label: 'Class Name:'
   373              label: 'Class Name:'
   361              name: 'Label1'
   374              name: 'Label1'
   362              layout: (LayoutFrame 10 0 172 0 180 0 194 0)
   375              layout: (LayoutFrame 10 0 172 0 180 0 198 0)
   363              activeHelpKey: className
   376              activeHelpKey: className
       
   377              uuid: 'f1a8c064-be47-11e8-b6ed-b8f6b1108e05'
   364              visibilityChannel: isCreatingClassHolder
   378              visibilityChannel: isCreatingClassHolder
   365              translateLabel: true
   379              translateLabel: true
   366              adjust: right
   380              adjust: right
   367            )
   381            )
   368           (LabelSpec
   382           (LabelSpec
   369              label: '*'
   383              label: '*'
   370              name: 'Label14'
   384              name: 'Label14'
   371              layout: (LayoutFrame 180 0 173 0 190 0 195 0)
   385              layout: (LayoutFrame 180 0 173 0 190 0 195 0)
       
   386              uuid: 'f1a8c1a4-be47-11e8-b6ed-b8f6b1108e05'
   372              visibilityChannel: isCreatingClassHolder
   387              visibilityChannel: isCreatingClassHolder
   373              translateLabel: true
   388              translateLabel: true
   374            )
   389            )
   375           (InputFieldSpec
   390           (InputFieldSpec
   376              name: 'EntryField1'
   391              name: 'EntryField1'
   377              layout: (LayoutFrame 190 0 172 0 -32 1 194 0)
   392              layout: (LayoutFrame 190 0 172 0 -32 1 198 0)
   378              activeHelpKey: className
   393              activeHelpKey: className
       
   394              uuid: 'f1a8c294-be47-11e8-b6ed-b8f6b1108e05'
   379              visibilityChannel: isCreatingClassHolder
   395              visibilityChannel: isCreatingClassHolder
   380              model: classNameHolder
   396              model: classNameHolder
   381              acceptOnReturn: true
   397              acceptOnReturn: true
   382              acceptOnTab: true
   398              acceptOnTab: true
   383              acceptOnLostFocus: true
   399              acceptOnLostFocus: true
   384              acceptOnPointerLeave: true
   400              acceptOnPointerLeave: true
   385            )
   401            )
   386           (LabelSpec
   402           (LabelSpec
   387              label: 'Superclass:'
   403              label: 'Superclass:'
   388              name: 'Label2'
   404              name: 'Label2'
   389              layout: (LayoutFrame 10 0 202 0 180 0 224 0)
   405              layout: (LayoutFrame 10 0 202 0 180 0 228 0)
   390              activeHelpKey: superclass
   406              activeHelpKey: superclass
       
   407              uuid: 'f1a8c4ec-be47-11e8-b6ed-b8f6b1108e05'
   391              visibilityChannel: isCreatingClassHolder
   408              visibilityChannel: isCreatingClassHolder
   392              translateLabel: true
   409              translateLabel: true
   393              adjust: right
   410              adjust: right
       
   411            )
       
   412           (LabelSpec
       
   413              label: '*'
       
   414              name: 'Label15'
       
   415              layout: (LayoutFrame 180 0 202 0 190 0 224 0)
       
   416              uuid: 'f1a8c5dc-be47-11e8-b6ed-b8f6b1108e05'
       
   417              visibilityChannel: isCreatingClassHolder
       
   418              translateLabel: true
   394            )
   419            )
   395           (ComboBoxSpec
   420           (ComboBoxSpec
   396              name: 'ComboBox1'
   421              name: 'ComboBox1'
   397              layout: (LayoutFrame 190 0 202 0 -32 1 224 0)
   422              layout: (LayoutFrame 190 0 202 0 -32 1 228 0)
   398              activeHelpKey: superclass
   423              activeHelpKey: superclass
       
   424              uuid: 'f1a8c6b8-be47-11e8-b6ed-b8f6b1108e05'
   399              visibilityChannel: isCreatingClassHolder
   425              visibilityChannel: isCreatingClassHolder
   400              model: superclassNameHolder
   426              model: superclassNameHolder
   401              acceptOnLostFocus: true
   427              acceptOnLostFocus: true
   402              comboList: listOfSuperclassesHolder
   428              comboList: listOfSuperclassesHolder
   403              useIndex: false
   429              useIndex: false
   404            )
   430            )
   405           (LabelSpec
       
   406              label: '*'
       
   407              name: 'Label15'
       
   408              layout: (LayoutFrame 180 0 202 0 190 0 224 0)
       
   409              visibilityChannel: isCreatingClassHolder
       
   410              translateLabel: true
       
   411            )
       
   412           (ActionButtonSpec
   431           (ActionButtonSpec
   413              label: '...'
   432              label: '...'
   414              name: 'Button1'
   433              name: 'Button1'
   415              layout: (LayoutFrame -22 1 202 0 -2 1 224 0)
   434              layout: (LayoutFrame -22 1 202 0 -2 1 228 0)
   416              activeHelpKey: chooseSuperclass
   435              activeHelpKey: chooseSuperclass
       
   436              uuid: 'f1a8c866-be47-11e8-b6ed-b8f6b1108e05'
   417              visibilityChannel: isCreatingClassHolder
   437              visibilityChannel: isCreatingClassHolder
   418              translateLabel: true
   438              translateLabel: true
   419              model: openSuperClassChooser
   439              model: openSuperClassChooser
   420            )
   440            )
   421           (LabelSpec
   441           (LabelSpec
   422              label: 'Package ID:'
   442              label: 'Package ID:'
   423              name: 'Label3'
   443              name: 'Label3'
   424              layout: (LayoutFrame 10 0 243 0 180 0 265 0)
   444              layout: (LayoutFrame 10 0 242 0 180 0 268 0)
   425              activeHelpKey: package
   445              activeHelpKey: package
       
   446              uuid: 'f1a8c9f6-be47-11e8-b6ed-b8f6b1108e05'
   426              translateLabel: true
   447              translateLabel: true
   427              adjust: right
   448              adjust: right
   428            )
   449            )
   429           (LabelSpec
   450           (LabelSpec
   430              label: '*'
   451              label: '*'
   431              name: 'Label16'
   452              name: 'Label16'
   432              layout: (LayoutFrame 180 0 245 0 190 0 267 0)
   453              layout: (LayoutFrame 180 0 245 0 190 0 267 0)
       
   454              uuid: 'f1a8cae6-be47-11e8-b6ed-b8f6b1108e05'
   433              visibilityChannel: isCreatingPackageHolder
   455              visibilityChannel: isCreatingPackageHolder
   434              translateLabel: true
   456              translateLabel: true
   435            )
   457            )
   436           (ComboBoxSpec
   458           (ComboBoxSpec
   437              name: 'ComboBox2'
   459              name: 'ComboBox2'
   438              layout: (LayoutFrame 190 0 242 0 -32 1 264 0)
   460              layout: (LayoutFrame 190 0 242 0 -32 1 268 0)
   439              activeHelpKey: package
   461              activeHelpKey: package
       
   462              uuid: 'f1a8cbb8-be47-11e8-b6ed-b8f6b1108e05'
   440              model: packageHolder
   463              model: packageHolder
   441              acceptOnReturn: true
   464              acceptOnReturn: true
   442              acceptOnTab: true
   465              acceptOnTab: true
   443              acceptOnLostFocus: true
   466              acceptOnLostFocus: true
   444              acceptOnPointerLeave: true
   467              acceptOnPointerLeave: true
   445              comboList: listOfPackages
   468              comboList: listOfPackages
   446            )
   469            )
   447           (ActionButtonSpec
   470           (ActionButtonSpec
   448              label: '...'
   471              label: '...'
   449              name: 'Button4'
   472              name: 'Button4'
   450              layout: (LayoutFrame -22 1 242 0 -2 1 264 0)
   473              layout: (LayoutFrame -22 1 242 0 -2 1 268 0)
   451              activeHelpKey: packageChooser
   474              activeHelpKey: packageChooser
       
   475              uuid: 'f1a8cd3e-be47-11e8-b6ed-b8f6b1108e05'
   452              translateLabel: true
   476              translateLabel: true
   453              model: openPackageChooser
   477              model: openPackageChooser
   454            )
   478            )
   455           (LabelSpec
   479           (LabelSpec
   456              label: 'Namespace:'
   480              label: 'Namespace:'
   457              name: 'Label4'
   481              name: 'Label4'
   458              layout: (LayoutFrame 10 0 272 0 180 0 294 0)
   482              layout: (LayoutFrame 10 0 272 0 180 0 298 0)
   459              activeHelpKey: namespace
   483              activeHelpKey: namespace
       
   484              uuid: 'f1a8ce60-be47-11e8-b6ed-b8f6b1108e05'
   460              visibilityChannel: isCreatingClassHolder
   485              visibilityChannel: isCreatingClassHolder
   461              translateLabel: true
   486              translateLabel: true
   462              adjust: right
   487              adjust: right
   463            )
   488            )
   464           (ComboListSpec
   489           (ComboListSpec
   465              name: 'ComboList2'
   490              name: 'ComboList2'
   466              layout: (LayoutFrame 190 0 272 0 -32 1 294 0)
   491              layout: (LayoutFrame 190 0 272 0 -32 1 298 0)
   467              activeHelpKey: namespace
   492              activeHelpKey: namespace
       
   493              uuid: 'f1a8cffa-be47-11e8-b6ed-b8f6b1108e05'
   468              visibilityChannel: isCreatingClassHolder
   494              visibilityChannel: isCreatingClassHolder
   469              model: nameSpaceHolder
   495              model: nameSpaceHolder
   470              comboList: listOfNamespaces
   496              comboList: listOfNamespaces
   471            )
   497            )
   472           (ActionButtonSpec
   498           (ActionButtonSpec
   473              label: '...'
   499              label: '...'
   474              name: 'Button5'
   500              name: 'Button5'
   475              layout: (LayoutFrame -22 1 272 0 -2 1 294 0)
   501              layout: (LayoutFrame -22 1 272 0 -2 1 298 0)
   476              activeHelpKey: namespaceChooser
   502              activeHelpKey: namespaceChooser
       
   503              uuid: 'f1a8d0ea-be47-11e8-b6ed-b8f6b1108e05'
   477              visibilityChannel: isCreatingClassHolder
   504              visibilityChannel: isCreatingClassHolder
   478              translateLabel: true
   505              translateLabel: true
   479              model: openNamespaceChooser
   506              model: openNamespaceChooser
   480            )
   507            )
   481           (LabelSpec
   508           (LabelSpec
   482              label: 'Category:'
   509              label: 'Category:'
   483              name: 'Label12'
   510              name: 'Label12'
   484              layout: (LayoutFrame 10 0 302 0 180 0 324 0)
   511              layout: (LayoutFrame 10 0 302 0 180 0 328 0)
   485              activeHelpKey: category
   512              activeHelpKey: category
       
   513              uuid: 'f1a8d266-be47-11e8-b6ed-b8f6b1108e05'
   486              visibilityChannel: isCreatingClassHolder
   514              visibilityChannel: isCreatingClassHolder
   487              translateLabel: true
   515              translateLabel: true
   488              adjust: right
   516              adjust: right
   489            )
   517            )
   490           (ComboBoxSpec
   518           (ComboBoxSpec
   491              name: 'ComboBox3'
   519              name: 'ComboBox3'
   492              layout: (LayoutFrame 190 0 302 0 -32 1 324 0)
   520              layout: (LayoutFrame 190 0 302 0 -32 1 328 0)
   493              activeHelpKey: category
   521              activeHelpKey: category
       
   522              uuid: 'f1a8d34c-be47-11e8-b6ed-b8f6b1108e05'
   494              visibilityChannel: isCreatingClassHolder
   523              visibilityChannel: isCreatingClassHolder
   495              model: categoryHolder
   524              model: categoryHolder
   496              acceptOnLostFocus: true
   525              acceptOnLostFocus: true
   497              comboList: listOfCategories
   526              comboList: listOfCategories
   498            )
   527            )
   499           (ActionButtonSpec
   528           (ActionButtonSpec
   500              label: '...'
   529              label: '...'
   501              name: 'Button6'
   530              name: 'Button6'
   502              layout: (LayoutFrame -22 1 302 0 -2 1 324 0)
   531              layout: (LayoutFrame -22 1 302 0 -2 1 328 0)
   503              activeHelpKey: categoryChooser
   532              activeHelpKey: categoryChooser
       
   533              uuid: 'f1a8d4c8-be47-11e8-b6ed-b8f6b1108e05'
   504              visibilityChannel: isCreatingClassHolder
   534              visibilityChannel: isCreatingClassHolder
   505              translateLabel: true
   535              translateLabel: true
   506              model: openCategoryChooser
   536              model: openCategoryChooser
   507            )
   537            )
   508           (LabelSpec
   538           (LabelSpec
   509              label: 'Instance Variables:'
   539              label: 'Instance Variables:'
   510              name: 'Label5'
   540              name: 'Label5'
   511              layout: (LayoutFrame 10 0 342 0 180 0 364 0)
   541              layout: (LayoutFrame 10 0 342 0 180 0 368 0)
   512              activeHelpKey: instanceVariableNames
   542              activeHelpKey: instanceVariableNames
       
   543              uuid: 'f1a8d5e0-be47-11e8-b6ed-b8f6b1108e05'
   513              visibilityChannel: isCreatingClassHolder
   544              visibilityChannel: isCreatingClassHolder
   514              translateLabel: true
   545              translateLabel: true
   515              adjust: right
   546              adjust: right
   516            )
   547            )
   517           (InputFieldSpec
   548           (InputFieldSpec
   518              name: 'EntryField4'
   549              name: 'EntryField4'
   519              layout: (LayoutFrame 190 0 342 0 -32 1 364 0)
   550              layout: (LayoutFrame 190 0 342 0 -32 1 368 0)
   520              activeHelpKey: instanceVariableNames
   551              activeHelpKey: instanceVariableNames
       
   552              uuid: 'f1a8d6bc-be47-11e8-b6ed-b8f6b1108e05'
   521              visibilityChannel: isCreatingClassHolder
   553              visibilityChannel: isCreatingClassHolder
   522              model: instVarNamesHolder
   554              model: instVarNamesHolder
   523              acceptOnReturn: true
   555              acceptOnReturn: true
   524              acceptOnTab: true
   556              acceptOnTab: true
   525              acceptOnLostFocus: true
   557              acceptOnLostFocus: true
   526              acceptOnPointerLeave: true
   558              acceptOnPointerLeave: true
   527            )
   559            )
   528           (LabelSpec
   560           (LabelSpec
       
   561              label: 'Indexed:'
       
   562              name: 'Label17'
       
   563              layout: (LayoutFrame 10 0 372 0 180 0 398 0)
       
   564              activeHelpKey: indexType
       
   565              uuid: 'f1a8d89c-be47-11e8-b6ed-b8f6b1108e05'
       
   566              visibilityChannel: isCreatingClassHolder
       
   567              translateLabel: true
       
   568              adjust: right
       
   569            )
       
   570           (ComboListSpec
       
   571              name: 'ComboList4'
       
   572              layout: (LayoutFrame 190 0 372 0 -32 1 398 0)
       
   573              activeHelpKey: indexType
       
   574              uuid: 'f1a8da04-be47-11e8-b6ed-b8f6b1108e05'
       
   575              visibilityChannel: isCreatingClassHolder
       
   576              model: indexTypeHolder
       
   577              comboList: indexTypeNameList
       
   578              useIndex: true
       
   579            )
       
   580           (LabelSpec
   529              label: 'Class Variables:'
   581              label: 'Class Variables:'
   530              name: 'Label6'
   582              name: 'Label6'
   531              layout: (LayoutFrame 10 0 372 0 180 0 394 0)
   583              layout: (LayoutFrame 10 0 402 0 180 0 428 0)
   532              activeHelpKey: classVariableNames
   584              activeHelpKey: classVariableNames
       
   585              uuid: 'f1a8dcca-be47-11e8-b6ed-b8f6b1108e05'
   533              visibilityChannel: isCreatingClassHolder
   586              visibilityChannel: isCreatingClassHolder
   534              translateLabel: true
   587              translateLabel: true
   535              adjust: right
   588              adjust: right
   536            )
   589            )
   537           (InputFieldSpec
   590           (InputFieldSpec
   538              name: 'EntryField5'
   591              name: 'EntryField5'
   539              layout: (LayoutFrame 190 0 372 0 -32 1 394 0)
   592              layout: (LayoutFrame 190 0 402 0 -32 1 428 0)
   540              activeHelpKey: classVariableNames
   593              activeHelpKey: classVariableNames
       
   594              uuid: 'f1a8dea0-be47-11e8-b6ed-b8f6b1108e05'
   541              visibilityChannel: isCreatingClassHolder
   595              visibilityChannel: isCreatingClassHolder
   542              model: classVarNamesHolder
   596              model: classVarNamesHolder
   543              acceptOnReturn: true
   597              acceptOnReturn: true
   544              acceptOnTab: true
   598              acceptOnTab: true
   545              acceptOnLostFocus: true
   599              acceptOnLostFocus: true
   546              acceptOnPointerLeave: true
   600              acceptOnPointerLeave: true
   547            )
   601            )
   548           (LabelSpec
   602           (LabelSpec
   549              label: 'Class InstVars:'
   603              label: 'Class InstVars:'
   550              name: 'Label7'
   604              name: 'Label7'
   551              layout: (LayoutFrame 10 0 402 0 180 0 424 0)
   605              layout: (LayoutFrame 10 0 432 0 180 0 458 0)
   552              activeHelpKey: classInstVariableNames
   606              activeHelpKey: classInstVariableNames
       
   607              uuid: 'f1a8e260-be47-11e8-b6ed-b8f6b1108e05'
   553              visibilityChannel: isCreatingClassHolder
   608              visibilityChannel: isCreatingClassHolder
   554              translateLabel: true
   609              translateLabel: true
   555              adjust: right
   610              adjust: right
   556            )
   611            )
   557           (InputFieldSpec
   612           (InputFieldSpec
   558              name: 'EntryField6'
   613              name: 'EntryField6'
   559              layout: (LayoutFrame 190 0 402 0 -32 1 424 0)
   614              layout: (LayoutFrame 190 0 432 0 -32 1 458 0)
   560              activeHelpKey: classInstVariableNames
   615              activeHelpKey: classInstVariableNames
       
   616              uuid: 'f1a8e3e6-be47-11e8-b6ed-b8f6b1108e05'
   561              visibilityChannel: isCreatingClassHolder
   617              visibilityChannel: isCreatingClassHolder
   562              model: classInstVarNamesHolder
   618              model: classInstVarNamesHolder
   563              acceptOnReturn: true
   619              acceptOnReturn: true
   564              acceptOnTab: true
   620              acceptOnTab: true
   565              acceptOnLostFocus: true
   621              acceptOnLostFocus: true
   566              acceptOnPointerLeave: true
   622              acceptOnPointerLeave: true
   567            )
   623            )
   568           (LabelSpec
   624           (LabelSpec
   569              label: 'Create:'
   625              label: 'Create:'
   570              name: 'Label8'
   626              name: 'Label8'
   571              layout: (LayoutFrame 10 0 442 0 110 0 464 0)
   627              layout: (LayoutFrame 10 0 472 0 110 0 494 0)
       
   628              uuid: 'f1a8e56c-be47-11e8-b6ed-b8f6b1108e05'
   572              translateLabel: true
   629              translateLabel: true
   573              adjust: right
   630              adjust: right
       
   631            )
       
   632           (CheckBoxSpec
       
   633              label: 'Initial Template Code'
       
   634              name: 'CheckBox6'
       
   635              layout: (LayoutFrame 120 0 472 0 312 0 494 0)
       
   636              activeHelpKey: createInitialGUICode
       
   637              uuid: 'f1a8e79c-be47-11e8-b6ed-b8f6b1108e05'
       
   638              enableChannel: canDisableTemplateCreationHolder
       
   639              model: createInitialGUICodeHolder
       
   640              translateLabel: true
       
   641            )
       
   642           (CheckBoxSpec
       
   643              label: 'Initializer'
       
   644              name: 'CheckBox2'
       
   645              layout: (LayoutFrame 120 0 497 0 -280 1 519 0)
       
   646              activeHelpKey: createInitializer
       
   647              uuid: 'f1a8e88c-be47-11e8-b6ed-b8f6b1108e05'
       
   648              visibilityChannel: isCreatingClassHolder
       
   649              model: createInitializerHolder
       
   650              translateLabel: true
   574            )
   651            )
   575           (CheckBoxSpec
   652           (CheckBoxSpec
   576              label: 'Accessors'
   653              label: 'Accessors'
   577              name: 'CheckBox1'
   654              name: 'CheckBox1'
   578              layout: (LayoutFrame 120 0 442 0 280 0 464 0)
   655              layout: (LayoutFrame 310 0 497 0 0 1 519 0)
   579              activeHelpKey: createAccessors
   656              activeHelpKey: createAccessors
       
   657              uuid: 'f1a8e666-be47-11e8-b6ed-b8f6b1108e05'
   580              visibilityChannel: isCreatingClassHolder
   658              visibilityChannel: isCreatingClassHolder
   581              model: createAccessorsHolder
   659              model: createAccessorsHolder
   582              translateLabel: true
       
   583            )
       
   584           (CheckBoxSpec
       
   585              label: 'Initial Template Code'
       
   586              name: 'CheckBox6'
       
   587              layout: (LayoutFrame 310 0 442 0 -36 1 464 0)
       
   588              activeHelpKey: createInitialGUICode
       
   589              enableChannel: canDisableTemplateCreationHolder
       
   590              model: createInitialGUICodeHolder
       
   591              translateLabel: true
       
   592            )
       
   593           (CheckBoxSpec
       
   594              label: 'Initializer'
       
   595              name: 'CheckBox2'
       
   596              layout: (LayoutFrame 120 0 472 0 0 1 494 0)
       
   597              activeHelpKey: createInitializer
       
   598              visibilityChannel: isCreatingClassHolder
       
   599              model: createInitializerHolder
       
   600              translateLabel: true
   660              translateLabel: true
   601            )
   661            )
   602           (CheckBoxSpec
   662           (CheckBoxSpec
   603              label: 'Update Method'
   663              label: 'Update Method'
   604              name: 'CheckBox5'
   664              name: 'CheckBox5'
   605              layout: (LayoutFrame 120 0 502 0 0 1 524 0)
   665              layout: (LayoutFrame 120 0 522 0 -280 1 544 0)
   606              activeHelpKey: createUpdateMethod
   666              activeHelpKey: createUpdateMethod
       
   667              uuid: 'f1a8e968-be47-11e8-b6ed-b8f6b1108e05'
   607              visibilityChannel: isCreatingClassHolder
   668              visibilityChannel: isCreatingClassHolder
   608              model: createUpdateMethodHolder
   669              model: createUpdateMethodHolder
       
   670              translateLabel: true
       
   671            )
       
   672           (CheckBoxSpec
       
   673              label: 'Print Method'
       
   674              name: 'CheckBox4'
       
   675              layout: (LayoutFrame 310 0 522 0 0 1 544 0)
       
   676              activeHelpKey: createPrintMethod
       
   677              uuid: 'f1a8eb20-be47-11e8-b6ed-b8f6b1108e05'
       
   678              visibilityChannel: false
       
   679              model: createPrintMethodHolder
       
   680              translateLabel: true
       
   681            )
       
   682           (CheckBoxSpec
       
   683              label: 'Class Initializer'
       
   684              name: 'CheckBox7'
       
   685              layout: (LayoutFrame 120 0 547 0 0 1 569 0)
       
   686              activeHelpKey: createRequiredMethods
       
   687              uuid: 'f1a8ea44-be47-11e8-b6ed-b8f6b1108e05'
       
   688              visibilityChannel: isCreatingClassHolder
       
   689              model: createClassInitializerMethodHolder
   609              translateLabel: true
   690              translateLabel: true
   610            )
   691            )
   611           (CheckBoxSpec
   692           (CheckBoxSpec
   612              label: 'Required Methods (Subclass responsibilities)'
   693              label: 'Required Methods (Subclass responsibilities)'
   613              name: 'CheckBox3'
   694              name: 'CheckBox3'
   614              layout: (LayoutFrame 120 0 532 0 0 1 554 0)
   695              layout: (LayoutFrame 120 0 572 0 0 1 594 0)
   615              activeHelpKey: createRequiredMethods
   696              activeHelpKey: createRequiredMethods
       
   697              uuid: 'f1a8ea44-be47-11e8-b6ed-b8f6b1108e05'
   616              visibilityChannel: isCreatingClassHolder
   698              visibilityChannel: isCreatingClassHolder
   617              model: createRequiredMethodsHolder
   699              model: createRequiredMethodsHolder
   618              translateLabel: true
       
   619            )
       
   620           (CheckBoxSpec
       
   621              label: 'Print Method'
       
   622              name: 'CheckBox4'
       
   623              layout: (LayoutFrame 120 0 562 0 0 1 584 0)
       
   624              activeHelpKey: createPrintMethod
       
   625              visibilityChannel: false
       
   626              model: createPrintMethodHolder
       
   627              translateLabel: true
   700              translateLabel: true
   628            )
   701            )
   629           (HorizontalPanelViewSpec
   702           (HorizontalPanelViewSpec
   630              name: 'HorizontalPanel1'
   703              name: 'HorizontalPanel1'
   631              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
   704              layout: (LayoutFrame 0 0 -36 1 0 1 0 1)
       
   705              uuid: 'f1a8ebfc-be47-11e8-b6ed-b8f6b1108e05'
   632              horizontalLayout: center
   706              horizontalLayout: center
   633              verticalLayout: center
   707              verticalLayout: center
   634              horizontalSpace: 3
   708              horizontalSpace: 3
   635              verticalSpace: 3
   709              verticalSpace: 3
   636              reverseOrderIfOKAtLeft: true
   710              reverseOrderIfOKAtLeft: true
   638             (SpecCollection
   712             (SpecCollection
   639                collection: (
   713                collection: (
   640                 (ActionButtonSpec
   714                 (ActionButtonSpec
   641                    label: 'Cancel'
   715                    label: 'Cancel'
   642                    name: 'Button3'
   716                    name: 'Button3'
       
   717                    uuid: 'f1a8edd2-be47-11e8-b6ed-b8f6b1108e05'
   643                    translateLabel: true
   718                    translateLabel: true
   644                    model: doCancel
   719                    model: doCancel
   645                    extent: (Point 125 22)
   720                    extent: (Point 125 26)
   646                  )
   721                  )
   647                 (ActionButtonSpec
   722                 (ActionButtonSpec
   648                    label: 'OK'
   723                    label: 'OK'
   649                    name: 'Button2'
   724                    name: 'Button2'
       
   725                    uuid: 'f1a8ef08-be47-11e8-b6ed-b8f6b1108e05'
   650                    translateLabel: true
   726                    translateLabel: true
   651                    model: doAccept
   727                    model: doAccept
   652                    extent: (Point 125 22)
   728                    extent: (Point 125 26)
   653                  )
   729                  )
   654                 )
   730                 )
   655               
   731               
   656              )
   732              )
   657            )
   733            )
   658           )
   734           )
   659         
   735         
   660        )
   736        )
   661      )
   737      )
   662 ! !
       
   663 
       
   664 !NewClassWizardDialog class methodsFor:'menu specs'!
       
   665 
       
   666 mainMenu
       
   667     "This resource specification was automatically generated by the CodeGeneratorTool."
       
   668 
       
   669     "Do not manually edit this!! If it is corrupted,
       
   670      the MenuEditor may not be able to read the specification."
       
   671 
       
   672     "
       
   673      MenuEditor new openOnClass:Tools::NewClassDialog andSelector:#mainMenu
       
   674     "
       
   675 
       
   676     <resource: #menu>
       
   677 
       
   678     ^ #(#Menu
       
   679            #(
       
   680              #(#MenuItem
       
   681                 #label: 'File'
       
   682                 #translateLabel: true
       
   683                 #submenu:
       
   684                  #(#Menu
       
   685                      #(
       
   686                        #(#MenuItem
       
   687                           #label: 'New'
       
   688                           #translateLabel: true
       
   689                           #value: #menuNew
       
   690                       )
       
   691                        #(#MenuItem
       
   692                           #label: '-'
       
   693                       )
       
   694                        #(#MenuItem
       
   695                           #label: 'Open...'
       
   696                           #translateLabel: true
       
   697                           #value: #menuOpen
       
   698                       )
       
   699                        #(#MenuItem
       
   700                           #label: '-'
       
   701                       )
       
   702                        #(#MenuItem
       
   703                           #label: 'Save'
       
   704                           #translateLabel: true
       
   705                           #value: #menuSave
       
   706                       )
       
   707                        #(#MenuItem
       
   708                           #label: 'Save As...'
       
   709                           #translateLabel: true
       
   710                           #value: #menuSaveAs
       
   711                       )
       
   712                        #(#MenuItem
       
   713                           #label: '-'
       
   714                       )
       
   715                        #(#MenuItem
       
   716                           #label: 'Exit'
       
   717                           #translateLabel: true
       
   718                           #value: #closeRequest
       
   719                       )
       
   720                     ) nil
       
   721                     nil
       
   722                 )
       
   723             )
       
   724              #(#MenuItem
       
   725             label: 'MENU_Help'
       
   726             startGroup: conditionalRight
       
   727                 #translateLabel: true
       
   728                 #submenu:
       
   729                  #(#Menu
       
   730                      #(
       
   731                        #(#MenuItem
       
   732                           #label: 'Documentation'
       
   733                           #translateLabel: true
       
   734                           #value: #openDocumentation
       
   735                       )
       
   736                        #(#MenuItem
       
   737                           #label: '-'
       
   738                       )
       
   739                        #(#MenuItem
       
   740                           #label: 'About this Application...'
       
   741                           #translateLabel: true
       
   742                           #value: #openAboutThisApplication
       
   743                       )
       
   744                     ) nil
       
   745                     nil
       
   746                 )
       
   747             )
       
   748           ) nil
       
   749           nil
       
   750       )
       
   751 !
       
   752 
       
   753 toolbarMenu
       
   754     "This resource specification was automatically generated by the CodeGeneratorTool."
       
   755 
       
   756     "Do not manually edit this!! If it is corrupted,
       
   757      the MenuEditor may not be able to read the specification."
       
   758 
       
   759     "
       
   760      MenuEditor new openOnClass:Tools::NewClassDialog andSelector:#toolbarMenu
       
   761     "
       
   762 
       
   763     <resource: #menu>
       
   764 
       
   765     ^ #(Menu ((MenuItem label: 'Reload' itemValue: menuReload translateLabel: true labelImage: (ResourceRetriever ToolbarIconLibrary reload24x24Icon))) nil nil)
       
   766 ! !
   738 ! !
   767 
   739 
   768 !NewClassWizardDialog methodsFor:'accessing'!
   740 !NewClassWizardDialog methodsFor:'accessing'!
   769 
   741 
   770 compilerProviderBlock:aBlock
   742 compilerProviderBlock:aBlock
   873 "/
   845 "/
   874 "/    classInstVarNamesHolder value notEmptyOrNil ifTrue:[
   846 "/    classInstVarNamesHolder value notEmptyOrNil ifTrue:[
   875 "/        createdClass class instanceVariableNames: classInstVarNamesHolder value
   847 "/        createdClass class instanceVariableNames: classInstVarNamesHolder value
   876 "/    ].
   848 "/    ].
   877 
   849 
       
   850     LastSuperclass := superclassName.
   878     LastCategory := categoryHolder value.
   851     LastCategory := categoryHolder value.
   879     LastPackage := packageHolder value.
   852     LastPackage := packageHolder value.
   880     LastLanguage := self listOfLanguages at:(languageHolder value).
   853     LastLanguage := self listOfLanguages at:(languageHolder value).
   881 
   854 
   882     ^ true
   855     ^ true
   883 
   856 
   884     "Modified: / 22-06-2017 / 06:55:24 / cg"
   857     "Modified: / 22-06-2017 / 06:55:24 / cg"
       
   858     "Modified: / 22-09-2018 / 15:50:30 / Claus Gittinger"
   885 !
   859 !
   886 
   860 
   887 doAcceptForNewPackage
   861 doAcceptForNewPackage
   888     |package projectType|
   862     |package projectType|
   889 
   863 
  1178         createAccessorsHolder := true asValue.
  1152         createAccessorsHolder := true asValue.
  1179     ].
  1153     ].
  1180     ^ createAccessorsHolder.
  1154     ^ createAccessorsHolder.
  1181 !
  1155 !
  1182 
  1156 
       
  1157 createClassInitializerMethod
       
  1158     ^ self createClassInitializerMethodHolder value
       
  1159 
       
  1160     "Created: / 22-09-2018 / 15:59:19 / Claus Gittinger"
       
  1161 !
       
  1162 
       
  1163 createClassInitializerMethodHolder
       
  1164     <resource: #uiAspect>
       
  1165 
       
  1166     createClassInitializerMethodHolder isNil ifTrue:[
       
  1167         createClassInitializerMethodHolder := true asValue.
       
  1168     ].
       
  1169     ^ createClassInitializerMethodHolder.
       
  1170 
       
  1171     "Created: / 22-09-2018 / 15:58:58 / Claus Gittinger"
       
  1172 !
       
  1173 
  1183 createInitialGUICode
  1174 createInitialGUICode
  1184     ^ self createInitialGUICodeHolder value
  1175     ^ self createInitialGUICodeHolder value
  1185 !
  1176 !
  1186 
  1177 
  1187 createInitialGUICodeHolder
  1178 createInitialGUICodeHolder
  1241 
  1232 
  1242     createUpdateMethodHolder isNil ifTrue:[
  1233     createUpdateMethodHolder isNil ifTrue:[
  1243         createUpdateMethodHolder := true asValue.
  1234         createUpdateMethodHolder := true asValue.
  1244     ].
  1235     ].
  1245     ^ createUpdateMethodHolder.
  1236     ^ createUpdateMethodHolder.
       
  1237 !
       
  1238 
       
  1239 indexType
       
  1240     ^ (self indexTypeList at:(self indexTypeHolder value)) at:2
       
  1241 
       
  1242     "Created: / 22-09-2018 / 13:04:40 / Claus Gittinger"
       
  1243 !
       
  1244 
       
  1245 indexTypeHolder
       
  1246     <resource: #uiAspect>
       
  1247 
       
  1248     indexTypeHolder isNil ifTrue:[
       
  1249         indexTypeHolder := 1 asValue.
       
  1250         "/ indexTypeHolder onChangeSend:#indexTypeChanged to:self.
       
  1251     ].
       
  1252     ^ indexTypeHolder.
       
  1253 
       
  1254     "Created: / 22-09-2018 / 10:46:29 / Claus Gittinger"
       
  1255 !
       
  1256 
       
  1257 indexTypeList
       
  1258     <resource: #uiAspect>
       
  1259 
       
  1260     ^ #(
       
  1261         "/                           variable        words  pointers 
       
  1262         ('Not Indexed'               false           false  false) 
       
  1263         ('Pointers'                  #pointer        false  true)
       
  1264         ('Bytes'                     #byte           false  false)
       
  1265         ('16bit Unsigned Integers'   #word           true   false)
       
  1266         ('16bit Signed Integers'     #signedWord     false  false)
       
  1267         ('32bit Unsigned Integers'   #long           false  false)
       
  1268         ('32bit Signed Integers'     #signedLong     false  false)
       
  1269         ('64bit Unsigned Integers'   #longLong       false  false)
       
  1270         ('64bit Signed Integers'     #signedLongLong false  false)
       
  1271         ('Floats'                    #float          false  false)
       
  1272         ('Doubles'                   #double         false  false)
       
  1273     )
       
  1274 
       
  1275     "Created: / 22-09-2018 / 11:03:31 / Claus Gittinger"
       
  1276     "Modified: / 22-09-2018 / 15:36:55 / Claus Gittinger"
       
  1277 !
       
  1278 
       
  1279 indexTypeNameList
       
  1280     <resource: #uiAspect>
       
  1281 
       
  1282     ^ self indexTypeList collectColumn:1
       
  1283 
       
  1284     "Created: / 22-09-2018 / 11:16:31 / Claus Gittinger"
       
  1285     "Modified: / 22-09-2018 / 12:54:03 / Claus Gittinger"
  1246 !
  1286 !
  1247 
  1287 
  1248 instVarNamesHolder
  1288 instVarNamesHolder
  1249     <resource: #uiAspect>
  1289     <resource: #uiAspect>
  1250 
  1290 
  1458 
  1498 
  1459 superclassNameHolder
  1499 superclassNameHolder
  1460     <resource: #uiAspect>
  1500     <resource: #uiAspect>
  1461 
  1501 
  1462     superclassNameHolder isNil ifTrue:[
  1502     superclassNameHolder isNil ifTrue:[
  1463         superclassNameHolder := (LastSuperclass ? ''"'Object'") asValue.
  1503         superclassNameHolder := (LastSuperclass ? 'Object') asValue.
  1464     ].
  1504     ].
  1465     ^ superclassNameHolder.
  1505     ^ superclassNameHolder.
  1466 
  1506 
  1467     "Modified: / 27-01-2012 / 14:49:43 / cg"
  1507     "Modified: / 27-01-2012 / 14:49:43 / cg"
       
  1508     "Modified: / 22-09-2018 / 15:49:52 / Claus Gittinger"
  1468 ! !
  1509 ! !
  1469 
  1510 
  1470 !NewClassWizardDialog class methodsFor:'documentation'!
  1511 !NewClassWizardDialog class methodsFor:'documentation'!
  1471 
  1512 
  1472 version_CVS
  1513 version_CVS