MenuEditor.st
author tz
Wed, 03 Dec 1997 18:45:02 +0100
changeset 382 2a46018227a1
parent 381 1d1b1483270c
child 398 155310ec83aa
permissions -rw-r--r--
image editor startup bug fixed
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
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    15
ApplicationModel 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
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
    25
		accessCharaterPos retriever icon iconAndLabel submenuChannel
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
    26
		argument'
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
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    32
SelectionInTreeView subclass:#Painter
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:]
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
    73
        Claus Atzkern
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
318
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    78
!MenuEditor class methodsFor:'code generation'!
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    79
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    80
generateCodeFor:aClass menuSelector:aSelector
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    81
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    82
    |code category|
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    83
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    84
    category := self sourceCategory.
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    85
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    86
    code := Character excla asString 
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    87
            , aClass name , ' methodsFor:' , category storeString
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    88
            , Character excla asString , '\\'
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    89
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    90
            , aSelector , '\'
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    91
            , '    "this window spec was automatically generated by the UI Builder"\\'
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    92
            , '    ^ self class ', aSelector, '\\'
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    93
            , '\'
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    94
            , Character excla asString
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    95
            , ' '
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    96
            , Character excla asString
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    97
            , '\\'.
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    98
    ^ code
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
    99
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   100
"
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   101
self generateCodeFor:MenuEditor menuSelector:#menu
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
!
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
sourceCategory
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   106
    "returns the catagory where to instal the menu
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   107
    "
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   108
    ^ 'accessing menu'
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   109
! !
31a94b71ae1b reuse of generate code for instance method #menu
ca
parents: 304
diff changeset
   110
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   111
!MenuEditor class methodsFor:'help specs'!
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   112
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   113
helpSpec
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   114
    "return a dictionary filled with helpKey -> helptext associations.
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   115
     These are used by the activeHelp tool."
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   116
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   117
    "
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   118
    UIHelpTool openOnClass:MenuEditor    
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   119
    "
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   120
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   121
  ^ super helpSpec addPairsFrom:#(
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   122
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   123
#accessCharaterPos
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   124
'the index of the access character position into the textual label (optional).'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   125
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   126
#argument
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   127
'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.'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   128
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   129
#enbled
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   130
'This enabled field specifies the name of the aspect (-method or binding) in your application, which returns a valueHolder 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.'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   131
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   132
#icon
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   133
'selector which returns the bitmap to be displayed.'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   134
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   135
#iconAndLabel
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   136
'boolean flag to specify that both the bitmap and textual label shall be shown.'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   137
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   138
#indication
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   139
'This indication field specifies the name of the aspect (-method or binding) in your application, a valueHolder 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.'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   140
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   141
#label
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   142
'the label of the item. If the ''retriever/icon'' is set, and returns a bitmap image, the bitmap is used as the displayed label. Dependent on the state of the ''Icon & Label'' flag, both the bitmap and the label are shown.'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   143
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   144
#menuSelector
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   145
'the name of the selector under which the generated menu should be installed and is accessable.'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   146
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   147
#nameKey
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   148
'a unique identifier of the item (optional)'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   149
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   150
#retriever
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   151
'the name of the class, which implements the bitmap  selector. This selector is specified by ''icon''. If no class is given, the current application should implement the specified bitmap selector.'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   152
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   153
#seperatorList
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   154
'the list of valid separators'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   155
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   156
#shortcutKey
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   157
'the key to be pressed, to select the menu item from the keyboard (accelerator key).'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   158
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   159
#submenuChannel
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   160
'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.'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   161
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   162
#value
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   163
'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.'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   164
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   165
)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   166
! !
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   167
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   168
!MenuEditor class methodsFor:'icons'!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   169
220
ca
parents: 218
diff changeset
   170
iconCreateItem
ca
parents: 218
diff changeset
   171
    ^ Painter imageItem
ca
parents: 218
diff changeset
   172
ca
parents: 218
diff changeset
   173
!
ca
parents: 218
diff changeset
   174
ca
parents: 218
diff changeset
   175
iconCreateLink
ca
parents: 218
diff changeset
   176
    ^ Painter imageMenuLink
ca
parents: 218
diff changeset
   177
ca
parents: 218
diff changeset
   178
!
ca
parents: 218
diff changeset
   179
ca
parents: 218
diff changeset
   180
iconCreateMenu
243
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   181
    ^ Painter imageMenu
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   182
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   183
    "Modified: 28.7.1997 / 10:02:21 / cg"
220
ca
parents: 218
diff changeset
   184
!
ca
parents: 218
diff changeset
   185
ca
parents: 218
diff changeset
   186
iconCreateSep
ca
parents: 218
diff changeset
   187
    ^ Painter imageSeparator
ca
parents: 218
diff changeset
   188
227
434211399a54 added broken image icon
ca
parents: 224
diff changeset
   189
!
434211399a54 added broken image icon
ca
parents: 224
diff changeset
   190
434211399a54 added broken image icon
ca
parents: 224
diff changeset
   191
iconUnknown
243
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   192
    "returns an image used for picked items containing an image
227
434211399a54 added broken image icon
ca
parents: 224
diff changeset
   193
    "
359
6193ef5b6e74 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 356
diff changeset
   194
6193ef5b6e74 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 356
diff changeset
   195
    <resource: #fileImage>
6193ef5b6e74 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 356
diff changeset
   196
