MenuEditor.st
author tz
Wed, 28 Jan 1998 19:10:17 +0100
changeset 508 968c6aa88ef0
parent 507 1586e7da66bc
child 509 3d42fb6ec7b0
permissions -rw-r--r--
updates channels after adding menu items
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
     1
"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
     2
 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
     3
              All Rights Reserved
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
     4
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
     5
 This software is furnished under a license and may be used
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    10
 hereby transferred.
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    11
"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    12
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    13
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    14
398
155310ec83aa revised version
tz
parents: 382
diff changeset
    15
ToolApplicationModel subclass:#MenuEditor
356
269c117830ba before closing the builder, check for outstanding
ca
parents: 340
diff changeset
    16
	instanceVariableNames:'isModified specClass specCanvas helpCanvas tabSelection aspects
269c117830ba before closing the builder, check for outstanding
ca
parents: 340
diff changeset
    17
		slices didInstall'
220
ca
parents: 218
diff changeset
    18
	classVariableNames:''
ca
parents: 218
diff changeset
    19
	poolDictionaries:''
ca
parents: 218
diff changeset
    20
	category:'Interface-UIPainter'
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    21
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    22
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    23
Object subclass:#Item
220
ca
parents: 218
diff changeset
    24
	instanceVariableNames:'activeHelpKey enabled label value nameKey indication shortcutKey
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
    25
		accessCharacterPos retriever icon iconAndLabel submenuChannel
398
155310ec83aa revised version
tz
parents: 382
diff changeset
    26
		argument translateLabel isButton'
220
ca
parents: 218
diff changeset
    27
	classVariableNames:''
ca
parents: 218
diff changeset
    28
	poolDictionaries:''
ca
parents: 218
diff changeset
    29
	privateIn:MenuEditor
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    30
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    31
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
    32
SelectionInTreeView subclass:#TreeView
275
cdecb5b5d356 set fontHeight dependent on max. image height
ca
parents: 270
diff changeset
    33
	instanceVariableNames:'images'
cdecb5b5d356 set fontHeight dependent on max. image height
ca
parents: 270
diff changeset
    34
	classVariableNames:'CopyBuffer Images'
220
ca
parents: 218
diff changeset
    35
	poolDictionaries:''
ca
parents: 218
diff changeset
    36
	privateIn:MenuEditor
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    37
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    38
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    39
!MenuEditor class methodsFor:'documentation'!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    40
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    41
copyright
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    42
"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    43
 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    44
              All Rights Reserved
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    45
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    46
 This software is furnished under a license and may be used
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    47
 only in accordance with the terms of that license and with the
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    48
 inclusion of the above copyright notice.   This software may not
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    49
 be provided or otherwise made available to, or used by, any
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    50
 other person.  No title to or ownership of the software is
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    51
 hereby transferred.
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    52
"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    53
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    54
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    55
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    56
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    57
documentation
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    58
"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    59
    create and modify or inspect popup and pullDown menus of the
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    60
    new style( derives from Menu).
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    61
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    62
    [start with:]
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    63
        MenuEditor open
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    64
        MenuEditor new openOnClass:MenuEditor andSelector:#menuPullDown
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    65
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    66
    [see also:]
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    67
        UIPainter
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    68
        UIHelpTool
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    69
        UISpecificationTool
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    70
        SelectionInTreeView
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    71
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    72
    [author:]
398
155310ec83aa revised version
tz
parents: 382
diff changeset
    73
        Claus Atzkern, Thomas Zwick
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    74
"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    75
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    76
! !
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    77
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
    78
!MenuEditor class methodsFor:'initialization'!
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
    79
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
    80
initialize
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
    81
432
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel
tz
parents: 422
diff changeset
    82
    super initialize.
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel
tz
parents: 422
diff changeset
    83
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
    84
    TreeView initialize
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
    85
! !
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
    86
508
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
    87
!MenuEditor class methodsFor:'instance creation'!
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
    88
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
    89
openModalOnClass:aClass andSelector:aSelector
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
    90
    ^ self new openModalOnClass:aClass andSelector:aSelector
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
    91
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
    92
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
    93
!
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
    94
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
    95
openOnClass:aClass andSelector:aSelector
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
    96
    ^ self new openOnClass:aClass andSelector:aSelector
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
    97
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
    98
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
    99
! !
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   100
318
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   101
!MenuEditor class methodsFor:'code generation'!
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   102
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   103
generateCodeFor:aClass menuSelector:aSelector
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   104
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   105
    |code category|
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   106
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   107
    category := self sourceCategory.
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   108
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   109
    code := Character excla asString 
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   110
            , aClass name , ' methodsFor:' , category storeString
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   111
            , Character excla asString , '\\'
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   112
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   113
            , aSelector , '\'
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   114
            , '    "this window spec was automatically generated by the UI Builder"\\'
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   115
            , '    ^ self class ', aSelector, '\\'
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   116
            , '\'
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   117
            , Character excla asString
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   118
            , ' '
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   119
            , Character excla asString
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   120
            , '\\'.
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   121
    ^ code
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   122
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   123
"
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   124
self generateCodeFor:MenuEditor menuSelector:#menu
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   125
"
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   126
!
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   127
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   128
sourceCategory
432
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel
tz
parents: 422
diff changeset
   129
    "returns the category where to install the menu
318
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   130
    "
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   131
    ^ 'accessing menu'
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   132
! !
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   133
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   134
!MenuEditor class methodsFor:'help specs'!
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   135
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   136
helpSpec
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   137
    "return a dictionary filled with helpKey -> helptext associations.
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   138
     These are used by the activeHelp tool."
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   139
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   140
    "
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   141
    UIHelpTool openOnClass:MenuEditor    
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   142
    "
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   143
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   144
  ^ super helpSpec addPairsFrom:#(
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   145
455
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   146
#aboutSTX
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   147
'Open an InfoBox about running ST/X.'
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   148
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   149
#aboutThisAppliaction
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   150
'Open an InfoBox about release and author.'
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   151
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   152
#accessCharaterPos
455
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   153
'The index of the access character position into the textual label (optional).'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   154
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   155
#argument
455
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   156
'An argument passed to the value method, if the value  selector is a one- or two-arg selector (i.e. ends with '':''). The argument is passed as a string.'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   157
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   158
#enbled
455
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   159
'This enabled field specifies the name of the aspect (-method or binding) in your application, which returns a value holder holding a boolean, a block which evaluates to either true or false, a selector which returns either true or false or simply true or false. The value, true or false, specifies whether  the respective field can be selected, a value of true, or not, a value of false.'
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   160
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   161
#fileExit
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   162
'Exit current application.'
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   163
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   164
#helpClassDocumentation
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   165
'Open a HTML-browser with a class documentation for the current application.'
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   166
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   167
#helpProgrammersGuide
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   168
'Open a HTML-browser with a programmers guide.'
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   169
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   170
#helpShowHelp
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   171
'Toggle on/off displaying help texts.'
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   172
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   173
#helpTutorial
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   174
'Open a HTML-browser with tutorial for beginners.'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   175
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   176
#icon
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   177
'Selector which returns an image to be displayed.'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   178
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   179
#iconAndLabel
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   180
'Boolean flag to specify that both image and textual label shall be shown.'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   181
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   182
#indication
455
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   183
'This indication field specifies the name of the aspect (-method or binding) in your application, a value holder holding a boolean, a block which evaluates to either true or false, a selector which returns either true or false or simply true or false. The value, true or false, specifies whether the shown indicator is switched on or off.'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   184
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   185
#label
455
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   186
'The label of the item. If the ''retriever/selector'' is set,  and returns an image, the image is used as the displayed label.  Dependent on the state of the ''Image & Label'' flag, both the image and the label are shown.'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   187
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   188
#menuSelector
455
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   189
'The name of the selector under which the generated  menu should be installed and is accessable.'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   190
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   191
#nameKey
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   192
'An unique identifier of the item (optional)'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   193
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   194
#retriever
455
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   195
'The name of the class, which implements the image selector.  This selector is specified by ''selector''. If no class is given,  the current application should implement the specified image selector.'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   196
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   197
#seperatorList
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   198
'The list of valid separators'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   199
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   200
#shortcutKey
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   201
'The key to be pressed, to select the menu item from the keyboard (accelerator key).'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   202
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   203
#submenuChannel
455
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   204
'A value holder, which provides the submenu (Menu) to be opened if the item is selected. Useful if the items submenu is to be  changed dynamically.'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   205
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   206
#value
455
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
   207
