Tools__ProjectDefinitionEditor.st
author Claus Gittinger <cg@exept.de>
Sun, 01 Feb 2015 14:16:33 +0100
changeset 3178 58100b56595d
parent 2727 e5f434daebb5
child 3523 25fa267c550a
permissions -rw-r--r--
class: MenuEditor fixed the following redraw bug in ModelListView (which is already fixed in SelectionInListView): if a colored item is shown with selection, the color attribute should be removed (or relaxed), to avoid drawing the label invisible. I.e. if the text color is blue or grey, and the selection bg is blue. we should draw white-on-blue, instead of blue/grey on blue. For this to work, the info whether drawing a selection must be passed down through the renderer to the item's draw routine.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:libtool2' }"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"{ NameSpace: Tools }"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
ResourceSpecEditor subclass:#ProjectDefinitionEditor
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
     6
	instanceVariableNames:'definitionClass classList extensionsList selectedClassIndexHolder
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
		classesTableColumns revisionNrHolder companyNameHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
		fileMajorVersionNrHolder minorVersionNrHolder iconFileNameHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
		fileReleaseNrHolder productNameHolder majorVersionNrHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
		fileRevisionNrHolder fileDescriptionHolder releaseNrHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
		fileMinorVersionNrHolder descriptionHolder legalCopyrightHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
		isApplicationDefinitionHolder isNonGUIApplicationHolder
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    13
		startSinglethreadedHolder hasConsoleHolder shownHasConsoleHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    14
		startupClassNameHolder startupSelectorHolder prerequisitesList
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    15
		classListHolder extensionsListHolder prerequisitesListHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    16
		documentExtensionsListStringHolder stcOptimizationFlagsHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    17
		ccOptimizationFlagsHolder'
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'Interface-Tools'
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
Object subclass:#ClassListEntry
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
	instanceVariableNames:'className autoloaded win32 unix'
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
	classVariableNames:''
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
	poolDictionaries:''
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
	privateIn:ProjectDefinitionEditor
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
    30
Object subclass:#ExtensionsListEntry
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
    31
	instanceVariableNames:'className selector'
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
    32
	classVariableNames:''
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
    33
	poolDictionaries:''
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
    34
	privateIn:ProjectDefinitionEditor
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
    35
!
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
    36
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
    37
Object subclass:#PrerequisitesListEntry
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
    38
	instanceVariableNames:'package'
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
    39
	classVariableNames:''
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
    40
	poolDictionaries:''
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
    41
	privateIn:ProjectDefinitionEditor
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
    42
!
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
    43
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
!ProjectDefinitionEditor class methodsFor:'documentation'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
documentation
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
    unfinished app-definition editor
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
    [author:]
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
    51
	cg (cg@FUSI)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
    [instance variables:]
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
    [class variables:]
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
    [see also:]
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
examples
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
  Starting the application:
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
    65
								[exBegin]
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
    (ProjectDefinitionEditor new
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
    67
	definitionClass:stx_libbasic) open
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
    68
								[exEnd]
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
    70
								[exBegin]
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
    (ProjectDefinitionEditor new
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
    72
	definitionClass:bosch_dapasx_application) open
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
    73
								[exEnd]
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    77
!ProjectDefinitionEditor class methodsFor:'help specs'!
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    78
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    79
flyByHelpSpec
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    80
    "This resource specification was automatically generated
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    81
     by the UIHelpTool of ST/X."
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    82
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    83
    "Do not manually edit this!! If it is corrupted,
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    84
     the UIHelpTool may not be able to read the specification."
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    85
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    86
    "
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    87
     UIHelpTool openOnClass:Tools::ProjectDefinitionEditor    
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    88
    "
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    89
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    90
    <resource: #help>
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    91
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    92
    ^ super flyByHelpSpec addPairsFrom:#(
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    93
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    94
#documentExtensions
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    95
'";"-separated list of file extensions'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    96
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    97
)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    98
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
    99
    "Created: / 15-10-2006 / 14:34:57 / cg"
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   100
!
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   101
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   102
helpSpec
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   103
    "This resource specification was automatically generated
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   104
     by the UIHelpTool of ST/X."
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   105
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   106
    "Do not manually edit this!! If it is corrupted,
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   107
     the UIHelpTool may not be able to read the specification."
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   108
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   109
    "
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   110
     UIHelpTool openOnClass:Tools::ProjectDefinitionEditor    
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   111
    "
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   112
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   113
    <resource: #help>
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   114
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   115
    ^ super helpSpec addPairsFrom:#(
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   116
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   117
#documentExtensions
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   118
'";"-separated list of file extensions'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   119
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   120
)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   121
! !
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   122
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
!ProjectDefinitionEditor class methodsFor:'interface specs'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
classesSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
     by the UIPainter of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
     the UIPainter may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
    "
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
   133
     UIPainter new openOnClass:Tools::ProjectDefinitionEditor andSelector:#classesSpec
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
   134
     Tools::ProjectDefinitionEditor new openInterface:#classesSpec
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
    <resource: #canvas>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   139
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
     #(FullSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   141
	name: classesSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   142
	window:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
       (WindowSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   144
	  label: 'NewApplication'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   145
	  name: 'NewApplication'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   146
	  min: (Point 0 0)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   147
	  bounds: (Rectangle 0 0 300 300)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   148
	)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   149
	component:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
       (SpecCollection
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   151
	  collection: (
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   152
	   (DataSetSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   153
	      name: 'ClassesTable'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   154
	      layout: (LayoutFrame 0 0 0 0 0 1 0 1)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   155
	      model: selectedClassIndexHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   156
	      menu: classListMenu
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   157
	      hasHorizontalScrollBar: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   158
	      hasVerticalScrollBar: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   159
	      dataList: classListHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   160
	      columnHolder: classesTableColumns
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   161
	    )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   162
	   )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   163
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   164
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
      )
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
   166
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
   167
    "Modified: / 07-09-2006 / 11:35:14 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
compilationSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
     by the UIPainter of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
     the UIPainter may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
    "
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
   178
     UIPainter new openOnClass:Tools::ProjectDefinitionEditor andSelector:#compilationSpec
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
   179
     Tools::ProjectDefinitionEditor new openInterface:#compilationSpec
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
    <resource: #canvas>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   184
    ^ 
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
     #(FullSpec
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   186
        name: compilationSpec
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   187
        window: 
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
       (WindowSpec
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   189
          label: 'NewApplication'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   190
          name: 'NewApplication'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   191
          min: (Point 0 0)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   192
          bounds: (Rectangle 0 0 433 300)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   193
        )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   194
        component: 
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
       (SpecCollection
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   196
          collection: (
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   197
           (FramedBoxSpec
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   198
              label: 'Optimization'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   199
              name: 'FramedBox1'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   200
              layout: (LayoutFrame 0 0 0 0 0 1 93 0)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   201
              labelPosition: topLeft
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   202
              translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   203
              component: 
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   204
             (SpecCollection
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   205
                collection: (
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   206
                 (LabelSpec
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   207
                    label: 'STC Optimization Flags:'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   208
                    name: 'Label1'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   209
                    layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   210
                    translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   211
                    adjust: right
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   212
                  )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   213
                 (ComboBoxSpec
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   214
                    name: 'STCOptimizationFlagsComboBox'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   215
                    layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   216
                    model: stcOptimizationFlagsHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   217
                    acceptOnPointerLeave: false
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   218
                    comboList: stcOptimizationFlagList
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   219
                    postBuildCallback: flagHolderBuilt:
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   220
                  )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   221
                 (LabelSpec
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   222
                    label: 'CC Optimization Flags:'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   223
                    name: 'Label2'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   224
                    layout: (LayoutFrame 0 0.0 35 0 160 0 57 0)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   225
                    translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   226
                    adjust: right
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   227
                  )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   228
                 (ComboBoxSpec
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   229
                    name: 'CCOptimizationFlagsComboBox'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   230
                    layout: (LayoutFrame 162 0.0 33 0 0 1.0 55 0)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   231
                    model: ccOptimizationFlagsHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   232
                    acceptOnPointerLeave: false
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   233
                    comboList: ccOptimizationFlagList
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   234
                    postBuildCallback: flagHolderBuilt:
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   235
                  )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   236
                 )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   237
               
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   238
              )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   239
            )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   240
           (FramedBoxSpec
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   241
              label: 'Includes'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   242
              name: 'FramedBox2'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   243
              layout: (LayoutFrame 0 0 98 0 0 1 160 0)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   244
              labelPosition: topLeft
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   245
              translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   246
              component: 
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   247
             (SpecCollection
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   248
                collection: (
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   249
                 (LabelSpec
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   250
                    label: 'Additional Includes:'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   251
                    name: 'Label3'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   252
                    layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   253
                    translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   254
                    adjust: right
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   255
                  )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   256
                 (InputFieldSpec
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   257
                    name: 'IncludeFlagsEntryField'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   258
                    layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   259
                    model: includeFlagsHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   260
                    acceptOnReturn: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   261
                    acceptOnTab: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   262
                    acceptOnLostFocus: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   263
                    acceptOnPointerLeave: false
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   264
                  )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   265
                 )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   266
               
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   267
              )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   268
            )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   269
           )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   270
         
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   271
        )
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   272
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   273
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   274
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   275
descriptionSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   276
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   277
     by the UIPainter of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   278
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   280
     the UIPainter may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   283
     UIPainter new openOnClass:ApplicationDefinitionBuilder andSelector:#descriptionSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   284
     ApplicationDefinitionBuilder new openInterface:#descriptionSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   285
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   286
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   287
    <resource: #canvas>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   288
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   289
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   290
     #(FullSpec