243
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   197
    ^ Image fromFile:'brokenImage.xpm'
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   198
359
6193ef5b6e74 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 356
diff changeset
   199
    "Modified: / 29.10.1997 / 03:22:06 / cg"
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   200
! !
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   201
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   202
!MenuEditor class methodsFor:'interface specs'!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   203
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   204
classAndMethodSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   205
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   206
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   207
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   208
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   209
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   210
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   211
     UIPainter new openOnClass:MenuEditor andSelector:#classAndMethodSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   212
     MenuEditor new openInterface:#classAndMethodSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   213
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   214
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   215
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   216
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   217
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   218
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   219
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   220
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   221
           #(#WindowSpec
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
   222
              #'name:' 'ClassAndMethodSpec'
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   223
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   224
              #'label:' 'Painter'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   225
              #'bounds:' #(#Rectangle 0 0 391 170)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   226
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   227
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   228
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   229
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   230
               #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   231
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   232
                    #'name:' 'classLabel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   233
                    #'layout:' #(#AlignmentOrigin 45 0.11 51 0 1 0.5)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   234
                    #'label:' 'class:'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   235
                    #'adjust:' #right
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   236
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   237
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   238
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   239
                    #'name:' 'selectorLabel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   240
                    #'layout:' #(#AlignmentOrigin 45 0.11 74 0 1 0.5)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   241
                    #'label:' 'selector:'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   242
                    #'adjust:' #right
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   243
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   244
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   245
                 #(#InputFieldSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   246
                    #'name:' 'methodNameField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   247
                    #'layout:' #(#LayoutFrame 47 0.11 64 0 0 1.0 86 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   248
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   249
                    #'model:' #methodNameChannel
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   250
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   251
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   252
                    #'name:' 'boxLabel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   253
                    #'layout:' #(#Point 5 10)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   254
                    #'label:' 'class & selector for code:'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   255
                    #'adjust:' #left
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   256
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   257
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   258
                 #(#InputFieldSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   259
                    #'name:' 'classNameField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   260
                    #'layout:' #(#LayoutFrame 47 0.11 39 0 0 1.0 61 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   261
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   262
                    #'model:' #classNameChannel
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   263
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   264
                 #(#HorizontalPanelViewSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   265
                    #'name:' 'commitPanel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   266
                    #'layout:' #(#LayoutFrame 0 0.0 -24 1.0 0 1.0 0 1.0)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   267
                    #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   268
                     #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   269
                        #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   270
                         #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   271
                           #(#ActionButtonSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   272
                              #'name:' 'button1'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   273
                              #'label:' 'cancel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   274
                              #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   275
                              #'model:' #cancel
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   276
                              #'extent:' #(#Point 191 24)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   277
                          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   278
                           #(#ActionButtonSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   279
                              #'name:' 'button2'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   280
                              #'label:' 'ok'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   281
                              #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   282
                              #'isDefault:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   283
                              #'model:' #accept
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   284
                              #'extent:' #(#Point 191 24)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   285
                          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   286
                        )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   287
                    )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   288
                    #'horizontalLayout:' #fitSpace
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   289
                    #'verticalLayout:' #fit
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   290
                    #'horizontalSpace:' 3
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   291
                    #'verticalSpace:' 3
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   292
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   293
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   294
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   295
      )
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   296
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   297
    "Modified: 28.7.1997 / 15:40:15 / cg"
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   298
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   299
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   300
classDefineSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   301
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   302
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   303
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   304
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   305
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   306
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   307
     UIPainter new openOnClass:MenuEditor andSelector:#classDefineSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   308
     MenuEditor new openInterface:#classDefineSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   309
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   310
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   311
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   312
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   313
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   314
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   315
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   316
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   317
           #(#WindowSpec
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
   318
              #'name:' 'ClassDefineSpec'
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   319
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   320
              #'label:' 'Painter'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   321
              #'bounds:' #(#Rectangle 0 0 383 128)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   322
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   323
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   324
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   325
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   326
               #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   327
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   328
                    #'name:' 'classLabel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   329
                    #'layout:' #(#AlignmentOrigin 45 0.11 51 0 1 0.5)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   330
                    #'label:' 'class:'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   331
                    #'adjust:' #right
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   332
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   333
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   334
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   335
                    #'name:' 'boxLabel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   336
                    #'layout:' #(#Point 5 10)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   337
                    #'label:' 'class for code:'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   338
                    #'adjust:' #left
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   339
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   340
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   341
                 #(#InputFieldSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   342
                    #'name:' 'classNameField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   343
                    #'layout:' #(#LayoutFrame 47 0.11 39 0 0 1.0 61 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   344
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   345
                    #'model:' #classNameChannel
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   346
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   347
                 #(#HorizontalPanelViewSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   348
                    #'name:' 'commitPanel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   349
                    #'layout:' #(#LayoutFrame 0 0.0 -24 1.0 0 1.0 0 1.0)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   350
                    #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   351
                     #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   352
                        #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   353
                         #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   354
                           #(#ActionButtonSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   355
                              #'name:' 'button1'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   356
                              #'label:' 'cancel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   357
                              #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   358
                              #'model:' #cancel
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   359
                              #'extent:' #(#Point 187 24)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   360
                          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   361
                           #(#ActionButtonSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   362
                              #'name:' 'button2'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   363
                              #'label:' 'ok'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   364
                              #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   365
                              #'isDefault:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   366
                              #'model:' #accept
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   367
                              #'extent:' #(#Point 187 24)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   368
                          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   369
                        )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   370
                    )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   371
                    #'horizontalLayout:' #fitSpace
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   372
                    #'verticalLayout:' #fit
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   373
                    #'horizontalSpace:' 3
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   374
                    #'verticalSpace:' 3
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   375
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   376
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   377
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   378
      )
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   379
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   380
    "Modified: 28.7.1997 / 15:40:39 / cg"
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   381
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   382
220
ca
parents: 218
diff changeset
   383
menuButtons
ca
parents: 218
diff changeset
   384
    "this window spec was automatically generated by the ST/X MenuEditor"
ca
parents: 218
diff changeset
   385
ca
parents: 218
diff changeset
   386
    "do not manually edit this - the builder may not be able to
ca
parents: 218
diff changeset
   387
     handle the specification if its corrupted."
ca
parents: 218
diff changeset
   388
ca
parents: 218
diff changeset
   389
    "
ca
parents: 218
diff changeset
   390
     MenuEditor new openOnClass:MenuEditor andSelector:#menuButtons
ca
parents: 218
diff changeset
   391
     (Menu new fromLiteralArrayEncoding:(MenuEditor menuButtons)) startUp
ca
parents: 218
diff changeset
   392
    "
ca
parents: 218
diff changeset
   393
ca
parents: 218
diff changeset
   394
    <resource: #menu>
ca
parents: 218
diff changeset
   395
ca
parents: 218
diff changeset
   396
    ^
ca
parents: 218
diff changeset
   397
     
ca
parents: 218
diff changeset
   398
       #(#Menu
ca
parents: 218
diff changeset
   399
          
ca
parents: 218
diff changeset
   400
           #(
ca
parents: 218
diff changeset
   401
             #(#MenuItem
ca
parents: 218
diff changeset
   402
                #'label:' 'createMenu'
ca
parents: 218
diff changeset
   403
                #'value:' #doCreateMenu
ca
parents: 218
diff changeset
   404
                #'enabled:' #hasAnySingleSelection
ca
parents: 218
diff changeset
   405
                #'labelImage:' 
ca
parents: 218
diff changeset
   406
                 #(#ResourceRetriever
ca
parents: 218
diff changeset
   407
                    #MenuEditor #iconCreateMenu
ca
parents: 218
diff changeset
   408
                )
ca
parents: 218
diff changeset
   409
            )
ca
parents: 218
diff changeset
   410
             #(#MenuItem
ca
parents: 218
diff changeset
   411
                #'label:' 'createLink'
ca
parents: 218
diff changeset
   412
                #'value:' #doCreateLink
ca
parents: 218
diff changeset
   413
                #'enabled:' #hasAnySingleSelection
ca
parents: 218
diff changeset
   414
                #'labelImage:' 
ca
parents: 218
diff changeset
   415
                 #(#ResourceRetriever
ca
parents: 218
diff changeset
   416
                    #MenuEditor #iconCreateLink
ca
parents: 218
diff changeset
   417
                )
ca
parents: 218
diff changeset
   418
            )
ca
parents: 218
diff changeset
   419
             #(#MenuItem
ca
parents: 218
diff changeset
   420
                #'label:' 'createItem'
ca
parents: 218
diff changeset
   421
                #'value:' #doCreateItem
ca
parents: 218
diff changeset
   422
                #'enabled:' #hasAnySingleSelection
ca
parents: 218
diff changeset
   423
                #'labelImage:' 
ca
parents: 218
diff changeset
   424
                 #(#ResourceRetriever
ca
parents: 218
diff changeset
   425
                    #MenuEditor #iconCreateItem
ca
parents: 218
diff changeset
   426
                )
ca
parents: 218
diff changeset
   427
            )
ca
parents: 218
diff changeset
   428
             #(#MenuItem
ca
parents: 218
diff changeset
   429
                #'label:' 'createSeparator'
ca
parents: 218
diff changeset
   430
                #'value:' #doCreateSep
ca
parents: 218
diff changeset
   431
                #'enabled:' #hasAnySingleSelection
ca
parents: 218
diff changeset
   432
                #'labelImage:' 
ca
parents: 218
diff changeset
   433
                 #(#ResourceRetriever
ca
parents: 218
diff changeset
   434
                    #MenuEditor #iconCreateSep
ca
parents: 218
diff changeset
   435
                )
ca
parents: 218
diff changeset
   436
            )
ca
parents: 218
diff changeset
   437
             #(#MenuItem
ca
parents: 218
diff changeset
   438
                #'label:' ''
ca
parents: 218
diff changeset
   439
            )
ca
parents: 218
diff changeset
   440
             #(#MenuItem
ca
parents: 218
diff changeset
   441
                #'label:' 'stepUp'
ca
parents: 218
diff changeset
   442
                #'value:' #doStepUp
ca
parents: 218
diff changeset
   443
                #'enabled:' #enabledStepOver
ca
parents: 218
diff changeset
   444
                #'labelImage:' 