'An action which can be either a block or a selector. Depending on the number of arguments to the action, the action will be called with the respective arguments. There can either zero, one or two arguments. The first argument to the action is the argument derived from the argument field and the second argument the selected item.'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   208
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   209
)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   210
! !
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   211
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   212
!MenuEditor class methodsFor:'interface specs'!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   213
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   214
classDefineSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   215
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   216
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   217
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   218
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   219
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   220
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   221
     UIPainter new openOnClass:MenuEditor andSelector:#classDefineSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   222
     MenuEditor new openInterface:#classDefineSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   223
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   224
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   225
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   226
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   227
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   228
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   229
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   230
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   231
           #(#WindowSpec
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   232
              #'name:' 'MenuEditor'
432
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel
tz
parents: 422
diff changeset
   233
              #'layout:' #(#LayoutFrame 262 0 426 0 508 0 519 0)
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   234
              #'label:' 'MenuEditor'
155310ec83aa revised version
tz
parents: 382
diff changeset
   235
              #'min:' #(#Point 10 10)
155310ec83aa revised version
tz
parents: 382
diff changeset
   236
              #'max:' #(#Point 1152 900)
432
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel
tz
parents: 422
diff changeset
   237
              #'bounds:' #(#Rectangle 262 426 509 520)
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   238
              #'usePreferredExtent:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   239
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   240
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   241
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   242
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   243
               #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   244
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   245
                    #'name:' 'boxLabel'
432
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel
tz
parents: 422
diff changeset
   246
                    #'layout:' #(#LayoutFrame 2 0.0 4 0 -2 1.0 24 0)
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   247
                    #'label:' 'Class for menu spec:'
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   248
                    #'adjust:' #left
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   249
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   250
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   251
                 #(#InputFieldSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   252
                    #'name:' 'classNameField'
432
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel
tz
parents: 422
diff changeset
   253
                    #'layout:' #(#LayoutFrame 2 0.0 27 0 -2 1.0 49 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   254
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   255
                    #'model:' #classNameChannel
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   256
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   257
                    #'acceptOnTab:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   258
                )
432
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel
tz
parents: 422
diff changeset
   259
                 #(#UISubSpecification
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel
tz
parents: 422
diff changeset
   260
                    #'name:' 'SubSpecification'
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel
tz
parents: 422
diff changeset
   261
                    #'layout:' #(#LayoutFrame 0 0 -29 1 0 1 -5 1)
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel
tz
parents: 422
diff changeset
   262
                    #'majorKey:' #ToolApplicationModel
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel
tz
parents: 422
diff changeset
   263
                    #'minorKey:' #windowSpecForCommitWithoutChannels
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   264
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   265
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   266
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   267
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   268
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   269
508
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   270
windowSpec
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   271
    "this window spec was automatically generated by the ST/X UIPainter"
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   272
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   273
    "do not manually edit this - the painter/builder may not be able to
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   274
     handle the specification if its corrupted."
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   275
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   276
    "
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   277
     UIPainter new openOnClass:MenuEditor andSelector:#windowSpec
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   278
     MenuEditor new openInterface:#windowSpec
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   279
    "
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   280
    "MenuEditor open"
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   281
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   282
    <resource: #canvas>
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   283
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   284
    ^
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   285
     
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   286
       #(#FullSpec
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   287
          #'window:' 
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   288
           #(#WindowSpec
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   289
              #'name:' 'Menu Builder'
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   290
              #'layout:' #(#LayoutFrame 221 0 394 0 800 0 777 0)
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   291
              #'label:' 'Menu Builder'
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   292
              #'min:' #(#Point 10 10)
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   293
              #'max:' #(#Point 1152 900)
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   294
              #'bounds:' #(#Rectangle 221 394 801 778)
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   295
              #'menu:' #menu
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   296
              #'usePreferredExtent:' false
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   297
          )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   298
          #'component:' 
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   299
           #(#SpecCollection
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   300
              #'collection:' 
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   301
               #(
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   302
                 #(#MenuPanelSpec
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   303
                    #'name:' 'menuToolbarView'
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   304
                    #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   305
                    #'menu:' #menuToolbar
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   306
                    #'showSeparatingLines:' true
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   307
                )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   308
                 #(#VariableHorizontalPanelSpec
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   309
                    #'name:' 'variableHorizontalPanel1'
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   310
                    #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0)
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   311
                    #'component:' 
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   312
                     #(#SpecCollection
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   313
                        #'collection:' 
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   314
                         #(
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   315
                           #(#ArbitraryComponentSpec
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   316
                              #'name:' 'painterView'
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   317
                              #'menu:' #menuEdit
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   318
                              #'hasHorizontalScrollBar:' true
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   319
                              #'hasVerticalScrollBar:' true
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   320
                              #'component:' #treeView
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   321
                              #'hasBorder:' false
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   322
                          )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   323
                           #(#ViewSpec
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   324
                              #'name:' 'view1'
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   325
                              #'component:' 
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   326
                               #(#SpecCollection
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   327
                                  #'collection:' 
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   328
                                   #(
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   329
                                     #(#NoteBookViewSpec
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   330
                                        #'name:' 'specificationView'
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   331
                                        #'layout:' #(#LayoutFrame 1 0.0 0 0.0 1 1.0 -26 1.0)
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   332
                                        #'tabable:' true
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   333
                                        #'model:' #tabModel
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   334
                                        #'menu:' #tabList
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   335
                                        #'useIndex:' true
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   336
                                        #'canvas:' #noteBookView
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   337
                                    )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   338
                                     #(#UISubSpecification
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   339
                                        #'name:' 'SubSpecification'
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   340
                                        #'layout:' #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   341
                                        #'majorKey:' #ToolApplicationModel
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   342
                                        #'minorKey:' #windowSpecForCommit
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   343
                                    )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   344
                                  )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   345
                              )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   346
                              #'level:' -1
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   347
                          )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   348
                        )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   349
                    )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   350
                    #'level:' 1
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   351
                    #'handles:' #(#Any 0.384483 1.0)
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   352
                )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   353
                 #(#UISubSpecification
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   354
                    #'name:' 'infoBarSubSpec'
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   355
                    #'layout:' #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1.0)
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   356
                    #'majorKey:' #ToolApplicationModel
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   357
                    #'minorKey:' #windowSpecForInfoBar
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   358
                )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   359
              )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   360
          )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   361
      )
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   362
! !
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   363
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   364
!MenuEditor class methodsFor:'menu specs'!
968c6aa88ef0 updates channels after adding menu items
tz
parents: 507
diff changeset
   365
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   366
menu
220
ca
parents: 218
diff changeset
   367
    "this window spec was automatically generated by the ST/X MenuEditor"
ca
parents: 218
diff changeset
   368
ca
parents: 218
diff changeset
   369
    "do not manually edit this - the builder may not be able to
ca
parents: 218
diff changeset
   370
     handle the specification if its corrupted."
ca
parents: 218
diff changeset
   371
ca
parents: 218
diff changeset
   372
    "
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   373
     MenuEditor new openOnClass:MenuEditor andSelector:#menu
155310ec83aa revised version
tz
parents: 382
diff changeset
   374
     (Menu new fromLiteralArrayEncoding:(MenuEditor menu)) startUp
220
ca
parents: 218
diff changeset
   375
    "
ca
parents: 218
diff changeset
   376
ca
parents: 218
diff changeset
   377
    <resource: #menu>
ca
parents: 218
diff changeset
   378
ca
parents: 218
diff changeset
   379
    ^
ca
parents: 218
diff changeset
   380
     
ca
parents: 218
diff changeset
   381
       #(#Menu
ca
parents: 218
diff changeset
   382
          
ca
parents: 218
diff changeset
   383
           #(
ca
parents: 218
diff changeset
   384
             #(#MenuItem
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   385
                #'label:' 'About'
