Tools__ProjectDefinitionEditor.st
author Stefan Vogel <sv@exept.de>
Tue, 20 Feb 2018 21:52:40 +0100
changeset 3541 23028559b7b2
parent 3523 25fa267c550a
permissions -rw-r--r--
#OTHER by stefan changed: #commonPostBuild rename #useAlienInfoLabeloHolder methodto #useAlienInfoLabel to avoid recursion
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
    "
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
    87
     UIHelpTool openOnClass:Tools::ProjectDefinitionEditor
2121
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
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
!ProjectDefinitionEditor class methodsFor:'interface specs'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
classesSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
     by the UIPainter of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
     the UIPainter may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
    "
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
   112
     UIPainter new openOnClass:Tools::ProjectDefinitionEditor andSelector:#classesSpec
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
   113
     Tools::ProjectDefinitionEditor new openInterface:#classesSpec
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
    <resource: #canvas>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   118
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
     #(FullSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   120
	name: classesSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   121
	window:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
       (WindowSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   123
	  label: 'NewApplication'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   124
	  name: 'NewApplication'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   125
	  min: (Point 0 0)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   126
	  bounds: (Rectangle 0 0 300 300)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   127
	)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   128
	component:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
       (SpecCollection
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   130
	  collection: (
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   131
	   (DataSetSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   132
	      name: 'ClassesTable'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   133
	      layout: (LayoutFrame 0 0 0 0 0 1 0 1)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   134
	      model: selectedClassIndexHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   135
	      menu: classListMenu
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   136
	      hasHorizontalScrollBar: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   137
	      hasVerticalScrollBar: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   138
	      dataList: classListHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   139
	      columnHolder: classesTableColumns
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   140
	    )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   141
	   )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   142
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   143
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
      )
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
   145
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
   146
    "Modified: / 07-09-2006 / 11:35:14 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
compilationSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
     by the UIPainter of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
     the UIPainter may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
    "
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
   157
     UIPainter new openOnClass:Tools::ProjectDefinitionEditor andSelector:#compilationSpec
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
   158
     Tools::ProjectDefinitionEditor new openInterface:#compilationSpec
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
    <resource: #canvas>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   163
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
     #(FullSpec
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   165
	name: compilationSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   166
	window:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
       (WindowSpec
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   168
	  label: 'NewApplication'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   169
	  name: 'NewApplication'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   170
	  min: (Point 0 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   171
	  bounds: (Rectangle 0 0 433 300)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   172
	)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   173
	component:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
       (SpecCollection
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   175
	  collection: (
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   176
	   (FramedBoxSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   177
	      label: 'Optimization'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   178
	      name: 'FramedBox1'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   179
	      layout: (LayoutFrame 0 0 0 0 0 1 93 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   180
	      labelPosition: topLeft
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   181
	      translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   182
	      component:
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   183
	     (SpecCollection
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   184
		collection: (
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   185
		 (LabelSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   186
		    label: 'STC Optimization Flags:'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   187
		    name: 'Label1'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   188
		    layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   189
		    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   190
		    adjust: right
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   191
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   192
		 (ComboBoxSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   193
		    name: 'STCOptimizationFlagsComboBox'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   194
		    layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   195
		    model: stcOptimizationFlagsHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   196
		    acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   197
		    comboList: stcOptimizationFlagList
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   198
		    postBuildCallback: flagHolderBuilt:
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   199
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   200
		 (LabelSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   201
		    label: 'CC Optimization Flags:'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   202
		    name: 'Label2'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   203
		    layout: (LayoutFrame 0 0.0 35 0 160 0 57 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   204
		    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   205
		    adjust: right
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   206
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   207
		 (ComboBoxSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   208
		    name: 'CCOptimizationFlagsComboBox'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   209
		    layout: (LayoutFrame 162 0.0 33 0 0 1.0 55 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   210
		    model: ccOptimizationFlagsHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   211
		    acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   212
		    comboList: ccOptimizationFlagList
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   213
		    postBuildCallback: flagHolderBuilt:
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   214
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   215
		 )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   216
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   217
	      )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   218
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   219
	   (FramedBoxSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   220
	      label: 'Includes'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   221
	      name: 'FramedBox2'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   222
	      layout: (LayoutFrame 0 0 98 0 0 1 160 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   223
	      labelPosition: topLeft
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   224
	      translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   225
	      component:
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   226
	     (SpecCollection
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   227
		collection: (
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   228
		 (LabelSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   229
		    label: 'Additional Includes:'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   230
		    name: 'Label3'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   231
		    layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   232
		    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   233
		    adjust: right
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   234
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   235
		 (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   236
		    name: 'IncludeFlagsEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   237
		    layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   238
		    model: includeFlagsHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   239
		    acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   240
		    acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   241
		    acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   242
		    acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   243
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   244
		 )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   245
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   246
	      )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   247
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   248
	   )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   249
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   250
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   251
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   252
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   253
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
descriptionSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   255
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
     by the UIPainter of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   257
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
     the UIPainter may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   260
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   262
     UIPainter new openOnClass:ApplicationDefinitionBuilder andSelector:#descriptionSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   263
     ApplicationDefinitionBuilder new openInterface:#descriptionSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
    <resource: #canvas>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   268
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
     #(FullSpec
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   270
	name: descriptionSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   271
	window:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   272
       (WindowSpec
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   273
	  label: 'NewApplication'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   274
	  name: 'NewApplication'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   275
	  min: (Point 0 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   276
	  bounds: (Rectangle 0 0 433 300)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   277
	)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   278
	component:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
       (SpecCollection
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   280
	  collection: (
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   281
	   (LabelSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   282
	      label: 'Company:'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   283
	      name: 'CompanyLabel'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   284
	      layout: (LayoutFrame 2 0.0 13 0 160 0 35 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   285
	      translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   286
	      adjust: right
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   287
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   288
	   (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   289
	      name: 'CompanyEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   290
	      layout: (LayoutFrame 162 0.0 12 0 -2 1.0 34 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   291
	      model: companyNameHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   292
	      acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   293
	      acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   294
	      acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   295
	      acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   296
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   297
	   (LabelSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   298
	      label: 'Description:'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   299
	      name: 'DescriptionLabel'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   300
	      layout: (LayoutFrame 2 0.0 39 0 160 0 61 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   301
	      translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   302
	      adjust: right
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   303
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   304
	   (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   305
	      name: 'DescriptionEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   306
	      layout: (LayoutFrame 162 0.0 38 0 -2 1.0 60 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   307
	      model: descriptionHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   308
	      acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   309
	      acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   310
	      acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   311
	      acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   312
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   313
	   (LabelSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   314
	      label: 'ProductName:'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   315
	      name: 'ProductNameLabel'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   316
	      layout: (LayoutFrame 2 0.0 65 0 160 0 87 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   317
	      translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   318
	      adjust: right
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   319
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   320
	   (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   321
	      name: 'ProductNameEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   322
	      layout: (LayoutFrame 162 0.0 64 0 -2 1.0 86 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   323
	      model: productNameHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   324
	      acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   325
	      acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   326
	      acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   327
	      acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   328
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   329
	   (LabelSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   330
	      label: 'ProductVersion:'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   331
	      name: 'ProductVersionLabel'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   332
	      layout: (LayoutFrame 2 0.0 91 0 160 0 113 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   333
	      translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   334
	      adjust: right
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   335
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   336
	   (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   337
	      name: 'MajorVersionNrEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   338
	      layout: (LayoutFrame 162 0.0 90 0 182 0.0 112 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   339
	      model: majorVersionNrHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   340
	      type: number
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   341
	      acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   342
	      acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   343
	      acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   344
	      acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   345
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   346
	   (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   347
	      name: 'MinorVersionNrEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   348
	      layout: (LayoutFrame 184 0.0 90 0 204 0.0 112 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   349
	      model: minorVersionNrHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   350
	      type: numberOrNil
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   351
	      acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   352
	      acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   353
	      acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   354
	      acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   355
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   356
	   (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   357
	      name: 'RevisionNrEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   358
	      layout: (LayoutFrame 206 0.0 90 0 226 0.0 112 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   359
	      model: revisionNrHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   360
	      type: number
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   361
	      acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   362
	      acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   363
	      acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   364
	      acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   365
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   366
	   (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   367
	      name: 'ReleaseNrEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   368
	      layout: (LayoutFrame 228 0.0 90 0 248 0.0 112 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   369
	      model: releaseNrHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   370
	      type: number
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   371
	      acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   372
	      acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   373
	      acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   374
	      acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   375
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   376
	   (LabelSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   377
	      label: 'LegalCopyright:'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   378
	      name: 'LegalCopyrightLabel'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   379
	      layout: (LayoutFrame 2 0.0 119 0 160 0 141 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   380
	      translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   381
	      adjust: right
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   382
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   383
	   (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   384
	      name: 'LegalCopyrightEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   385
	      layout: (LayoutFrame 162 0.0 118 0 -2 1.0 140 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   386
	      model: legalCopyrightHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   387
	      acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   388
	      acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   389
	      acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   390
	      acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   391
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   392
	   (LabelSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   393
	      label: 'FileDescriptionDescription:'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   394
	      name: 'FileDescriptionLabel'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   395
	      layout: (LayoutFrame 2 0.0 161 0 160 0 183 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   396
	      translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   397
	      adjust: right
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   398
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   399
	   (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   400
	      name: 'FileDescriptionEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   401
	      layout: (LayoutFrame 162 0.0 160 0 -2 1.0 182 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   402
	      model: fileDescriptionHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   403
	      acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   404
	      acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   405
	      acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   406
	      acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   407
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   408
	   (LabelSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   409
	      label: 'FileVersion:'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   410
	      name: 'FileVersionLabel'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   411
	      layout: (LayoutFrame 2 0.0 187 0 160 0 209 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   412
	      translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   413
	      adjust: right
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   414
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   415
	   (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   416
	      name: 'FileMajorVersionNrEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   417
	      layout: (LayoutFrame 162 0.0 186 0 182 0.0 208 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   418
	      model: fileMajorVersionNrHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   419
	      type: number
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   420
	      acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   421
	      acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   422
	      acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   423
	      acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   424
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   425
	   (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   426
	      name: 'FileMinorVersionNrEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   427
	      layout: (LayoutFrame 184 0.0 186 0 204 0.0 208 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   428
	      model: fileMinorVersionNrHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   429
	      type: number
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   430
	      acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   431
	      acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   432
	      acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   433
	      acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   434
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   435
	   (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   436
	      name: 'FileRevisionNrEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   437
	      layout: (LayoutFrame 206 0.0 186 0 226 0.0 208 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   438
	      model: fileRevisionNrHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   439
	      type: number
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   440
	      acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   441
	      acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   442
	      acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   443
	      acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   444
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   445
	   (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   446
	      name: 'FileReleaseNrEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   447
	      layout: (LayoutFrame 228 0.0 186 0 248 0.0 208 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   448
	      model: fileReleaseNrHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   449
	      type: number
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   450
	      acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   451
	      acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   452
	      acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   453
	      acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   454
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   455
	   (LabelSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   456
	      label: 'Icon Filename:'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   457
	      name: 'IconFileNameLabel'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   458
	      layout: (LayoutFrame 2 0.0 236 0 160 0 258 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   459
	      visibilityChannel: isApplicationDefinitionHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   460
	      translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   461
	      adjust: right
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   462
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   463
	   (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   464
	      name: 'IconFileNameEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   465
	      layout: (LayoutFrame 162 0.0 234 0 -2 1.0 256 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   466
	      visibilityChannel: isApplicationDefinitionHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   467
	      model: iconFileNameHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   468
	      acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   469
	      acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   470
	      acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   471
	      acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   472
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   473
	   )
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   474
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   475
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   476
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   477
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   478
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   479
extensionsSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   480
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   481
     by the UIPainter of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   482
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   483
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   484
     the UIPainter may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   485
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   486
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   487
     UIPainter new openOnClass:ApplicationDefinitionEditor andSelector:#extensionsSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   488
     ApplicationDefinitionEditor new openInterface:#extensionsSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   489
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   490
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   491
    <resource: #canvas>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   492
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   493
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   494
     #(FullSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   495
	name: extensionsSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   496
	window:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   497
       (WindowSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   498
	  label: 'NewApplication'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   499
	  name: 'NewApplication'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   500
	  min: (Point 0 0)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   501
	  bounds: (Rectangle 0 0 300 300)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   502
	)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   503
	component:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   504
       (SpecCollection
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   505
	  collection: (
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   506
	   (DataSetSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   507
	      name: 'ExtensionsTable'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   508
	      layout: (LayoutFrame 0 0 0 0 0 1 0 1)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   509
	      model: selectedExtensionIndexHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   510
	      hasHorizontalScrollBar: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   511
	      hasVerticalScrollBar: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   512
	      dataList: extensionsListHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   513
	      columnHolder: extensionsTableColumns
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   514
	    )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   515
	   )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   516
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   517
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   518
      )
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
   519
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
   520
    "Modified: / 07-09-2006 / 11:35:17 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   521
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   522
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   523
prerequisitesSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   524
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   525
     by the UIPainter of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   526
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   527
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   528
     the UIPainter may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   529
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   530
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   531
     UIPainter new openOnClass:ApplicationDefinitionEditor andSelector:#extensionsSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   532
     ApplicationDefinitionEditor new openInterface:#extensionsSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   533
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   534
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   535
    <resource: #canvas>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   536
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   537
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   538
     #(FullSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   539
	name: extensionsSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   540
	window:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   541
       (WindowSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   542
	  label: 'NewApplication'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   543
	  name: 'NewApplication'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   544
	  min: (Point 0 0)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   545
	  bounds: (Rectangle 0 0 300 300)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   546
	)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   547
	component:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   548
       (SpecCollection
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   549
	  collection: (
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   550
	   (DataSetSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   551
	      name: 'ExtensionsTable'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   552
	      layout: (LayoutFrame 0 0 0 0 0 1 0 1)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   553
	      model: selectedPrerequisitesIndexHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   554
	      hasHorizontalScrollBar: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   555
	      hasVerticalScrollBar: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   556
	      dataList: prerequisitesListHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   557
	      columnHolder: prerequisitesTableColumns
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   558
	    )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   559
	   )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   560
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   561
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   562
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   563
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   564
    "Created: / 05-09-2006 / 13:21:32 / cg"
2081
7bd90dbd7018 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2080
diff changeset
   565
    "Modified: / 07-09-2006 / 11:35:20 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   566
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   567
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   568
startupSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   569
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   570
     by the UIPainter of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   571
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   573
     the UIPainter may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   574
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
    "
2080
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
   576
     UIPainter new openOnClass:Tools::ProjectDefinitionEditor andSelector:#startupSpec
b76931b8e953 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2079
diff changeset
   577
     Tools::ProjectDefinitionEditor new openInterface:#startupSpec
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   580
    <resource: #canvas>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   581
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   582
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
     #(FullSpec
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   584
	name: startupSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   585
	window:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
       (WindowSpec
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   587
	  label: 'NewApplication'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   588
	  name: 'NewApplication'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   589
	  min: (Point 0 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   590
	  bounds: (Rectangle 0 0 433 300)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   591
	)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   592
	component:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
       (SpecCollection
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   594
	  collection: (
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   595
	   (FramedBoxSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   596
	      label: 'Startup'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   597
	      name: 'StartupFrame'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   598
	      layout: (LayoutFrame 0 0 0 0 0 1 93 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   599
	      labelPosition: topLeft
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   600
	      translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   601
	      component:
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   602
	     (SpecCollection
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   603
		collection: (
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   604
		 (LabelSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   605
		    label: 'Startup Class:'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   606
		    name: 'Label1'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   607
		    layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   608
		    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   609
		    adjust: right
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   610
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   611
		 (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   612
		    name: 'StartupClassEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   613
		    layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   614
		    model: startupClassNameHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   615
		    acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   616
		    acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   617
		    acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   618
		    acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   619
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   620
		 (LabelSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   621
		    label: 'Startup Selector:'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   622
		    name: 'Label2'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   623
		    layout: (LayoutFrame 0 0.0 35 0 160 0 57 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   624
		    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   625
		    adjust: right
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   626
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   627
		 (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   628
		    name: 'StartupSelectorEntryField'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   629
		    layout: (LayoutFrame 162 0.0 33 0 0 1.0 55 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   630
		    model: startupSelectorHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   631
		    acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   632
		    acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   633
		    acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   634
		    acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   635
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   636
		 )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   637
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   638
	      )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   639
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   640
	   (FramedBoxSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   641
	      label: 'Execution'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   642
	      name: 'ExecutionFrame'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   643
	      layout: (LayoutFrame 0 0 94 0 0 1 176 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   644
	      labelPosition: topLeft
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   645
	      translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   646
	      component:
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   647
	     (SpecCollection
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   648
		collection: (
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   649
		 (CheckBoxSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   650
		    label: 'Non-GUI Application'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   651
		    name: 'Non-GUI CheckBox'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   652
		    layout: (LayoutFrame 0 0.0 7 0 0 0.5 29 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   653
		    model: isNonGUIApplicationHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   654
		    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   655
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   656
		 (CheckBoxSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   657
		    label: 'Singlethreaded'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   658
		    name: 'SinglethreadedCheckBox'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   659
		    layout: (LayoutFrame 0 0.5 7 0 0 1 29 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   660
		    enableChannel: isNonGUIApplicationHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   661
		    model: startSinglethreadedHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   662
		    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   663
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   664
		 (CheckBoxSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   665
		    label: 'Has Console'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   666
		    name: 'HasConsoleCheckBox1'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   667
		    layout: (LayoutFrame 0 0.5 34 0 0 1 56 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   668
		    enableChannel: isGUIApplicationHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   669
		    model: shownHasConsoleHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   670
		    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   671
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   672
		 )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   673
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   674
	      )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   675
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   676
	   (FramedBoxSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   677
	      label: 'File Extensions'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   678
	      name: 'FileExtensionsFrame'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   679
	      layout: (LayoutFrame 0 0 177 0 0 1 237 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   680
	      labelPosition: topLeft
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   681
	      translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   682
	      component:
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   683
	     (SpecCollection
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   684
		collection: (
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   685
		 (LabelSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   686
		    label: 'Document Extensions:'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   687
		    name: 'Label3'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   688
		    layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   689
		    activeHelpKey: documentExtensions
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   690
		    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   691
		    adjust: right
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   692
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   693
		 (InputFieldSpec
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   694
		    activeHelpKey: documentExtensions
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   695
		    name: 'EntryField1'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   696
		    layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   697
		    model: documentExtensionsListStringHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   698
		    type: string
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   699
		    acceptOnReturn: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   700
		    acceptOnTab: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   701
		    acceptOnLostFocus: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   702
		    acceptOnPointerLeave: false
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   703
		  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   704
		 )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   705
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   706
	      )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   707
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   708
	   )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   709
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   710
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   711
      )
2121
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   712
ef8750cd1bab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2111
diff changeset
   713
    "Modified: / 15-10-2006 / 14:35:12 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   714
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   715
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   716
windowSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   717
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   718
     by the UIPainter of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   719
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   720
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   721
     the UIPainter may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   722
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   723
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   724
     UIPainter new openOnClass:ApplicationDefinitionBuilder andSelector:#windowSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   725
     ApplicationDefinitionBuilder new openInterface:#windowSpec
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   726
     ApplicationDefinitionBuilder open
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   727
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   728
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   729
    <resource: #canvas>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   730
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   731
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   732
     #(FullSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   733
	name: windowSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   734
	window:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   735
       (WindowSpec
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   736
	  label: 'ApplicationDefinitionBuilder'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   737
	  name: 'ApplicationDefinitionBuilder'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   738
	  min: (Point 10 10)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   739
	  max: (Point 1024 768)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   740
	  bounds: (Rectangle 0 0 596 339)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   741
	  menu: mainMenu
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   742
	)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   743
	component:
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   744
       (SpecCollection
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   745
	  collection: (
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   746
	   (NoteBookViewSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   747
	      name: 'NoteBook1'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   748
	      layout: (LayoutFrame 0 0 0 0 0 1 0 1)
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   749
	      model: selectedTabIndexHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   750
	      menu: tabList
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   751
	      useIndex: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   752
	    )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   753
	   )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   754
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   755
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   756
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   757
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   758
    "Modified: / 03-09-2006 / 10:57:33 / cg"
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   759
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   760
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   761
!ProjectDefinitionEditor class methodsFor:'list specs'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   762
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   763
tabList
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   764
^ self  tabListForApplication.
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   765
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   766
    "Created: / 06-09-2006 / 13:38:03 / cg"
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   767
!
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   768
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   769
tabListForApplication
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   770
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   771
     by the TabListEditor of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   772
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   773
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   774
     the TabListEditor may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   775
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   776
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   777
     TabListEditor new openOnClass: self andSelector:#tabList
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   778
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   779
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   780
    <resource: #tabList>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   781
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   782
    ^     #(
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   783
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   784
	  label: 'Description'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   785
	  minorKey: descriptionSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   786
	)
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   787
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   788
	  label: 'Classes'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   789
	  createNewBuilder: false
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   790
	  translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   791
	  minorKey: classesSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   792
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   793
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   794
	  label: 'Extensions'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   795
	  minorKey: extensionsSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   796
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   797
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   798
	  label: 'Prerequisites'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   799
	  minorKey: prerequisitesSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   800
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   801
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   802
	  label: 'Compilation'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   803
	  minorKey: compilationSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   804
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   805
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   806
	  label: 'Startup'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   807
	  minorKey: startupSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   808
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   809
       )
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   810
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   811
      collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   812
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   813
    "Created: / 05-09-2006 / 16:24:48 / cg"
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   814
    "Modified: / 06-09-2006 / 18:44:34 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   815
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   816
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   817
tabListForLibrary
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
     by the TabListEditor of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   821
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
     the TabListEditor may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   823
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   824
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
     TabListEditor new openOnClass: self andSelector:#tabList
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   827
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   828
    <resource: #tabList>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
    ^     #(
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   831
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   832
	  label: 'Description'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   833
	  minorKey: descriptionSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   834
	)
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   835
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   836
	  label: 'Classes'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   837
	  createNewBuilder: false
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   838
	  translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   839
	  minorKey: classesSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   840
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   841
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   842
	  label: 'Extensions'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   843
	  minorKey: extensionsSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   844
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   845
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   846
	  label: 'Prerequisites'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   847
	  minorKey: prerequisitesSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   848
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   849
       (TabItem
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   850
	  label: 'Compilation'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   851
	  minorKey: compilationSpec
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   852
	)
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   853
       )
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   854
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   855
      collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   856
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   857
    "Created: / 05-09-2006 / 16:24:52 / cg"
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
   858
    "Modified: / 06-09-2006 / 18:44:38 / cg"
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   859
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   860
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   861
!ProjectDefinitionEditor class methodsFor:'menu specs'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   862
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   863
classListMenu
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   864
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
     by the MenuEditor of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   867
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
     the MenuEditor may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   869
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
    "
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
   871
     MenuEditor new openOnClass:Tools::ProjectDefinitionEditor andSelector:#classListMenu
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
   872
     (Menu new fromLiteralArrayEncoding:(Tools::ProjectDefinitionEditor classListMenu)) startUp
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   873
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   874
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   875
    <resource: #menu>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   876
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   877
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
     #(Menu
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   879
	(
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   880
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   881
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   882
	    label: 'Generate'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   883
	    itemValue: menuGenerateClassList
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   884
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   885
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   886
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   887
	    label: '-'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   888
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   889
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   890
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   891
	    label: 'Add...'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   892
	    itemValue: menuAddClass
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   893
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   894
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   895
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   896
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   897
	    label: 'Remove...'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   898
	    itemValue: menuRemoveClass
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   899
	    translateLabel: true
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
	 )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   902
	nil
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   903
	nil
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   904
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   905
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   906
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   907
extensionsListMenu
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   908
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   909
     by the MenuEditor of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   910
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   911
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   912
     the MenuEditor may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   913
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   914
    "
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
   915
     MenuEditor new openOnClass:Tools::ProjectDefinitionEditor andSelector:#extensionsListMenu
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
   916
     (Menu new fromLiteralArrayEncoding:(Tools::ProjectDefinitionEditor extensionsListMenu)) startUp
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   917
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   918
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   919
    <resource: #menu>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   920
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   921
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   922
     #(Menu
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   923
	(
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   924
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   925
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   926
	    label: 'Generate'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   927
	    itemValue: menuGenerateExtensionsList
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   928
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   929
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   930
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   931
	    label: '-'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   932
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   933
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   934
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   935
	    label: 'Add...'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   936
	    itemValue: menuAddExtension
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   937
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   938
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   939
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   940
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   941
	    label: 'Remove...'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   942
	    itemValue: menuRemoveExtension
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   943
	    translateLabel: true
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
	 )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   946
	nil
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
   947
	nil
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   948
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   949
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   950
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   951
mainMenu
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   952
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   953
     by the MenuEditor of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   954
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   955
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   956
     the MenuEditor may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   957
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   958
    "
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
   959
     MenuEditor new openOnClass:Tools::ProjectDefinitionEditor andSelector:#mainMenu
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
   960
     (Menu new fromLiteralArrayEncoding:(Tools::ProjectDefinitionEditor mainMenu)) startUp
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   961
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   962
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   963
    <resource: #menu>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   964
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   965
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   966
     #(Menu
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   967
	(
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   968
	 (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   969
	    label: 'File'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   970
	    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   971
	    submenu:
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   972
	   (Menu
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   973
	      (
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   974
	       (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   975
		  label: 'New Library'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   976
		  itemValue: menuNewLibraryDefinition
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   977
		  translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   978
		)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   979
	       (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   980
		  label: 'New Application'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   981
		  itemValue: menuNewApplicationDefinition
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   982
		  translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   983
		)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   984
	       (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   985
		  label: '-'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   986
		)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   987
	       (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   988
		  label: 'Open...'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   989
		  itemValue: menuOpen
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   990
		  translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   991
		)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   992
	       (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   993
		  label: '-'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   994
		)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   995
	       (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   996
		  enabled: hasDefinitionClassHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   997
		  label: 'Save'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   998
		  itemValue: menuSave
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
   999
		  translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1000
		)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1001
	       (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1002
		  enabled: hasDefinitionClassHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1003
		  label: 'Save As...'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1004
		  itemValue: menuSaveAs
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1005
		  translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1006
		)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1007
	       (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1008
		  label: '-'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1009
		)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1010
	       (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1011
		  label: 'Exit'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1012
		  itemValue: closeRequest
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1013
		  translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1014
		)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1015
	       )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1016
	      nil
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1017
	      nil
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1018
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1019
	  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1020
	 (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1021
	    label: 'Definition'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1022
	    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1023
	    submenu:
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1024
	   (Menu
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1025
	      (
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1026
	       (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1027
		  enabled: hasDefinitionClassHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1028
		  label: 'Generate Definitions'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1029
		  itemValue: menuGenerateProjectDefinitions
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1030
		  translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1031
		)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1032
	       )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1033
	      nil
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1034
	      nil
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1035
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1036
	  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1037
	 (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1038
	    label: 'Classes'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1039
	    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1040
	    isVisible: classesMenuVisibleHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1041
	    submenuChannel: classListMenu
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1042
	    keepLinkedMenu: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1043
	  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1044
	 (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1045
	    label: 'Extensions'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1046
	    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1047
	    isVisible: extensionsMenuVisibleHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1048
	    submenuChannel: extensionsListMenu
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1049
	    keepLinkedMenu: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1050
	  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1051
	 (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1052
	    label: 'Prerequisites'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1053
	    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1054
	    isVisible: prerequisitesMenuVisibleHolder
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1055
	    submenuChannel: prerequisitesListMenu
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1056
	    keepLinkedMenu: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1057
	  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1058
	 (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1059
	    label: 'MENU_Help'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1060
	    translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1061
	    startGroup: conditionalRight
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1062
	    submenu:
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1063
	   (Menu
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1064
	      (
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1065
	       (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1066
		  label: 'Documentation'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1067
		  itemValue: openDocumentation
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1068
		  translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1069
		)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1070
	       (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1071
		  label: '-'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1072
		)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1073
	       (MenuItem
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1074
		  label: 'About this Application...'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1075
		  itemValue: openAboutThisApplication
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1076
		  translateLabel: true
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1077
		)
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1078
	       )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1079
	      nil
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1080
	      nil
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1081
	    )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1082
	  )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1083
	 )
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1084
	nil
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1085
	nil
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1086
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1087
!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1088
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1089
prerequisitesListMenu
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1090
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1091
     by the MenuEditor of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1092
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1093
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1094
     the MenuEditor may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1095
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1096
    "
2082
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1097
     MenuEditor new openOnClass:Tools::ProjectDefinitionEditor andSelector:#prerequisitesListMenu
cb4532367cc0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2081
diff changeset
  1098
     (Menu new fromLiteralArrayEncoding:(Tools::ProjectDefinitionEditor prerequisitesListMenu)) startUp
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1099
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1100
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1101
    <resource: #menu>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1102
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1103
    ^
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1104
     #(Menu
2100
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1105
	(
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1106
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1107
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1108
	    label: 'Generate'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1109
	    itemValue: menuGeneratePrerequisitesList
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1110
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1111
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1112
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1113
	    label: '-'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1114
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1115
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1116
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1117
	    label: 'Add...'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1118
	    itemValue: menuAddPrerequisite
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1119
	    translateLabel: true
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1120
	  )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1121
	 (MenuItem
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1122
	    enabled: hasDefinitionClassHolder
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1123
	    label: 'Remove...'
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1124
	    itemValue: menuRemovePrerequisite
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1125
	    translateLabel: true
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
	 )
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1128
	nil
4a7a7734e30c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2082
diff changeset
  1129
	nil
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1130
      )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1131
! !
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1132
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1133
!ProjectDefinitionEditor class methodsFor:'tableColumns specs'!
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1134
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1135
classesTableColumns
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1136
    "This resource specification was automatically generated
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1137
     by the DataSetBuilder of ST/X."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1138
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1139
    "Do not manually edit this!! If it is corrupted,
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1140
     the DataSetBuilder may not be able to read the specification."
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1141
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1142
    "
2079
43f28c0ce813 tab confusion
Claus Gittinger <cg@exept.de>
parents: 2078
diff changeset
  1143
     DataSetBuilder new openOnClass:Tools::ProjectDefinitionEditor andSelector:#classesTableColumns
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1144
    "
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1145
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1146
    <resource: #tableColumns>
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1147
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1148
    ^#(
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1149
      (DataSetColumnSpec
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1150
	 label: 'Class'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1151
	 labelAlignment: left
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1152
	 labelButtonType: Button
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1153
	 model: className
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1154
	 canSelect: false
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1155
       )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1156
      (DataSetColumnSpec
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1157
	 label: 'Auto'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1158
	 labelButtonType: Button
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1159
	 editorType: CheckToggle
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1160
	 rendererType: CheckToggle
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1161
	 model: autoloaded
2078
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1162
       )
67cc88b7b310 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1163
      (DataSetColumnSpec
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1164
	 label: 'Win32'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1165
	 labelButtonType: Button
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1166
	 editorType: CheckToggle
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1167
	 rendererType: CheckToggle
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1168
	 model: win32
2078
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
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1171
	 label: 'Unix'
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1172
	 labelButtonType: Button
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1173
	 editorType: CheckToggle
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1174
	 rendererType: CheckToggle
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1175
	 model: unix
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
      )
3523
25fa267c550a flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
  1178
2078