ca
parents: 218
diff changeset
   445
                 #(#ResourceRetriever
224
c1d7bffe73f1 use same icons for moving items as painter; icons
ca
parents: 220
diff changeset
   446
                    #UIPainter #iconStepUp
220
ca
parents: 218
diff changeset
   447
                )
ca
parents: 218
diff changeset
   448
            )
ca
parents: 218
diff changeset
   449
             #(#MenuItem
ca
parents: 218
diff changeset
   450
                #'label:' 'stepDown'
ca
parents: 218
diff changeset
   451
                #'value:' #doStepDown
ca
parents: 218
diff changeset
   452
                #'enabled:' #enabledStepOver
ca
parents: 218
diff changeset
   453
                #'labelImage:' 
ca
parents: 218
diff changeset
   454
                 #(#ResourceRetriever
224
c1d7bffe73f1 use same icons for moving items as painter; icons
ca
parents: 220
diff changeset
   455
                    #UIPainter #iconStepDown
220
ca
parents: 218
diff changeset
   456
                )
ca
parents: 218
diff changeset
   457
            )
ca
parents: 218
diff changeset
   458
             #(#MenuItem
ca
parents: 218
diff changeset
   459
                #'label:' 'stepIn'
ca
parents: 218
diff changeset
   460
                #'value:' #doStepIn
ca
parents: 218
diff changeset
   461
                #'enabled:' #enabledStepIn
ca
parents: 218
diff changeset
   462
                #'labelImage:' 
ca
parents: 218
diff changeset
   463
                 #(#ResourceRetriever
224
c1d7bffe73f1 use same icons for moving items as painter; icons
ca
parents: 220
diff changeset
   464
                    #UIPainter #iconStepIn
220
ca
parents: 218
diff changeset
   465
                )
ca
parents: 218
diff changeset
   466
            )
ca
parents: 218
diff changeset
   467
             #(#MenuItem
ca
parents: 218
diff changeset
   468
                #'label:' 'stepOut'
ca
parents: 218
diff changeset
   469
                #'value:' #doStepOut
ca
parents: 218
diff changeset
   470
                #'enabled:' #enabledStepOut
ca
parents: 218
diff changeset
   471
                #'labelImage:' 
ca
parents: 218
diff changeset
   472
                 #(#ResourceRetriever
224
c1d7bffe73f1 use same icons for moving items as painter; icons
ca
parents: 220
diff changeset
   473
                    #UIPainter #iconStepOut
220
ca
parents: 218
diff changeset
   474
                )
ca
parents: 218
diff changeset
   475
            )
ca
parents: 218
diff changeset
   476
          ) nil
ca
parents: 218
diff changeset
   477
          nil
ca
parents: 218
diff changeset
   478
      )
ca
parents: 218
diff changeset
   479
!
ca
parents: 218
diff changeset
   480
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   481
menuDefaultLink
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   482
    "this window spec was automatically generated by the ST/X MenuEditor"
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   483
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   484
    "do not manually edit this - the builder may not be able to
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   485
     handle the specification if its corrupted."
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   486
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   487
    "
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   488
     MenuEditor new openOnClass:MenuEditor andSelector:#menuDefaultLink
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   489
     (Menu new fromLiteralArrayEncoding:(MenuEditor menuDefaultLink)) startUp
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   490
    "
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   491
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   492
    <resource: #menu>
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   493
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   494
    ^
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   495
     
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   496
       #(#Menu
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   497
          
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   498
           #(
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   499
             #(#MenuItem
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   500
                #'label:' '!! derives from application !!'
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   501
            )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   502
          ) nil
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   503
          nil
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   504
      )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   505
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   506
220
ca
parents: 218
diff changeset
   507
menuPainter
ca
parents: 218
diff changeset
   508
    "this window spec was automatically generated by the ST/X MenuEditor"
ca
parents: 218
diff changeset
   509
ca
parents: 218
diff changeset
   510
    "do not manually edit this - the builder may not be able to
ca
parents: 218
diff changeset
   511
     handle the specification if its corrupted."
ca
parents: 218
diff changeset
   512
ca
parents: 218
diff changeset
   513
    "
ca
parents: 218
diff changeset
   514
     MenuEditor new openOnClass:MenuEditor andSelector:#menuPainter
ca
parents: 218
diff changeset
   515
     (Menu new fromLiteralArrayEncoding:(MenuEditor menuPainter)) startUp
ca
parents: 218
diff changeset
   516
    "
ca
parents: 218
diff changeset
   517
ca
parents: 218
diff changeset
   518
    <resource: #menu>
ca
parents: 218
diff changeset
   519
ca
parents: 218
diff changeset
   520
    ^
ca
parents: 218
diff changeset
   521
     
ca
parents: 218
diff changeset
   522
       #(#Menu
ca
parents: 218
diff changeset
   523
          
ca
parents: 218
diff changeset
   524
           #(
ca
parents: 218
diff changeset
   525
             #(#MenuItem
ca
parents: 218
diff changeset
   526
                #'label:' 'copy'
ca
parents: 218
diff changeset
   527
                #'value:' #doCopy
ca
parents: 218
diff changeset
   528
                #'enabled:' #hasValidSelection
356
269c117830ba before closing the builder, check for outstanding
ca
parents: 340
diff changeset
   529
                #'shortcutKeyCharacter:' #Copy
220
ca
parents: 218
diff changeset
   530
            )
ca
parents: 218
diff changeset
   531
             #(#MenuItem
ca
parents: 218
diff changeset
   532
                #'label:' 'cut'
ca
parents: 218
diff changeset
   533
                #'value:' #doCut
ca
parents: 218
diff changeset
   534
                #'enabled:' #hasValidSelection
356
269c117830ba before closing the builder, check for outstanding
ca
parents: 340
diff changeset
   535
                #'shortcutKeyCharacter:' #Cut
220
ca
parents: 218
diff changeset
   536
            )
ca
parents: 218
diff changeset
   537
             #(#MenuItem
ca
parents: 218
diff changeset
   538
                #'label:' 'paste'
ca
parents: 218
diff changeset
   539
                #'value:' #doPaste
ca
parents: 218
diff changeset
   540
                #'enabled:' #hasAnySingleSelection
356
269c117830ba before closing the builder, check for outstanding
ca
parents: 340
diff changeset
   541
                #'shortcutKeyCharacter:' #Paste
220
ca
parents: 218
diff changeset
   542
            )
ca
parents: 218
diff changeset
   543
             #(#MenuItem
ca
parents: 218
diff changeset
   544
                #'label:' '-'
ca
parents: 218
diff changeset
   545
            )
ca
parents: 218
diff changeset
   546
             #(#MenuItem
ca
parents: 218
diff changeset
   547
                #'label:' 'create'
ca
parents: 218
diff changeset
   548
                #'enabled:' #hasAnySingleSelection
ca
parents: 218
diff changeset
   549
                #'submenu:' 
ca
parents: 218
diff changeset
   550
                 #(#Menu
ca
parents: 218
diff changeset
   551
                    
ca
parents: 218
diff changeset
   552
                     #(
ca
parents: 218
diff changeset
   553
                       #(#MenuItem
ca
parents: 218
diff changeset
   554
                          #'label:' 'submenu static'
ca
parents: 218
diff changeset
   555
                          #'value:' #doCreateMenu
ca
parents: 218
diff changeset
   556
                          #'labelImage:' 
ca
parents: 218
diff changeset
   557
                           #(#ResourceRetriever
ca
parents: 218
diff changeset
   558
                              #MenuEditor #iconCreateMenu
ca
parents: 218
diff changeset
   559
                              'submenu static'
ca
parents: 218
diff changeset
   560
                          )
ca
parents: 218
diff changeset
   561
                      )
ca
parents: 218
diff changeset
   562
                       #(#MenuItem