155310ec83aa revised version
tz
parents: 382
diff changeset
   386
                #'accessCharacterPosition:' 1
155310ec83aa revised version
tz
parents: 382
diff changeset
   387
                #'labelImage:' #(#ResourceRetriever nil #icon)
155310ec83aa revised version
tz
parents: 382
diff changeset
   388
                #'submenuChannel:' #menuAbout
220
ca
parents: 218
diff changeset
   389
            )
ca
parents: 218
diff changeset
   390
             #(#MenuItem
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   391
                #'label:' 'File'
155310ec83aa revised version
tz
parents: 382
diff changeset
   392
                #'translateLabel:' true
155310ec83aa revised version
tz
parents: 382
diff changeset
   393
                #'value:' #file
155310ec83aa revised version
tz
parents: 382
diff changeset
   394
                #'submenu:' 
155310ec83aa revised version
tz
parents: 382
diff changeset
   395
                 #(#Menu
155310ec83aa revised version
tz
parents: 382
diff changeset
   396
                    
155310ec83aa revised version
tz
parents: 382
diff changeset
   397
                     #(
155310ec83aa revised version
tz
parents: 382
diff changeset
   398
                       #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   399
                          #'label:' 'New'
155310ec83aa revised version
tz
parents: 382
diff changeset
   400
                          #'value:' #doNew
155310ec83aa revised version
tz
parents: 382
diff changeset
   401
                      )
155310ec83aa revised version
tz
parents: 382
diff changeset
   402
                       #(#MenuItem
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   403
                          #'label:' '-'
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   404
                      )
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   405
                       #(#MenuItem
499
da5c2e271d1a load from superclass removed
tz
parents: 492
diff changeset
   406
                          #'label:' 'Load...'
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   407
                          #'translateLabel:' true
155310ec83aa revised version
tz
parents: 382
diff changeset
   408
                          #'value:' #doFromClass
155310ec83aa revised version
tz
parents: 382
diff changeset
   409
                          #'enabled:' #isStandAlone
155310ec83aa revised version
tz
parents: 382
diff changeset
   410
                      )
155310ec83aa revised version
tz
parents: 382
diff changeset
   411
                       #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   412
                          #'label:' '-'
155310ec83aa revised version
tz
parents: 382
diff changeset
   413
                      )
155310ec83aa revised version
tz
parents: 382
diff changeset
   414
                       #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   415
                          #'label:' 'Save'
155310ec83aa revised version
tz
parents: 382
diff changeset
   416
                          #'value:' #doInstallSpec
155310ec83aa revised version
tz
parents: 382
diff changeset
   417
                      )
155310ec83aa revised version
tz
parents: 382
diff changeset
   418
                       #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   419
                          #'label:' '-'
155310ec83aa revised version
tz
parents: 382
diff changeset
   420
                      )
155310ec83aa revised version
tz
parents: 382
diff changeset
   421
                       #(#MenuItem
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   422
                          #'label:' 'Pick A Menu'
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   423
                          #'value:' #doPickAMenu
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   424
                          #'enabled:' #isStandAlone
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   425
                      )
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   426
                       #(#MenuItem
499
da5c2e271d1a load from superclass removed
tz
parents: 492
diff changeset
   427
                          #'label:' 'Define Menu Class...'
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   428
                          #'value:' #doDefineClass
155310ec83aa revised version
tz
parents: 382
diff changeset
   429
                          #'enabled:' #isStandAlone
155310ec83aa revised version
tz
parents: 382
diff changeset
   430
                      )
155310ec83aa revised version
tz
parents: 382
diff changeset
   431
                       #(#MenuItem
499
da5c2e271d1a load from superclass removed
tz
parents: 492
diff changeset
   432
                          #'label:' 'Browse Menu Class'
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   433
                          #'value:' #doBrowseAppClass
155310ec83aa revised version
tz
parents: 382
diff changeset
   434
                      )
155310ec83aa revised version
tz
parents: 382
diff changeset
   435
                       #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   436
                          #'label:' '-'
155310ec83aa revised version
tz
parents: 382
diff changeset
   437
                      )
155310ec83aa revised version
tz
parents: 382
diff changeset
   438
                       #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   439
                          #'label:' 'Exit'
155310ec83aa revised version
tz
parents: 382
diff changeset
   440
                          #'translateLabel:' true
155310ec83aa revised version
tz
parents: 382
diff changeset
   441
                          #'value:' #closeRequest
155310ec83aa revised version
tz
parents: 382
diff changeset
   442
                      )
155310ec83aa revised version
tz
parents: 382
diff changeset
   443
                    ) nil
155310ec83aa revised version
tz
parents: 382
diff changeset
   444
                    nil
220
ca
parents: 218
diff changeset
   445
                )
ca
parents: 218
diff changeset
   446
            )
ca
parents: 218
diff changeset
   447
             #(#MenuItem
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   448
                #'label:' 'Edit'
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   449
                #'submenuChannel:' #menuEdit
220
ca
parents: 218
diff changeset
   450
            )
ca
parents: 218
diff changeset
   451
             #(#MenuItem
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   452
                #'label:' 'Test'
155310ec83aa revised version
tz
parents: 382
diff changeset
   453
                #'submenuChannel:' #submenuTest
220
ca
parents: 218
diff changeset
   454
            )
ca
parents: 218
diff changeset
   455
             #(#MenuItem
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   456
                #'label:' 'History'
155310ec83aa revised version
tz
parents: 382
diff changeset
   457
                #'submenuChannel:' #menuHistory
220
ca
parents: 218
diff changeset
   458
            )
ca
parents: 218
diff changeset
   459
             #(#MenuItem
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   460
                #'label:' 'Help'
155310ec83aa revised version
tz
parents: 382
diff changeset
   461
                #'submenuChannel:' #menuHelp
220
ca
parents: 218
diff changeset
   462
            )
ca
parents: 218
diff changeset
   463
          ) nil
ca
parents: 218
diff changeset
   464
          nil
ca
parents: 218
diff changeset
   465
      )
ca
parents: 218
diff changeset
   466
!
ca
parents: 218
diff changeset
   467
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   468
menuDefaultLink
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   469
    "this window spec was automatically generated by the ST/X MenuEditor"
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   470
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   471
    "do not manually edit this - the builder may not be able to
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   472
     handle the specification if its corrupted."
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   473
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   474
    "
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   475
     MenuEditor new openOnClass:MenuEditor andSelector:#menuDefaultLink
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   476
     (Menu new fromLiteralArrayEncoding:(MenuEditor menuDefaultLink)) startUp
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   477
    "
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   478
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   479
    <resource: #menu>
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   480
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   481
    ^
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   482
     
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   483
       #(#Menu
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   484
          
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   485
           #(
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   486
             #(#MenuItem
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   487
                #'label:' '!! derives from application !!'
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   488
            )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   489
          ) nil
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   490
          nil
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   491
      )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   492
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   493
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   494
menuEdit
220
ca
parents: 218
diff changeset
   495
    "this window spec was automatically generated by the ST/X MenuEditor"
ca
parents: 218
diff changeset
   496
ca
parents: 218
diff changeset
   497
    "do not manually edit this - the builder may not be able to
ca
parents: 218
diff changeset
   498
     handle the specification if its corrupted."
ca
parents: 218
diff changeset
   499
ca
parents: 218
diff changeset
   500
    "
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   501
     MenuEditor new openOnClass:MenuEditor andSelector:#menuEdit
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   502
     (Menu new fromLiteralArrayEncoding:(MenuEditor menuEdit)) startUp
220
ca
parents: 218
diff changeset
   503
    "
ca
parents: 218
diff changeset
   504
ca
parents: 218
diff changeset
   505
    <resource: #menu>
ca
parents: 218
diff changeset
   506
ca
parents: 218
diff changeset
   507
    ^
ca
parents: 218
diff changeset
   508
     
ca
parents: 218
diff changeset
   509
       #(#Menu
ca
parents: 218
diff changeset
   510
          
ca
parents: 218
diff changeset
   511
           #(
ca
parents: 218
diff changeset
   512
             #(#MenuItem
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   513
                #'label:' 'Cut'