2727
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   291
        name: descriptionSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   292
        window:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   293
       (WindowSpec
2727
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   294
          label: 'NewApplication'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   295
          name: 'NewApplication'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   296
          min: (Point 0 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   297
          bounds: (Rectangle 0 0 433 300)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   298
        )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   299
        component:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   300
       (SpecCollection
2727
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   301
          collection: (
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   302
           (LabelSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   303
              label: 'Company:'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   304
              name: 'CompanyLabel'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   305
              layout: (LayoutFrame 2 0.0 13 0 160 0 35 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   306
              translateLabel: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   307
              adjust: right
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   308
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   309
           (InputFieldSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   310
              name: 'CompanyEntryField'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   311
              layout: (LayoutFrame 162 0.0 12 0 -2 1.0 34 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   312
              model: companyNameHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   313
              acceptOnReturn: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   314
              acceptOnTab: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   315
              acceptOnLostFocus: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   316
              acceptOnPointerLeave: false
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   317
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   318
           (LabelSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   319
              label: 'Description:'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   320
              name: 'DescriptionLabel'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   321
              layout: (LayoutFrame 2 0.0 39 0 160 0 61 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   322
              translateLabel: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   323
              adjust: right
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   324
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   325
           (InputFieldSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   326
              name: 'DescriptionEntryField'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   327
              layout: (LayoutFrame 162 0.0 38 0 -2 1.0 60 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   328
              model: descriptionHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   329
              acceptOnReturn: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   330
              acceptOnTab: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   331
              acceptOnLostFocus: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   332
              acceptOnPointerLeave: false
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   333
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   334
           (LabelSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   335
              label: 'ProductName:'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   336
              name: 'ProductNameLabel'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   337
              layout: (LayoutFrame 2 0.0 65 0 160 0 87 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   338
              translateLabel: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   339
              adjust: right
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   340
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   341
           (InputFieldSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   342
              name: 'ProductNameEntryField'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   343
              layout: (LayoutFrame 162 0.0 64 0 -2 1.0 86 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   344
              model: productNameHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   345
              acceptOnReturn: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   346
              acceptOnTab: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   347
              acceptOnLostFocus: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   348
              acceptOnPointerLeave: false
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   349
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   350
           (LabelSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   351
              label: 'ProductVersion:'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   352
              name: 'ProductVersionLabel'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   353
              layout: (LayoutFrame 2 0.0 91 0 160 0 113 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   354
              translateLabel: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   355
              adjust: right
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   356
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   357
           (InputFieldSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   358
              name: 'MajorVersionNrEntryField'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   359
              layout: (LayoutFrame 162 0.0 90 0 182 0.0 112 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   360
              model: majorVersionNrHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   361
              type: number
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   362
              acceptOnReturn: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   363
              acceptOnTab: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   364
              acceptOnLostFocus: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   365
              acceptOnPointerLeave: false
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   366
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   367
           (InputFieldSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   368
              name: 'MinorVersionNrEntryField'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   369
              layout: (LayoutFrame 184 0.0 90 0 204 0.0 112 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   370
              model: minorVersionNrHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   371
              type: numberOrNil
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   372
              acceptOnReturn: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   373
              acceptOnTab: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   374
              acceptOnLostFocus: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   375
              acceptOnPointerLeave: false
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   376
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   377
           (InputFieldSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   378
              name: 'RevisionNrEntryField'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   379
              layout: (LayoutFrame 206 0.0 90 0 226 0.0 112 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   380
              model: revisionNrHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   381
              type: number
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   382
              acceptOnReturn: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   383
              acceptOnTab: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   384
              acceptOnLostFocus: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   385
              acceptOnPointerLeave: false
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   386
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   387
           (InputFieldSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   388
              name: 'ReleaseNrEntryField'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   389
              layout: (LayoutFrame 228 0.0 90 0 248 0.0 112 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   390
              model: releaseNrHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   391
              type: number
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   392
              acceptOnReturn: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   393
              acceptOnTab: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   394
              acceptOnLostFocus: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   395
              acceptOnPointerLeave: false
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   396
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   397
           (LabelSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   398
              label: 'LegalCopyright:'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   399
              name: 'LegalCopyrightLabel'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   400
              layout: (LayoutFrame 2 0.0 119 0 160 0 141 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   401
              translateLabel: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   402
              adjust: right
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   403
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   404
           (InputFieldSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   405
              name: 'LegalCopyrightEntryField'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   406
              layout: (LayoutFrame 162 0.0 118 0 -2 1.0 140 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   407
              model: legalCopyrightHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   408
              acceptOnReturn: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   409
              acceptOnTab: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   410
              acceptOnLostFocus: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   411
              acceptOnPointerLeave: false
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   412
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   413
           (LabelSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   414
              label: 'FileDescriptionDescription:'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   415
              name: 'FileDescriptionLabel'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   416
              layout: (LayoutFrame 2 0.0 161 0 160 0 183 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   417
              translateLabel: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   418
              adjust: right
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   419
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   420
           (InputFieldSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   421
              name: 'FileDescriptionEntryField'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   422
              layout: (LayoutFrame 162 0.0 160 0 -2 1.0 182 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   423
              model: fileDescriptionHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   424
              acceptOnReturn: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   425
              acceptOnTab: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   426
              acceptOnLostFocus: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   427
              acceptOnPointerLeave: false
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   428
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   429
           (LabelSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   430
              label: 'FileVersion:'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   431
              name: 'FileVersionLabel'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   432
              layout: (LayoutFrame 2 0.0 187 0 160 0 209 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   433
              translateLabel: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   434
              adjust: right
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   435
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   436
           (InputFieldSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   437
              name: 'FileMajorVersionNrEntryField'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   438
              layout: (LayoutFrame 162 0.0 186 0 182 0.0 208 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   439
              model: fileMajorVersionNrHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   440
              type: number
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   441
              acceptOnReturn: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   442
              acceptOnTab: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   443
              acceptOnLostFocus: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   444
              acceptOnPointerLeave: false
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   445
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   446
           (InputFieldSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   447
              name: 'FileMinorVersionNrEntryField'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   448
              layout: (LayoutFrame 184 0.0 186 0 204 0.0 208 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   449
              model: fileMinorVersionNrHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   450
              type: number
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   451
              acceptOnReturn: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   452
              acceptOnTab: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   453
              acceptOnLostFocus: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   454
              acceptOnPointerLeave: false
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   455
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   456
           (InputFieldSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   457
              name: 'FileRevisionNrEntryField'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   458
              layout: (LayoutFrame 206 0.0 186 0 226 0.0 208 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   459
              model: fileRevisionNrHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   460
              type: number
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   461
              acceptOnReturn: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   462
              acceptOnTab: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   463
              acceptOnLostFocus: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   464
              acceptOnPointerLeave: false
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   465
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   466
           (InputFieldSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   467
              name: 'FileReleaseNrEntryField'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   468
              layout: (LayoutFrame 228 0.0 186 0 248 0.0 208 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   469
              model: fileReleaseNrHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   470
              type: number
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   471
              acceptOnReturn: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   472
              acceptOnTab: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   473
              acceptOnLostFocus: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   474
              acceptOnPointerLeave: false
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   475
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   476
           (LabelSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   477
              label: 'Icon Filename:'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   478
              name: 'IconFileNameLabel'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   479
              layout: (LayoutFrame 2 0.0 236 0 160 0 258 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   480
              visibilityChannel: isApplicationDefinitionHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   481
              translateLabel: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   482
              adjust: right
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   483
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   484
           (InputFieldSpec
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   485
              name: 'IconFileNameEntryField'
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   486
              layout: (LayoutFrame 162 0.0 234 0 -2 1.0 256 0)
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   487
              visibilityChannel: isApplicationDefinitionHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   488
              model: iconFileNameHolder
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   489
              acceptOnReturn: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   490
              acceptOnTab: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   491
              acceptOnLostFocus: true
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   492
              acceptOnPointerLeave: false
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   493
            )
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   494
           )
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   495
2727
e5f434daebb5 removed iconFilenameHolder
fm
parents: 2666
diff changeset
   496
        )
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   497
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   498
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   499
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   500
extensionsSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   501
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   502
     by the UIPainter of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   503
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   504
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   505
     the UIPainter may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   506
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   507
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   508
     UIPainter new openOnClass:ApplicationDefinitionEditor andSelector:#extensionsSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   509
     ApplicationDefinitionEditor new openInterface:#extensionsSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   510
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   511
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   512
    <resource: #canvas>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   513
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   514
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   515
     #(FullSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   516
	name: extensionsSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   517
	window:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   518
       (WindowSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   519
	  label: 'NewApplication'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   520
	  name: 'NewApplication'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   521
	  min: (Point 0 0)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   522
	  bounds: (Rectangle 0 0 300 300)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   523
	)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   524
	component:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   525
       (SpecCollection
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   526
	  collection: (
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   527
	   (DataSetSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   528
	      name: 'ExtensionsTable'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   529
	      layout: (LayoutFrame 0 0 0 0 0 1 0 1)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   530
	      model: selectedExtensionIndexHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   531
	      hasHorizontalScrollBar: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   532
	      hasVerticalScrollBar: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   533
	      dataList: extensionsListHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   534
	      columnHolder: extensionsTableColumns
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   535
	    )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   536
	   )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   537
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   538
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   539
      )
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
   540
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
   541
    "Modified: / 07-09-2006 / 11:35:17 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   542
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   543
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   544
prerequisitesSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   545
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   546
     by the UIPainter of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   547
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   548
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   549
     the UIPainter may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   550
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   551
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   552
     UIPainter new openOnClass:ApplicationDefinitionEditor andSelector:#extensionsSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
     ApplicationDefinitionEditor new openInterface:#extensionsSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   554
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   555
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   556
    <resource: #canvas>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   557
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   558
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   559
     #(FullSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   560
	name: extensionsSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   561
	window:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   562
       (WindowSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   563
	  label: 'NewApplication'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   564
	  name: 'NewApplication'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   565
	  min: (Point 0 0)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   566
	  bounds: (Rectangle 0 0 300 300)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   567
	)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   568
	component:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   569
       (SpecCollection
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   570
	  collection: (
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   571
	   (DataSetSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   572
	      name: 'ExtensionsTable'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   573
	      layout: (LayoutFrame 0 0 0 0 0 1 0 1)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   574
	      model: selectedPrerequisitesIndexHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   575
	      hasHorizontalScrollBar: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   576
	      hasVerticalScrollBar: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   577
	      dataList: prerequisitesListHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   578
	      columnHolder: prerequisitesTableColumns
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   579
	    )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   580
	   )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   581
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   582
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   584
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   585
    "Created: / 05-09-2006 / 13:21:32 / cg"
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
   586
    "Modified: / 07-09-2006 / 11:35:20 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   587
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   588
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   589
startupSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   590
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
     by the UIPainter of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   592
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
     the UIPainter may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   596
    "
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
   597
     UIPainter new openOnClass:Tools::ProjectDefinitionEditor andSelector:#startupSpec
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
   598
     Tools::ProjectDefinitionEditor new openInterface:#startupSpec
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   599
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   601
    <resource: #canvas>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   603
    ^ 
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
     #(FullSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
        name: startupSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
        window: 
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
       (WindowSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
          label: 'NewApplication'
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
          name: 'NewApplication'
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   610
          min: (Point 0 0)
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   611
          bounds: (Rectangle 0 0 433 300)
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   612
        )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   613
        component: 
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
       (SpecCollection
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
          collection: (
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   616
           (FramedBoxSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
              label: 'Startup'
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   618
              name: 'StartupFrame'
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
   619
              layout: (LayoutFrame 0 0 0 0 0 1 93 0)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   620
              labelPosition: topLeft
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   621
              translateLabel: true
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   622
              component: 
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   623
             (SpecCollection
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   624
                collection: (
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   625
                 (LabelSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   626
                    label: 'Startup Class:'
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   627
                    name: 'Label1'
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
                    layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
                    translateLabel: true
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
                    adjust: right
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   631
                  )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   632
                 (InputFieldSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   633
                    name: 'StartupClassEntryField'
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   634
                    layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   635
                    model: startupClassNameHolder
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   636
                    acceptOnReturn: true
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
                    acceptOnTab: true
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   638
                    acceptOnLostFocus: true
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   639
                    acceptOnPointerLeave: false
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   640
                  )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   641
                 (LabelSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   642
                    label: 'Startup Selector:'
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   643
                    name: 'Label2'
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   644
                    layout: (LayoutFrame 0 0.0 35 0 160 0 57 0)
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   645
                    translateLabel: true
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   646
                    adjust: right
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   647
                  )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   648
                 (InputFieldSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
                    name: 'StartupSelectorEntryField'
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   650
                    layout: (LayoutFrame 162 0.0 33 0 0 1.0 55 0)
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   651
                    model: startupSelectorHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
                    acceptOnReturn: true
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
                    acceptOnTab: true
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   654
                    acceptOnLostFocus: true
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   655
                    acceptOnPointerLeave: false
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
                  )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
                 )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   658
               
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
              )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   660
            )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
           (FramedBoxSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
              label: 'Execution'
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   663
              name: 'ExecutionFrame'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   664
              layout: (LayoutFrame 0 0 94 0 0 1 176 0)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   665
              labelPosition: topLeft
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
              translateLabel: true
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   667
              component: 
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   668
             (SpecCollection
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   669
                collection: (
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   670
                 (CheckBoxSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   671
                    label: 'Non-GUI Application'
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   672
                    name: 'Non-GUI CheckBox'
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
                    layout: (LayoutFrame 0 0.0 7 0 0 0.5 29 0)
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   674
                    model: isNonGUIApplicationHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   675
                    translateLabel: true
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   676
                  )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   677
                 (CheckBoxSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   678
                    label: 'Singlethreaded'
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   679
                    name: 'SinglethreadedCheckBox'
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   680
                    layout: (LayoutFrame 0 0.5 7 0 0 1 29 0)
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   681
                    enableChannel: isNonGUIApplicationHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   682
                    model: startSinglethreadedHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   683
                    translateLabel: true
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   684
                  )
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   685
                 (CheckBoxSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   686
                    label: 'Has Console'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   687
                    name: 'HasConsoleCheckBox1'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   688
                    layout: (LayoutFrame 0 0.5 34 0 0 1 56 0)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   689
                    enableChannel: isGUIApplicationHolder
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   690
                    model: shownHasConsoleHolder
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   691
                    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   692
                  )
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   693
                 )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   694
               
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   695
              )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   696
            )
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   697
           (FramedBoxSpec
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   698
              label: 'File Extensions'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   699
              name: 'FileExtensionsFrame'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   700
              layout: (LayoutFrame 0 0 177 0 0 1 237 0)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   701
              labelPosition: topLeft
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   702
              translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   703
              component: 
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   704
             (SpecCollection
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   705
                collection: (
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   706
                 (LabelSpec
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   707
                    label: 'Document Extensions:'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   708
                    name: 'Label3'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   709
                    layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   710
                    activeHelpKey: documentExtensions
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   711
                    translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   712
                    adjust: right
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   713
                  )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   714
                 (InputFieldSpec
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   715
                    activeHelpKey: documentExtensions
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   716
                    name: 'EntryField1'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   717
                    layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   718
                    model: documentExtensionsListStringHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   719
                    type: string
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   720
                    acceptOnReturn: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   721
                    acceptOnTab: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   722
                    acceptOnLostFocus: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   723
                    acceptOnPointerLeave: false
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   724
                  )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   725
                 )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   726
               
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   727
              )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   728
            )
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   729
           )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   730
         
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   731
        )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   732
      )
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   733
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   734
    "Modified: / 15-10-2006 / 14:35:12 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   735
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   736
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   737
windowSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   738
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   739
     by the UIPainter of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   740
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   741
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   742
     the UIPainter may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   743
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   744
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   745
     UIPainter new openOnClass:ApplicationDefinitionBuilder andSelector:#windowSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   746
     ApplicationDefinitionBuilder new openInterface:#windowSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   747
     ApplicationDefinitionBuilder open
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   748
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   749
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   750
    <resource: #canvas>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   751
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   752
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   753
     #(FullSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   754
	name: windowSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   755
	window:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   756
       (WindowSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   757
	  label: 'ApplicationDefinitionBuilder'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   758
	  name: 'ApplicationDefinitionBuilder'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   759
	  min: (Point 10 10)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   760
	  max: (Point 1024 768)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   761
	  bounds: (Rectangle 0 0 596 339)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   762
	  menu: mainMenu
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   763
	)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   764
	component:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   765
       (SpecCollection
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   766
	  collection: (
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   767
	   (NoteBookViewSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   768
	      name: 'NoteBook1'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   769
	      layout: (LayoutFrame 0 0 0 0 0 1 0 1)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   770
	      model: selectedTabIndexHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   771
	      menu: tabList
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   772
	      useIndex: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   773
	    )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   774
	   )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   775
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   776
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   777
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   778
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   779
    "Modified: / 03-09-2006 / 10:57:33 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   780
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   781
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   782
!ProjectDefinitionEditor class methodsFor:'list specs'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   783
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   784
tabList
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   785
^ self  tabListForApplication.
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   786
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   787
    "Created: / 06-09-2006 / 13:38:03 / cg"
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   788
!
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   789
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   790
tabListForApplication
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   791
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   792
     by the TabListEditor of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   793
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   794
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   795
     the TabListEditor may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   796
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   797
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   798
     TabListEditor new openOnClass: self andSelector:#tabList
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   799
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   800
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   801
    <resource: #tabList>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   802
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   803
    ^     #(
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   804
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   805
	  label: 'Description'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   806
	  minorKey: descriptionSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   807
	)
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   808
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   809
	  label: 'Classes'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   810
	  createNewBuilder: false
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   811
	  translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   812
	  minorKey: classesSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   813
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   814
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   815
	  label: 'Extensions'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   816
	  minorKey: extensionsSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   817
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   819
	  label: 'Prerequisites'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   820
	  minorKey: prerequisitesSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   821
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   823
	  label: 'Compilation'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   824
	  minorKey: compilationSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   825
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   827
	  label: 'Startup'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   828
	  minorKey: startupSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   829
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
       )
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   831
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
      collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
    "Created: / 05-09-2006 / 16:24:48 / cg"
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   835
    "Modified: / 06-09-2006 / 18:44:34 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   836
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   837
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   838
tabListForLibrary
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   839
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   840
     by the TabListEditor of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   841
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   842
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   843
     the TabListEditor may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   844
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   845
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   846
     TabListEditor new openOnClass: self andSelector:#tabList
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   847
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   848
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   849
    <resource: #tabList>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   850
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   851
    ^     #(
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   852
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   853
	  label: 'Description'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   854
	  minorKey: descriptionSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   855
	)
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   856
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   857
	  label: 'Classes'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   858
	  createNewBuilder: false
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   859
	  translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   860
	  minorKey: classesSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   861
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   862
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   863
	  label: 'Extensions'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   864
	  minorKey: extensionsSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   865
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   867
	  label: 'Prerequisites'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   868
	  minorKey: prerequisitesSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   869
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   871
	  label: 'Compilation'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   872
	  minorKey: compilationSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   873
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   874
       )
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   875
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   876
      collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
    "Created: / 05-09-2006 / 16:24:52 / cg"
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   879
    "Modified: / 06-09-2006 / 18:44:38 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   880
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   881
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   882
!ProjectDefinitionEditor class methodsFor:'menu specs'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   883
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   884
classListMenu
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   885
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   886
     by the MenuEditor of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   887
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   889
     the MenuEditor may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   890
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   891
    "
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
   892
     MenuEditor new openOnClass:Tools::ProjectDefinitionEditor andSelector:#classListMenu
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
   893
     (Menu new fromLiteralArrayEncoding:(Tools::ProjectDefinitionEditor classListMenu)) startUp
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   894
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   895
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   896
    <resource: #menu>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   897
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   898
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   899
     #(Menu
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   900
	(
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   901
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   902
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   903
	    label: 'Generate'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   904
	    itemValue: menuGenerateClassList
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   905
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   906
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   907
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   908
	    label: '-'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   909
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   910
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   911
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   912
	    label: 'Add...'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   913
	    itemValue: menuAddClass
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   914
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   915
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   916
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   917
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   918
	    label: 'Remove...'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   919
	    itemValue: menuRemoveClass
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   920
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   921
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   922
	 )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   923
	nil
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   924
	nil
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   925
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   926
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   927
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   928
extensionsListMenu
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   929
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   930
     by the MenuEditor of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   931
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   932
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   933
     the MenuEditor may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   934
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   935
    "
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
   936
     MenuEditor new openOnClass:Tools::ProjectDefinitionEditor andSelector:#extensionsListMenu
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
   937
     (Menu new fromLiteralArrayEncoding:(Tools::ProjectDefinitionEditor extensionsListMenu)) startUp
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   938
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   939
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   940
    <resource: #menu>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   941
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   942
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   943
     #(Menu
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   944
	(
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   945
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   946
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   947
	    label: 'Generate'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   948
	    itemValue: menuGenerateExtensionsList
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   949
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   950
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   951
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   952
	    label: '-'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   953
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   954
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   955
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   956
	    label: 'Add...'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   957
	    itemValue: menuAddExtension
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   958
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   959
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   960
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   961
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   962
	    label: 'Remove...'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   963
	    itemValue: menuRemoveExtension
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   964
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   965
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   966
	 )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   967
	nil
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   968
	nil
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   969
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   970
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   971
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   972
mainMenu
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   973
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   974
     by the MenuEditor of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   975
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   976
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   977
     the MenuEditor may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   978
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   979
    "
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
   980
     MenuEditor new openOnClass:Tools::ProjectDefinitionEditor andSelector:#mainMenu
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
   981
     (Menu new fromLiteralArrayEncoding:(Tools::ProjectDefinitionEditor mainMenu)) startUp
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   982
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   983
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   984
    <resource: #menu>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   985
2128
b64b5a143005 conditionalRight in startGroup
Claus Gittinger <cg@exept.de>
parents: 2121
diff changeset
   986
    ^ 
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   987
     #(Menu
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   988
        (
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   989
         (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   990
            label: 'File'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   991
            translateLabel: true
2128
b64b5a143005 conditionalRight in startGroup
Claus Gittinger <cg@exept.de>
parents: 2121
diff changeset
   992
            submenu: 
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   993
           (Menu
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   994
              (
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   995
               (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   996
                  label: 'New Library'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   997
                  itemValue: menuNewLibraryDefinition
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   998
                  translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   999
                )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1000
               (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1001
                  label: 'New Application'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1002
                  itemValue: menuNewApplicationDefinition
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1003
                  translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1004
                )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1005
               (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1006
                  label: '-'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1007
                )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1008
               (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1009
                  label: 'Open...'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1010
                  itemValue: menuOpen
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1011
                  translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1012
                )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1013
               (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1014
                  label: '-'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1015
                )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1016
               (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1017
                  enabled: hasDefinitionClassHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1018
                  label: 'Save'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1019
                  itemValue: menuSave
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1020
                  translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1021
                )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1022
               (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1023
                  enabled: hasDefinitionClassHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1024
                  label: 'Save As...'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1025
                  itemValue: menuSaveAs
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1026
                  translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1027
                )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1028
               (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1029
                  label: '-'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1030
                )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1031
               (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1032
                  label: 'Exit'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1033
                  itemValue: closeRequest
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1034
                  translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1035
                )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1036
               )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1037
              nil
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1038
              nil
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1039
            )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1040
          )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1041
         (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1042
            label: 'Definition'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1043
            translateLabel: true
2128
b64b5a143005 conditionalRight in startGroup
Claus Gittinger <cg@exept.de>
parents: 2121
diff changeset
  1044
            submenu: 
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1045
           (Menu
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1046
              (
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1047
               (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1048
                  enabled: hasDefinitionClassHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1049
                  label: 'Generate Definitions'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1050
                  itemValue: menuGenerateProjectDefinitions
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1051
                  translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1052
                )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1053
               )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1054
              nil
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1055
              nil
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1056
            )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1057
          )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1058
         (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1059
            label: 'Classes'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1060
            translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1061
            isVisible: classesMenuVisibleHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1062
            submenuChannel: classListMenu
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1063
            keepLinkedMenu: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1064
          )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1065
         (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1066
            label: 'Extensions'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1067
            translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1068
            isVisible: extensionsMenuVisibleHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1069
            submenuChannel: extensionsListMenu
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1070
            keepLinkedMenu: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1071
          )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1072
         (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1073
            label: 'Prerequisites'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1074
            translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1075
            isVisible: prerequisitesMenuVisibleHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1076
            submenuChannel: prerequisitesListMenu
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1077
            keepLinkedMenu: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1078
          )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1079
         (MenuItem
2666
316855d0ca7d changed:
Claus Gittinger <cg@exept.de>
parents: 2146
diff changeset
  1080
            label: 'MENU_Help'
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1081
            translateLabel: true
2128
b64b5a143005 conditionalRight in startGroup
Claus Gittinger <cg@exept.de>
parents: 2121
diff changeset
  1082
            startGroup: conditionalRight
b64b5a143005 conditionalRight in startGroup
Claus Gittinger <cg@exept.de>
parents: 2121
diff changeset
  1083
            submenu: 
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1084
           (Menu
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1085
              (
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1086
               (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1087
                  label: 'Documentation'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1088
                  itemValue: openDocumentation
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1089
                  translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1090
                )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1091
               (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1092
                  label: '-'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1093
                )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1094
               (MenuItem
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1095
                  label: 'About this Application...'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1096
                  itemValue: openAboutThisApplication
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1097
                  translateLabel: true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1098
                )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1099
               )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1100
              nil
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1101
              nil
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1102
            )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1103
          )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1104
         )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1105
        nil
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1106
        nil
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1107
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1108
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1109
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1110
prerequisitesListMenu
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1111
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1112
     by the MenuEditor of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1113
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1114
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1115
     the MenuEditor may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1116
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1117
    "
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1118
     MenuEditor new openOnClass:Tools::ProjectDefinitionEditor andSelector:#prerequisitesListMenu
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1119
     (Menu new fromLiteralArrayEncoding:(Tools::ProjectDefinitionEditor prerequisitesListMenu)) startUp
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1120
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1121
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1122
    <resource: #menu>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1123
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1124
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1125
     #(Menu
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1126
	(
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1127
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1128
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1129
	    label: 'Generate'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1130
	    itemValue: menuGeneratePrerequisitesList
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1131
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1132
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1133
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1134
	    label: '-'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1135
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1136
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1137
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1138
	    label: 'Add...'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1139
	    itemValue: menuAddPrerequisite
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1140
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1141
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1142
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1143
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1144
	    label: 'Remove...'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1145
	    itemValue: menuRemovePrerequisite
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1146
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1147
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1148
	 )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1149
	nil
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1150
	nil
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1151
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1152
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1153
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1154
!ProjectDefinitionEditor class methodsFor:'tableColumns specs'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1155
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1156
classesTableColumns
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1157
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1158
     by the DataSetBuilder of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1159
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1160
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1161
     the DataSetBuilder may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1162
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1163
    "
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1164
     DataSetBuilder new openOnClass:Tools::ProjectDefinitionEditor andSelector:#classesTableColumns
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1165
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1166
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1167
    <resource: #tableColumns>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1168
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1169
    ^#(
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1170
      (DataSetColumnSpec
2111
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1171
         label: 'Class'
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1172
         labelAlignment: left
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1173
         labelButtonType: Button
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1174
         model: className
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1175
         canSelect: false
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1176
       )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1177
      (DataSetColumnSpec
2111
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1178
         label: 'Auto'
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1179
         labelButtonType: Button
2146
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1180
         editorType: CheckToggle
2111
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1181
         rendererType: CheckToggle
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1182
         model: autoloaded
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1183
       )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1184
      (DataSetColumnSpec
2111
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1185
         label: 'Win32'
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1186
         labelButtonType: Button
2146
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1187
         editorType: CheckToggle
2111
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1188
         rendererType: CheckToggle
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1189
         model: win32
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1190
       )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1191
      (DataSetColumnSpec
2111
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1192
         label: 'Unix'
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1193
         labelButtonType: Button
2146
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1194
         editorType: CheckToggle
2111
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1195
         rendererType: CheckToggle
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1196
         model: unix
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1197
       )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1198
      )
2111
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1199
    
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1200
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1201
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1202
extensionsTableColumns
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1203
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1204
     by the DataSetBuilder of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1205
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1206
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1207
     the DataSetBuilder may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1208
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1209
    "
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1210
     DataSetBuilder new openOnClass:Tools::ProjectDefinitionEditor andSelector:#extensionsTableColumns
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1211
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1212
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1213
    <resource: #tableColumns>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1214
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1215
    ^#(
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1216
      (DataSetColumnSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1217
	 label: 'Class'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1218
	 labelAlignment: left
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1219
	 labelButtonType: Button
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1220
	 model: className
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1221
	 canSelect: false
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1222
       )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1223
      (DataSetColumnSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1224
	 label: 'Selector'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1225
	 labelAlignment: left
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1226
	 labelButtonType: Button
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1227
	 model: selector
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1228
	 canSelect: false
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1229
       )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1230
      )
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1231
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1232
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1233
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1234
prerequisitesTableColumns
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1235
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1236
     by the DataSetBuilder of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1237
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1238
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1239
     the DataSetBuilder may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1240
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1241
    "
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  1242
     DataSetBuilder new openOnClass:Tools::ProjectDefinitionEditor andSelector:#prerequisitesTableColumns
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1243
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1244
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1245
    <resource: #tableColumns>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1246
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1247
    ^#(
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1248
      (DataSetColumnSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1249
	 label: 'Package'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1250
	 labelAlignment: left
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1251
	 labelButtonType: Button
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1252
	 model: package
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1253
       )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1254
      )
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1255
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1256
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1257
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1258
!ProjectDefinitionEditor methodsFor:'accessing'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1259
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1260
definitionClass
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1261
    ^ definitionClass
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1262
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1263
    "Created: / 04-09-2006 / 16:30:09 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1264
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1265
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1266
definitionClass:aClass
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1267
    definitionClass := aClass.
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1268
    self refetchDefinitionValues.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1269
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1270
    "Created: / 04-09-2006 / 16:30:18 / cg"
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1271
    "Modified: / 07-09-2006 / 12:26:57 / cg"
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  1272
!
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  1273
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  1274
specClass:aClass
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  1275
    super specClass:aClass.
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  1276
    self definitionClass:aClass theNonMetaclass.
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  1277
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  1278
    "Created: / 06-09-2006 / 19:24:10 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1279
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1280
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1281
!ProjectDefinitionEditor methodsFor:'aspects'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1282
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1283
ccOptimizationFlagList
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1284
    ^ #(
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1285
        '-O'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1286
        '-g'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1287
    )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1288
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1289
    "Created: / 15-10-2006 / 15:14:39 / cg"
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1290
!
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1291
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1292
ccOptimizationFlagsHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1293
    ccOptimizationFlagsHolder isNil ifTrue:[
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1294
        ccOptimizationFlagsHolder := ValueHolder new.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1295
    ].
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1296
    ^ ccOptimizationFlagsHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1297
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1298
    "Created: / 15-10-2006 / 15:13:14 / cg"
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1299
!
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1300
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1301
classListHolder
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1302
    classListHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1303
	classListHolder := #() asValue.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1304
    ].
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1305
    ^ classListHolder.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1306
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1307
    "Created: / 07-09-2006 / 11:34:35 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1308
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1309
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1310
classesTableColumns
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1311
    classesTableColumns isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1312
	classesTableColumns := self class classesTableColumns asValue.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1313
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1314
    ^ classesTableColumns.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1315
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1316
    "Modified: / 04-09-2006 / 17:58:09 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1317
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1318
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1319
companyNameHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1320
    companyNameHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1321
	companyNameHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1322
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1323
    ^ companyNameHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1324
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1325
    "Created: / 04-09-2006 / 17:58:02 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1326
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1327
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1328
descriptionHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1329
    descriptionHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1330
	descriptionHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1331
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1332
    ^ descriptionHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1333
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1334
    "Modified: / 04-09-2006 / 17:58:15 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1335
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1336
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1337
documentExtensionsListStringHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1338
    documentExtensionsListStringHolder isNil ifTrue:[
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1339
        documentExtensionsListStringHolder := '' asValue.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1340
    ].
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1341
    ^ documentExtensionsListStringHolder.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1342
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1343
    "Created: / 15-10-2006 / 14:32:29 / cg"
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1344
!
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1345
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1346
extensionsListHolder
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1347
    extensionsListHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1348
	extensionsListHolder := #() asValue.
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1349
    ].
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1350
    ^ extensionsListHolder.
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1351
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1352
    "Created: / 07-09-2006 / 11:34:50 / cg"
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1353
!
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1354
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1355
fileDescriptionHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1356
    fileDescriptionHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1357
	fileDescriptionHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1358
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1359
    ^ fileDescriptionHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1360
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1361
    "Modified: / 04-09-2006 / 17:58:19 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1362
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1363
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1364
fileMajorVersionNrHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1365
    "automatically generated by UIPainter ..."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1366
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1367
    "*** the code below creates a default model when invoked."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1368
    "*** (which may not be the one you wanted)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1369
    "*** Please change as required and accept it in the browser."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1370
    "*** (and replace this comment by something more useful ;-)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1371
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1372
    fileMajorVersionNrHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1373
	fileMajorVersionNrHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1374
"/ if your app needs to be notified of changes, uncomment one of the lines below:
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1375
"/       fileMajorVersionNrHolder addDependent:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1376
"/       fileMajorVersionNrHolder onChangeSend:#fileMajorVersionNrHolderChanged to:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1377
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1378
    ^ fileMajorVersionNrHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1379
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1380
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1381
fileMinorVersionNrHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1382
    "automatically generated by UIPainter ..."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1383
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1384
    "*** the code below creates a default model when invoked."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1385
    "*** (which may not be the one you wanted)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1386
    "*** Please change as required and accept it in the browser."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1387
    "*** (and replace this comment by something more useful ;-)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1388
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1389
    fileMinorVersionNrHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1390
	fileMinorVersionNrHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1391
"/ if your app needs to be notified of changes, uncomment one of the lines below:
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1392
"/       fileMinorVersionNrHolder addDependent:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1393
"/       fileMinorVersionNrHolder onChangeSend:#fileMinorVersionNrHolderChanged to:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1394
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1395
    ^ fileMinorVersionNrHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1396
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1397
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1398
fileReleaseNrHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1399
    "automatically generated by UIPainter ..."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1400
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1401
    "*** the code below creates a default model when invoked."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1402
    "*** (which may not be the one you wanted)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1403
    "*** Please change as required and accept it in the browser."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1404
    "*** (and replace this comment by something more useful ;-)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1405
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1406
    fileReleaseNrHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1407
	fileReleaseNrHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1408
"/ if your app needs to be notified of changes, uncomment one of the lines below:
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1409
"/       fileReleaseNrHolder addDependent:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1410
"/       fileReleaseNrHolder onChangeSend:#fileReleaseNrHolderChanged to:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1411
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1412
    ^ fileReleaseNrHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1413
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1414
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1415
fileRevisionNrHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1416
    "automatically generated by UIPainter ..."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1417
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1418
    "*** the code below creates a default model when invoked."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1419
    "*** (which may not be the one you wanted)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1420
    "*** Please change as required and accept it in the browser."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1421
    "*** (and replace this comment by something more useful ;-)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1422
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1423
    fileRevisionNrHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1424
	fileRevisionNrHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1425
"/ if your app needs to be notified of changes, uncomment one of the lines below:
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1426
"/       fileRevisionNrHolder addDependent:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1427
"/       fileRevisionNrHolder onChangeSend:#fileRevisionNrHolderChanged to:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1428
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1429
    ^ fileRevisionNrHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1430
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1431
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1432
hasConsoleHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1433
    hasConsoleHolder isNil ifTrue:[
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1434
        hasConsoleHolder := false asValue
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1435
    ].
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1436
    ^ hasConsoleHolder.
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1437
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1438
    "Created: / 20-09-2006 / 14:39:18 / cg"
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1439
!
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1440
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1441
iconFileNameHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1442
    iconFileNameHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1443
	iconFileNameHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1444
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1445
    ^ iconFileNameHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1446
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1447
    "Created: / 04-09-2006 / 18:01:22 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1448
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1449
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1450
isApplicationDefinitionHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1451
    isApplicationDefinitionHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1452
	isApplicationDefinitionHolder := false asValue
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1453
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1454
    ^ isApplicationDefinitionHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1455
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1456
    "Created: / 04-09-2006 / 19:22:47 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1457
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1458
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1459
isGUIApplicationHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1460
    ^ BlockValue forLogicalNot:self isNonGUIApplicationHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1461
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1462
    "Created: / 20-09-2006 / 14:38:32 / cg"
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1463
!
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1464
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1465
isNonGUIApplicationHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1466
    isNonGUIApplicationHolder isNil ifTrue:[
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1467
        isNonGUIApplicationHolder := false asValue.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1468
        isNonGUIApplicationHolder addDependent:self.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1469
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1470
    ^ isNonGUIApplicationHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1471
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1472
    "Created: / 05-09-2006 / 13:34:31 / cg"
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1473
    "Modified: / 15-10-2006 / 14:00:03 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1474
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1475
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1476
legalCopyrightHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1477
    "automatically generated by UIPainter ..."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1478
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1479
    "*** the code below creates a default model when invoked."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1480
    "*** (which may not be the one you wanted)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1481
    "*** Please change as required and accept it in the browser."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1482
    "*** (and replace this comment by something more useful ;-)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1483
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1484
    legalCopyrightHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1485
	legalCopyrightHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1486
"/ if your app needs to be notified of changes, uncomment one of the lines below:
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1487
"/       legalCopyrightHolder addDependent:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1488
"/       legalCopyrightHolder onChangeSend:#legalCopyrightHolderChanged to:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1489
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1490
    ^ legalCopyrightHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1491
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1492
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1493
majorVersionNrHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1494
    "automatically generated by UIPainter ..."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1495
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1496
    "*** the code below creates a default model when invoked."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1497
    "*** (which may not be the one you wanted)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1498
    "*** Please change as required and accept it in the browser."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1499
    "*** (and replace this comment by something more useful ;-)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1500
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1501
    majorVersionNrHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1502
	majorVersionNrHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1503
"/ if your app needs to be notified of changes, uncomment one of the lines below:
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1504
"/       majorVersionNrHolder addDependent:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1505
"/       majorVersionNrHolder onChangeSend:#majorVersionNrHolderChanged to:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1506
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1507
    ^ majorVersionNrHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1508
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1509
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1510
minorVersionNrHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1511
    "automatically generated by UIPainter ..."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1512
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1513
    "*** the code below creates a default model when invoked."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1514
    "*** (which may not be the one you wanted)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1515
    "*** Please change as required and accept it in the browser."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1516
    "*** (and replace this comment by something more useful ;-)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1517
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1518
    minorVersionNrHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1519
	minorVersionNrHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1520
"/ if your app needs to be notified of changes, uncomment one of the lines below:
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1521
"/       minorVersionNrHolder addDependent:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1522
"/       minorVersionNrHolder onChangeSend:#minorVersionNrHolderChanged to:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1523
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1524
    ^ minorVersionNrHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1525
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1526
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1527
prerequisitesListHolder
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1528
    prerequisitesListHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1529
	prerequisitesListHolder := #() asValue.
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1530
    ].
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1531
    ^ prerequisitesListHolder.
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1532
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1533
    "Created: / 07-09-2006 / 11:35:03 / cg"
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1534
!
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1535
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1536
productNameHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1537
    "automatically generated by UIPainter ..."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1538
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1539
    "*** the code below creates a default model when invoked."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1540
    "*** (which may not be the one you wanted)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1541
    "*** Please change as required and accept it in the browser."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1542
    "*** (and replace this comment by something more useful ;-)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1543
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1544
    productNameHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1545
	productNameHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1546
"/ if your app needs to be notified of changes, uncomment one of the lines below:
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1547
"/       productNameHolder addDependent:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1548
"/       productNameHolder onChangeSend:#productNameHolderChanged to:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1549
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1550
    ^ productNameHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1551
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1552
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1553
releaseNrHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1554
    "automatically generated by UIPainter ..."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1555
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1556
    "*** the code below creates a default model when invoked."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1557
    "*** (which may not be the one you wanted)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1558
    "*** Please change as required and accept it in the browser."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1559
    "*** (and replace this comment by something more useful ;-)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1560
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1561
    releaseNrHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1562
	releaseNrHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1563
"/ if your app needs to be notified of changes, uncomment one of the lines below:
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1564
"/       releaseNrHolder addDependent:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1565
"/       releaseNrHolder onChangeSend:#releaseNrHolderChanged to:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1566
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1567
    ^ releaseNrHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1568
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1569
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1570
revisionNrHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1571
    "automatically generated by UIPainter ..."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1572
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1573
    "*** the code below creates a default model when invoked."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1574
    "*** (which may not be the one you wanted)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1575
    "*** Please change as required and accept it in the browser."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1576
    "*** (and replace this comment by something more useful ;-)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1577
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1578
    revisionNrHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1579
	revisionNrHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1580
"/ if your app needs to be notified of changes, uncomment one of the lines below:
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1581
"/       revisionNrHolder addDependent:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1582
"/       revisionNrHolder onChangeSend:#revisionNrHolderChanged to:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1583
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1584
    ^ revisionNrHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1585
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1586
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1587
selectedClassIndexHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1588
    "automatically generated by UIPainter ..."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1589
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1590
    "*** the code below creates a default model when invoked."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1591
    "*** (which may not be the one you wanted)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1592
    "*** Please change as required and accept it in the browser."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1593
    "*** (and replace this comment by something more useful ;-)"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1594
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1595
    selectedClassIndexHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1596
	selectedClassIndexHolder := ValueHolder new.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1597
"/ if your app needs to be notified of changes, uncomment one of the lines below:
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1598
"/       selectedClassIndexHolder addDependent:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1599
"/       selectedClassIndexHolder onChangeSend:#selectedClassIndexHolderChanged to:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1600
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1601
    ^ selectedClassIndexHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1602
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1603
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1604
shownHasConsoleHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1605
    shownHasConsoleHolder isNil ifTrue:[
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1606
        shownHasConsoleHolder := IndirectValue for:self hasConsoleHolder.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1607
    ].
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1608
    ^ shownHasConsoleHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1609
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1610
    "Created: / 15-10-2006 / 13:59:01 / cg"
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1611
!
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1612
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1613
shownHasConsoleValue
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1614
    ^ BlockValue 
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1615
        with:[:m1 :m2 | self isGUIApplicationHolder value not
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1616
                        or:[ self hasConsoleHolder value] ]
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1617
        argument:(self hasConsoleHolder)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1618
        argument:(self isGUIApplicationHolder).
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1619
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1620
    "Created: / 15-10-2006 / 13:54:16 / cg"
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1621
!
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1622
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1623
startSinglethreadedHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1624
    startSinglethreadedHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1625
	startSinglethreadedHolder := false asValue.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1626
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1627
    ^ startSinglethreadedHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1628
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1629
    "Created: / 05-09-2006 / 13:34:54 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1630
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1631
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1632
startupClassNameHolder
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1633
    startupClassNameHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1634
	startupClassNameHolder := '' asValue.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1635
    ].
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1636
    ^ startupClassNameHolder.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1637
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1638
    "Created: / 06-09-2006 / 18:41:52 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1639
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1640
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1641
startupSelectorHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1642
    startupSelectorHolder isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1643
	startupSelectorHolder := '' asValue.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1644
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1645
    ^ startupSelectorHolder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1646
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1647
    "Created: / 05-09-2006 / 13:34:20 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1648
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1649
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1650
stcOptimizationFlagList
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1651
    ^ #(
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1652
        '+optSpace'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1653
        '+optSpace2'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1654
        '+optSpace3'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1655
        '+optInline'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1656
        '-optInline'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1657
        '-inlineNew'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1658
        '-inlineNot'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1659
    )
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1660
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1661
    "Created: / 15-10-2006 / 15:14:29 / cg"
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1662
!
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1663
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1664
stcOptimizationFlagsHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1665
    stcOptimizationFlagsHolder isNil ifTrue:[
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1666
        stcOptimizationFlagsHolder := ValueHolder new.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1667
    ].
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1668
    ^ stcOptimizationFlagsHolder
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1669
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1670
    "Modified: / 15-10-2006 / 15:13:10 / cg"
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1671
!
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1672
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1673
tabList
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1674
    "Generated by the TabListEditor"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1675
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1676
    |list|
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1677
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1678
    (list := builder bindingAt:#tabList) isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1679
	builder aspectAt:#tabList put:(list := self class tabListForApplication asValue).
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1680
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1681
    ^ list
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1682
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1683
    "Modified: / 06-09-2006 / 17:58:08 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1684
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1685
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1686
!ProjectDefinitionEditor methodsFor:'aspects-menu'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1687
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1688
classesMenuVisibleHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1689
    ^ builder booleanValueAspectFor:#'classesMenuVisibleHolder'
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1690
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1691
    "Modified: / 03-09-2006 / 10:57:00 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1692
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1693
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1694
extensionsMenuVisibleHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1695
    ^ builder booleanValueAspectFor:#'extensionsMenuVisibleHolder'
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1696
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1697
    "Created: / 05-09-2006 / 13:03:16 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1698
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1699
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1700
hasDefinitionClass
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1701
    ^ definitionClass notNil
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1702
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1703
    "Created: / 07-09-2006 / 12:29:10 / cg"
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1704
!
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1705
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1706
hasDefinitionClassHolder
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1707
    ^ [ self hasDefinitionClass ]
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1708
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1709
    "Created: / 07-09-2006 / 12:29:22 / cg"
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1710
!
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1711
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1712
prerequisitesMenuVisibleHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1713
    ^ builder booleanValueAspectFor:#'prerequisitesMenuVisibleHolder'
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1714
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1715
    "Created: / 05-09-2006 / 13:26:45 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1716
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1717
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1718
selectedTabIndexHolder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1719
    |h|
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1720
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1721
    h := builder valueAspectFor:#'selectedTabIndexHolder' initialValue:nil.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1722
    h addDependent:self.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1723
    ^ h
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1724
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1725
    "Created: / 03-09-2006 / 10:58:05 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1726
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1727
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1728
!ProjectDefinitionEditor methodsFor:'change & update'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1729
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1730
fetchClassListEntries
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1731
    |entries|
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1732
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1733
    entries := OrderedCollection new.
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1734
    definitionClass
2146
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1735
        classNamesAndAttributesDo:[:className :attributes |
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1736
            |entry|
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1737
2146
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1738
            entry := ClassListEntry new.
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1739
            entry
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1740
                className:className
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1741
                autoloaded:(attributes includes:#autoload)
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1742
                win32:(attributes includes:#win32)
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1743
                unix:(attributes includes:#unix).
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1744
            entries add:entry.
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1745
        ].
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1746
    entries sort:[:a :b | a className < b className].
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1747
    ^ entries.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1748
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1749
    "Created: / 05-09-2006 / 12:31:26 / cg"
2146
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  1750
    "Modified: / 21-11-2006 / 18:04:35 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1751
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1752
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1753
fetchExtensionsListEntries
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1754
    |entries|
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1755
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1756
    entries := OrderedCollection new.
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1757
    definitionClass
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1758
	extensionMethodNames pairWiseDo:[:className :selector |
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1759
	    |entry|
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1760
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1761
	    entry := ExtensionsListEntry new.
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1762
	    entry className:className selector:selector.
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1763
	    entries add:entry.
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1764
	].
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1765
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1766
    ^ entries.
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1767
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1768
    "Created: / 06-09-2006 / 18:45:15 / cg"
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1769
!
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1770
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1771
fetchPrerequisitesListEntries
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1772
    |entries|
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1773
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1774
    entries := OrderedCollection new.
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1775
    definitionClass
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1776
	preRequisites do:[:packageName |
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1777
	    |entry|
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1778
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1779
	    entry := PrerequisitesListEntry new.
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1780
	    entry package:packageName.
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1781
	    entries add:entry.
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1782
	].
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1783
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1784
    ^ entries.
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1785
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1786
    "Created: / 06-09-2006 / 18:45:15 / cg"
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1787
    "Modified: / 07-09-2006 / 12:36:21 / cg"
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1788
!
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1789
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1790
fetchValues
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1791
    |definitionClass isApplicationDefinition startupClassName startupSelector|
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1792
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1793
    definitionClass := self definitionClass.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1794
    definitionClass isNil ifTrue:[^ self ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1795
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1796
    isApplicationDefinition := definitionClass isApplicationDefinition.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1797
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1798
    self isApplicationDefinitionHolder value:isApplicationDefinition.
2111
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1799
    self isNonGUIApplicationHolder value:(isApplicationDefinition and:[definitionClass isGUIApplication not]).
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1800
    self hasConsoleHolder value:(isApplicationDefinition and:[definitionClass isConsoleApplication]).
fd5f44a752ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2100
diff changeset
  1801
    self startSinglethreadedHolder value:(isApplicationDefinition and:[definitionClass isSingleThreadedApplication]).
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1802
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1803
    isApplicationDefinition ifTrue:[
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1804
        startupClassName := definitionClass name.
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1805
        startupSelector := #start.
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1806
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1807
        Error handle:[:ex | ] do:[ startupClassName := definitionClass startupClassName].
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1808
        Error handle:[:ex | ] do:[ startupSelector := definitionClass startupSelector].
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1809
        self startupClassNameHolder value:startupClassName.
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1810
        self startupSelectorHolder value:startupSelector.
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1811
2666
316855d0ca7d changed:
Claus Gittinger <cg@exept.de>
parents: 2146
diff changeset
  1812
        self iconFileNameHolder value:(definitionClass applicationIconFileName).
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1813
        self tabList value:(self class tabListForApplication).
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1814
        self documentExtensionsListStringHolder value:(definitionClass documentExtensions asStringWith:';').
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1815
    ] ifFalse:[
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1816
        self tabList value:(self class tabListForLibrary).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1817
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1818
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1819
    self companyNameHolder value:(definitionClass companyName).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1820
    self descriptionHolder value:(definitionClass description).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1821
    self legalCopyrightHolder value:(definitionClass legalCopyright).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1822
    self productNameHolder value:(definitionClass productName).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1823
    self majorVersionNrHolder value:(definitionClass majorVersionNr asInteger).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1824
    self minorVersionNrHolder value:(definitionClass minorVersionNr asInteger).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1825
    self revisionNrHolder value:(definitionClass revisionNr asInteger).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1826
    self releaseNrHolder value:(definitionClass releaseNr asInteger).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1827
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1828
    self fileDescriptionHolder value:(definitionClass fileDescription).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1829
    self fileMajorVersionNrHolder value:(definitionClass fileMajorVersionNr asInteger).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1830
    self fileMinorVersionNrHolder value:(definitionClass fileMinorVersionNr asInteger).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1831
    self fileRevisionNrHolder value:(definitionClass fileRevisionNr asInteger).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1832
    self fileReleaseNrHolder value:(definitionClass fileReleaseNr asInteger).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1833
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1834
    self classListHolder value:(self fetchClassListEntries).
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1835
    self extensionsListHolder value:(self fetchExtensionsListEntries).
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  1836
    self prerequisitesListHolder value:(self fetchPrerequisitesListEntries).
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1837
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1838
    self window notNil ifTrue:[
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1839
        self window
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1840
            label:(isApplicationDefinition
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1841
                    ifTrue:'Application'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1842
                    ifFalse:'Library' )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1843
                        , ' Definition: ',definitionClass name.
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1844
    ].
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1845
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1846
    "Created: / 04-09-2006 / 16:34:39 / cg"
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1847
    "Modified: / 15-10-2006 / 14:32:45 / cg"
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1848
!
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1849
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1850
refetchDefinitionValues
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1851
    self isApplicationDefinitionHolder value:( definitionClass isApplicationDefinition ).
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1852
    self fetchValues.
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1853
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1854
    "Created: / 07-09-2006 / 12:26:54 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1855
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1856
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1857
update:something with:parameter from:changedObject
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1858
    changedObject == self selectedTabIndexHolder ifTrue:[
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1859
        self updateMenuVisibility.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1860
        ^ self.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1861
    ].
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1862
    changedObject == self isNonGUIApplicationHolder ifTrue:[
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1863
        changedObject value ifTrue:[
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1864
            "/ a NON-GUI application - always has a console
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1865
            self shownHasConsoleHolder valueHolder:true
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1866
        ] ifFalse:[
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1867
            "/ a GUI application - sometimes has a console
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1868
            self shownHasConsoleHolder valueHolder:(self hasConsoleHolder)
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1869
        ].
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1870
        ^ self.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1871
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1872
    ^ super update:something with:parameter from:changedObject
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1873
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1874
    "Created: / 03-09-2006 / 10:59:42 / cg"
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1875
    "Modified: / 15-10-2006 / 14:08:23 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1876
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1877
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1878
updateMenuVisibility
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1879
    self classesMenuVisibleHolder value:(self hasClassesTabSelected).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1880
    self extensionsMenuVisibleHolder value:(self hasExtensionsTabSelected).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1881
    self prerequisitesMenuVisibleHolder value:(self hasPrerequisitesTabSelected).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1882
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1883
    "Created: / 03-09-2006 / 11:01:48 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1884
    "Modified: / 05-09-2006 / 13:27:10 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1885
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1886
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1887
!ProjectDefinitionEditor methodsFor:'initialization & release'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1888
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1889
closeRequest
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1890
    (self hasUnsavedChanges) ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1891
	(self confirm:(resources string:'Close without saving ?')) ifFalse:[
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1892
	    ^ self
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1893
	]
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1894
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1895
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1896
    ^ super closeRequest
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1897
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1898
    "Modified: / 03-09-2006 / 10:53:14 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1899
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1900
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1901
flagHolderBuilt:aComboBox
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1902
    aComboBox menuSelectAction:[:txt |
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1903
        self updateFlagsIn:aComboBox from:txt
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1904
    ].
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1905
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1906
    "Created: / 15-10-2006 / 15:11:50 / cg"
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1907
!
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1908
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1909
postBuildWith:aBuilder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1910
    super postBuildWith:aBuilder.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1911
    self selectedTabIndexHolder value:1.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1912
    self updateMenuVisibility.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1913
    self fetchValues.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1914
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1915
    "Modified: / 04-09-2006 / 16:28:09 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1916
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1917
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1918
postOpenWith:aBuilder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1919
    "This is a hook method generated by the Browser.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1920
     It will be invoked right after the applications window has been opened.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1921
     Add any app-specific actions here (starting background processes etc.).
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1922
     See also #postBuildWith:, which is invoked before opening."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1923
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1924
    "/ add any code here ...
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1925
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1926
    ^ super postOpenWith:aBuilder
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1927
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1928
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1929
!ProjectDefinitionEditor methodsFor:'menu actions'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1930
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1931
editNew:definitionClass
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1932
    |className class newPackage|
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1933
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1934
    self hasUnsavedChanges ifTrue:[
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1935
        self halt.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1936
    ].
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1937
    className := Dialog
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1938
                    requestClassName:'Name of new Definition class'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1939
                    okLabel:'Create'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1940
                    initialAnswer:'private_myProject'.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1941
    className isEmptyOrNil ifTrue:[^ self].
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1942
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1943
    class := Smalltalk classNamed:className.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1944
    class notNil ifTrue:[
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1945
        (class isLibraryDefinition == (definitionClass == LibraryDefinition)) ifFalse:[
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1946
            Dialog warn:(resources
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1947
                            string:'A class named "%1" already exists as %2.'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1948
                            with:className allBold
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1949
                            with:(class isLibraryDefinition 
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1950
                                    ifTrue:'Library'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1951
                                    ifFalse:'Application')).
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1952
            ^ self
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1953
        ].
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1954
        Dialog warn:(resources
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1955
                            string:'A class named "%1" already exists. Editing the existing definition.'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1956
                            with:className allBold).
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1957
    ] ifFalse:[
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1958
        newPackage := className copy replaceAll:$_ with:$/.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1959
        newPackage replaceAll:$/ with:$:. 
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1960
        class := definitionClass newNamed:className package:newPackage.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1961
    ].
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1962
    self definitionClass:class.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1963
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1964
    "Created: / 15-10-2006 / 14:50:15 / cg"
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1965
!
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  1966
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1967
menuGenerateProjectDefinitions
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1968
    |action|
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  1969
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1970
    action := [:generator :defClass |
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1971
		    defClass theNonMetaclass
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1972
			forEachMethodsCodeToCompileDo:
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1973
			    [:code :category |
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1974
				generator
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1975
				    compile:code
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1976
				    forClass:defClass theMetaclass
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1977
				    inCategory:category.
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1978
			    ]
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1979
			ignoreOldDefinition:true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1980
	       ].
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  1981
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1982
    masterApplication notNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1983
	masterApplication
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1984
	    generateUndoableChange:'Generate Project Definitions'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1985
	    overClasses:(Array with:self definitionClass)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1986
	    via:action.
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1987
    ] ifFalse:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1988
	action value:Compiler value:self definitionClass
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1989
    ].
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1990
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1991
    self refetchDefinitionValues
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1992
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1993
    "Created: / 07-09-2006 / 12:26:22 / cg"
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  1994
!
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  1995
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1996
menuNew
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1997
    "This method was generated by the Browser.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1998
     It will be invoked when the menu-item 'new' is selected."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1999
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2000
    "/ change below and add any actions as required here ...
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2001
    self warn:'no action for ''new'' available.'.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2002
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2003
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2004
menuNewApplicationDefinition
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2005
    self editNew:ApplicationDefinition
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2006
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2007
    "Created: / 15-10-2006 / 14:49:53 / cg"
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2008
!
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2009
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2010
menuNewLibraryDefinition
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2011
    self editNew:LibraryDefinition
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2012
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2013
    "Created: / 15-10-2006 / 14:49:46 / cg"
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2014
!
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2015
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2016
menuOpen
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2017
    |projectID class answer|
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2018
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2019
    projectID := Dialog requestProject:'Project' initialAnswer:'' suggestions:nil.
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2020
    class := ProjectDefinition definitionClassForPackage:projectID.
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2021
    class isNil ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  2022
	answer := Dialog
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  2023
	    confirmWithCancel:(resources string:'No Projectdefinition class exists for "%1".\\Create ?' with:projectID allBold)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  2024
	    labels:(resources array:#('Cancel' 'Create Library' 'Create Application' ))
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  2025
	    values:#(nil LibraryDefinition ApplicationDefinition)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  2026
	    default:2
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  2027
	    boxLabel:(resources string:'Create Projectdefinition').
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  2028
	answer isNil ifTrue:[^ self].
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2029
    ].
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2030
    answer == #LibraryDefinition ifTrue:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  2031
	class := LibraryDefinition definitionClassForPackage:projectID createIfAbsent:true
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2032
    ] ifFalse:[
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  2033
	class := ApplicationDefinition definitionClassForPackage:projectID createIfAbsent:true
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2034
    ].
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2035
    self definitionClass:class.
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2036
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2037
    "Modified: / 07-09-2006 / 12:19:58 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2038
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2039
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2040
menuRemoveClass
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2041
    |classListHolder|
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2042
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2043
    classListHolder := self classListHolder.
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2044
    classListHolder value removeIndex:(self selectedClassIndexHolder value).
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2045
    classListHolder changed.
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2046
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2047
    "Created: / 06-09-2006 / 21:31:05 / cg"
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2048
    "Modified: / 07-09-2006 / 11:35:44 / cg"
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2049
!
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2050
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2051
menuSave
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2052
    self menuSaveAs:definitionClass name
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2053
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2054
    "Modified: / 05-09-2006 / 13:48:27 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2055
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2056
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2057
menuSaveAs
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2058
    |className class newPackage|
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2059
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  2060
    className := Dialog
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2061
                    requestClassName:'Name of new Definition class'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2062
                    okLabel:'Create'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2063
                    initialAnswer:'private_myProject'.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2064
    className isEmptyOrNil ifTrue:[^ self].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2065
    class := Smalltalk classNamed:className.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2066
    class notNil ifTrue:[
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2067
        Dialog warn:(resources
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2068
                            string:'A class named %1 already exists'
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2069
                            with:className).
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2070
        ^ self.
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2071
    ].
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2072
    newPackage := className copy replaceAll:$_ with:$/.
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2073
    newPackage replaceAll:$/ with:$:. 
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2074
    class := ApplicationDefinition newNamed:className package:newPackage.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2075
    self menuSaveAs:class.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2076
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2077
    "Modified: / 15-10-2006 / 14:47:53 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2078
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2079
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2080
menuSaveAs:aClassName
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2081
    self halt.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2082
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2083
    "Created: / 05-09-2006 / 13:48:03 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2084
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2085
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2086
openAboutThisApplication
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2087
    "This method was generated by the Browser.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2088
     It will be invoked when the menu-item 'help-about' is selected."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2089
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2090
    "/ could open a customized aboutBox here ...
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2091
    super openAboutThisApplication
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2092
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2093
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2094
openDocumentation
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2095
    "This method was generated by the Browser.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2096
     It will be invoked when the menu-item 'help-documentation' is selected."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2097
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2098
    "/ change below as required ...
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2099
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2100
    "/ to open an HTML viewer on some document (under 'doc/online/<language>/' ):
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2101
    HTMLDocumentView openFullOnDocumentationFile:'TOP.html'.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2102
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2103
    "/ add application-specific help files under the 'doc/online/<language>/help/appName'
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2104
    "/ directory, and open a viewer with:
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2105
    "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2106
!
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2107
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2108
updateFlagsIn:aComboBox from:flag
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2109
    |s flags base negation|
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2110
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2111
    s := aComboBox editor contents.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2112
    flags := s asCollectionOfWords.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2113
    (flags includes:flag) ifFalse:[
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2114
        base := (flag copyFrom:2).
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2115
        negation := (flag startsWith:'+') 
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2116
                        ifTrue:[ ('-',base) ]
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2117
                        ifFalse:[ ('+',base) ].
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2118
        flags remove:negation ifAbsent:[].
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2119
        flags add:flag.
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2120
        aComboBox editor contents:(flags asStringWith:' ').
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2121
    ].
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2122
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
  2123
    "Created: / 15-10-2006 / 15:35:53 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2124
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2125
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2126
!ProjectDefinitionEditor methodsFor:'queries'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2127
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2128
hasClassesTabSelected
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2129
    ^ self selectedTabIndex == 2
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2130
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2131
    "Created: / 03-09-2006 / 11:00:39 / cg"
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2132
    "Modified: / 06-09-2006 / 21:20:21 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2133
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2134
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2135
hasExtensionsTabSelected
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2136
    ^ self selectedTabIndex == 3
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2137
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2138
    "Created: / 05-09-2006 / 13:02:26 / cg"
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2139
    "Modified: / 06-09-2006 / 21:20:25 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2140
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2141
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2142
hasPrerequisitesTabSelected
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2143
    ^ self selectedTabIndex == 4
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2144
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2145
    "Created: / 05-09-2006 / 13:27:16 / cg"
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2146
    "Modified: / 06-09-2006 / 21:20:33 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2147
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2148
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2149
hasUnsavedChanges
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2150
     ^ false
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2151
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2152
    "Created: / 03-09-2006 / 10:53:05 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2153
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2154
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2155
selectedClass
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2156
    |item|
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2157
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2158
    item := self classListHolder value at:(self selectedClassIndexHolder value).
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2159
self halt.
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2160
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2161
    "Created: / 06-09-2006 / 21:32:20 / cg"
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2162
    "Modified: / 07-09-2006 / 11:35:48 / cg"
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2163
!
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
  2164
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2165
selectedTabIndex
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2166
    ^ self selectedTabIndexHolder value
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2167
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2168
    "Created: / 03-09-2006 / 11:00:48 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2169
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2170
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2171
!ProjectDefinitionEditor::ClassListEntry methodsFor:'accessing'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2172
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2173
autoloaded
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2174
    ^ autoloaded
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2175
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2176
2146
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  2177
autoloaded:aBoolean
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  2178
    autoloaded := aBoolean.
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  2179
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  2180
    "Modified: / 21-11-2006 / 18:05:26 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2181
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2182
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2183
className
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2184
    ^ className
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2185
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2186
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2187
className:something
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2188
    className := something.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2189
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2190
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  2191
className:classNameArg autoloaded:autoloadedArg win32:win32Arg unix:unixArg
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2192
    className := classNameArg.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2193
    autoloaded := autoloadedArg.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2194
    win32 := win32Arg.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2195
    unix := unixArg.
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2196
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2197
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2198
unix
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2199
    ^ unix
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2200
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2201
2146
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  2202
unix:aBoolean
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  2203
    unix := aBoolean.
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  2204
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  2205
    "Modified: / 21-11-2006 / 18:05:32 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2206
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2207
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2208
win32
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2209
    ^ win32
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2210
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2211
2146
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  2212
win32:aBoolean
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  2213
    win32 := aBoolean.
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  2214
a5ce8e00652f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2128
diff changeset
  2215
    "Modified: / 21-11-2006 / 18:05:35 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2216
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2217
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  2218
!ProjectDefinitionEditor::ExtensionsListEntry methodsFor:'accessing'!
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  2219
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  2220
className
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  2221
    ^ className
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  2222
!
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  2223
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  2224
className:classNameArg selector:selectorArg
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  2225
    className := classNameArg.
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  2226
    selector := selectorArg.
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  2227
!
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  2228
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  2229
selector
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  2230
    ^ selector
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  2231
! !
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  2232
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2233
!ProjectDefinitionEditor::PrerequisitesListEntry methodsFor:'accessing'!
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2234
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2235
package
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2236
    ^ package
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2237
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2238
    "Created: / 07-09-2006 / 12:23:17 / cg"
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2239
!
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2240
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2241
package:something
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2242
    package := something.
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2243
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2244
    "Created: / 07-09-2006 / 12:23:19 / cg"
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2245
! !
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
  2246
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2247
!ProjectDefinitionEditor class methodsFor:'documentation'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2248
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2249
version
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2250
    ^ '$Header$'
2666
316855d0ca7d changed:
Claus Gittinger <cg@exept.de>
parents: 2146
diff changeset
  2251
!
316855d0ca7d changed:
Claus Gittinger <cg@exept.de>
parents: 2146
diff changeset
  2252
316855d0ca7d changed:
Claus Gittinger <cg@exept.de>
parents: 2146
diff changeset
  2253
version_CVS
316855d0ca7d changed:
Claus Gittinger <cg@exept.de>
parents: 2146
diff changeset
  2254
    ^ '$Header$'
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2255
! !