ca
parents: 218
diff changeset
   563
                          #'label:' 'submenu dynamic'
ca
parents: 218
diff changeset
   564
                          #'value:' #doCreateLink
ca
parents: 218
diff changeset
   565
                          #'labelImage:' 
ca
parents: 218
diff changeset
   566
                           #(#ResourceRetriever
ca
parents: 218
diff changeset
   567
                              #MenuEditor #iconCreateLink
ca
parents: 218
diff changeset
   568
                              'submenu dynamic'
ca
parents: 218
diff changeset
   569
                          )
ca
parents: 218
diff changeset
   570
                      )
ca
parents: 218
diff changeset
   571
                       #(#MenuItem
ca
parents: 218
diff changeset
   572
                          #'label:' '-'
ca
parents: 218
diff changeset
   573
                      )
ca
parents: 218
diff changeset
   574
                       #(#MenuItem
ca
parents: 218
diff changeset
   575
                          #'label:' 'item'
ca
parents: 218
diff changeset
   576
                          #'value:' #doCreateItem
ca
parents: 218
diff changeset
   577
                          #'labelImage:' 
ca
parents: 218
diff changeset
   578
                           #(#ResourceRetriever
ca
parents: 218
diff changeset
   579
                              #MenuEditor #iconCreateItem
ca
parents: 218
diff changeset
   580
                              'item'
ca
parents: 218
diff changeset
   581
                          )
ca
parents: 218
diff changeset
   582
                      )
ca
parents: 218
diff changeset
   583
                       #(#MenuItem
ca
parents: 218
diff changeset
   584
                          #'label:' 'separator'
ca
parents: 218
diff changeset
   585
                          #'value:' #doCreateSep
ca
parents: 218
diff changeset
   586
                          #'labelImage:' 
ca
parents: 218
diff changeset
   587
                           #(#ResourceRetriever
ca
parents: 218
diff changeset
   588
                              #MenuEditor #iconCreateSep
ca
parents: 218
diff changeset
   589
                              'separator'
ca
parents: 218
diff changeset
   590
                          )
ca
parents: 218
diff changeset
   591
                      )
ca
parents: 218
diff changeset
   592
                    ) nil
ca
parents: 218
diff changeset
   593
                    nil
ca
parents: 218
diff changeset
   594
                )
ca
parents: 218
diff changeset
   595
            )
ca
parents: 218
diff changeset
   596
          ) nil
ca
parents: 218
diff changeset
   597
          nil
ca
parents: 218
diff changeset
   598
      )
ca
parents: 218
diff changeset
   599
!
ca
parents: 218
diff changeset
   600
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   601
menuPullDown
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   602
    "this window spec was automatically generated by the ST/X MenuEditor"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   603
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   604
    "do not manually edit this - the builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   605
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   606
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   607
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   608
     MenuEditor new openOnClass:MenuEditor andSelector:#menuPullDown
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   609
     (Menu new fromLiteralArrayEncoding:(MenuEditor menuPullDown)) startUp
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   610
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   611
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   612
    <resource: #menu>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   613
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   614
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   615
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   616
       #(#Menu
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   617
          
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   618
           #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   619
             #(#MenuItem
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   620
                #'label:' 'file'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   621
                #'value:' #file
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   622
                #'submenu:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   623
                 #(#Menu
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   624
                    
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   625
                     #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   626
                       #(#MenuItem
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   627
                          #'label:' 'new'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   628
                          #'value:' #doNew
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   629
                      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   630
                       #(#MenuItem
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   631
                          #'label:' 'from class ...'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   632
                          #'value:' #doFromClass
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
   633
                          #'enabled:' #isStandAlone
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   634
                      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   635
                       #(#MenuItem
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   636
                          #'label:' 'pick a menu'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   637
                          #'value:' #doPickAMenu
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
   638
                          #'enabled:' #isStandAlone
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   639
                      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   640
                       #(#MenuItem
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   641
                          #'label:' '='
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   642
                      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   643
                       #(#MenuItem
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   644
                          #'label:' 'quit'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   645
                          #'value:' #closeRequest
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   646
                      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   647
                    ) nil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   648
                    nil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   649
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   650
            )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   651
             #(#MenuItem
243
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   652
                #'label:' 'edit'
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   653
                #'submenu:' 
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   654
                 #(#Menu
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   655
                    
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   656
                     #(
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   657
                       #(#MenuItem
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   658
                          #'label:' 'cut'
246
81fe65b7bea7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   659
                          #'value:' #doCut
243
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   660
                      )
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   661
                       #(#MenuItem
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   662
                          #'label:' '='
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   663
                      )
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   664
                       #(#MenuItem
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   665
                          #'label:' 'create submenu static'
246
81fe65b7bea7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   666
                          #'value:' #doCreateMenu
243
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   667
                      )
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   668
                       #(#MenuItem
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   669
                          #'label:' 'create summenu dynamic'
246
81fe65b7bea7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   670
                          #'value:' #doCreateLink
243
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   671
                      )
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   672
                       #(#MenuItem
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   673
                          #'label:' '-'
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   674
                      )
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   675
                       #(#MenuItem
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   676
                          #'label:' 'create item'
246
81fe65b7bea7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   677
                          #'value:' #doCreateItem
243
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   678
                      )
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   679
                       #(#MenuItem
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   680
                          #'label:' 'create separator'
246
81fe65b7bea7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 243
diff changeset
   681
                          #'value:' #doCreateSep
243
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   682
                      )
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   683
                    ) nil
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   684
                    nil
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   685
                )
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   686
            )
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   687
             #(#MenuItem
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   688
                #'label:' 'code'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   689
                #'value:' #code
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   690
                #'submenu:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   691
                 #(#Menu
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   692
                    
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   693
                     #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   694
                       #(#MenuItem
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   695
                          #'label:' 'class'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   696
                          #'value:' #doDefineClass
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
   697
                          #'enabled:' #isStandAlone
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   698
                      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   699
                       #(#MenuItem
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   700
                          #'label:' '-'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   701
                      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   702
                       #(#MenuItem
266
dd70070d6652 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
   703
                          #'label:' 'install menu spec.'
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   704
                          #'value:' #doInstallSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   705
                      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   706
                       #(#MenuItem
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   707
                          #'label:' 'install help spec.'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   708
                          #'value:' #doInstallHelp
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
   709
                          #'enabled:' #isStandAlone
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   710
                      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   711
                       #(#MenuItem
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   712
                          #'label:' '='
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   713
                      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   714
                       #(#MenuItem
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   715
                          #'label:' 'browse application'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   716
                          #'value:' #doBrowseAppClass
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   717
                      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   718
                    ) nil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   719
                    nil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   720
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   721
            )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   722
             #(#MenuItem
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   723
                #'label:' 'test'
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   724
                #'submenuChannel:' #submenuTest
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   725
            )
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   726
          ) nil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   727
          nil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   728
      )
243
ae6608b760bf nicer images
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
   729
266
dd70070d6652 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
   730
    "Modified: 28.7.1997 / 18:12:10 / cg"
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   731
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   732
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   733
windowSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   734
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   735
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   736
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   737
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   738
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   739
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   740
     UIPainter new openOnClass:MenuEditor andSelector:#windowSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   741
     MenuEditor new openInterface:#windowSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   742
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   743
    "MenuEditor open"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   744
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   745
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   746
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   747
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   748
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   749
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   750
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   751
           #(#WindowSpec
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
   752
              #'name:' 'MenuEditor'
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   753
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   754
              #'label:' 'Menu Builder'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   755
              #'bounds:' #(#Rectangle 0 0 580 384)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   756
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   757
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   758
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   759
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   760
               #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   761
                 #(#ArbitraryComponentSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   762
                    #'name:' 'painterView'
220
ca
parents: 218
diff changeset
   763
                    #'layout:' #(#LayoutFrame 0 0.0 57 0 0 0.5 0 1.0)