155310ec83aa revised version
tz
parents: 382
diff changeset
   514
                #'value:' #doCut
155310ec83aa revised version
tz
parents: 382
diff changeset
   515
                #'enabled:' #hasValidSelection
155310ec83aa revised version
tz
parents: 382
diff changeset
   516
                #'shortcutKeyCharacter:' #Cut
155310ec83aa revised version
tz
parents: 382
diff changeset
   517
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   518
             #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   519
                #'label:' 'Copy'
220
ca
parents: 218
diff changeset
   520
                #'value:' #doCopy
ca
parents: 218
diff changeset
   521
                #'enabled:' #hasValidSelection
356
269c117830ba before closing the builder, check for outstanding
ca
parents: 340
diff changeset
   522
                #'shortcutKeyCharacter:' #Copy
220
ca
parents: 218
diff changeset
   523
            )
ca
parents: 218
diff changeset
   524
             #(#MenuItem
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   525
                #'label:' 'Paste'
220
ca
parents: 218
diff changeset
   526
                #'value:' #doPaste
ca
parents: 218
diff changeset
   527
                #'enabled:' #hasAnySingleSelection
356
269c117830ba before closing the builder, check for outstanding
ca
parents: 340
diff changeset
   528
                #'shortcutKeyCharacter:' #Paste
220
ca
parents: 218
diff changeset
   529
            )
ca
parents: 218
diff changeset
   530
             #(#MenuItem
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   531
                #'label:' '-'
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   532
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   533
             #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   534
                #'label:' 'Create Item'
155310ec83aa revised version
tz
parents: 382
diff changeset
   535
                #'value:' #doCreateItem
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   536
                #'labelImage:' #(#ResourceRetriever #MenuEditor #menuItemImage 'Create Item')
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   537
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   538
             #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   539
                #'label:' 'Create Separator'
155310ec83aa revised version
tz
parents: 382
diff changeset
   540
                #'value:' #doCreateSep
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   541
                #'labelImage:' #(#ResourceRetriever #MenuEditor #menuSeparatorImage 'Create Separator')
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   542
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   543
             #(#MenuItem
220
ca
parents: 218
diff changeset
   544
                #'label:' '-'
ca
parents: 218
diff changeset
   545
            )
ca
parents: 218
diff changeset
   546
             #(#MenuItem
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   547
                #'label:' 'Create Submenu'
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   548
                #'value:' #doCreateMenu
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   549
                #'labelImage:' #(#ResourceRetriever #MenuEditor #submenuImage 'Create Submenu')
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   550
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   551
             #(#MenuItem
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   552
                #'label:' 'Create Submenu Link'
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   553
                #'value:' #doCreateLink
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   554
                #'labelImage:' #(#ResourceRetriever #MenuEditor #linkSubmenuImage 'Create Submenu Link')
220
ca
parents: 218
diff changeset
   555
            )
ca
parents: 218
diff changeset
   556
          ) nil
ca
parents: 218
diff changeset
   557
          nil
ca
parents: 218
diff changeset
   558
      )
ca
parents: 218
diff changeset
   559
!
ca
parents: 218
diff changeset
   560
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   561
menuToolbar
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   562
    "this window spec was automatically generated by the ST/X MenuEditor"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   563
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   564
    "do not manually edit this - the builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   565
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   566
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   567
    "
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   568
     MenuEditor new openOnClass:MenuEditor andSelector:#menuToolbar
155310ec83aa revised version
tz
parents: 382
diff changeset
   569
     (Menu new fromLiteralArrayEncoding:(MenuEditor menuToolbar)) startUp
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   570
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   571
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   572
    <resource: #menu>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   573
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   574
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   575
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   576
       #(#Menu
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   577
          
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   578
           #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   579
             #(#MenuItem
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   580
                #'label:' 'New'
155310ec83aa revised version
tz
parents: 382
diff changeset
   581
                #'isButton:' true
155310ec83aa revised version
tz
parents: 382
diff changeset
   582
                #'value:' #doNew
155310ec83aa revised version
tz
parents: 382
diff changeset
   583
                #'labelImage:' #(#ResourceRetriever nil #newIcon)
155310ec83aa revised version
tz
parents: 382
diff changeset
   584
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   585
             #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   586
                #'label:' 'Load'
155310ec83aa revised version
tz
parents: 382
diff changeset
   587
                #'isButton:' true
155310ec83aa revised version
tz
parents: 382
diff changeset
   588
                #'value:' #doFromClass
155310ec83aa revised version
tz
parents: 382
diff changeset
   589
                #'labelImage:' #(#ResourceRetriever nil #loadIcon)
155310ec83aa revised version
tz
parents: 382
diff changeset
   590
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   591
             #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   592
                #'label:' 'Save'
155310ec83aa revised version
tz
parents: 382
diff changeset
   593
                #'isButton:' true
155310ec83aa revised version
tz
parents: 382
diff changeset
   594
                #'value:' #doInstallSpec
155310ec83aa revised version
tz
parents: 382
diff changeset
   595
                #'labelImage:' #(#ResourceRetriever nil #saveIcon)
155310ec83aa revised version
tz
parents: 382
diff changeset
   596
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   597
             #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   598
                #'label:' '-'
155310ec83aa revised version
tz
parents: 382
diff changeset
   599
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   600
             #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   601
                #'label:' 'createItem'
155310ec83aa revised version
tz
parents: 382
diff changeset
   602
                #'isButton:' true
155310ec83aa revised version
tz
parents: 382
diff changeset
   603
                #'value:' #doCreateItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   604
                #'enabled:' #hasAnySingleSelection
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   605
                #'labelImage:' #(#ResourceRetriever nil #menuItemImage)
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   606
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   607
             #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   608
                #'label:' 'createSeparator'
155310ec83aa revised version
tz
parents: 382
diff changeset
   609
                #'isButton:' true
155310ec83aa revised version
tz
parents: 382
diff changeset
   610
                #'value:' #doCreateSep
155310ec83aa revised version
tz
parents: 382
diff changeset
   611
                #'enabled:' #hasAnySingleSelection
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   612
                #'labelImage:' #(#ResourceRetriever nil #menuSeparatorImage)
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   613
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   614
             #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   615
                #'label:' '-'
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   616
            )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   617
             #(#MenuItem
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   618
                #'label:' 'createMenu'
155310ec83aa revised version
tz
parents: 382
diff changeset
   619
                #'isButton:' true
155310ec83aa revised version
tz
parents: 382
diff changeset
   620
                #'value:' #doCreateMenu
155310ec83aa revised version
tz
parents: 382
diff changeset
   621
                #'enabled:' #hasAnySingleSelection
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   622
                #'labelImage:' #(#ResourceRetriever nil #submenuImage)
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   623
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   624
             #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   625
                #'label:' 'createLink'
155310ec83aa revised version
tz
parents: 382
diff changeset
   626
                #'isButton:' true
155310ec83aa revised version
tz
parents: 382
diff changeset
   627
                #'value:' #doCreateLink
155310ec83aa revised version
tz
parents: 382
diff changeset
   628
                #'enabled:' #hasAnySingleSelection
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   629
                #'labelImage:' #(#ResourceRetriever nil #linkSubmenuImage)
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   630
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   631
             #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   632
                #'label:' '-'
243
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   633
            )
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   634
             #(#MenuItem
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   635
                #'label:' 'stepUp'
155310ec83aa revised version
tz
parents: 382
diff changeset
   636
                #'isButton:' true
155310ec83aa revised version
tz
parents: 382
diff changeset
   637
                #'value:' #doStepUp
155310ec83aa revised version
tz
parents: 382
diff changeset
   638
                #'enabled:' #enabledStepOver
155310ec83aa revised version
tz
parents: 382
diff changeset
   639
                #'labelImage:' #(#ResourceRetriever nil #upIcon)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   640
            )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   641
             #(#MenuItem
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   642
                #'label:' 'stepDown'
155310ec83aa revised version
tz
parents: 382
diff changeset
   643
                #'isButton:' true
155310ec83aa revised version
tz
parents: 382
diff changeset
   644
                #'value:' #doStepDown
