Tools__NewClassWizardDialog.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Mon, 30 Jan 2012 17:49:41 +0000
branchjv
changeset 12128 a7ff7d66ee85
parent 12125 0c49a3b13e43
child 12431 9f0c59c742d5
permissions -rw-r--r--
Improvements in LintHighlighter, few fixes
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 2009 by eXept Software AG
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
     3
              All Rights Reserved
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libtool' }"
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ NameSpace: Tools }"
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
SimpleDialog subclass:#NewClassWizardDialog
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
    17
	instanceVariableNames:'compilerProviderBlock createdClass languageHolder indexType
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
    18
		packageHolder classNameHolder instVarNamesHolder openClassChooser
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
    19
		superclassNameHolder createRequiredMethodsHolder
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
    20
		createPrintMethodHolder createAccessorsHolder
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
    21
		createUpdateMethodHolder createInitializerHolder
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
    22
		createInitialGUICodeHolder classInstVarNamesHolder
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
    23
		classVarNamesHolder nameSpaceHolder categoryHolder
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
    24
		stereotypeHolder'
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
    25
	classVariableNames:'LastLanguage LastSuperclass LastPackage LastNamespace
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
    26
		LastCategory'
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
    27
	poolDictionaries:''
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
    28
	category:'Interface-Browsers-New'
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
!NewClassWizardDialog class methodsFor:'documentation'!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
copyright
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
"
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
 COPYRIGHT (c) 2009 by eXept Software AG
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
    36
              All Rights Reserved
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
 This software is furnished under a license and may be used
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
 only in accordance with the terms of that license and with the
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
 inclusion of the above copyright notice.   This software may not
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
 be provided or otherwise made available to, or used by, any
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
 other person.  No title to or ownership of the software is
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
 hereby transferred.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
"
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
documentation
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
"
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
    documentation to be added.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
    [author:]
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
    52
        cg (cg@CG-PC)
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    [instance variables:]
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
    [class variables:]
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
    [see also:]
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
"
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
examples
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
"
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
  Starting the application:
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
    66
                                                                [exBegin]
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
    Tools::NewClassDialog open
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
    69
                                                                [exEnd]
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
  more examples to be added:
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
    72
                                                                [exBegin]
9205
07015f8db981 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9195
diff changeset
    73
    ... add code fragment for
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
    ... executable example here ...
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
    75
                                                                [exEnd]
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
"
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
! !
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
!NewClassWizardDialog class methodsFor:'help specs'!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
flyByHelpSpec
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
    "This resource specification was automatically generated
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
     by the UIHelpTool of ST/X."
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
    "Do not manually edit this!! If it is corrupted,
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
     the UIHelpTool may not be able to read the specification."
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
    "