ca
parents: 218
diff changeset
   764
                    #'menu:' #menuPainter
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   765
                    #'hasHorizontalScrollBar:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   766
                    #'hasVerticalScrollBar:' true
220
ca
parents: 218
diff changeset
   767
                    #'component:' #painter
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   768
                    #'hasBorder:' false
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   769
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   770
                 #(#NoteBookViewSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   771
                    #'name:' 'specificationView'
220
ca
parents: 218
diff changeset
   772
                    #'layout:' #(#LayoutFrame 0 0.5 0 0.0 0 1.0 -25 1.0)
ca
parents: 218
diff changeset
   773
                    #'tabable:' true
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   774
                    #'menu:' #tabList
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   775
                    #'model:' #tabModel
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   776
                    #'tabWidget:' #Window
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   777
                    #'useIndex:' true
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
   778
                    #'canvas:' #noteBookView
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   779
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   780
                 #(#HorizontalPanelViewSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   781
                    #'name:' 'confirmationPanel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   782
                    #'layout:' #(#LayoutFrame 0 0.5 -24 1.0 0 1.0 0 1.0)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   783
                    #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   784
                     #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   785
                        #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   786
                         #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   787
                           #(#ActionButtonSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   788
                              #'name:' 'cancelButton'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   789
                              #'label:' 'cancel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   790
                              #'model:' #cancel
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   791
                              #'enableChannel:' #modifiedChannel
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   792
                              #'extent:' #(#Point 140 24)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   793
                          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   794
                           #(#ActionButtonSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   795
                              #'name:' 'acceptButton'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   796
                              #'label:' 'ok'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   797
                              #'model:' #accept
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   798
                              #'enableChannel:' #modifiedChannel
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   799
                              #'extent:' #(#Point 141 24)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   800
                          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   801
                        )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   802
                    )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   803
                    #'horizontalLayout:' #fitSpace
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   804
                    #'verticalLayout:' #fit
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   805
                    #'horizontalSpace:' 3
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   806
                    #'verticalSpace:' 3
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   807
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   808
                 #(#MenuPanelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   809
                    #'name:' 'pullDownMenu'
220
ca
parents: 218
diff changeset
   810
                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 0.5 24 0)
ca
parents: 218
diff changeset
   811
                    #'tabable:' true
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   812
                    #'menu:' #menuPullDown
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   813
                )
220
ca
parents: 218
diff changeset
   814
                 #(#MenuPanelSpec
ca
parents: 218
diff changeset
   815
                    #'name:' 'menuPanel1'
ca
parents: 218
diff changeset
   816
                    #'layout:' #(#LayoutFrame 0 0 28 0 0 0.5 53 0)
ca
parents: 218
diff changeset
   817
                    #'menu:' #menuButtons
ca
parents: 218
diff changeset
   818
                    #'showSeparatingLines:' true
ca
parents: 218
diff changeset
   819
                )
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   820
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   821
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   822
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   823
! !
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   824
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   825
!MenuEditor class methodsFor:'slices'!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   826
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   827
slicesItem
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   828
    ^#(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   829
            (Basics     basicsItemSpec)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   830
            (Details    detailsEditSpec)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   831
            (Misc       miscEditSpec)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   832
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   833
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   834
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   835
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   836
slicesLink
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   837
    ^#(
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   838
            (Basics     basicsLinkSpec)
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   839
            (Details    detailsEditSpec)
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   840
            (Misc       miscEditSpec)
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   841
      )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   842
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   843
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   844
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   845
slicesMenu
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   846
    ^#(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   847
            (Basics     basicsMenuSpec)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   848
            (Details    detailsEditSpec)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   849
            (Misc       miscEditSpec)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   850
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   851
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   852
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   853
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   854
slicesRootMenu
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   855
    ^#(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   856
            (Basics   basicsRootSpec)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   857
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   858
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   859
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   860
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   861
slicesSeparatorMenu
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   862
    ^#(
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   863
            (Basics   basicsSeparatorSpec)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   864
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   865
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   866
! !
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   867
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   868
!MenuEditor class methodsFor:'specs'!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   869
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   870
basicsItemSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   871
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   872
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   873
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   874
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   875
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   876
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   877
     UIPainter new openOnClass:MenuEditor andSelector:#basicsItemSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   878
     MenuEditor new openInterface:#basicsItemSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   879
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   880
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   881
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   882
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   883
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   884
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   885
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   886
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   887
           #(#WindowSpec
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   888
              #'name:' 'unnamed canvas'
381
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
   889
              #'layout:' #(#LayoutFrame 377 0 282 0 643 0 600 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   890
              #'label:' 'unnamed canvas'
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   891
              #'min:' #(#Point 10 10)
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   892
              #'max:' #(#Point 1160 870)
381
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
   893
              #'bounds:' #(#Rectangle 377 282 644 601)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   894
              #'usePreferredExtent:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   895
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   896
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   897
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   898
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   899
               #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   900
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   901
                    #'name:' 'nameKeyLabel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   902
                    #'layout:' #(#AlignmentOrigin 87 0 26 0 1 0.5)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   903
                    #'label:' 'NameKey:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   904
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   905
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   906
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   907
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   908
                    #'name:' 'nameKeyField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   909
                    #'layout:' #(#LayoutFrame 91 0 15 0 0 1.0 37 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   910
                    #'activeHelpKey:' #nameKey
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   911
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   912
                    #'model:' #nameKey
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   913
                    #'type:' #symbolOrNil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   914
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   915
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   916
                    #'name:' 'labelLabel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   917
                    #'layout:' #(#AlignmentOrigin 87 0 53 0 1 0.5)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   918
                    #'label:' 'Label'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   919
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   920
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   921
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   922
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   923
                    #'name:' 'labelField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   924
                    #'layout:' #(#LayoutFrame 91 0 42 0 0 1.0 64 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   925
                    #'activeHelpKey:' #label
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   926
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   927
                    #'model:' #label
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   928
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   929
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   930
                    #'name:' 'valueLabel'
381
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
   931
                    #'layout:' #(#AlignmentOrigin 87 0 90 0 1 0.5)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   932
                    #'label:' 'Value:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   933
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   934
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   935
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   936
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   937
                    #'name:' 'valueField'
381
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
   938
                    #'layout:' #(#LayoutFrame 91 0 79 0 0 1.0 101 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   939
                    #'activeHelpKey:' #value
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   940
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   941
                    #'model:' #value
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   942
                    #'type:' #symbolOrNil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   943
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   944
                 #(#LabelSpec
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   945
                    #'name:' 'argumentLabel'
381
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
   946
                    #'layout:' #(#AlignmentOrigin 87 0 116 0 1 0.5)
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   947
                    #'label:' 'Argument:'
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   948
                    #'adjust:' #right
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   949
                    #'resizeForLabel:' true
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   950
                )
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   951
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   952
                    #'name:' 'argumentField'
381
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
   953
                    #'layout:' #(#LayoutFrame 91 0 105 0 0 1.0 127 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   954
                    #'activeHelpKey:' #argument
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   955
                    #'tabable:' true
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   956
                    #'model:' #argument
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   957
                    #'type:' #string
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
   958
                )
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   959
                 #(#LabelSpec
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   960
                    #'name:' 'indicationLabel'
381
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
   961
                    #'layout:' #(#AlignmentOrigin 87 0 156 0 1 0.5)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   962
                    #'label:' 'Indication:'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   963
                    #'adjust:' #right
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   964
                    #'resizeForLabel:' true
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   965
                )
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   966
                 #(#InputFieldSpec
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   967
                    #'name:' 'indicationField'