155310ec83aa revised version
tz
parents: 382
diff changeset
   645
                #'enabled:' #enabledStepOver
155310ec83aa revised version
tz
parents: 382
diff changeset
   646
                #'labelImage:' #(#ResourceRetriever nil #downIcon)
155310ec83aa revised version
tz
parents: 382
diff changeset
   647
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   648
             #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   649
                #'label:' 'stepIn'
155310ec83aa revised version
tz
parents: 382
diff changeset
   650
                #'isButton:' true
155310ec83aa revised version
tz
parents: 382
diff changeset
   651
                #'value:' #doStepIn
155310ec83aa revised version
tz
parents: 382
diff changeset
   652
                #'enabled:' #enabledStepIn
155310ec83aa revised version
tz
parents: 382
diff changeset
   653
                #'labelImage:' #(#ResourceRetriever nil #downRightIcon)
155310ec83aa revised version
tz
parents: 382
diff changeset
   654
            )
155310ec83aa revised version
tz
parents: 382
diff changeset
   655
             #(#MenuItem
155310ec83aa revised version
tz
parents: 382
diff changeset
   656
                #'label:' 'stepOut'
155310ec83aa revised version
tz
parents: 382
diff changeset
   657
                #'isButton:' true
155310ec83aa revised version
tz
parents: 382
diff changeset
   658
                #'value:' #doStepOut
155310ec83aa revised version
tz
parents: 382
diff changeset
   659
                #'enabled:' #enabledStepOut
155310ec83aa revised version
tz
parents: 382
diff changeset
   660
                #'labelImage:' #(#ResourceRetriever nil #leftDownIcon)
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   661
            )
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   662
          ) nil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   663
          nil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   664
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   665
! !
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   666
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   667
!MenuEditor class methodsFor:'resources'!
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   668
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   669
linkSubmenuImage
489
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   670
    "Generated by the Image Editor"
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   671
    "
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   672
    ImageEditor openOnClass:self andSelector:#linkSubmenuImage
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   673
    "
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   674
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   675
    <resource: #image>
489
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   676
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   677
    ^Icon
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   678
        constantNamed:#'MenuEditor linkSubmenuImage'
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   679
        ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@ADQDQDQDQDQDQH@D"H"H"H"H"H"K0@RH"H"H"H"H"H/@A????????????<@D@@@@@@@@@@@C0@PL3L0DQDQDQD_@A@3L3LBH"H"H"<@DCL3L3@"H"H"K0@PL3L3L0??????@A@@@@L3L@@@@@<@DQDQDCL3@PLAG0@RH"H"@3L0@3@/@AH"H"H L3L3L0<@G?????<CL3L3L@@P@@@@@@@3L3LO@ADQDQDQDP@CLA<@D"H"H"H"H LBK0@RH"H"H"H"@BH/@B????????????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:66.9978); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); add:(Color grey:49.9962); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); yourself); yourself]!
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   680
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   681
menuItemImage
489
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   682
    "Generated by the Image Editor"
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   683
    "
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   684
    ImageEditor openOnClass:self andSelector:#menuItemImage
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   685
    "
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   686
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   687
    <resource: #image>
489
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   688
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   689
    ^Icon
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   690
        constantNamed:#'MenuEditor menuItemImage'
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   691
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUQUUUUUUUPUUUUUUU_UUUUUUUPUUUUUUUP@@@@@@@@EUUUUUVAF*****+HF:?+::;@F:.+*?;@F:.+::;@F:.+*:;@F:.+::;@F*****+DK??????A@@@@@@@@UUUUUUUPUUUUUUUXUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUX'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:66.9978)); at:4 put:((Color grey:49.9962)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); yourself); yourself]!
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   692
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   693
menuSeparatorImage
489
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   694
    "Generated by the Image Editor"
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   695
    "
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   696
    ImageEditor openOnClass:self andSelector:#menuSeparatorImage
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   697
    "
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   698
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   699
    <resource: #image>
489
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   700
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   701
    ^Icon
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   702
        constantNamed:#'MenuEditor menuSeparatorImage'
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   703
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUURUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP@@@@@@@@EUUUUUV@F*****+DF*****+CF?????+@F0@@@@[@F%UUUU[HF*****+@F*****+@K??????N@@@@@@@HUUUUUUUPUUUUUUUPUUUUUUUWUUUUUUUXUUUUUUUPUUUUUUUP'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:66.9978)); at:4 put:((Color grey:49.9962)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); yourself); yourself]!
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   704
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   705
submenuImage
489
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   706
    "Generated by the Image Editor"
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   707
    "
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   708
    ImageEditor openOnClass:self andSelector:#submenuImage
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   709
    "
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   710
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   711
    <resource: #image>
489
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   712
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   713
    ^Icon
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   714
        constantNamed:#'MenuEditor submenuImage'
d5f942ce5c94 new icon method format applied
tz
parents: 485
diff changeset
   715
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@EUUUUUV@F*****+@F*****+@G??????GD@@@@@C@EUUUUUWLF*****+@F*****+@G??????HD@@@@@C@EUUUUUW@F*****+@F*****+OG??????@D@@@@@C@EUUUUUW@F*****+@F*****+@K??????@@@@@@@@@@@@@@@@@'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:66.9978)); at:4 put:((Color grey:49.9962)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); yourself); yourself]! !
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   716
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   717
!MenuEditor class methodsFor:'slices'!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   718
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   719
slicesItem
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   720
    ^#(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   721
            (Basics     basicsItemSpec)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   722
            (Details    detailsEditSpec)
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   723
            (Image      imageEditSpec)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   724
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   725
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   726
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   727
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   728
slicesLink
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   729
    ^#(
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   730
            (Basics     basicsLinkSpec)
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   731
            (Details    detailsEditSpec)
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   732
            (Image      imageEditSpec)
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   733
      )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   734
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   735
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   736
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   737
slicesMenu
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   738
    ^#(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   739
            (Basics     basicsMenuSpec)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   740
            (Details    detailsEditSpec)
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   741
            (Image      imageEditSpec)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   742
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   743
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   744
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   745
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   746
slicesRootMenu
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   747
    ^#(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   748
            (Basics   basicsRootSpec)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   749
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   750
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   751
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   752
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   753
slicesSeparatorMenu
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   754
    ^#(
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   755
            (Basics   basicsSeparatorSpec)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   756
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   757
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   758
! !
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   759
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   760
!MenuEditor class methodsFor:'specs'!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   761
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   762
basicsItemSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   763
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   764
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   765
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   766
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   767
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   768
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   769
     UIPainter new openOnClass:MenuEditor andSelector:#basicsItemSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   770
     MenuEditor new openInterface:#basicsItemSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   771
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   772
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   773
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   774
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   775
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   776
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   777
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   778
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   779
           #(#WindowSpec
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   780
              #'name:' 'unnamed canvas'
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   781
              #'layout:' #(#LayoutFrame 170 0 315 0 436 0 633 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   782
              #'label:' 'unnamed canvas'
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   783
              #'min:' #(#Point 10 10)
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   784
              #'max:' #(#Point 1160 870)
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   785
              #'bounds:' #(#Rectangle 170 315 437 634)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   786
              #'usePreferredExtent:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   787
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   788
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   789
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   790
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   791
               #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   792
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   793
                    #'name:' 'nameKeyLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   794
                    #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   795
                    #'label:' 'NameKey:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   796
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   797
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   798
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   799
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   800
                    #'name:' 'nameKeyField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   801
                    #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   802
                    #'activeHelpKey:' #nameKey
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   803
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   804
                    #'model:' #nameKey
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   805
                    #'type:' #symbolOrNil
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   806
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   807
                    #'acceptOnTab:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   808
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   809
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   810
                    #'name:' 'labelLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   811
                    #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   812
                    #'label:' 'Label:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   813
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   814
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   815
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   816
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   817
                    #'name:' 'labelField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   818
                    #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   819
                    #'activeHelpKey:' #label
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   820
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   821
                    #'model:' #label
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   822
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   823
                    #'acceptOnTab:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   824
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   825
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   826
                    #'name:' 'valueLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   827
                    #'layout:' #(#AlignmentOrigin 107 0 90 0 1 0.5)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   828
                    #'label:' 'Value:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   829
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   830
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   831
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   832
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   833
                    #'name:' 'valueField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   834
                    #'layout:' #(#LayoutFrame 110 0 79 0 -5 1.0 101 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   835
                    #'activeHelpKey:' #value
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   836
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   837
                    #'model:' #value
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   838
                    #'type:' #symbolOrNil
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   839
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   840
                    #'acceptOnTab:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   841
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   842
                 #(#LabelSpec
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   843
                    #'name:' 'argumentLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   844
                    #'layout:' #(#AlignmentOrigin 107 0 115 0 1 0.5)
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   845
                    #'label:' 'Argument:'
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   846
                    #'adjust:' #right
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   847
                    #'resizeForLabel:' true
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   848
                )
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   849
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   850
                    #'name:' 'argumentField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   851
                    #'layout:' #(#LayoutFrame 110 0 104 0 -5 1.0 126 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   852
                    #'activeHelpKey:' #argument
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   853
                    #'tabable:' true
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   854
                    #'model:' #argument
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   855
                    #'type:' #string
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   856
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   857
                    #'acceptOnTab:' false
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   858
                )
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   859
                 #(#LabelSpec
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   860
                    #'name:' 'indicationLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   861
                    #'layout:' #(#AlignmentOrigin 107 0 155 0 1 0.5)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   862
                    #'label:' 'Indication:'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   863
                    #'adjust:' #right
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   864
                    #'resizeForLabel:' true
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   865
                )
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   866
                 #(#InputFieldSpec
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   867
                    #'name:' 'indicationField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   868
                    #'layout:' #(#LayoutFrame 110 0 144 0 -5 1.0 166 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   869
                    #'activeHelpKey:' #indication
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   870
                    #'tabable:' true
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   871
                    #'model:' #indication
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   872
                    #'type:' #symbolOrNil
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   873
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   874
                    #'acceptOnTab:' false
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   875
                )
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   876
                 #(#CheckBoxSpec