9205
07015f8db981 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9195
diff changeset
    89
     UIHelpTool openOnClass:Tools::NewClassDialog
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
    "
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
    <resource: #help>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
    ^ super flyByHelpSpec addPairsFrom:#(
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
#chooseSuperclass
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    97
'Open a dialog for superclass selection'
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
#classInstVariableNames
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   100
'Special: instance variables of the CLASS object (separated by blanks)'
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   102
#stereotype
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   103
'Some often used class creation templates'
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   104
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
#className
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
'The name of the new class (without namespace prefix)'
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
#classVariableNames
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   109
'Special: class variables (separated by blanks)'
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
#createAccessors
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
'Create getters and setters for all instance variables'
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
#createInitializer
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
'Create an initial initialize method template'
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
#createPrintMethod
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
'Create an initial print method template'
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
#createRequiredMethods
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
'Create all methods which have been declared as required by a superclass (subclass responsibility)'
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
#createUpdateMethod
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
'Create an initial update method template'
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   126
#createInitialGUICode
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   127
'Create initial template code (mostly useful for applications)'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   128
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
#instanceVariableNames
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   130
'Instance variables (separated by spaces)'
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
#namespace
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   133
'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)'
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
#namespaceChooser
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   136
'Open a dialog for namespace selection'
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
#package
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   139
'Package into which this class should be placed.\Packages are units for deployment\(separately compiled & deployable libraries and applications)'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   140
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   141
#project
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   142
'Project-ID (aka package) into which this class should be placed'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   143
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   144
#category
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   145
'Category into which the new class should be organized (in the browser)'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   146
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   147
#categoryChooser
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   148
'Open a dialog for category selection'
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
#packageChooser
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   151
'Open a dialog for package selection'
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
#programmingLanguage
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
'Programming Language to use for code in this class'
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
#superclass
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   157
'Superclass of the new class'
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   158
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
)
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   160
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   161
    "Modified: / 27-01-2012 / 14:41:44 / cg"
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
! !
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
!NewClassWizardDialog class methodsFor:'image specs'!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
wizardIcon
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
    "This resource specification was automatically generated
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
     by the ImageEditor of ST/X."
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
    "Do not manually edit this!! If it is corrupted,
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
     the ImageEditor may not be able to read the specification."
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
    "
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
     self wizardIcon inspect
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
     ImageEditor openOnClass:self andSelector:#wizardIcon
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
     Icon flushCachedIcons
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
    "
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
    <resource: #image>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
    ^Icon
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   182
        constantNamed:'Tools::NewClassDialog class wizardIcon'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   183
        ifAbsentPut:[(Depth8Image new) width: 80; height: 80; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_IX@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M8@@@@@@@@@@@@@@@BVU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NC^3 @@@@@@@@@@@@@@@IYT% @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L/K2 @@@@@@@@@@@@@@%%ITZ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
@@@@@@@@@@C,;N/^7,?+:N0@;N0@@@@@@@B-T%QT% @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M3(:>_''
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
9.[&9.[''9>_Z7P@@@@@@@J5BT%Q(2P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C^4=O(9.[&9^W%9.[''4=+Z
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
9.0@@@@@2DIRZF!!>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CS4>[%9]7\7M7]7];S4=L@@@@@@@CHSIOH
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
UF!!T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;N_&9]7\7M3[7]7^7]7(7P@@@@@@@@ALT%ITZG2V@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C(9.[]7M/]7]/(;^3]7.#,@@@@@@@@@D1@P%ITZEQR@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N#&9^W\7MO&6._,7-7^:N0@@@@@@@@@YTABT%QT_$H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C,9>#-9-/\3M;Z6=/\7];(@@@@@@@@@@A%PDARUEQ>%$H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
@@@@@@@@@@@@@@@@@N#&9^#[6=/M4=+[6=7]9>$@@@@@@@@@@FU@PDIRUL"VZIX@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   201
@@C,:N[]7M3[6=OL7M3\7];N3>$@@@@@@@@@]4A@PEIT2\"-P%H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N3''9-7\6=/[
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   202
6,3]7M3]9-[_@@@@@@@@@@A7PDA@T%JV_*5TI@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4=;%7M3[6=/[4>[\7];''@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   203
@@@@@@@@@G\:PDABT%Q(ZL!!<T @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:MOS4=3\6>_Z6-. S6C&:N$@@@@@@@@@@@@@]3)L
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   204
N$ART%QT2N5@+P@@@@@@@@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:MOS9]3];^#''6-,#N=;(@@@@@@@@@@@@@@BMN$1%PDIRUF"V;V!!R
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
@@@@@@@@@@@@@@@@@@@@@@C 50@@@@@@@@@@@@@@@@@@@@@@@@@@@@C(9=;]6=/-;]3[60YN#0@@@@@@@@@@@@@@@H42_C)@PEIR%$NV;RQB@L#H@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   206
@@@@@@@@@K2<@@@@8N$@@@@@@@@@@@@@@@@@@@@@@N3''9-7[6.[]7]/\GYQM@@@@@@@@@@@@@@@@#SI(N$A@P%JV;^7-$4ARZEI@PFT@@@@@@@@@@@@@-[VH
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   207
-]__70@@@@@@@@@@@@@@@@@@@@@@;N_&7M/[6=+[7M6N$T8@@@@@@@@@@@@@@@BMKT!!%PDABT&"/2J?-%"QR_EI@N''0@@@@@@@@@@NF5''[WP5=__@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
@@@@@@@@@@@@@@C,9>[\6=/[6-/\7\IO$P@@@@@@@@@@@@@@@H4-N#(:PDABUIY>%.7HP%I<P$@:$0@@@@@@@@@@1I*]-]CW6N$@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   209
@N3&9-3[6=+[7M7^:@ZU+@@@@@@@@@@@@@A%L!! 2RC(:PDAR%*=(;Z=<%%I@PIL@@@@@@@@@@@B^!!I&66ND@@@@@@@@@@@@@@@@@@@@@@@@@;N[T3-/[6-3\
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
7-;,A$=N@@@@@@@@@@B-C0 WFCI_N#)@PDI<+YZV%%IBPDBS@@@@@@@@@@@@ZE.@ 0@@@@@@@@@@@@@@@@@@@@@@@@@@@@C,9,;J3-+[7M7^:@AOB#2,@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
@@@@HQ@OC102L$ :N$AL_IZSZDI@PDA$@@@@@@@@@@@@@M1;RZL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N3&5\+$6=/\7^_(@IPEXW$@@@@@@@@PDA@\HS(:
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
N$1LYW1<YUI@PDA@PL\@@@@@@@@@@@CH9*0=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;N[&7]3[7M7^:N0@@GKPO@@@@@@@@A@PDA@PGBD9NS$9N$A@PBQA
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
P0DL1:,@@@@@@@@@+9[-2F @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C,9>[]7M3]3,;,@@CP5;7V50@@@@@@+S$PDA@PDA@SH"H!!HQTV/]]:%+7H*:0@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
@ERV;^/GZ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N3''9-7]7]7J2 @@/-CW/[65@@@@@@@@@@CH2C4^FSMX 7M>ZV''P5=[P-,"T%@@@@EQ>;^7H7J)>@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N_&7]7]7-W''@@B>-]^54HP@@@@@@@@@@@@@S$5F[(NZ4G6.0;WP-\R,+IRT@@A>%.7-2ES[*YX@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
@@@@@@@@@@@@@@@@:N_^7]7^9> @@N*Z-XV2M@@@@@@@@@@@@@A9$XVC!!I&2-[V=:*OE:^7G%IUTUJ>/_"YBP-*O% @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
@@C(9=O^7-;(;@@@@I6D[0(<@@@@@@@@@@@@@G%9%HR@!!I&Y2^6#-[WH+L"QUIZVP$IBP$IP6''*/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N#''7];^9> @
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
@@@@@K:DAYE(@@@@@@@@@@@@$VJQ%IVH!!JS-1:?-;^7H17-BP$IBP$IBP''OSPP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:N#''7-;'':P@@@@@@@HLY%S9T
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   219
@@@@@@@@@@CHX''&Q%J2++N6T1^7-;\#G^4IBP$IBP%J-#*E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C):N_^9>#,@@@@@@@@@E%&MTK%*G8@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
XW&Q$YR,2IR,2N7H+J1#N$A@PDA@PDCS\4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N3(9>_'':@@@@@@@@@BJI1D^I^7-;YY(P4IBP6 ?XW!!9^YSG%IFT
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
+IRT%D,:PDA@PDA@N-I@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N''(9>_(@@@@@@@@@D\''A#0T;^7-;^7H+:>V%%HNM&E9%J2,^YFT$YFTPC)@PDA@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
PC(:4#)_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;N#(:N @@@@@@@@@I2\B$QG-7Y[H%%QBP$IBT"D[A0NQ%IQ9XWQ!!$Y@:N#(:N#(:N(&4N*4@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:N#(:P@@@@@@@@@*J@6TON#ST%I@PDA@PDA@PD@ C!!*Q$YE!!S''&Q^#(:N#)%N#*L5U:S@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
@@@@@@@@@@@@@@@@@@C):N#)@@@@@@@@+B(*J#6T7K%@PDA@PDA@PC(:PDA@BW&Q$YE9$YA@N#(:N#)L#[?UL @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
@@@@@N''(:N0@@@@@@@BKJ"(*B9KS(C(:SC(:N#(:N#(:PD@RG9BP$IBP$C(:N#(:RH6''1*YL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;N'');@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
@@@@@HEEQTT/N-JHN$1<N#(:N#(:N#(:PC$NAIFP$IA#N#)_@@@@+]Y0N @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:^$@@@@@@@C*[UUUQS@:
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
4%0:N$!!HSE=7NSD:N''0:PBDOA9BP]S(:S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;@@@@@@@@LU+UUUUL%3NW'']_$0@@@@A%
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   228
LS(2N#(:N#([F6L:L''O\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C,@@@@@@@@/6-+Z6(:"+6MW< @@@@@@J42N#(:N#(:N#$[
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   229
NC)56-L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B%_61+Z4">#G\@@@@@@@@@7=>B!!GA\WGFI)N3+9.W@+P@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@I=?_7=-!!-H@@@@@@@@@@@CG09"3.K''Z6-/&1:1SP$MT@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-7=?_3G^@@@@@@@@@@@@+TBVPDA@PDIBUEQBP$JV+2Z-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   232
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B7_7=?L @@@@@@@@@@@@A%SG1@PDA@%,#H+4IBP&#HI)X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   233
@@@@@@@@@@@@@@@@@K>W%9\@@@@@@@@@@@@@@DA<PDA@PDJV2L"-P$H&P*=B_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   234
@@@@:+F0) @@@@@@@@@@@@BVYW1@PDA@P)[H2IYBP&"/%$I(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8^(@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   235
@@@@@@@@2DA<YYY@PDIB%*>/UC=BUF!!>P%P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BSPFUR
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   236
%$A@P$JV+Z=TO$IBP''9BT @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C)%PDA@PDABP)ZV%$H.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   237
O4IBZDIB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B-SFU@PDA@PDIB+YZVP",?P$IRP$H@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   238
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G]%T$A@PDA@%*7H%)YBJ#=BP%IBP@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   239
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N$1@PDA@PDAR+Z6V_DH''O4A@P$A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   240
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E=LN$A@PDA@P%I<_''9TP"\8PDA@PD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   241
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:N$A@PDA@PDA@ZG1<ZDH>JR9@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   242
@@@@@@@@@@@@@@@@@C)LN$A@PDA@PDI(ZF!!TP#\)K$A@PDA@2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   243
@@@:N#(:PDA@PIY@P&!!(ZDIBU4T*PD@:N#*S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B-N#(:N#)@PDA@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   244
PDIRUEQTP"Y,UTQ@N#(:N#*V@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%#(:N#(:N$A@PDA@P$IRUDIBPW=V
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   245
UU(:N$1@N#(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IL:N#(:N#(:PDA@PDABP$IBP"YJ_61U LD9N#(2L,P@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   246
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AHN#(:N#(:N$ABPDA@P$IBP$H&(''=?[F1EKH#Z6]KR3U:S2@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   247
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BI3[-0NSH:N#(:PDA@PDA@P$IBY.I?_8FJ"9FQ]#H2N#H:%, @@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   248
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CHW3(:$-OL3Y-]N#(:PDA@PEB(7NKATYJR$)JU%YVV+Z6-+Z7H2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   249
@@@@@@@@@@@@@@@@@@@@N#)_"97L4]J[!!8%3"X:!!6.K#^TJR$)JR%YVU%YZ-+Z6-+\ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   250
@@@@@@@@@IL:N#(:WX"\.[&:#(=PI"Y''^9JR$)JU%YVV+Z6-+Z6-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   251
+YMLN#)@PDA@P%I;$)JR$)JR%YVU%*6-+Z6-1 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N+H2J6-
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   252
+Z6-+Z6-+Z6-+Z7F2L#H2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C*2L#H2L#*
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   253
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   255
@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 90 210 36 30 50 36 30 130 36 30 140 36 60 80 36 60 100 60 30 140 60 30 180 60 60 180 60 90 100 60 90 130 60 150 220 84 30 80 84 60 180 84 60 210 84 60 220 84 90 130 84 90 210 84 90 220 84 120 210 84 120 220 84 150 220 96 30 220 96 30 255 96 60 50 96 60 140 96 60 210 96 60 220 96 90 100 96 90 130 96 90 140 96 90 210 96 90 220 96 90 255 96 120 140 96 120 255 96 150 220 96 150 255 120 0 80 120 0 100 120 30 80 120 30 100 120 30 130 120 30 140 120 30 255 120 60 140 120 60 180 120 60 210 120 60 220 120 60 255 120 90 50 120 90 80 120 90 100 120 90 140 120 90 180 120 90 210 120 90 220 120 90 255 120 120 100 120 120 130 120 120 140 120 120 210 120 120 220 120 120 255 120 150 220 120 150 255 120 180 255 144 30 80 144 30 100 144 60 50 144 90 130 144 90 255 144 120 140 144 120 180 144 120 220 144 120 255 144 150 130 144 150 140 144 150 180 144 150 210 144 150 220 144 150 255 144 180 220 144 180 255 156 30 100 156 60 100 156 60 130 156 90 50 156 90 130 156 90 180 156 120 140 156 120 180 156 120 210 156 120 220 156 120 255 156 150 100 156 150 140 156 150 180 156 150 210 156 150 220 156 150 255 156 180 210 156 180 220 156 180 255 156 210 255 180 30 80 180 30 100 180 60 100 180 60 130 180 90 50 180 120 100 180 120 140 180 120 180 180 150 130 180 150 140 180 150 180 180 150 210 180 150 220 180 150 255 180 180 140 180 180 180 180 180 210 180 180 220 180 180 255 180 210 220 180 210 255 204 60 100 204 90 50 204 90 140 204 120 50 204 120 80 204 120 100 204 120 130 204 120 140 204 150 100 204 150 130 204 150 140 204 150 180 204 150 210 204 150 220 204 150 255 204 180 130 204 180 140 204 180 180 204 180 210 204 180 220 204 180 255 204 210 210 204 210 220 204 210 255 216 60 100 216 120 0 216 120 100 216 120 130 216 150 50 216 150 100 216 150 130 216 150 140 216 150 180 216 180 50 216 180 100 216 180 130 216 180 140 216 180 180 216 180 210 216 180 220 216 180 255 216 210 130 216 210 140 216 210 180 216 210 210 216 210 220 216 210 255 216 240 220 216 240 255 240 60 100 240 90 130 240 120 130 240 150 0 240 150 80 240 150 130 240 150 140 240 150 180 240 180 30 240 180 50 240 180 80 240 180 100 240 180 130 240 180 140 240 180 180 240 180 210 240 210 80 240 210 100 240 210 140 240 210 180 240 210 210 240 210 220 240 210 255 240 240 220 240 240 255 240 255 255 252 90 30 252 120 30 252 150 0 252 150 30 252 150 50 252 150 80 252 150 130 252 180 0 252 180 30 252 180 50 252 180 80 252 180 100 252 180 130 252 180 140 252 180 180 252 210 30 252 210 50 252 210 80 252 210 100 252 210 130 252 210 140 252 210 180 252 210 210 252 210 220 252 240 50 252 240 80 252 240 100 252 240 130 252 240 140 252 240 180 252 240 210 252 240 220 252 240 255 252 255 210 252 255 220 252 255 255]; mask:((Depth1Image new) width: 80; height: 80; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0@@@@@@@@@@P@L@@@@@@@@@@\@C @@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   257
@@@C @<@@@@@@@@@O>0O @@@@@@@@_?<C<@@@@@@@@O??0?@@@@@@@@A??0O8@@@@@@@@??<A?@@@@@@@@O??@_8@@@@@@@C??0G>@@@@@@@A??8A?0@@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
@@_?>@_>@@@@@@@O??0G?0@@@@@@C??8A?<@@@@@@@??8@_? @@@@@@??>@G?<@@B@@@G??@A??@@A @@A?? @_?;@@X0@@_?8@G??>@G<@@G?>@A???0C?@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
@A?? @_??<@?0@@_?<@O??>@O0@@G??@O???@G @@A?=8G???@C0@@@_?^A???0A8@@@G?3 _??>@>@@@A?9<G???0_ @@@_<?@O??<_8@@@C?O0@???O>@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   260
@@?3<@O???? @@@O<_@C????8@@@C>C8@????<@@@@? _@O????@@@@O8C>@????0@@@C<A??????<@@@@_@_??????@@@@G0G??????0@@@@<A??????8@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
@@O@??????<@@@@C0O??????@@@@@<C?????G @@@@FA????? @@@@@@ _?!!??8@@@@@@HG?0_?>@@@@@@@A?0G?? @@@@@@@_0A??8@@@@@@@G8@???@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   262
@@@A<@O??0@@@@@@@^@C??<@@@@@@@G A???@@@@@@@@0@???0@@@@@@@@@O??<@@@@@@@@@C???@@@@@@@@@A???0@@@@@@@@@_??<@@@@@@@@@G???@@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   263
@@@@@C???0@@@@@@@@A???<@@@@@@@@@_??? @@@@@@@@O???8@@@@@@@@O????@@@@@@@@G????0@@@@@@@C????>@@@@@@@A?????<@@@@@@A?????>@@@
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
@@@A?????? @@@@@@G?????0@@@@@@@_????8@@@@@@@@????<@@@@@@@@@_??<@@@@@@@@@@A?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; yourself); yourself]
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
! !
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
!NewClassWizardDialog class methodsFor:'interface specs'!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
windowSpec
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   270
    "This resource specification was automatically generated
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   271
     by the UIPainter of ST/X."
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   272
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   273
    "Do not manually edit this!! If it is corrupted,
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   274
     the UIPainter may not be able to read the specification."
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   275
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   276
    "
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   277
     UIPainter new openOnClass:Tools::NewClassWizardDialog andSelector:#windowSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   278
     Tools::NewClassWizardDialog new openInterface:#windowSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   279
     Tools::NewClassWizardDialog open
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   280
    "
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
    <resource: #canvas>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   283
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   284
    ^ 
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   285
     #(FullSpec
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   286
        name: windowSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   287
        window: 
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   288
       (WindowSpec
9222
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   289
          label: 'Class Creation Wizard'
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   290
          name: 'Class Creation Wizard'
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   291
          min: (Point 10 10)
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   292
          bounds: (Rectangle 0 0 506 600)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   293
        )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   294
        component: 
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   295
       (SpecCollection
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   296
          collection: (
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   297
           (LabelSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   298
              label: 'wizardIcon'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   299
              name: 'Label10'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   300
              layout: (LayoutFrame 0 0 0 0 100 0 90 0)
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   301
              hasCharacterOrientedLabel: false
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   302
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   303
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   304
           (LabelSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   305
              label: 'Class Creation Wizard'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   306
              name: 'Label11'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   307
              layout: (LayoutFrame 100 0 10 0 390 0 50 0)
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   308
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   309
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   310
           (LabelSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   311
              label: 'Programming Language:'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   312
              name: 'Label9'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   313
              layout: (LayoutFrame 10 0 90 0 180 0 112 0)
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   314
              activeHelpKey: programmingLanguage
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   315
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   316
              adjust: right
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   317
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   318
           (ComboListSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   319
              name: 'ComboList1'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   320
              layout: (LayoutFrame 190 0 90 0 -32 1 112 0)
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   321
              activeHelpKey: programmingLanguage
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   322
              model: languageHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   323
              comboList: listOfLanguages
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   324
              useIndex: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   325
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   326
           (LabelSpec
9222
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   327
              label: 'Stereotype:'
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   328
              name: 'Label13'
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   329
              layout: (LayoutFrame 10 0 120 0 180 0 142 0)
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   330
              activeHelpKey: stereotype
9222
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   331
              translateLabel: true
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   332
              adjust: right
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   333
            )
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   334
           (ComboListSpec
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   335
              name: 'ComboList3'
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   336
              layout: (LayoutFrame 190 0 119 0 -32 1 141 0)
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   337
              activeHelpKey: stereotype
9222
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   338
              model: stereotypeHolder
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   339
              comboList: listOfStereotypes
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   340
              useIndex: true
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   341
            )
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   342
           (LabelSpec
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   343
              label: 'Class Name:'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   344
              name: 'Label1'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   345
              layout: (LayoutFrame 10 0 149 0 180 0 171 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   346
              activeHelpKey: className
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   347
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   348
              adjust: right
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   349
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   350
           (InputFieldSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   351
              name: 'EntryField1'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   352
              layout: (LayoutFrame 190 0 149 0 -32 1 171 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   353
              activeHelpKey: className
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   354
              model: classNameHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   355
              acceptOnReturn: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   356
              acceptOnTab: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   357
              acceptOnLostFocus: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   358
              acceptOnPointerLeave: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   359
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   360
           (LabelSpec
9222
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   361
              label: '*'
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   362
              name: 'Label14'
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   363
              layout: (LayoutFrame 180 0 150 0 190 0 172 0)
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   364
              translateLabel: true
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   365
            )
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   366
           (LabelSpec
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   367
              label: 'Superclass:'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   368
              name: 'Label2'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   369
              layout: (LayoutFrame 10 0 179 0 180 0 201 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   370
              activeHelpKey: superclass
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   371
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   372
              adjust: right
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   373
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   374
           (ComboBoxSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   375
              name: 'ComboBox1'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   376
              layout: (LayoutFrame 190 0 179 0 -32 1 201 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   377
              activeHelpKey: superclass
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   378
              model: superclassNameHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   379
              acceptOnLostFocus: true
9721
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   380
              comboList: listOfSuperclasses
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   381
              useIndex: false
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   382
            )
9222
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   383
           (LabelSpec
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   384
              label: '*'
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   385
              name: 'Label15'
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   386
              layout: (LayoutFrame 180 0 179 0 190 0 201 0)
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   387
              translateLabel: true
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
   388
            )
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   389
           (ActionButtonSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   390
              label: '...'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   391
              name: 'Button1'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   392
              layout: (LayoutFrame -22 1 179 0 -2 1 201 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   393
              activeHelpKey: chooseSuperclass
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   394
              translateLabel: true
9248
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   395
              model: openSuperClassChooser
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   396
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   397
           (LabelSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   398
              label: 'Project ID:'
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   399
              name: 'Label3'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   400
              layout: (LayoutFrame 10 0 220 0 180 0 242 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   401
              activeHelpKey: package
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   402
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   403
              adjust: right
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   404
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   405
           (ComboBoxSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   406
              name: 'ComboBox2'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   407
              layout: (LayoutFrame 190 0 219 0 -32 1 241 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   408
              activeHelpKey: package
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   409
              model: packageHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   410
              acceptOnReturn: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   411
              acceptOnTab: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   412
              acceptOnLostFocus: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   413
              acceptOnPointerLeave: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   414
              comboList: listOfPackages
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   415
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   416
           (ActionButtonSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   417
              label: '...'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   418
              name: 'Button4'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   419
              layout: (LayoutFrame -22 1 219 0 -2 1 241 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   420
              activeHelpKey: packageChooser
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   421
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   422
              model: openPackageChooser
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   423
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   424
           (LabelSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   425
              label: 'Namespace:'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   426
              name: 'Label4'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   427
              layout: (LayoutFrame 10 0 249 0 180 0 271 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   428
              activeHelpKey: namespace
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   429
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   430
              adjust: right
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   431
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   432
           (ComboListSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   433
              name: 'ComboList2'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   434
              layout: (LayoutFrame 190 0 249 0 -32 1 271 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   435
              activeHelpKey: namespace
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   436
              model: nameSpaceHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   437
              comboList: listOfNamespaces
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   438
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   439
           (ActionButtonSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   440
              label: '...'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   441
              name: 'Button5'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   442
              layout: (LayoutFrame -22 1 249 0 -2 1 271 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   443
              activeHelpKey: namespaceChooser
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   444
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   445
              model: openNamespaceChooser
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   446
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   447
           (LabelSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   448
              label: 'Category:'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   449
              name: 'Label12'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   450
              layout: (LayoutFrame 10 0 279 0 180 0 301 0)
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   451
              activeHelpKey: category
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   452
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   453
              adjust: right
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   454
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   455
           (ComboBoxSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   456
              name: 'ComboBox3'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   457
              layout: (LayoutFrame 190 0 279 0 -32 1 301 0)
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   458
              activeHelpKey: category
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   459
              model: categoryHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   460
              acceptOnLostFocus: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   461
              comboList: listOfCategories
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   462
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   463
           (ActionButtonSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   464
              label: '...'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   465
              name: 'Button6'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   466
              layout: (LayoutFrame -22 1 279 0 -2 1 301 0)
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   467
              activeHelpKey: categoryChooser
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   468
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   469
              model: openCategoryChooser
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   470
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   471
           (LabelSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   472
              label: 'Instance Variables:'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   473
              name: 'Label5'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   474
              layout: (LayoutFrame 10 0 319 0 180 0 341 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   475
              activeHelpKey: instanceVariableNames
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   476
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   477
              adjust: right
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   478
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   479
           (InputFieldSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   480
              name: 'EntryField4'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   481
              layout: (LayoutFrame 190 0 319 0 -32 1 341 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   482
              activeHelpKey: instanceVariableNames
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   483
              model: instVarNamesHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   484
              acceptOnReturn: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   485
              acceptOnTab: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   486
              acceptOnLostFocus: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   487
              acceptOnPointerLeave: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   488
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   489
           (LabelSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   490
              label: 'Class Variables:'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   491
              name: 'Label6'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   492
              layout: (LayoutFrame 10 0 349 0 180 0 371 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   493
              activeHelpKey: classVariableNames
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   494
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   495
              adjust: right
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   496
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   497
           (InputFieldSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   498
              name: 'EntryField5'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   499
              layout: (LayoutFrame 190 0 349 0 -32 1 371 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   500
              activeHelpKey: classVariableNames
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   501
              model: classVarNamesHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   502
              acceptOnReturn: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   503
              acceptOnTab: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   504
              acceptOnLostFocus: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   505
              acceptOnPointerLeave: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   506
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   507
           (LabelSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   508
              label: 'Class Instance Variables:'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   509
              name: 'Label7'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   510
              layout: (LayoutFrame 10 0 379 0 180 0 401 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   511
              activeHelpKey: classInstVariableNames
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   512
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   513
              adjust: right
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   514
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   515
           (InputFieldSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   516
              name: 'EntryField6'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   517
              layout: (LayoutFrame 190 0 379 0 -32 1 401 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   518
              activeHelpKey: classInstVariableNames
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   519
              model: classInstVarNamesHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   520
              acceptOnReturn: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   521
              acceptOnTab: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   522
              acceptOnLostFocus: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   523
              acceptOnPointerLeave: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   524
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   525
           (LabelSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   526
              label: 'Create:'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   527
              name: 'Label8'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   528
              layout: (LayoutFrame 10 0 419 0 110 0 441 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   529
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   530
              adjust: right
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   531
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   532
           (CheckBoxSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   533
              label: 'Accessors'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   534
              name: 'CheckBox1'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   535
              layout: (LayoutFrame 120 0 419 0 280 0 441 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   536
              activeHelpKey: createAccessors
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   537
              model: createAccessorsHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   538
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   539
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   540
           (CheckBoxSpec
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   541
              label: 'Initial Template Code'
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   542
              name: 'CheckBox6'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   543
              layout: (LayoutFrame 310 0 419 0 470 0 441 0)
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   544
              activeHelpKey: createInitialGUICode
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   545
              model: createInitialGUICodeHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   546
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   547
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   548
           (CheckBoxSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   549
              label: 'Initializer'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   550
              name: 'CheckBox2'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   551
              layout: (LayoutFrame 120 0 449 0 280 0 471 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   552
              activeHelpKey: createInitializer
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   553
              model: createInitializerHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   554
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   555
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   556
           (CheckBoxSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   557
              label: 'Update Method'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   558
              name: 'CheckBox5'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   559
              layout: (LayoutFrame 120 0 479 0 280 0 501 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   560
              activeHelpKey: createUpdateMethod
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   561
              model: createUpdateMethodHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   562
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   563
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   564
           (CheckBoxSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   565
              label: 'Required Methods (Subclass responsibilities)'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   566
              name: 'CheckBox3'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   567
              layout: (LayoutFrame 120 0 509 0 400 0 531 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   568
              activeHelpKey: createRequiredMethods
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   569
              model: createRequiredMethodsHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   570
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   571
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   572
           (CheckBoxSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   573
              label: 'Print Method'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   574
              name: 'CheckBox4'
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   575
              layout: (LayoutFrame 120 0 539 0 280 0 561 0)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   576
              activeHelpKey: createPrintMethod
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   577
              visibilityChannel: false
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   578
              model: createPrintMethodHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   579
              translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   580
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   581
           (HorizontalPanelViewSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   582
              name: 'HorizontalPanel1'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   583
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   584
              horizontalLayout: center
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   585
              verticalLayout: center
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   586
              horizontalSpace: 3
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   587
              verticalSpace: 3
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   588
              reverseOrderIfOKAtLeft: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   589
              component: 
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   590
             (SpecCollection
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   591
                collection: (
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   592
                 (ActionButtonSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   593
                    label: 'Cancel'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   594
                    name: 'Button3'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   595
                    translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   596
                    model: doCancel
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   597
                    extent: (Point 125 22)
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   598
                  )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   599
                 (ActionButtonSpec
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   600
                    label: 'OK'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   601
                    name: 'Button2'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   602
                    translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   603
                    model: doAccept
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   604
                    extent: (Point 125 22)
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   605
                  )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   606
                 )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   607
               
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   608
              )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   609
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   610
           )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   611
         
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   612
        )
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   613
      )
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
! !
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   616
!NewClassWizardDialog class methodsFor:'menu specs'!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
mainMenu
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   619
    "This resource specification was automatically generated by the CodeGeneratorTool."
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   620
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   621
    "Do not manually edit this!! If it is corrupted,
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   622
     the MenuEditor may not be able to read the specification."
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   623
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   624
    "
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   625
     MenuEditor new openOnClass:Tools::NewClassDialog andSelector:#mainMenu
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   626
    "
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   627
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
    <resource: #menu>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
    ^ #(#Menu
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   631
           #(
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   632
             #(#MenuItem
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   633
                #label: 'File'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   634
                #translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   635
                #submenu:
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   636
                 #(#Menu
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   637
                     #(
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   638
                       #(#MenuItem
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   639
                          #label: 'New'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   640
                          #translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   641
                          #value: #menuNew
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   642
                      )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   643
                       #(#MenuItem
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   644
                          #label: '-'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   645
                      )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   646
                       #(#MenuItem
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   647
                          #label: 'Open...'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   648
                          #translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   649
                          #value: #menuOpen
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   650
                      )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   651
                       #(#MenuItem
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   652
                          #label: '-'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   653
                      )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   654
                       #(#MenuItem
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   655
                          #label: 'Save'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   656
                          #translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   657
                          #value: #menuSave
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   658
                      )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   659
                       #(#MenuItem
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   660
                          #label: 'Save As...'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   661
                          #translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   662
                          #value: #menuSaveAs
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   663
                      )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   664
                       #(#MenuItem
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   665
                          #label: '-'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   666
                      )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   667
                       #(#MenuItem
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   668
                          #label: 'Exit'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   669
                          #translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   670
                          #value: #closeRequest
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   671
                      )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   672
                    ) nil
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   673
                    nil
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   674
                )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   675
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   676
             #(#MenuItem
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   677
                #label: 'Help'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   678
                #translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   679
                #startGroup: #right
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   680
                #submenu:
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   681
                 #(#Menu
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   682
                     #(
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   683
                       #(#MenuItem
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   684
                          #label: 'Documentation'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   685
                          #translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   686
                          #value: #openDocumentation
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   687
                      )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   688
                       #(#MenuItem
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   689
                          #label: '-'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   690
                      )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   691
                       #(#MenuItem
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   692
                          #label: 'About this Application...'
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   693
                          #translateLabel: true
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   694
                          #value: #openAboutThisApplication
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   695
                      )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   696
                    ) nil
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   697
                    nil
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   698
                )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   699
            )
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   700
          ) nil
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   701
          nil
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   702
      )
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   703
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   704
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   705
toolbarMenu
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   706
    "This resource specification was automatically generated by the CodeGeneratorTool."
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   707
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   708
    "Do not manually edit this!! If it is corrupted,
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   709
     the MenuEditor may not be able to read the specification."
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   710
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   711
    "
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   712
     MenuEditor new openOnClass:Tools::NewClassDialog andSelector:#toolbarMenu
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   713
    "
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   714
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   715
    <resource: #menu>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   716
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   717
    ^ #(Menu ((MenuItem label: 'Reload' itemValue: menuReload translateLabel: true labelImage: (ResourceRetriever ToolbarIconLibrary reload24x24Icon))) nil nil)
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   718
! !
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   719
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   720
!NewClassWizardDialog methodsFor:'accessing'!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   721
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   722
compilerProviderBlock:aBlock
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   723
    "/ see NewSystemBrowser on how to use this
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   724
    compilerProviderBlock := aBlock.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   725
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   726
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   727
createdClass
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   728
    ^ createdClass
9721
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   729
!
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   730
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   731
language                      
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   732
    |languageName languageClass|
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   733
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   734
    languageName := self listOfLanguages at:(languageHolder value).
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   735
    languageClass := ProgrammingLanguage allSubclasses 
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   736
        detect:[:l | l instance name = languageName]
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   737
        ifNone:[ SmalltalkLanguage].
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   738
    ^ languageClass instance
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   739
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   740
    "Created: / 30-01-2011 / 09:35:19 / cg"
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   741
    "Modified: / 30-01-2011 / 10:40:35 / cg"
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   742
! !
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   743
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   744
!NewClassWizardDialog methodsFor:'actions'!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   745
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   746
doAccept
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   747
    |newClassName superclassName superclass package answer|
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   748
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   749
    newClassName := self classNameHolder value.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   750
    newClassName isEmptyOrNil ifTrue:[
9207
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   751
        Dialog warn:'No Classname entered'.
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   752
        ^ self.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   753
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   754
    newClassName isValidSmalltalkIdentifier ifFalse:[
9207
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   755
        Dialog warn:'No valid Classname entered (must be alphaNumeric)'.
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   756
        ^ self.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   757
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   758
    newClassName first isUppercase ifFalse:[
9207
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   759
        Dialog warn:'No valid Classname entered (first Character must be uppercase)'.
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   760
        ^ self.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   761
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   762
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   763
    superclassName := self superclassNameHolder value.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   764
    superclass := Smalltalk classNamed:superclassName.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   765
    superclass isNil ifTrue:[
9207
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   766
        (superclassName knownAsSymbol and:[Smalltalk includesKey:superclassName asSymbol]) ifFalse:[
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   767
            Dialog warn:'No such Superclass'.
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   768
            ^ self.
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   769
        ].
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   770
        (Smalltalk at:superclassName asSymbol) isBehavior ifFalse:[
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   771
            Dialog warn:('"%1" refers to a global which is not a class (%2)'
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   772
                        bindWith:superclassName
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   773
                        with:superclass className).
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   774
            ^ self.
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   775
        ].
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   776
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   777
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   778
    package := self packageHolder value.
9211
38821c9edc77 changed: #doAccept
Stefan Vogel <sv@exept.de>
parents: 9207
diff changeset
   779
    package notEmptyOrNil ifTrue:[
38821c9edc77 changed: #doAccept
Stefan Vogel <sv@exept.de>
parents: 9207
diff changeset
   780
        (package asPackageId module isEmptyOrNil
38821c9edc77 changed: #doAccept
Stefan Vogel <sv@exept.de>
parents: 9207
diff changeset
   781
        or:[ package asPackageId directory isEmptyOrNil ]) ifTrue:[
38821c9edc77 changed: #doAccept
Stefan Vogel <sv@exept.de>
parents: 9207
diff changeset
   782
            Dialog warn:('The packageID "%1" must be of the form "module:directory" (for the source repository management)'
38821c9edc77 changed: #doAccept
Stefan Vogel <sv@exept.de>
parents: 9207
diff changeset
   783
                        bindWith:package).
38821c9edc77 changed: #doAccept
Stefan Vogel <sv@exept.de>
parents: 9207
diff changeset
   784
            ^ self.
38821c9edc77 changed: #doAccept
Stefan Vogel <sv@exept.de>
parents: 9207
diff changeset
   785
        ].
9207
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   786
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   787
        (ProjectDefinition definitionClassForPackage:package) isNil ifTrue:[
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   788
            answer := Dialog
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   789
                        choose:('Create a new ProjectDefinition for "%1" ?
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   790
9205
07015f8db981 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9195
diff changeset
   791
This can also be done later.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   792
Create the definition as:
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   793
' bindWith:package)
9207
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   794
                        fromList:nil values:nil
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   795
                        buttons:#('GUI Application' 'non-GUI Application' 'Library')
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   796
                        values:#(guiApplicationType #nonGuiApplicationType #libraryType)
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   797
                        lines:nil cancel:false.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   798
9207
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   799
            answer == false ifTrue:[^ self].
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   800
9207
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   801
            ProjectDefinition
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   802
                definitionClassForPackage:package
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   803
                projectType: (ProjectDefinition perform:answer)
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   804
                createIfAbsent:true.
1d1b8d1ba42b changed: #doAccept
Claus Gittinger <cg@exept.de>
parents: 9205
diff changeset
   805
        ].
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   806
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   807
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   808
"/ done in caller (for undo handling...)
9205
07015f8db981 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9195
diff changeset
   809
"/    createdClass :=
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   810
"/            superclass
9205
07015f8db981 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9195
diff changeset
   811
"/                subclass: newClassName asSymbol
07015f8db981 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9195
diff changeset
   812
"/                instanceVariableNames: instVarNamesHolder value
07015f8db981 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9195
diff changeset
   813
"/                classVariableNames: classVarNamesHolder value
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   814
"/                poolDictionaries: ' '
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   815
"/                category: '* as yet uncategorized *'.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   816
"/
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   817
"/    classInstVarNamesHolder value notEmptyOrNil ifTrue:[
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
"/        createdClass class instanceVariableNames: classInstVarNamesHolder value
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
"/    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   821
    LastCategory := categoryHolder value.
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   822
    LastPackage := packageHolder value.
9721
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   823
    LastLanguage := self listOfLanguages at:(languageHolder value).
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   824
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
    super doAccept.
9721
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   826
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
   827
    "Modified: / 30-01-2011 / 09:33:28 / cg"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   828
    "Modified (comment): / 27-01-2012 / 14:53:02 / cg"
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   831
doCancel
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
    self closeRequest.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
9248
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   835
openCategoryChooser
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   836
    |category|
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   837
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   838
    category := Dialog 
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   839
                    choose:(resources string:'Select a Category')
9248
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   840
                    fromList:(Smalltalk allClassCategories asSortedCollection)
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   841
                    lines:15.
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   842
    category isNil ifTrue:[^ self].
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   843
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   844
    self categoryHolder value:category.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   845
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   846
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   847
openNamespaceChooser
9249
195b0799d1d4 comment/format in:
Claus Gittinger <cg@exept.de>
parents: 9248
diff changeset
   848
    "(mis)use the browser's namespace dialog"
195b0799d1d4 comment/format in:
Claus Gittinger <cg@exept.de>
parents: 9248
diff changeset
   849
9248
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   850
    |browser namespaceString existing|
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   851
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   852
    (browser := masterApplication) isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   853
        browser := Tools::NewSystemBrowser basicNew
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   854
    ].
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   855
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   856
    namespaceString := browser 
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   857
                        askForNameSpace:(resources string:'Select or Enter a Namespace') 
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   858
                        title:(resources string:'Namespace selection') 
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   859
                        initialText:'Smalltalk'.
9248
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   860
    namespaceString isNil ifTrue:[^ self].
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   861
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   862
    existing := Smalltalk classNamed:namespaceString.
10590
1a41a0700e59 changed: #openNamespaceChooser
Claus Gittinger <cg@exept.de>
parents: 9726
diff changeset
   863
    (existing notNil and:[existing isNameSpace]) ifTrue:[
9248
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   864
        "/ exists
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   865
    ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   866
        (existing notNil) ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   867
            Dialog warn:('"%1" is already defined, but not a namespace' bindWith:namespaceString).
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   868
            ^ self
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   869
        ].
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   870
    ].
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   871
    Class withoutUpdatingChangesDo:[
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   872
        NameSpace name:namespaceString.
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   873
    ].
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   874
    self nameSpaceHolder value:namespaceString.
10590
1a41a0700e59 changed: #openNamespaceChooser
Claus Gittinger <cg@exept.de>
parents: 9726
diff changeset
   875
1a41a0700e59 changed: #openNamespaceChooser
Claus Gittinger <cg@exept.de>
parents: 9726
diff changeset
   876
    "Modified: / 19-08-2011 / 01:00:52 / cg"
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   879
openPackageChooser
9249
195b0799d1d4 comment/format in:
Claus Gittinger <cg@exept.de>
parents: 9248
diff changeset
   880
    "(mis)use the browser's package dialog"
195b0799d1d4 comment/format in:
Claus Gittinger <cg@exept.de>
parents: 9248
diff changeset
   881
9248
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   882
    |browser package|
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   883
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   884
    (browser := masterApplication) isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   885
        browser := Tools::NewSystemBrowser basicNew
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   886
    ].
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   887
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   888
    package := browser askForProject:(resources string:'Select or Enter a Package-ID').
9248
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   889
    package isNil ifTrue:[^ self].
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   890
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   891
    self packageHolder value:package.
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   892
!
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   893
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   894
openSuperClassChooser
9249
195b0799d1d4 comment/format in:
Claus Gittinger <cg@exept.de>
parents: 9248
diff changeset
   895
    "(mis)use the browser's class dialog"
195b0799d1d4 comment/format in:
Claus Gittinger <cg@exept.de>
parents: 9248
diff changeset
   896
9248
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   897
    |browser class classValid classNameOrNil|
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   898
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   899
    (browser := masterApplication) isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   900
        browser := Tools::NewSystemBrowser basicNew
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   901
    ].
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   902
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   903
    classValid := false.
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   904
    [ classValid ] whileFalse:[
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   905
        classNameOrNil := browser
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   906
            askForClassToSearch:nil
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   907
            single:true 
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   908
            msgTail:(resources string:'Select a Class') 
9248
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   909
            resources:nil
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   910
            thenDo:nil.
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   911
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   912
        classNameOrNil isNil ifTrue:[^ self].
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   913
        class := Smalltalk classNamed:classNameOrNil.
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   914
        classValid := class notNil
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   915
    ].
Claus Gittinger <cg@exept.de>
parents: 9223
diff changeset
   916
    self superclassNameHolder value:class name.
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   917
!
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   918
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   919
stereotypeChanged
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   920
    |stereoType|
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   921
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   922
    stereoType := self listOfStereotypes at:(self stereotypeHolder value).
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   923
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   924
    stereoType = '<none>' ifTrue:[
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   925
        self createInitializerHolder value:true.
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   926
        self createPrintMethodHolder value:false.
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   927
        self createAccessorsHolder value:true.
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   928
        self createInitialGUICodeHolder value:false.
9726
e84b9cdc6cbe changed: #stereotypeChanged
Claus Gittinger <cg@exept.de>
parents: 9721
diff changeset
   929
        self createUpdateMethodHolder value:false.
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   930
    ].
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   931
9719
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   932
    stereoType = 'Data Object' ifTrue:[
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   933
        self superclassNameHolder value:'Model'.
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   934
        self createAccessorsHolder value:true.
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   935
        self createInitialGUICodeHolder value:false.
9726
e84b9cdc6cbe changed: #stereotypeChanged
Claus Gittinger <cg@exept.de>
parents: 9721
diff changeset
   936
        self createUpdateMethodHolder value:false.
9719
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   937
    ].
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   938
"/    stereoType = 'Enumeration' ifTrue:[
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   939
"/        self superclassNameHolder value:'Enumeration'.
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   940
"/        self createInitializerHolder value:true.
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   941
"/        self createAccessorsHolder value:false.
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   942
"/        self createInitialGUICodeHolder value:false.
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   943
"/    ].
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   944
    stereoType = 'GUIApplication' ifTrue:[
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   945
        self superclassNameHolder value:'ApplicationModel'.
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   946
        self createInitializerHolder value:false.
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   947
        self createPrintMethodHolder value:false.
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   948
        self createInitialGUICodeHolder value:true.
9726
e84b9cdc6cbe changed: #stereotypeChanged
Claus Gittinger <cg@exept.de>
parents: 9721
diff changeset
   949
        self createUpdateMethodHolder value:true.
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   950
    ].
9719
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   951
    stereoType = 'SharedPool' ifTrue:[
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   952
        self superclassNameHolder value:'SharedPool'.
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   953
        self createAccessorsHolder value:false.
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   954
        self createInitializerHolder value:true.
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   955
        self createPrintMethodHolder value:false.
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   956
        self createInitialGUICodeHolder value:false.
9719
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   957
        self createUpdateMethodHolder value:false.
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   958
    ].
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   959
    (stereoType startsWith: 'Startup') ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   960
        self superclassNameHolder value:'StandaloneStartup'.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   961
        self createAccessorsHolder value:false.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   962
        self createInitializerHolder value:true.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   963
        self createPrintMethodHolder value:false.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   964
        self createInitialGUICodeHolder value:true.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   965
        self createUpdateMethodHolder value:false.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   966
    ].
9719
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   967
    stereoType = 'TestCase' ifTrue:[
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   968
        self superclassNameHolder value:'TestCase'.
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   969
        self createAccessorsHolder value:false.
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   970
        self createInitializerHolder value:false.
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   971
        self createPrintMethodHolder value:false.
9719
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   972
        self createInitialGUICodeHolder value:true.
9726
e84b9cdc6cbe changed: #stereotypeChanged
Claus Gittinger <cg@exept.de>
parents: 9721
diff changeset
   973
        self createUpdateMethodHolder value:false.
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   974
    ].
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   975
    stereoType = 'WebService' ifTrue:[
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   976
        self superclassNameHolder value:'HTTPService'.
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   977
        self createAccessorsHolder value:false.
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   978
        self createInitializerHolder value:false.
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   979
        self createPrintMethodHolder value:false.
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   980
        self createInitialGUICodeHolder value:true.
9726
e84b9cdc6cbe changed: #stereotypeChanged
Claus Gittinger <cg@exept.de>
parents: 9721
diff changeset
   981
        self createUpdateMethodHolder value:false.
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   982
    ].
9719
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   983
    stereoType = 'Widget' ifTrue:[
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   984
        self superclassNameHolder value:'View'.
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   985
        self createInitializerHolder value:false.
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
   986
        self createPrintMethodHolder value:false.
9719
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   987
        self createInitialGUICodeHolder value:false.
9726
e84b9cdc6cbe changed: #stereotypeChanged
Claus Gittinger <cg@exept.de>
parents: 9721
diff changeset
   988
        self createUpdateMethodHolder value:true.
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
   989
    ].
9719
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
   990
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   991
    "Modified: / 27-01-2012 / 14:47:20 / cg"
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   992
! !
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   993
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   994
!NewClassWizardDialog methodsFor:'aspects'!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   995
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   996
categoryHolder
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   997
    <resource: #uiAspect>
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   998
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
   999
    categoryHolder isNil ifTrue:[
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1000
        categoryHolder := (LastCategory ? nil) asValue.
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1001
    ].
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1002
    ^ categoryHolder.
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1003
!
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1004
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1005
classInstVarNamesHolder
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1006
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1007
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1008
    classInstVarNamesHolder isNil ifTrue:[
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1009
        classInstVarNamesHolder := ValueHolder new.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1010
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1011
    ^ classInstVarNamesHolder.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1012
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1013
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1014
classNameHolder
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1015
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1016
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1017
    classNameHolder isNil ifTrue:[
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1018
        classNameHolder := ValueHolder new.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1019
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1020
    ^ classNameHolder.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1021
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1022
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1023
classVarNamesHolder
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1024
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1025
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1026
    classVarNamesHolder isNil ifTrue:[
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1027
        classVarNamesHolder := ValueHolder new.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1028
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1029
    ^ classVarNamesHolder.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1030
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1031
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1032
createAccessors
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1033
    ^ self createAccessorsHolder value
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1034
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1035
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1036
createAccessorsHolder
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1037
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1038
9205
07015f8db981 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9195
diff changeset
  1039
    createAccessorsHolder isNil ifTrue:[
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1040
        createAccessorsHolder := true asValue.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1041
    ].
9205
07015f8db981 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9195
diff changeset
  1042
    ^ createAccessorsHolder.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1043
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1044
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1045
createInitialGUICode
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1046
    ^ self createInitialGUICodeHolder value
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1047
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1048
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1049
createInitialGUICodeHolder
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1050
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1051
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1052
    createInitialGUICodeHolder isNil ifTrue:[
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1053
        createInitialGUICodeHolder := true asValue.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1054
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1055
    ^ createInitialGUICodeHolder.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1056
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1057
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1058
createInitializer
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1059
    ^ self createInitializerHolder value
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1060
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1061
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1062
createInitializerHolder
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1063
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1064
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1065
    createInitializerHolder isNil ifTrue:[
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1066
        createInitializerHolder := true asValue.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1067
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1068
    ^ createInitializerHolder.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1069
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1070
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1071
createPrintMethod
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1072
    ^ self createPrintMethodHolder value
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1073
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1074
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1075
createPrintMethodHolder
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1076
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1077
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1078
    createPrintMethodHolder isNil ifTrue:[
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1079
        createPrintMethodHolder := true asValue.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1080
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1081
    ^ createPrintMethodHolder.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1082
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1083
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1084
createRequiredMethods
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1085
    ^ self createRequiredMethodsHolder value
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1086
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1087
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1088
createRequiredMethodsHolder
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1089
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1090
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1091
    createRequiredMethodsHolder isNil ifTrue:[
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1092
        createRequiredMethodsHolder := true asValue.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1093
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1094
    ^ createRequiredMethodsHolder.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1095
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1096
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1097
createUpdateMethod
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1098
    ^ self createUpdateMethodHolder value
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1099
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1100
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1101
createUpdateMethodHolder
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1102
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1103
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1104
    createUpdateMethodHolder isNil ifTrue:[
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1105
        createUpdateMethodHolder := true asValue.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1106
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1107
    ^ createUpdateMethodHolder.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1108
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1109
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1110
instVarNamesHolder
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1111
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1112
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1113
    instVarNamesHolder isNil ifTrue:[
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1114
        instVarNamesHolder := ValueHolder new.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1115
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1116
    ^ instVarNamesHolder.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1117
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1118
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1119
languageHolder
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1120
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1121
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1122
    |idx|
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1123
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1124
    languageHolder isNil ifTrue:[
9222
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
  1125
        (self listOfLanguages size == 1) ifTrue:[
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1126
            idx := 1.
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1127
        ] ifFalse:[
9222
1d6e1f6086f1 changed:
Claus Gittinger <cg@exept.de>
parents: 9218
diff changeset
  1128
            idx := self listOfLanguages indexOf:(LastLanguage ? 'Smalltalk').
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1129
        ].
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1130
        languageHolder := idx asValue.
9205
07015f8db981 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9195
diff changeset
  1131
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1132
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1133
    ^ languageHolder.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1134
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1135
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1136
listOfCategories
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1137
    ^ (Smalltalk allClassCategories copyAs:OrderedCollection) sort
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1138
!
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1139
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1140
listOfLanguages
9205
07015f8db981 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9195
diff changeset
  1141
    ^ ProgrammingLanguage allSubclasses collect:[:l | l instance name].
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1142
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1143
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1144
listOfNamespaces
9205
07015f8db981 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9195
diff changeset
  1145
    ^ ((NameSpace allNameSpacesIn:Smalltalk)
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1146
        asOrderedCollection
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1147
            collect:[:ns | ns name])
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1148
                sort
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1149
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1150
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1151
listOfPackages
9205
07015f8db981 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9195
diff changeset
  1152
    ^ Smalltalk allProjectIDs copy sort
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1153
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1154
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1155
listOfStereotypes
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1156
    ^ #(
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
  1157
        '<none>'
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1158
"/        ConsoleApplication
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
  1159
        'Data Object'
9719
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
  1160
"/        Enumeration
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1161
        GUIApplication
9719
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
  1162
        SharedPool
9282
a0ccecc25a76 changed:8 methods
Claus Gittinger <cg@exept.de>
parents: 9249
diff changeset
  1163
        TestCase
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1164
        'StartupClass (main entry for standalone apps)'
9223
b0d2f67899b5 changed: #listOfStereotypes
Claus Gittinger <cg@exept.de>
parents: 9222
diff changeset
  1165
        WebService
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1166
        Widget
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1167
    )
9719
60ddc5c84ff7 changed:
Claus Gittinger <cg@exept.de>
parents: 9464
diff changeset
  1168
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1169
    "Modified: / 27-01-2012 / 14:46:39 / cg"
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1170
!
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1171
9721
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1172
listOfSuperclasses
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1173
    <resource: #uiAspect>
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1174
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1175
    |l superClassName|
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1176
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1177
    l := OrderedCollection new.
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1178
    (superClassName := self superclassNameHolder value) notNil ifTrue:[
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1179
        l add:superClassName.
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1180
    ].
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1181
    superClassName ~= 'Object' ifTrue:[
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1182
        l add:'Object'
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1183
    ].
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1184
    superClassName ~= 'Model' ifTrue:[
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1185
        l add:'Model'
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1186
    ].
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1187
    superClassName ~= 'View' ifTrue:[
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1188
        l add:'View'
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1189
    ].
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1190
    superClassName ~= 'ApplicationModel' ifTrue:[
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1191
        l add:'ApplicationModel'
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1192
    ].
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1193
    l add:'-'.
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1194
    l addAll:(SystemBrowser visitedClassNamesHistory).
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1195
    ^ l
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1196
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1197
    "Created: / 30-01-2011 / 10:34:44 / cg"
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1198
!
47aa8329ff01 care for metaClass in class wizard
Claus Gittinger <cg@exept.de>
parents: 9719
diff changeset
  1199
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1200
nameSpaceHolder
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1201
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1202
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1203
    nameSpaceHolder isNil ifTrue:[
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1204
        nameSpaceHolder := ValueHolder new.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1205
"/       nameSpaceHolder addDependent:self.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1206
"/       nameSpaceHolder onChangeSend:#nameSpaceHolderChanged to:self.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1207
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1208
    ^ nameSpaceHolder.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1209
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1210
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1211
packageHolder
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1212
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1213
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1214
    packageHolder isNil ifTrue:[
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1215
        packageHolder := (LastPackage ? nil "PackageId noProjectID") asValue.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1216
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1217
    ^ packageHolder.
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1218
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1219
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1220
recentlyVisitedClasses
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1221
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1222
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1223
    ^ SystemBrowser visitedClassNamesHistory
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1224
!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1225
9218
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1226
stereotypeHolder
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1227
    <resource: #uiAspect>
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1228
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1229
    stereotypeHolder isNil ifTrue:[
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1230
        stereotypeHolder := ValueHolder new.
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1231
        stereotypeHolder onChangeSend:#stereotypeChanged to:self.
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1232
    ].
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1233
    ^ stereotypeHolder.
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1234
!
86ad5ddea7b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9216
diff changeset
  1235
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1236
superclassNameHolder
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1237
    <resource: #uiAspect>
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1238
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1239
    superclassNameHolder isNil ifTrue:[
9216
cc5c43784db2 category
Claus Gittinger <cg@exept.de>
parents: 9211
diff changeset
  1240
        superclassNameHolder := (LastSuperclass ? 'Object') asValue.
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1241
    ].
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1242
    ^ superclassNameHolder.
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1243
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1244
    "Modified: / 27-01-2012 / 14:49:43 / cg"
9195
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1245
! !
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1246
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1247
!NewClassWizardDialog class methodsFor:'documentation'!
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1248
6b6a9a7b2ff2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1249
version_CVS
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1250
    ^ '§Header: /cvs/stx/stx/libtool/Tools__NewClassWizardDialog.st,v 1.17 2012/01/27 13:55:52 cg Exp §'
12128
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
  1251
!
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
  1252
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
  1253
version_SVN
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
  1254
    ^ '$Id: Tools__NewClassWizardDialog.st 7854 2012-01-30 17:49:41Z vranyj1 $'
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1255
! !