381
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
   968
                    #'layout:' #(#LayoutFrame 91 0 145 0 0 1.0 167 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   969
                    #'activeHelpKey:' #indication
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   970
                    #'tabable:' true
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   971
                    #'model:' #indication
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   972
                    #'type:' #symbolOrNil
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   973
                )
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   974
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   975
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   976
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   977
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
   978
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   979
basicsLinkSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   980
    "this window spec was automatically generated by the ST/X UIPainter"
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   981
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   982
    "do not manually edit this - the painter/builder may not be able to
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   983
     handle the specification if its corrupted."
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   984
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   985
    "
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   986
     UIPainter new openOnClass:MenuEditor andSelector:#basicsLinkSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   987
     MenuEditor new openInterface:#basicsLinkSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   988
    "
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   989
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   990
    <resource: #canvas>
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   991
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   992
    ^
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   993
     
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   994
       #(#FullSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   995
          #'window:' 
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   996
           #(#WindowSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   997
              #'name:' 'unnamed canvas'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
   998
              #'layout:' #(#LayoutFrame 219 0 193 0 485 0 511 0)
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
   999
              #'label:' 'unnamed canvas'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1000
              #'min:' #(#Point 10 10)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1001
              #'max:' #(#Point 1280 1024)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1002
              #'bounds:' #(#Rectangle 219 193 486 512)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1003
              #'usePreferredExtent:' false
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1004
          )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1005
          #'component:' 
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1006
           #(#SpecCollection
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1007
              #'collection:' 
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1008
               #(
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1009
                 #(#LabelSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1010
                    #'name:' 'nameKeyLabel'
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1011
                    #'layout:' #(#AlignmentOrigin 87 0 26 0 1 0.5)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1012
                    #'activeHelpKey:' #nameKey
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1013
                    #'label:' 'NameKey:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1014
                    #'adjust:' #right
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1015
                    #'resizeForLabel:' true
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1016
                )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1017
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1018
                    #'name:' 'nameKeyField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1019
                    #'layout:' #(#LayoutFrame 91 0 15 0 0 1.0 37 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1020
                    #'activeHelpKey:' #nameKey
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1021
                    #'tabable:' true
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1022
                    #'model:' #nameKey
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1023
                    #'type:' #symbolOrNil
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1024
                )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1025
                 #(#LabelSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1026
                    #'name:' 'labelLabel'
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1027
                    #'layout:' #(#AlignmentOrigin 87 0 53 0 1 0.5)
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1028
                    #'label:' 'Label'
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1029
                    #'resizeForLabel:' true
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1030
                )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1031
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1032
                    #'name:' 'labelField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1033
                    #'layout:' #(#LayoutFrame 91 0 42 0 0 1.0 64 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1034
                    #'activeHelpKey:' #label
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1035
                    #'tabable:' true
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1036
                    #'model:' #label
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1037
                )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1038
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1039
                    #'name:' 'menuField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1040
                    #'layout:' #(#LayoutFrame 91 0 69 0 0 1.0 91 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1041
                    #'activeHelpKey:' #submenuChannel
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1042
                    #'tabable:' true
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1043
                    #'model:' #submenuChannel
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1044
                    #'type:' #symbolOrNil
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1045
                )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1046
                 #(#LabelSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1047
                    #'name:' 'menuLabel'
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1048
                    #'layout:' #(#AlignmentOrigin 87 0 80 0 1 0.5)
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1049
                    #'label:' 'Menu:'
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1050
                    #'resizeForLabel:' true
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1051
                )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1052
              )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1053
          )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1054
      )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1055
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1056
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1057
basicsMenuSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1058
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1059
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1060
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1061
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1062
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1063
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1064
     UIPainter new openOnClass:MenuEditor andSelector:#basicsMenuSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1065
     MenuEditor new openInterface:#basicsMenuSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1066
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1067
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1068
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1069
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1070
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1071
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1072
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1073
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1074
           #(#WindowSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1075
              #'name:' 'unnamed canvas'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1076
              #'layout:' #(#LayoutFrame 219 0 193 0 485 0 511 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1077
              #'label:' 'unnamed canvas'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1078
              #'min:' #(#Point 10 10)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1079
              #'max:' #(#Point 1280 1024)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1080
              #'bounds:' #(#Rectangle 219 193 486 512)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1081
              #'usePreferredExtent:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1082
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1083
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1084
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1085
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1086
               #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1087
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1088
                    #'name:' 'nameKeyLabel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1089
                    #'layout:' #(#AlignmentOrigin 87 0 26 0 1 0.5)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1090
                    #'label:' 'NameKey:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1091
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1092
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1093
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1094
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1095
                    #'name:' 'nameKeyField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1096
                    #'layout:' #(#LayoutFrame 91 0 15 0 0 1.0 37 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1097
                    #'activeHelpKey:' #nameKey
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1098
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1099
                    #'model:' #nameKey
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1100
                    #'type:' #symbolOrNil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1101
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1102
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1103
                    #'name:' 'labelLabel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1104
                    #'layout:' #(#AlignmentOrigin 87 0 53 0 1 0.5)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1105
                    #'label:' 'Label'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1106
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1107
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1108
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1109
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1110
                    #'name:' 'labelField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1111
                    #'layout:' #(#LayoutFrame 91 0 42 0 0 1.0 64 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1112
                    #'activeHelpKey:' #label
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1113
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1114
                    #'model:' #label
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1115
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1116
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1117
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1118
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1119
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1120
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1121
basicsRootSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1122
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1123
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1124
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1125
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1126
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1127
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1128
     UIPainter new openOnClass:MenuEditor andSelector:#basicsRootSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1129
     MenuEditor new openInterface:#basicsRootSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1130
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1131
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1132
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1133
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1134
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1135
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1136
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1137
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1138
           #(#WindowSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1139
              #'name:' 'unnamed canvas'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1140
              #'layout:' #(#LayoutFrame 219 0 193 0 485 0 511 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1141
              #'label:' 'unnamed canvas'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1142
              #'min:' #(#Point 10 10)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1143
              #'max:' #(#Point 1280 1024)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1144
              #'bounds:' #(#Rectangle 219 193 486 512)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1145
              #'usePreferredExtent:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1146
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1147
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1148
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1149
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1150
               #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1151
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1152
                    #'name:' 'selectorLabel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1153
                    #'layout:' #(#AlignmentOrigin 78 0 53 0 1 0.5)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1154
                    #'label:' 'Selector:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1155
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1156
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1157
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1158
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1159
                    #'name:' 'selectorField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1160
                    #'layout:' #(#LayoutFrame 82 0 42 0 0 1.0 64 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1161
                    #'activeHelpKey:' #menuSelector
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1162
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1163
                    #'model:' #label
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1164
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1165
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1166
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1167
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1168
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1169
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1170
basicsSeparatorSpec
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1171
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1172
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1173
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1174
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1175
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1176
    "
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1177
     UIPainter new openOnClass:MenuEditor andSelector:#basicsSeparatorSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1178
     MenuEditor new openInterface:#basicsSeparatorSpec
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1179
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1180
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1181
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1182
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1183
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1184
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1185
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1186
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1187
           #(#WindowSpec
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
  1188
              #'name:' 'unnamed canvas'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1189
              #'layout:' #(#LayoutFrame 219 0 193 0 485 0 511 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1190
              #'label:' 'unnamed canvas'
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
  1191
              #'min:' #(#Point 10 10)
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
  1192
              #'max:' #(#Point 1160 870)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1193
              #'bounds:' #(#Rectangle 219 193 486 512)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1194
              #'usePreferredExtent:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1195
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1196
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1197
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1198
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1199
               #(
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1200
                 #(#LabelSpec
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1201
                    #'name:' 'separatorLabel'
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1202
                    #'layout:' #(#AlignmentOrigin 127 0 22 0 1 0.5)
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1203
                    #'label:' 'Separator Type:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1204
                    #'adjust:' #right
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1205
                    #'resizeForLabel:' true
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1206
                )
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1207
                 #(#ComboListSpec
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
  1208
                    #'name:' 'seperatorList'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1209
                    #'layout:' #(#LayoutFrame 132 0 11 0 0 1.0 33 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1210
                    #'activeHelpKey:' #seperatorList
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1211
                    #'model:' #seperatorSelection