155310ec83aa revised version
tz
parents: 382
diff changeset
   877
                    #'name:' 'translateLabelCheckBox'
155310ec83aa revised version
tz
parents: 382
diff changeset
   878
                    #'layout:' #(#Point 20 192)
155310ec83aa revised version
tz
parents: 382
diff changeset
   879
                    #'activeHelpKey:' #translateLabel
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   880
                    #'tabable:' true
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   881
                    #'model:' #translateLabel
155310ec83aa revised version
tz
parents: 382
diff changeset
   882
                    #'label:' 'Translate Label'
155310ec83aa revised version
tz
parents: 382
diff changeset
   883
                )
155310ec83aa revised version
tz
parents: 382
diff changeset
   884
                 #(#CheckBoxSpec
155310ec83aa revised version
tz
parents: 382
diff changeset
   885
                    #'name:' 'isButtonCheckBox'
155310ec83aa revised version
tz
parents: 382
diff changeset
   886
                    #'layout:' #(#Point 20 221)
155310ec83aa revised version
tz
parents: 382
diff changeset
   887
                    #'activeHelpKey:' #translateLabel
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   888
                    #'tabable:' true
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   889
                    #'model:' #isButton
155310ec83aa revised version
tz
parents: 382
diff changeset
   890
                    #'label:' 'Is Button'
155310ec83aa revised version
tz
parents: 382
diff changeset
   891
                )
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   892
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   893
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   894
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   895
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   896
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   897
basicsLinkSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   898
    "this window spec was automatically generated by the ST/X UIPainter"
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   899
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   900
    "do not manually edit this - the painter/builder may not be able to
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   901
     handle the specification if its corrupted."
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   902
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   903
    "
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   904
     UIPainter new openOnClass:MenuEditor andSelector:#basicsLinkSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   905
     MenuEditor new openInterface:#basicsLinkSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   906
    "
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   907
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   908
    <resource: #canvas>
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   909
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   910
    ^
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   911
     
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   912
       #(#FullSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   913
          #'window:' 
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   914
           #(#WindowSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   915
              #'name:' 'unnamed canvas'
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   916
              #'layout:' #(#LayoutFrame 374 0 432 0 640 0 750 0)
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   917
              #'label:' 'unnamed canvas'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   918
              #'min:' #(#Point 10 10)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   919
              #'max:' #(#Point 1280 1024)
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   920
              #'bounds:' #(#Rectangle 374 432 641 751)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   921
              #'usePreferredExtent:' false
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   922
          )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   923
          #'component:' 
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   924
           #(#SpecCollection
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   925
              #'collection:' 
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   926
               #(
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   927
                 #(#LabelSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   928
                    #'name:' 'nameKeyLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   929
                    #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   930
                    #'activeHelpKey:' #nameKey
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   931
                    #'label:' 'NameKey:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   932
                    #'adjust:' #right
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   933
                    #'resizeForLabel:' true
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   934
                )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   935
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   936
                    #'name:' 'nameKeyField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   937
                    #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   938
                    #'activeHelpKey:' #nameKey
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   939
                    #'tabable:' true
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   940
                    #'model:' #nameKey
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   941
                    #'type:' #symbolOrNil
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   942
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   943
                    #'acceptOnTab:' false
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   944
                )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   945
                 #(#LabelSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   946
                    #'name:' 'labelLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
   947
                    #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
398
155310ec83aa revised version
tz
parents: 382
diff changeset
   948
                    #'label:' 'Label:'
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   949
                    #'resizeForLabel:' true
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   950
                )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   951
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   952
                    #'name:' 'labelField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   953
                    #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   954
                    #'activeHelpKey:' #label
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   955
                    #'tabable:' true
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   956
                    #'model:' #label
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   957
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   958
                    #'acceptOnTab:' false
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   959
                )
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   960
                 #(#LabelSpec
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   961
                    #'name:' 'menuLabel'
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   962
                    #'layout:' #(#AlignmentOrigin 107 0 76 0 1 0.5)
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   963
                    #'label:' 'Menu:'
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   964
                    #'resizeForLabel:' true
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   965
                )
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   966
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   967
                    #'name:' 'menuField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   968
                    #'layout:' #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   969
                    #'activeHelpKey:' #submenuChannel
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   970
                    #'tabable:' true
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   971
                    #'model:' #submenuChannel
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   972
                    #'type:' #symbolOrNil
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   973
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
   974
                    #'acceptOnTab:' false
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   975
                )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   976
                 #(#LabelSpec
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   977
                    #'name:' 'ArgumentLabel'
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   978
                    #'layout:' #(#AlignmentOrigin 107 0 100 0 1 0.5)
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   979
                    #'label:' 'Argument:'
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   980
                    #'resizeForLabel:' true
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   981
                )
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   982
                 #(#InputFieldSpec
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   983
                    #'name:' 'argumentField'
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   984
                    #'layout:' #(#LayoutFrame 110 0 90 0 -5 1.0 112 0)
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   985
                    #'activeHelpKey:' #submenuChannel
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   986
                    #'tabable:' true
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   987
                    #'model:' #submenuArgument
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   988
                    #'type:' #symbolOrNil
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   989
                    #'acceptOnReturn:' false
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   990
                    #'acceptOnTab:' false
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   991
                )
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   992
                 #(#CheckBoxSpec
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   993
                    #'name:' 'translateLabelCheckBox'
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   994
                    #'layout:' #(#Point 20 128)
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   995
                    #'activeHelpKey:' #translateLabel
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   996
                    #'tabable:' true
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   997
                    #'model:' #translateLabel
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
   998
                    #'label:' 'Translate Label'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
   999
                )
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1000
              )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1001
          )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1002
      )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1003
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1004
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1005
basicsMenuSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1006
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1007
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1008
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1009
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1010
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1011
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1012
     UIPainter new openOnClass:MenuEditor andSelector:#basicsMenuSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1013
     MenuEditor new openInterface:#basicsMenuSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1014
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1015
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1016
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1017
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1018
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1019
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1020
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1021
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1022
           #(#WindowSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1023
              #'name:' 'unnamed canvas'
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1024
              #'layout:' #(#LayoutFrame 456 0 430 0 722 0 748 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1025
              #'label:' 'unnamed canvas'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1026
              #'min:' #(#Point 10 10)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1027
              #'max:' #(#Point 1280 1024)
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1028
              #'bounds:' #(#Rectangle 456 430 723 749)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1029
              #'usePreferredExtent:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1030
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1031
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1032
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1033
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1034
               #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1035
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1036
                    #'name:' 'nameKeyLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
  1037
                    #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1038
                    #'label:' 'NameKey:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1039
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1040
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1041
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1042
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1043
                    #'name:' 'nameKeyField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
  1044
                    #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1045
                    #'activeHelpKey:' #nameKey
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1046
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1047
                    #'model:' #nameKey
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1048
                    #'type:' #symbolOrNil
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1049
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1050
                    #'acceptOnTab:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1051
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1052
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1053
                    #'name:' 'labelLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
  1054
                    #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