290
1428bab2aa68 an empty selection is now specified by 0
ca
parents: 287
diff changeset
  1212
                    #'useIndex:' true
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1213
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1214
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1215
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1216
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1217
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1218
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1219
detailsEditSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1220
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1221
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1222
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1223
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1224
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1225
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1226
     UIPainter new openOnClass:MenuEditor andSelector:#detailsEditSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1227
     MenuEditor new openInterface:#detailsEditSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1228
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1229
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1230
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1231
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1232
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1233
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1234
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1235
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1236
           #(#WindowSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1237
              #'name:' 'unnamed canvas'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1238
              #'layout:' #(#LayoutFrame 219 0 193 0 477 0 480 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1239
              #'label:' 'unnamed canvas'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1240
              #'min:' #(#Point 10 10)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1241
              #'max:' #(#Point 1280 1024)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1242
              #'bounds:' #(#Rectangle 219 193 478 481)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1243
              #'usePreferredExtent:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1244
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1245
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1246
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1247
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1248
               #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1249
                 #(#LabelSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1250
                    #'name:' 'shortcutKeyLabel'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1251
                    #'layout:' #(#AlignmentOrigin 87 0 33 0 1 0.5)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1252
                    #'label:' 'Accelerator:'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1253
                    #'adjust:' #right
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1254
                    #'resizeForLabel:' true
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1255
                )
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1256
                 #(#InputFieldSpec
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1257
                    #'name:' 'shortcutKeyField'
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1258
                    #'layout:' #(#LayoutFrame 91 0 22 0 0 1.0 44 0)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1259
                    #'activeHelpKey:' #shortcutKey
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1260
                    #'tabable:' true
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1261
                    #'model:' #shortcutKey
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1262
                    #'type:' #symbolOrNil
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1263
                )
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1264
                 #(#LabelSpec
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1265
                    #'name:' 'enabledLabel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1266
                    #'layout:' #(#AlignmentOrigin 87 0 59 0 1 0.5)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1267
                    #'label:' 'Enabled:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1268
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1269
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1270
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1271
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1272
                    #'name:' 'enabledField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1273
                    #'layout:' #(#LayoutFrame 91 0 48 0 0 1.0 70 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1274
                    #'activeHelpKey:' #enbled
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1275
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1276
                    #'model:' #enabled
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1277
                    #'type:' #symbolOrNil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1278
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1279
                 #(#LabelSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1280
                    #'name:' 'accessCharLabel'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1281
                    #'layout:' #(#AlignmentOrigin 211 0 127 0 1 0.5)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1282
                    #'label:' 'Access Character Position:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1283
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1284
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1285
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1286
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1287
                    #'name:' 'accessCharField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1288
                    #'layout:' #(#LayoutFrame 215 0 116 0 0 1.0 138 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1289
                    #'activeHelpKey:' #accessCharaterPos
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1290
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1291
                    #'model:' #accessCharaterPos
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1292
                    #'type:' #numberOrNil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1293
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1294
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1295
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1296
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1297
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1298
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1299
miscEditSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1300
    "this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1301
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1302
    "do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1303
     handle the specification if its corrupted."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1304
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1305
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1306
     UIPainter new openOnClass:MenuEditor andSelector:#miscEditSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1307
     MenuEditor new openInterface:#miscEditSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1308
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1309
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1310
    <resource: #canvas>
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1311
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1312
    ^
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1313
     
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1314
       #(#FullSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1315
          #'window:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1316
           #(#WindowSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1317
              #'name:' 'unnamed canvas'
381
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
  1318
              #'layout:' #(#LayoutFrame 441 0 301 0 685 0 442 0)
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1319
              #'label:' 'unnamed canvas'
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1320
              #'min:' #(#Point 10 10)
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1321
              #'max:' #(#Point 1280 1024)
381
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
  1322
              #'bounds:' #(#Rectangle 441 301 686 443)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1323
              #'usePreferredExtent:' false
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1324
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1325
          #'component:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1326
           #(#SpecCollection
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1327
              #'collection:' 
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1328
               #(
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1329
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1330
                    #'name:' 'retrieverLabel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1331
                    #'layout:' #(#AlignmentOrigin 77 0 26 0 1 0.5)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1332
                    #'label:' 'Retriever:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1333
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1334
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1335
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1336
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1337
                    #'name:' 'retrieverField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1338
                    #'layout:' #(#LayoutFrame 81 0 15 0 0 1.0 37 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1339
                    #'activeHelpKey:' #retriever
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1340
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1341
                    #'model:' #retriever
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1342
                    #'type:' #symbolOrNil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1343
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1344
                 #(#LabelSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1345
                    #'name:' 'iconLabel'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1346
                    #'layout:' #(#AlignmentOrigin 77 0 50 0 1 0.5)
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1347
                    #'label:' 'Icon:'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1348
                    #'adjust:' #right
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1349
                    #'resizeForLabel:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1350
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1351
                 #(#InputFieldSpec
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1352
                    #'name:' 'iconField'
263
25f080e1217f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
  1353
                    #'layout:' #(#LayoutFrame 81 0 39 0 0 1.0 61 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1354
                    #'activeHelpKey:' #icon
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1355
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1356
                    #'model:' #icon
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1357
                    #'type:' #symbolOrNil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1358
                )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1359
                 #(#CheckBoxSpec
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1360
                    #'name:' 'iconAndLabel'
381
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
  1361
                    #'layout:' #(#LayoutOrigin 15 0 103 0)
371
7017eaabd9ed add help text
ca
parents: 359
diff changeset
  1362
                    #'activeHelpKey:' #iconAndLabel
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1363
                    #'tabable:' true
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1364
                    #'model:' #iconAndLabel
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1365
                    #'label:' 'Icon & Label'
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1366
                )
381
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
  1367
                 #(#ActionButtonSpec
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
  1368
                    #'name:' 'imageEditorButton'
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
  1369
                    #'layout:' #(#LayoutFrame 81 0 65 0 0 1 87 0)
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
  1370
                    #'label:' 'Image Editor'
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
  1371
                    #'model:' #doEditImage
1d1b1483270c now with image editor support
tz
parents: 371
diff changeset
  1372
                )
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1373
              )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1374
          )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1375
      )
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1376
! !
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1377
209
b2fa6f8d4808 postBuildWith:builder
ca
parents: 199
diff changeset
  1378
!MenuEditor class methodsFor:'startup'!
b2fa6f8d4808 postBuildWith:builder
ca
parents: 199
diff changeset
  1379
213
71b11a173f87 change model; supports multiple selection
ca
parents: 209
diff changeset
  1380
openModalOnClass:aClass andSelector:aSelector
71b11a173f87 change model; supports multiple selection
ca
parents: 209
diff changeset
  1381
    ^ self new openModalOnClass:aClass andSelector:aSelector
71b11a173f87 change model; supports multiple selection
ca
parents: 209
diff changeset
  1382
71b11a173f87 change model; supports multiple selection
ca
parents: 209
diff changeset
  1383
71b11a173f87 change model; supports multiple selection
ca
parents: 209
diff changeset
  1384
!
71b11a173f87 change model; supports multiple selection
ca
parents: 209
diff changeset
  1385
209
b2fa6f8d4808 postBuildWith:builder
ca
parents: 199
diff changeset
  1386
openOnClass:aClass andSelector:aSelector
b2fa6f8d4808 postBuildWith:builder
ca
parents: 199
diff changeset
  1387
    ^ self new openOnClass:aClass andSelector:aSelector
b2fa6f8d4808 postBuildWith:builder
ca
parents: 199
diff changeset
  1388
b2fa6f8d4808 postBuildWith:builder
ca
parents: 199
diff changeset
  1389
b2fa6f8d4808 postBuildWith:builder
ca
parents: 199
diff changeset
  1390
! !
b2fa6f8d4808 postBuildWith:builder
ca
parents: 199
diff changeset
  1391
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1392
!MenuEditor methodsFor:'accessing'!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1393
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1394
menuDefaultLink
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1395
    ^ self class menuDefaultLink
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1396
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1397
270
1a68f7479932 provide access to the menus selector;
Claus Gittinger <cg@exept.de>
parents: 266
diff changeset
  1398
selectorName
1a68f7479932 provide access to the menus selector;
Claus Gittinger <cg@exept.de>
parents: 266
diff changeset
  1399
    ^ self painter selectorName
1a68f7479932 provide access to the menus selector;
Claus Gittinger <cg@exept.de>
parents: 266
diff changeset
  1400
1a68f7479932 provide access to the menus selector;
Claus Gittinger <cg@exept.de>
parents: 266
diff changeset
  1401
    "Created: 31.7.1997 / 14:11:28 / cg"
1a68f7479932 provide access to the menus selector;
Claus Gittinger <cg@exept.de>
parents: 266
diff changeset
  1402
!
1a68f7479932 provide access to the menus selector;
Claus Gittinger <cg@exept.de>
parents: 266
diff changeset
  1403
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1404
specClass
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1405
    ^ specClass
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1406
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1407
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1408
specClass:aClass
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1409
    aClass isBehavior ifTrue:[specClass := aClass name]
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1410
                     ifFalse:[specClass := aClass].
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1411
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1412
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1413
submenuTest
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1414
    "returns submenu assigned to item test
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1415
    "
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1416
    |menu|
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1417
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1418
    menu := self painter asMenu.
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1419
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1420
    menu allItemsDo:[:anItem|
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1421
        anItem value:nil.
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1422
        anItem enabled:true.
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1423
    ].
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1424
  ^ menu
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1425
!
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1426
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1427
useHelpDictionary:aDictionary
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1428
    self noteBookView.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1429
    self helpTool dictionary:aDictionary.
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1430
! !
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1431
220
ca
parents: 218
diff changeset
  1432
!MenuEditor methodsFor:'accessing menu'!
ca
parents: 218
diff changeset
  1433
ca
parents: 218
diff changeset
  1434
menuButtons
ca
parents: 218
diff changeset
  1435
    "this window spec was automatically generated by the ST/X MenuEditor"
ca
parents: 218
diff changeset
  1436
ca
parents: 218
diff changeset
  1437
    ^ self class menuButtons
ca
parents: 218
diff changeset
  1438
ca
parents: 218
diff changeset
  1439
ca
parents: 218
diff changeset
  1440
!
ca
parents: 218
diff changeset
  1441
ca
parents: 218
diff changeset
  1442
menuPainter
ca
parents: 218
diff changeset
  1443
    "this window spec was automatically generated by the ST/X MenuEditor"
ca
parents: 218
diff changeset
  1444
ca
parents: 218
diff changeset
  1445
    ^ self class menuPainter
ca
parents: 218
diff changeset
  1446
ca
parents: 218
diff changeset
  1447
298
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1448
!
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1449
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1450
menuPullDown
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1451
    "this window spec was automatically generated by the ST/X MenuEditor"
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1452
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1453
    ^ self class menuPullDown
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1454
cec1f174397e use more functionality provided by base class
ca
parents: 290
diff changeset
  1455
220
ca
parents: 218
diff changeset
  1456
! !
ca
parents: 218
diff changeset
  1457
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1458
!MenuEditor methodsFor:'actions'!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1459
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1460
accept
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1461
    "automatically generated by UIPainter ..."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1462
255
989494227ffc use #booleanAspectFor: , a codeSaver
Claus Gittinger <cg@exept.de>
parents: 249
diff changeset
  1463
    |painter node cont|
989494227ffc use #booleanAspectFor: , a codeSaver
Claus Gittinger <cg@exept.de>
parents: 249
diff changeset
  1464
989494227ffc use #booleanAspectFor: , a codeSaver
Claus Gittinger <cg@exept.de>
parents: 249
diff changeset
  1465
    painter := self painter.
989494227ffc use #booleanAspectFor: , a codeSaver
Claus Gittinger <cg@exept.de>
parents: 249
diff changeset
  1466
    node := painter selectedNode.
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1467
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1468
    node notNil ifTrue:[
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1469
        self isHelpToolSelected ifTrue:[
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1470
            self helpTool accept.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1471
            node contents activeHelpKey:(self helpTool helpKey)
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1472
        ] ifFalse:[
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1473
            cont := node contents buildFromAspects:aspects.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1474
            painter selectedNodeChanged
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1475
        ]
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1476
    ].
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1477
    self modifiedChannel value:false.
356
269c117830ba before closing the builder, check for outstanding
ca
parents: 340
diff changeset
  1478
    isModified := true.
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1479
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1480
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1481
cancel
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1482
    |node|
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1483
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1484
    (node := self painter selectedNode) notNil ifTrue:[
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 275
diff changeset
  1485
        self helpTool helpKey:(self helpKey).
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1486
        aspects do:[:anAspect| anAspect value:nil ].
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1487
        node contents toAspects:aspects.
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1488
    ].
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1489
    self modifiedChannel value:false.
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1490
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1491
! !
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1492
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1493
!MenuEditor methodsFor:'aspects'!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1494
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1495
aspectFor:aKey
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1496
    "returns aspect for a key or nil
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1497
    "
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1498
  ^ aspects at:aKey ifAbsent:[ super aspectFor:aKey ]
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1499
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1500
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1501
!
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1502
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1503
enabledStepIn
257
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1504
    ^ builder booleanValueAspectFor:#enabledStepIn
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1505
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1506
    "Modified: 28.7.1997 / 12:51:55 / cg"
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1507
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1508
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1509
enabledStepOut
257
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1510
    ^ builder booleanValueAspectFor:#enabledStepOut
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1511
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1512
    "Modified: 28.7.1997 / 12:52:04 / cg"
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1513
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1514
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1515
enabledStepOver
257
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1516
    ^ builder booleanValueAspectFor:#enabledStepOver
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1517
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1518
    "Modified: 28.7.1997 / 12:52:07 / cg"
218
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1519
!
5c88856b360f access MenuEditor from any specification;
ca
parents: 215
diff changeset
  1520
220
ca
parents: 218
diff changeset
  1521
hasAnySingleSelection
257
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1522
    ^ builder booleanValueAspectFor:#hasAnySingleSelection
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1523
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1524
    "Modified: 28.7.1997 / 12:52:09 / cg"
220
ca
parents: 218
diff changeset
  1525
!
ca
parents: 218
diff changeset
  1526
ca
parents: 218
diff changeset
  1527
hasValidSelection
257
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1528
    ^ builder booleanValueAspectFor:#hasValidSelection
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1529
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1530
    "Modified: 28.7.1997 / 12:52:11 / cg"
220
ca
parents: 218
diff changeset
  1531
!
ca
parents: 218
diff changeset
  1532
ca
parents: 218
diff changeset
  1533
hasValidSingleSelection
257
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1534
    ^ builder booleanValueAspectFor:#hasValidSingleSelection
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1535
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1536
    "Modified: 28.7.1997 / 12:52:13 / cg"
220
ca
parents: 218
diff changeset
  1537
!
ca
parents: 218
diff changeset
  1538
199
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1539
modifiedChannel
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1540
    "automatically generated by UIPainter ..."
6ce84c1270a6 intitial checkin
ca
parents:
diff changeset
  1541
257
02d6daa8d878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1542
    ^ builder booleanValueAspectFor:#modifiedChannel
02d6daa8d878 *** empty log message ***
C