398
155310ec83aa revised version
tz
parents: 382
diff changeset
  1055
                    #'label:' 'Label:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1056
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1057
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1058
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1059
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1060
                    #'name:' 'labelField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
  1061
                    #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1062
                    #'activeHelpKey:' #label
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1063
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1064
                    #'model:' #label
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1065
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1066
                    #'acceptOnTab:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1067
                )
398
155310ec83aa revised version
tz
parents: 382
diff changeset
  1068
                 #(#CheckBoxSpec
155310ec83aa revised version
tz
parents: 382
diff changeset
  1069
                    #'name:' 'translateLabelCheckBox'
155310ec83aa revised version
tz
parents: 382
diff changeset
  1070
                    #'layout:' #(#Point 20 100)
155310ec83aa revised version
tz
parents: 382
diff changeset
  1071
                    #'activeHelpKey:' #translateLabel
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1072
                    #'tabable:' true
398
155310ec83aa revised version
tz
parents: 382
diff changeset
  1073
                    #'model:' #translateLabel
155310ec83aa revised version
tz
parents: 382
diff changeset
  1074
                    #'label:' 'Translate Label'
155310ec83aa revised version
tz
parents: 382
diff changeset
  1075
                )
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1076
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1077
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1078
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1079
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1080
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1081
basicsRootSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1082
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1083
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1084
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1085
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1086
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1087
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1088
     UIPainter new openOnClass:MenuEditor andSelector:#basicsRootSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1089
     MenuEditor new openInterface:#basicsRootSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1090
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1091
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1092
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1093
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1094
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1095
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1096
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1097
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1098
           #(#WindowSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1099
              #'name:' 'unnamed canvas'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
  1100
              #'layout:' #(#LayoutFrame 230 0 231 0 496 0 549 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1101
              #'label:' 'unnamed canvas'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1102
              #'min:' #(#Point 10 10)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1103
              #'max:' #(#Point 1280 1024)
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
  1104
              #'bounds:' #(#Rectangle 230 231 497 550)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1105
              #'usePreferredExtent:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1106
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1107
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1108
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1109
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1110
               #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1111
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1112
                    #'name:' 'selectorLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
  1113
                    #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1114
                    #'label:' 'Selector:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1115
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1116
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1117
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1118
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1119
                    #'name:' 'selectorField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
  1120
                    #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1121
                    #'activeHelpKey:' #menuSelector
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1122
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1123
                    #'model:' #label
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1124
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1125
                    #'acceptOnTab:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1126
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1127
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1128
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1129
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1130
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1131
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1132
basicsSeparatorSpec
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1133
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1134
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1135
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1136
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1137
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1138
    "
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1139
     UIPainter new openOnClass:MenuEditor andSelector:#basicsSeparatorSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1140
     MenuEditor new openInterface:#basicsSeparatorSpec
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1141
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1142
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1143
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1144
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1145
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1146
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1147
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1148
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1149
           #(#WindowSpec
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
  1150
              #'name:' 'unnamed canvas'
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1151
              #'layout:' #(#LayoutFrame 359 0 319 0 625 0 637 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1152
              #'label:' 'unnamed canvas'
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
  1153
              #'min:' #(#Point 10 10)
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
  1154
              #'max:' #(#Point 1160 870)
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1155
              #'bounds:' #(#Rectangle 359 319 626 638)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1156
              #'usePreferredExtent:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1157
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1158
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1159
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1160
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1161
               #(
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1162
                 #(#LabelSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1163
                    #'name:' 'separatorLabel'
398
155310ec83aa revised version
tz
parents: 382
diff changeset
  1164
                    #'layout:' #(#AlignmentOrigin 127 0 26 0 1 0.5)
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1165
                    #'label:' 'Separator Type:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1166
                    #'adjust:' #right
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1167
                    #'resizeForLabel:' true
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1168
                )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1169
                 #(#ComboListSpec
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
  1170
                    #'name:' 'seperatorList'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
  1171
                    #'layout:' #(#LayoutFrame 132 0 15 0 -5 1.0 37 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1172
                    #'activeHelpKey:' #seperatorList
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1173
                    #'tabable:' true
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1174
                    #'model:' #seperatorSelection
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
  1175
                    #'useIndex:' true
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1176
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1177
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1178
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1179
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1180
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1181
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1182
detailsEditSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1183
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1184
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1185
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1186
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1187
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1188
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1189
     UIPainter new openOnClass:MenuEditor andSelector:#detailsEditSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1190
     MenuEditor new openInterface:#detailsEditSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1191
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1192
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1193
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1194
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1195
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1196
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1197
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1198
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1199
           #(#WindowSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1200
              #'name:' 'unnamed canvas'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
  1201
              #'layout:' #(#LayoutFrame 237 0 249 0 495 0 536 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1202
              #'label:' 'unnamed canvas'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1203
              #'min:' #(#Point 10 10)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1204
              #'max:' #(#Point 1280 1024)
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
  1205
              #'bounds:' #(#Rectangle 237 249 496 537)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1206
              #'usePreferredExtent:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1207
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1208
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1209
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1210
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1211
               #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1212
                 #(#LabelSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1213
                    #'name:' 'shortcutKeyLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
  1214
                    #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1215
                    #'label:' 'Accelerator:'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1216
                    #'adjust:' #right
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1217
                    #'resizeForLabel:' true
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1218
                )
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1219
                 #(#InputFieldSpec
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1220
                    #'name:' 'shortcutKeyField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
  1221
                    #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1222
                    #'activeHelpKey:' #shortcutKey
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1223
                    #'tabable:' true
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1224
                    #'model:' #shortcutKey
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1225
                    #'type:' #symbolOrNil
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1226
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1227
                    #'acceptOnTab:' false
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1228
                )
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1229
                 #(#LabelSpec
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1230
                    #'name:' 'enabledLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
  1231
                    #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1232
                    #'label:' 'Enabled:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1233
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1234
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1235
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1236
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1237
                    #'name:' 'enabledField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
  1238
                    #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1239
                    #'activeHelpKey:' #enbled
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1240
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1241
                    #'model:' #enabled
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1242
                    #'type:' #symbolOrNil
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1243
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1244
                    #'acceptOnTab:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1245
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1246
                 #(#LabelSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1247
                    #'name:' 'accessCharLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
  1248
                    #'layout:' #(#AlignmentOrigin 217 0 90 0 1 0.5)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1249
                    #'label:' 'Access Character Position:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1250
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1251
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1252
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1253
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1254
                    #'name:' 'accessCharField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
  1255
                    #'layout:' #(#LayoutFrame 220 0 79 0 -5 1.0 101 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1256
                    #'activeHelpKey:' #accessCharaterPos
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1257
                    #'tabable:' true
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1258
                    #'model:' #accessCharacterPos
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1259
                    #'type:' #numberOrNil
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1260
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1261
                    #'acceptOnTab:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1262
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1263
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1264
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1265
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1266
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1267
398
155310ec83aa revised version
tz
parents: 382
diff changeset
  1268
imageEditSpec
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1269
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1270
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1271
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1272
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1273
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1274
    "
398
155310ec83aa revised version
tz
parents: 382
diff changeset
  1275
     UIPainter new openOnClass:MenuEditor andSelector:#imageEditSpec
155310ec83aa revised version
tz
parents: 382
diff changeset
  1276
     MenuEditor new openInterface:#imageEditSpec
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1277
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1278
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1279
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1280
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1281
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1282
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1283
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1284
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1285
           #(#WindowSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1286
              #'name:' 'unnamed canvas'
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1287
              #'layout:' #(#LayoutFrame 104 0 316 0 348 0 457 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1288
              #'label:' 'unnamed canvas'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1289
              #'min:' #(#Point 10 10)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1290
              #'max:' #(#Point 1280 1024)
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1291
              #'bounds:' #(#Rectangle 104 316 349 458)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1292
              #'usePreferredExtent:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1293
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1294
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1295
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1296
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1297
               #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1298
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1299
                    #'name:' 'retrieverLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
  1300
                    #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1301
                    #'label:' 'Retriever:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1302
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1303
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1304
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1305
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1306
                    #'name:' 'retrieverField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
  1307
                    #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1308
                    #'activeHelpKey:' #retriever
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1309
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1310
                    #'model:' #retriever
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1311
                    #'type:' #symbolOrNil
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1312
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1313
                    #'acceptOnTab:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1314
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1315
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1316
                    #'name:' 'iconLabel'
406
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support
tz
parents: 398
diff changeset
  1317
                    #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
398
155310ec83aa revised version
tz
parents: 382
diff changeset
  1318
                    #'label:' 'Selector:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1319
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1320
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1321
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1322
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1323
                    #'name:' 'iconField'
411
7f21bc19cd51 supports calling submenus with arguments
tz
parents: 410
diff changeset
  1324
                    #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1325
                    #'activeHelpKey:' #icon
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1326
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1327
                    #'model:' #icon
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1328
                    #'type:' #symbolOrNil
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1329
                    #'acceptOnReturn:' false
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1330
                    #'acceptOnTab:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1331
                )
469
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1332
                 #(#ActionButtonSpec
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1333
                    #'name:' 'imageEditorButton'
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1334
                    #'layout:' #(#LayoutFrame 110 0 66 0 -5 1 90 0)
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1335
                    #'label:' 'Image Editor'
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1336
                    #'tabable:' true
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1337
                    #'model:' #doEditImage
28bcb1982ef9 tabs added
tz
parents: 455
diff changeset
  1338
                )
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1339
                 #(#CheckBoxSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1340
                    #'name:' 'iconAndLabel'
398
155310ec83aa revised version
tz
parents: 382
diff changeset
  1341
                    #'layout:' #(#LayoutOrigin 20 0 104 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1342
                    #'activeHelpKey:' #iconAndLabel
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1343
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1344
                    #'model:' #iconAndLabel
398
155310ec83aa revised version
tz
parents: 382
diff changeset
  1345
                    #'label:' 'Image & Label'
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1346
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1347
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1348
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1349
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1350
! !
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1351
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1352
!MenuEditor methodsFor:'accessing'!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1353
398
155310ec83aa revised version
tz
parents: 382
diff changeset
  1354
isModified: aBoolean         
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1355
    "sets menu tree modifications; invoked by the painter."
398
155310ec83aa revised version
tz
parents: 382
diff changeset
  1356
155310ec83aa revised version
tz
parents: 382
diff changeset
  1357
    isModified := aBoolean
155310ec83aa revised version
tz
parents: 382
diff changeset
  1358
!
155310ec83aa revised version
tz
parents: 382
diff changeset
  1359
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1360
specClass
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1361
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1362
    ^specClass
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1363
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1364
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1365
specClass:aClass
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1366
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1367
    aClass isBehavior ifTrue:[specClass := aClass name]
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1368
                     ifFalse:[specClass := aClass]
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1369
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1370
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1371
submenuTest
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1372
    "returns submenu assigned to item test"
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1373
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1374
    |menu|
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1375
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1376
    (menu := self treeView asMenu) allItemsDo:
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1377
    [:anItem|
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1378
        anItem value:nil.
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1379
        anItem enabled:true.
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1380
    ].
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1381
    ^menu
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1382
!
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1383
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1384
useHelpDictionary:aDictionary
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1385
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1386
    self noteBookView.
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1387
    self helpTool dictionary:aDictionary
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1388
! !
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1389
455
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
  1390
!MenuEditor methodsFor:'active help'!
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
  1391
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
  1392
defaultInfoLabel
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
  1393
507
1586e7da66bc updates default info label after making new
tz
parents: 499
diff changeset
  1394
    specClass isNil ifTrue: [^'No menu class defined'].
1586e7da66bc updates default info label after making new
tz
parents: 499
diff changeset
  1395
    ^specClass printString, ' >> ', self treeView selectorName
492
b169fdb23f5f with spaces looks better
tz
parents: 489
diff changeset
  1396
  
455
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
  1397
! !
117dcae8b5e0 no separate save of help keys
tz
parents: 441
diff changeset
  1398
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1399
!MenuEditor methodsFor:'aspects'!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1400
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1401
aspectFor:aKey
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1402
    "returns aspect for a key or nil"
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1403
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1404
    ^aspects at: aKey ifAbsent: [super aspectFor:aKey]
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1405
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1406
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1407
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1408
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1409
enabledStepIn
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1410
    "returns whether user can put selected item in next submenu"
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1411
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1412
    ^builder booleanValueAspectFor: #enabledStepIn
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1413
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1414
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1415
enabledStepOut
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1416
    "returns whether user can put selected item out of current parent submenu"
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1417
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1418
    ^builder booleanValueAspectFor: #enabledStepOut
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1419
                         
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1420
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1421
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1422
enabledStepOver
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1423
    "returns whether user can shift selected item up or down"
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1424
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1425
    ^builder booleanValueAspectFor:#enabledStepOver
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1426
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1427
220
ca
parents: 218
diff changeset
  1428
hasAnySingleSelection
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1429
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1430
    ^builder booleanValueAspectFor: #hasAnySingleSelection
220
ca
parents: 218
diff changeset
  1431
!
ca
parents: 218
diff changeset
  1432
ca
parents: 218
diff changeset
  1433
hasValidSelection
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1434
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1435
    ^builder booleanValueAspectFor: #hasValidSelection
220
ca
parents: 218
diff changeset
  1436
!
ca
parents: 218
diff changeset
  1437
ca
parents: 218
diff changeset
  1438
hasValidSingleSelection
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1439
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1440
    ^builder booleanValueAspectFor: #hasValidSingleSelection
220
ca
parents: 218
diff changeset
  1441
!
ca
parents: 218
diff changeset
  1442
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1443
noteBookView
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1444
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1445
    |noteBook helpTool|
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1446
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1447
    (noteBook := builder bindingAt:#noteBookView) isNil ifTrue:[
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1448
        noteBook := View new.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1449
        helpTool := UIHelpTool new.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1450
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1451
        helpTool masterApplication:self.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1452
        helpCanvas := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1453
        specCanvas := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1454
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1455
        helpCanvas client:helpTool.
432
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel
tz
parents: 422
diff changeset
  1456
        helpTool masterApplication:self.      
422
f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel
tz
parents: 418
diff changeset
  1457
        helpTool modifiedHolder: self valueOfEnablingCommitButtons.
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1458
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1459
        builder aspectAt:#noteBookView put:noteBook.
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1460
    ].
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1461
    ^ noteBook
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1462
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1463
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1464
tabList
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1465
298
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1466
    |holder|
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1467
    (holder := builder bindingAt:#tabList) isNil ifTrue:[
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1468
        builder aspectAt:#tabList put:(holder := #('Properties') asValue).
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1469
    ].
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1470
    ^ holder
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1471
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1472
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1473
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1474
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1475
tabModel
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1476
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1477
    |holder|
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1478
    (holder := builder bindingAt:#tabModel) isNil ifTrue:[
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1479
        holder := AspectAdaptor new subject:self; forAspect:#tabSelection.
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1480
        builder aspectAt:#tabModel put:holder.
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1481
    ].
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1482
    ^ holder
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1483
407
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1484
!
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1485
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1486
treeView
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1487
    "returns the tree view representing hierarchically all the menu items"
578a7aaed19e totally revised version
tz
parents: 406
diff changeset
  1488
578a7aaed19e totally revised version
t