TabListEditor.st
changeset 3663 9d49ecf8661a
parent 3590 885f170ab630
     1.1 --- a/TabListEditor.st	Fri May 03 10:52:38 2019 +0200
     1.2 +++ b/TabListEditor.st	Tue May 14 09:46:21 2019 +0200
     1.3 @@ -420,190 +420,210 @@
     1.4      <resource: #canvas>
     1.5  
     1.6      ^ 
     1.7 -     #(FullSpec
     1.8 -        name: canvasSpec
     1.9 -        window: 
    1.10 -       (WindowSpec
    1.11 -          label: 'Canvas'
    1.12 -          name: 'Canvas'
    1.13 -          min: (Point 10 10)
    1.14 -          max: (Point 1280 1024)
    1.15 -          bounds: (Rectangle 0 0 383 220)
    1.16 -        )
    1.17 -        component: 
    1.18 -       (SpecCollection
    1.19 -          collection: (
    1.20 -           (LabelSpec
    1.21 -              label: 'Class Name / Major Key:'
    1.22 -              name: 'majorKeyLabel'
    1.23 -              layout: (AlignmentOrigin 160 0 26 0 1 0.5)
    1.24 -              activeHelpKey: majorKey
    1.25 -              translateLabel: true
    1.26 -              resizeForLabel: true
    1.27 -            )
    1.28 -           (InputFieldSpec
    1.29 -              name: 'majorKeyField'
    1.30 -              layout: (LayoutFrame 161 0 15 0 -5 1.0 37 0)
    1.31 -              activeHelpKey: majorKey
    1.32 -              tabable: true
    1.33 -              model: majorKey
    1.34 -              group: inputGroup
    1.35 -              type: symbolOrNil
    1.36 -              immediateAccept: true
    1.37 -              acceptOnReturn: false
    1.38 -              acceptOnTab: false
    1.39 -              acceptOnLostFocus: false
    1.40 -              modifiedChannel: modifiedChannel
    1.41 -              acceptOnPointerLeave: false
    1.42 -            )
    1.43 -           (LabelSpec
    1.44 -              label: 'Selector / Minor Key:'
    1.45 -              name: 'minorKeyLabel'
    1.46 -              layout: (AlignmentOrigin 160 0 55 0 1 0.5)
    1.47 -              translateLabel: true
    1.48 -              resizeForLabel: true
    1.49 -            )
    1.50 -           (InputFieldSpec
    1.51 -              name: 'minorKeyField'
    1.52 -              layout: (LayoutFrame 161 0 44 0 -5 1.0 66 0)
    1.53 -              activeHelpKey: majorKey
    1.54 -              tabable: true
    1.55 -              model: minorKey
    1.56 -              group: inputGroup
    1.57 -              type: symbolOrNil
    1.58 -              immediateAccept: true
    1.59 -              acceptOnReturn: false
    1.60 -              acceptOnTab: false
    1.61 -              acceptOnLostFocus: false
    1.62 -              modifiedChannel: modifiedChannel
    1.63 -              acceptOnPointerLeave: false
    1.64 -            )
    1.65 -           (FramedBoxSpec
    1.66 -              label: 'Scroll Bars'
    1.67 -              name: 'FramedBox'
    1.68 -              layout: (LayoutFrame 0 0.0 119 0.0 0 1.0 218 0)
    1.69 -              labelPosition: topLeft
    1.70 -              translateLabel: true
    1.71 -              component: 
    1.72 -             (SpecCollection
    1.73 -                collection: (
    1.74 -                 (HorizontalPanelViewSpec
    1.75 -                    name: 'HorizontalPanel1'
    1.76 -                    layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
    1.77 -                    horizontalLayout: fitSpace
    1.78 -                    verticalLayout: fitSpace
    1.79 -                    horizontalSpace: 3
    1.80 -                    verticalSpace: 3
    1.81 -                    component: 
    1.82 -                   (SpecCollection
    1.83 -                      collection: (
    1.84 -                       (ViewSpec
    1.85 -                          name: 'Box1'
    1.86 -                          component: 
    1.87 -                         (SpecCollection
    1.88 -                            collection: (
    1.89 -                             (CheckBoxSpec
    1.90 -                                label: 'Vertical'
    1.91 -                                name: 'verticalScrollBarCheckBox'
    1.92 -                                layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0)
    1.93 -                                activeHelpKey: verticalScroller
    1.94 -                                tabable: true
    1.95 -                                model: hasVerticalScrollBar
    1.96 -                                translateLabel: true
    1.97 -                              )
    1.98 -                             (CheckBoxSpec
    1.99 -                                label: 'Mini'
   1.100 -                                name: 'miniScrollerVerticalCheckBox'
   1.101 -                                layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0)
   1.102 -                                activeHelpKey: verticalMiniScroller
   1.103 -                                tabable: true
   1.104 -                                model: miniScrollerVertical
   1.105 -                                translateLabel: true
   1.106 -                              )
   1.107 +    #(FullSpec
   1.108 +       name: canvasSpec
   1.109 +       uuid: '8a7c55d6-761b-11e9-98ea-b8f6b1108e05'
   1.110 +       window: 
   1.111 +      (WindowSpec
   1.112 +         label: 'Canvas'
   1.113 +         name: 'Canvas'
   1.114 +         uuid: '8a7c5964-761b-11e9-98ea-b8f6b1108e05'
   1.115 +         min: (Point 10 10)
   1.116 +         max: (Point 1280 1024)
   1.117 +         bounds: (Rectangle 0 0 383 220)
   1.118 +       )
   1.119 +       component: 
   1.120 +      (SpecCollection
   1.121 +         collection: (
   1.122 +          (LabelSpec
   1.123 +             label: 'Class / Major Key:'
   1.124 +             name: 'majorKeyLabel'
   1.125 +             layout: (AlignmentOrigin 160 0 26 0 1 0.5)
   1.126 +             activeHelpKey: majorKey
   1.127 +             uuid: '8a7cc2f0-761b-11e9-98ea-b8f6b1108e05'
   1.128 +             translateLabel: true
   1.129 +             resizeForLabel: true
   1.130 +           )
   1.131 +          (InputFieldSpec
   1.132 +             name: 'majorKeyField'
   1.133 +             layout: (LayoutFrame 161 0 15 0 -5 1.0 37 0)
   1.134 +             activeHelpKey: majorKey
   1.135 +             uuid: '8a7cc82c-761b-11e9-98ea-b8f6b1108e05'
   1.136 +             tabable: true
   1.137 +             model: majorKey
   1.138 +             group: inputGroup
   1.139 +             type: symbolOrNil
   1.140 +             immediateAccept: true
   1.141 +             acceptOnReturn: false
   1.142 +             acceptOnTab: false
   1.143 +             acceptOnLostFocus: false
   1.144 +             modifiedChannel: modifiedChannel
   1.145 +             acceptOnPointerLeave: false
   1.146 +           )
   1.147 +          (LabelSpec
   1.148 +             label: 'Selector / Minor Key:'
   1.149 +             name: 'minorKeyLabel'
   1.150 +             layout: (AlignmentOrigin 160 0 55 0 1 0.5)
   1.151 +             uuid: '8a7ccda4-761b-11e9-98ea-b8f6b1108e05'
   1.152 +             translateLabel: true
   1.153 +             resizeForLabel: true
   1.154 +           )
   1.155 +          (InputFieldSpec
   1.156 +             name: 'minorKeyField'
   1.157 +             layout: (LayoutFrame 161 0 44 0 -5 1.0 66 0)
   1.158 +             activeHelpKey: majorKey
   1.159 +             uuid: '8a7ccf7a-761b-11e9-98ea-b8f6b1108e05'
   1.160 +             tabable: true
   1.161 +             model: minorKey
   1.162 +             group: inputGroup
   1.163 +             type: symbolOrNil
   1.164 +             immediateAccept: true
   1.165 +             acceptOnReturn: false
   1.166 +             acceptOnTab: false
   1.167 +             acceptOnLostFocus: false
   1.168 +             modifiedChannel: modifiedChannel
   1.169 +             acceptOnPointerLeave: false
   1.170 +           )
   1.171 +          (FramedBoxSpec
   1.172 +             label: 'Scroll Bars'
   1.173 +             name: 'FramedBox'
   1.174 +             layout: (LayoutFrame 0 0.0 119 0.0 0 1.0 218 0)
   1.175 +             uuid: '8a7cd1be-761b-11e9-98ea-b8f6b1108e05'
   1.176 +             labelPosition: topLeft
   1.177 +             translateLabel: true
   1.178 +             component: 
   1.179 +            (SpecCollection
   1.180 +               collection: (
   1.181 +                (HorizontalPanelViewSpec
   1.182 +                   name: 'HorizontalPanel1'
   1.183 +                   layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   1.184 +                   uuid: '8a7cd42a-761b-11e9-98ea-b8f6b1108e05'
   1.185 +                   horizontalLayout: fitSpace
   1.186 +                   verticalLayout: fitSpace
   1.187 +                   horizontalSpace: 3
   1.188 +                   verticalSpace: 3
   1.189 +                   component: 
   1.190 +                  (SpecCollection
   1.191 +                     collection: (
   1.192 +                      (ViewSpec
   1.193 +                         name: 'Box1'
   1.194 +                         uuid: '8a7cd768-761b-11e9-98ea-b8f6b1108e05'
   1.195 +                         component: 
   1.196 +                        (SpecCollection
   1.197 +                           collection: (
   1.198 +                            (CheckBoxSpec
   1.199 +                               label: 'Vertical'
   1.200 +                               name: 'verticalScrollBarCheckBox'
   1.201 +                               layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0)
   1.202 +                               activeHelpKey: verticalScroller
   1.203 +                               uuid: '8a7cd8ee-761b-11e9-98ea-b8f6b1108e05'
   1.204 +                               tabable: true
   1.205 +                               model: hasVerticalScrollBar
   1.206 +                               translateLabel: true
   1.207                               )
   1.208 -                           
   1.209 -                          )
   1.210 -                          useDefaultExtent: true
   1.211 -                        )
   1.212 -                       (ViewSpec
   1.213 -                          name: 'Box2'
   1.214 -                          component: 
   1.215 -                         (SpecCollection
   1.216 -                            collection: (
   1.217 -                             (CheckBoxSpec
   1.218 -                                label: 'Horizontal'
   1.219 -                                name: 'horizontalScrollBarCheckBox'
   1.220 -                                layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0)
   1.221 -                                activeHelpKey: horizontalScroller
   1.222 -                                tabable: true
   1.223 -                                model: hasHorizontalScrollBar
   1.224 -                                translateLabel: true
   1.225 -                              )
   1.226 -                             (CheckBoxSpec
   1.227 -                                label: 'Mini'
   1.228 -                                name: 'miniScrollerHorizontalCheckBox'
   1.229 -                                layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0)
   1.230 -                                activeHelpKey: horizontalMiniScroller
   1.231 -                                tabable: true
   1.232 -                                model: miniScrollerHorizontal
   1.233 -                                translateLabel: true
   1.234 -                              )
   1.235 +                            (CheckBoxSpec
   1.236 +                               label: 'Mini'
   1.237 +                               name: 'miniScrollerVerticalCheckBox'
   1.238 +                               layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0)
   1.239 +                               activeHelpKey: verticalMiniScroller
   1.240 +                               uuid: '8a7cdb82-761b-11e9-98ea-b8f6b1108e05'
   1.241 +                               tabable: true
   1.242 +                               model: miniScrollerVertical
   1.243 +                               translateLabel: true
   1.244                               )
   1.245 -                           
   1.246 -                          )
   1.247 -                          extent: (Point 113 61)
   1.248 -                        )
   1.249 -                       (ViewSpec
   1.250 -                          name: 'Box3'
   1.251 -                          component: 
   1.252 -                         (SpecCollection
   1.253 -                            collection: (
   1.254 -                             (LabelSpec
   1.255 -                                label: 'Auto Hide:'
   1.256 -                                name: 'Label1'
   1.257 -                                layout: (LayoutFrame 0 0.0 6 0 0 1.0 23 0)
   1.258 -                                translateLabel: true
   1.259 -                                resizeForLabel: true
   1.260 -                                adjust: left
   1.261 -                              )
   1.262 -                             (PopUpListSpec
   1.263 -                                label: 'Default'
   1.264 -                                name: 'PopUpList1'
   1.265 -                                layout: (LayoutFrame 0 0.0 32 0 0 1.0 54 0)
   1.266 -                                activeHelpKey: autoHideScrollBars
   1.267 -                                tabable: true
   1.268 -                                model: autoHideScrollBars
   1.269 -                                menu: 
   1.270 -                               (Default
   1.271 -                                  On Off
   1.272 -                                )
   1.273 -                                useIndex: true
   1.274 -                              )
   1.275 +                            )
   1.276 +                          
   1.277 +                         )
   1.278 +                         useDefaultExtent: true
   1.279 +                       )
   1.280 +                      (ViewSpec
   1.281 +                         name: 'Box2'
   1.282 +                         uuid: '8a7cdda8-761b-11e9-98ea-b8f6b1108e05'
   1.283 +                         component: 
   1.284 +                        (SpecCollection
   1.285 +                           collection: (
   1.286 +                            (CheckBoxSpec
   1.287 +                               label: 'Horizontal'
   1.288 +                               name: 'horizontalScrollBarCheckBox'
   1.289 +                               layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0)
   1.290 +                               activeHelpKey: horizontalScroller
   1.291 +                               uuid: '8a7cdede-761b-11e9-98ea-b8f6b1108e05'
   1.292 +                               tabable: true
   1.293 +                               model: hasHorizontalScrollBar
   1.294 +                               translateLabel: true
   1.295                               )
   1.296 -                           
   1.297 -                          )
   1.298 -                          extent: (Point 113 61)
   1.299 -                        )
   1.300 +                            (CheckBoxSpec
   1.301 +                               label: 'Mini'
   1.302 +                               name: 'miniScrollerHorizontalCheckBox'
   1.303 +                               layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0)
   1.304 +                               activeHelpKey: horizontalMiniScroller
   1.305 +                               uuid: '8a7ce064-761b-11e9-98ea-b8f6b1108e05'
   1.306 +                               tabable: true
   1.307 +                               model: miniScrollerHorizontal
   1.308 +                               translateLabel: true
   1.309 +                             )
   1.310 +                            )
   1.311 +                          
   1.312 +                         )
   1.313 +                         extent: (Point 111 53)
   1.314                         )
   1.315 -                     
   1.316 -                    )
   1.317 -                  )
   1.318 +                      (ViewSpec
   1.319 +                         name: 'Box3'
   1.320 +                         uuid: '8a7ce1fe-761b-11e9-98ea-b8f6b1108e05'
   1.321 +                         component: 
   1.322 +                        (SpecCollection
   1.323 +                           collection: (
   1.324 +                            (LabelSpec
   1.325 +                               label: 'Auto Hide:'
   1.326 +                               name: 'Label1'
   1.327 +                               layout: (LayoutFrame 0 0.0 6 0 0 1.0 23 0)
   1.328 +                               uuid: '8a7ce334-761b-11e9-98ea-b8f6b1108e05'
   1.329 +                               translateLabel: true
   1.330 +                               resizeForLabel: true
   1.331 +                               adjust: left
   1.332 +                             )
   1.333 +                            (PopUpListSpec
   1.334 +                               label: 'Default'
   1.335 +                               name: 'PopUpList1'
   1.336 +                               layout: (LayoutFrame 0 0.0 32 0 0 1.0 54 0)
   1.337 +                               activeHelpKey: autoHideScrollBars
   1.338 +                               uuid: '8a7ce4e2-761b-11e9-98ea-b8f6b1108e05'
   1.339 +                               translateLabel: true
   1.340 +                               tabable: true
   1.341 +                               model: autoHideScrollBars
   1.342 +                               menu: 
   1.343 +                              (ImmutableArray
   1.344 +                                 Default On
   1.345 +                                 Off
   1.346 +                               )
   1.347 +                               useIndex: true
   1.348 +                             )
   1.349 +                            )
   1.350 +                          
   1.351 +                         )
   1.352 +                         extent: (Point 112 53)
   1.353 +                       )
   1.354 +                      )
   1.355 +                    
   1.356 +                   )
   1.357                   )
   1.358 -               
   1.359 -              )
   1.360 -            )
   1.361 -           (CheckBoxSpec
   1.362 -              label: 'Create New Builder'
   1.363 -              name: 'createNewBuilder'
   1.364 -              layout: (Point 161 75)
   1.365 -              activeHelpKey: createNewBuilder
   1.366 -              model: createNewBuilder
   1.367 -              translateLabel: true
   1.368 -            )
   1.369 +                )
   1.370 +              
   1.371 +             )
   1.372             )
   1.373 -         
   1.374 -        )
   1.375 -      )
   1.376 +          (CheckBoxSpec
   1.377 +             label: 'Create New Builder'
   1.378 +             name: 'createNewBuilder'
   1.379 +             layout: (Point 161 75)
   1.380 +             activeHelpKey: createNewBuilder
   1.381 +             uuid: '8a7ce8de-761b-11e9-98ea-b8f6b1108e05'
   1.382 +             model: createNewBuilder
   1.383 +             translateLabel: true
   1.384 +           )
   1.385 +          )
   1.386 +        
   1.387 +       )
   1.388 +     )
   1.389  !
   1.390  
   1.391  detailSpec
   1.392 @@ -680,102 +700,104 @@
   1.393      <resource: #canvas>
   1.394  
   1.395      ^ 
   1.396 -     #(#FullSpec
   1.397 -        #name: #windowSpec
   1.398 -        #window: 
   1.399 -       #(#WindowSpec
   1.400 -          #label: 'Tab List Editor'
   1.401 -          #name: 'Tab List Editor'
   1.402 -          #min: #(#Point 440 280)
   1.403 -          #bounds: #(#Rectangle 596 292 1132 661)
   1.404 -          #menu: #menu
   1.405 -        )
   1.406 -        #component: 
   1.407 -       #(#SpecCollection
   1.408 -          #collection: #(
   1.409 -           #(#MenuPanelSpec
   1.410 -              #name: 'menuToolbarView'
   1.411 -              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 34 0)
   1.412 -              #menu: #menuToolbar
   1.413 -              #showSeparatingLines: true
   1.414 -            )
   1.415 -           #(#VariableHorizontalPanelSpec
   1.416 -              #name: 'VariablePanel'
   1.417 -              #layout: #(#LayoutFrame 0 0.0 36 0.0 0 1.0 -26 1.0)
   1.418 -              #component: 
   1.419 -             #(#SpecCollection
   1.420 -                #collection: #(
   1.421 -                 #(#SelectionInListModelViewSpec
   1.422 -                    #attributes: 
   1.423 -                   #(#vpext
   1.424 -                      
   1.425 -                     #(#Array
   1.426 -                        #Array #Array
   1.427 -                        #Array #Array
   1.428 -                        #Array #Point
   1.429 -                        0.264414 1.0
   1.430 +    #(FullSpec
   1.431 +       name: windowSpec
   1.432 +       uuid: 'b2e02714-761b-11e9-98ea-b8f6b1108e05'
   1.433 +       window: 
   1.434 +      (WindowSpec
   1.435 +         label: 'Tab List Editor'
   1.436 +         name: 'Tab List Editor'
   1.437 +         uuid: 'b2e02a02-761b-11e9-98ea-b8f6b1108e05'
   1.438 +         min: (Point 440 280)
   1.439 +         bounds: (Rectangle 0 0 536 369)
   1.440 +         menu: menu
   1.441 +       )
   1.442 +       component: 
   1.443 +      (SpecCollection
   1.444 +         collection: (
   1.445 +          (MenuPanelSpec
   1.446 +             name: 'menuToolbarView'
   1.447 +             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 34 0)
   1.448 +             uuid: 'b2e02c78-761b-11e9-98ea-b8f6b1108e05'
   1.449 +             menu: menuToolbar
   1.450 +             showSeparatingLines: true
   1.451 +           )
   1.452 +          (VariableHorizontalPanelSpec
   1.453 +             name: 'VariablePanel'
   1.454 +             layout: (LayoutFrame 0 0.0 36 0.0 0 1.0 -26 1.0)
   1.455 +             uuid: 'b2e02f48-761b-11e9-98ea-b8f6b1108e05'
   1.456 +             component: 
   1.457 +            (SpecCollection
   1.458 +               collection: (
   1.459 +                (SelectionInListModelViewSpec
   1.460 +                   name: 'ListOfLabels'
   1.461 +                   uuid: 'b2e031fa-761b-11e9-98ea-b8f6b1108e05'
   1.462 +                   tabable: true
   1.463 +                   model: selectionHolder
   1.464 +                   menu: menuEdit
   1.465 +                   hasHorizontalScrollBar: true
   1.466 +                   hasVerticalScrollBar: true
   1.467 +                   miniScrollerHorizontal: true
   1.468 +                   listModel: listOfTabs
   1.469 +                   highlightMode: line
   1.470 +                   selectConditionSelector: askForItemModification
   1.471 +                 )
   1.472 +                (ViewSpec
   1.473 +                   name: 'SpecView'
   1.474 +                   uuid: 'b2e034d4-761b-11e9-98ea-b8f6b1108e05'
   1.475 +                   level: -1
   1.476 +                   component: 
   1.477 +                  (SpecCollection
   1.478 +                     collection: (
   1.479 +                      (NoteBookViewSpec
   1.480 +                         name: 'NoteBook'
   1.481 +                         layout: (LayoutFrame 1 0.0 0 0.0 0 1.0 -32 1.0)
   1.482 +                         uuid: 'b2e03600-761b-11e9-98ea-b8f6b1108e05'
   1.483 +                         enableChannel: hasSelectionHolder
   1.484 +                         tabable: true
   1.485 +                         model: noteBookModel
   1.486 +                         menu: noteBookTabList
   1.487 +                         useIndex: true
   1.488 +                         translateLabel: true
   1.489 +                         keepCanvasAlive: true
   1.490 +                       )
   1.491 +                      (UISubSpecification
   1.492 +                         name: 'subSpec'
   1.493 +                         layout: (LayoutFrame 2 0.0 -32 1 -2 1.0 0 1)
   1.494 +                         uuid: 'b2e039ac-761b-11e9-98ea-b8f6b1108e05'
   1.495 +                         majorKey: ToolApplicationModel
   1.496 +                         minorKey: windowSpecForCommit
   1.497 +                       )
   1.498 +                      (NoteBookViewSpec
   1.499 +                         name: 'TestNoteBook'
   1.500 +                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   1.501 +                         uuid: 'b2e03b32-761b-11e9-98ea-b8f6b1108e05'
   1.502 +                         visibilityChannel: testMode
   1.503 +                         tabable: true
   1.504 +                         menu: testItemList
   1.505 +                         useIndex: true
   1.506 +                         translateLabel: true
   1.507 +                       )
   1.508                        )
   1.509 -                    )
   1.510 -                    #name: 'ListOfLabels'
   1.511 -                    #tabable: true
   1.512 -                    #model: #selectionHolder
   1.513 -                    #menu: #menuEdit
   1.514 -                    #hasHorizontalScrollBar: true
   1.515 -                    #hasVerticalScrollBar: true
   1.516 -                    #miniScrollerHorizontal: true
   1.517 -                    #listModel: #listOfTabs
   1.518 -                    #highlightMode: #line
   1.519 -                    #selectConditionSelector: #askForItemModification
   1.520 -                  )
   1.521 -                 #(#ViewSpec
   1.522 -                    #name: 'SpecView'
   1.523 -                    #level: -1
   1.524 -                    #component: 
   1.525 -                   #(#SpecCollection
   1.526 -                      #collection: #(
   1.527 -                       #(#NoteBookViewSpec
   1.528 -                          #name: 'NoteBook'
   1.529 -                          #layout: #(#LayoutFrame 1 0.0 0 0.0 0 1.0 -30 1.0)
   1.530 -                          #enableChannel: #hasSelectionHolder
   1.531 -                          #tabable: true
   1.532 -                          #model: #noteBookModel
   1.533 -                          #menu: #noteBookTabList
   1.534 -                          #useIndex: true
   1.535 -                          #keepCanvasAlive: true
   1.536 -                        )
   1.537 -                       #(#UISubSpecification
   1.538 -                          #name: 'subSpec'
   1.539 -                          #layout: #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1)
   1.540 -                          #majorKey: #ToolApplicationModel
   1.541 -                          #minorKey: #windowSpecForCommit
   1.542 -                        )
   1.543 -                       #(#NoteBookViewSpec
   1.544 -                          #name: 'TestNoteBook'
   1.545 -                          #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   1.546 -                          #visibilityChannel: #testMode
   1.547 -                          #tabable: true
   1.548 -                          #menu: #testItemList
   1.549 -                          #useIndex: true
   1.550 -                        )
   1.551 -                       )
   1.552 -                     
   1.553 -                    )
   1.554 -                  )
   1.555 +                    
   1.556 +                   )
   1.557                   )
   1.558 -               
   1.559 -              )
   1.560 -              #handles: #(#Any 0.24053 1.0)
   1.561 -            )
   1.562 -           #(#UISubSpecification
   1.563 -              #name: 'infoBarSubSpec'
   1.564 -              #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
   1.565 -              #majorKey: #ToolApplicationModel
   1.566 -              #minorKey: #windowSpecForInfoBar
   1.567 -            )
   1.568 +                )
   1.569 +              
   1.570 +             )
   1.571 +             handles: (Any 0.23999999999999999 1.0)
   1.572             )
   1.573 -         
   1.574 -        )
   1.575 -      )
   1.576 +          (UISubSpecification
   1.577 +             name: 'infoBarSubSpec'
   1.578 +             layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
   1.579 +             uuid: 'b2e03d44-761b-11e9-98ea-b8f6b1108e05'
   1.580 +             majorKey: ToolApplicationModel
   1.581 +             minorKey: windowSpecForInfoBar
   1.582 +           )
   1.583 +          )
   1.584 +        
   1.585 +       )
   1.586 +     )
   1.587  ! !
   1.588  
   1.589  !TabListEditor class methodsFor:'list specs'!
   1.590 @@ -823,6 +845,7 @@
   1.591      "Do not manually edit this!! If it is corrupted,
   1.592       the MenuEditor may not be able to read the specification."
   1.593  
   1.594 +
   1.595      "
   1.596       MenuEditor new openOnClass:TabListEditor andSelector:#menu
   1.597       (Menu new fromLiteralArrayEncoding:(TabListEditor menu)) startUp
   1.598 @@ -830,141 +853,132 @@
   1.599  
   1.600      <resource: #menu>
   1.601  
   1.602 -    ^
   1.603 -     
   1.604 -       #(#Menu
   1.605 -          
   1.606 -           #(
   1.607 -             #(#MenuItem
   1.608 -                #label: 'About'
   1.609 -                #activeHelpKey: #about
   1.610 -                #labelImage: #(#ResourceRetriever nil #menuIcon)
   1.611 -                #submenuChannel: #menuAbout
   1.612 +    ^ 
   1.613 +     #(Menu
   1.614 +        (
   1.615 +         (MenuItem
   1.616 +            activeHelpKey: file
   1.617 +            label: 'File'
   1.618 +            submenu: 
   1.619 +           (Menu
   1.620 +              (
   1.621 +               (MenuItem
   1.622 +                  activeHelpKey: fileNew
   1.623 +                  label: 'New'
   1.624 +                  itemValue: doNew
   1.625 +                )
   1.626 +               (MenuItem
   1.627 +                  label: '-'
   1.628 +                )
   1.629 +               (MenuItem
   1.630 +                  activeHelpKey: fileLoad
   1.631 +                  label: 'Load...'
   1.632 +                  itemValue: doLoad
   1.633 +                )
   1.634 +               (MenuItem
   1.635 +                  label: '-'
   1.636 +                )
   1.637 +               (MenuItem
   1.638 +                  activeHelpKey: fileSave
   1.639 +                  label: 'Save'
   1.640 +                  itemValue: doSave
   1.641 +                )
   1.642 +               (MenuItem
   1.643 +                  activeHelpKey: fileSave
   1.644 +                  label: 'Save As...'
   1.645 +                  itemValue: doSaveAs
   1.646 +                )
   1.647 +               (MenuItem
   1.648 +                  label: '-'
   1.649 +                )
   1.650 +               (MenuItem
   1.651 +                  activeHelpKey: fileBrowseClass
   1.652 +                  label: 'Browse Class'
   1.653 +                  itemValue: doBrowseClass
   1.654 +                )
   1.655 +               (MenuItem
   1.656 +                  label: '-'
   1.657 +                )
   1.658 +               (MenuItem
   1.659 +                  activeHelpKey: fileExit
   1.660 +                  label: 'Exit'
   1.661 +                  itemValue: closeRequest
   1.662 +                )
   1.663 +               )
   1.664 +              nil
   1.665 +              nil
   1.666              )
   1.667 -             #(#MenuItem
   1.668 -                #label: 'File'
   1.669 -                #activeHelpKey: #file
   1.670 -                #submenu: 
   1.671 -                 #(#Menu
   1.672 -                    
   1.673 -                     #(
   1.674 -                       #(#MenuItem
   1.675 -                          #label: 'New'
   1.676 -                          #value: #doNew
   1.677 -                          #activeHelpKey: #fileNew
   1.678 -                      )
   1.679 -                       #(#MenuItem
   1.680 -                          #label: '-'
   1.681 -                      )
   1.682 -                       #(#MenuItem
   1.683 -                          #label: 'Load...'
   1.684 -                          #translateLabel: true
   1.685 -                          #value: #doLoad
   1.686 -                          #activeHelpKey: #fileLoad
   1.687 -                      )
   1.688 -                       #(#MenuItem
   1.689 -                          #label: '-'
   1.690 -                      )
   1.691 -                       #(#MenuItem
   1.692 -                          #label: 'Save'
   1.693 -                          #value: #doSave
   1.694 -                          #activeHelpKey: #fileSave
   1.695 -                      )
   1.696 -                       #(#MenuItem
   1.697 -                          #label: 'Save As...'
   1.698 -                          #value: #doSaveAs
   1.699 -                          #activeHelpKey: #fileSave
   1.700 -                      )
   1.701 -                       #(#MenuItem
   1.702 -                          #label: '-'
   1.703 -                      )
   1.704 -                       #(#MenuItem
   1.705 -                          #label: 'Browse Class'
   1.706 -                          #value: #doBrowseClass
   1.707 -                          #activeHelpKey: #fileBrowseClass
   1.708 -                      )
   1.709 -                       #(#MenuItem
   1.710 -                          #label: '-'
   1.711 -                      )
   1.712 -                       #(#MenuItem
   1.713 -                          #label: 'Exit'
   1.714 -                          #value: #closeRequest
   1.715 -                          #activeHelpKey: #fileExit
   1.716 -                      )
   1.717 -                    ) nil
   1.718 -                    nil
   1.719 +          )
   1.720 +         (MenuItem
   1.721 +            activeHelpKey: edit
   1.722 +            label: 'Edit'
   1.723 +            submenuChannel: menuEdit
   1.724 +          )
   1.725 +         (MenuItem
   1.726 +            activeHelpKey: add
   1.727 +            label: 'Add'
   1.728 +            submenu: 
   1.729 +           (Menu
   1.730 +              (
   1.731 +               (MenuItem
   1.732 +                  activeHelpKey: addTabItem
   1.733 +                  label: 'Tab Item'
   1.734 +                  itemValue: doCreate
   1.735 +                  labelImage: (ResourceRetriever nil newTabItemIcon 'Tab Item')
   1.736                  )
   1.737 +               )
   1.738 +              nil
   1.739 +              nil
   1.740              )
   1.741 -             #(#MenuItem
   1.742 -                #label: 'Edit'
   1.743 -                #activeHelpKey: #edit
   1.744 -                #submenuChannel: #menuEdit
   1.745 +          )
   1.746 +         (MenuItem
   1.747 +            activeHelpKey: add
   1.748 +            label: 'Generate'
   1.749 +            submenu: 
   1.750 +           (Menu
   1.751 +              (
   1.752 +               (MenuItem
   1.753 +                  activeHelpKey: fileCreateAspectMethod
   1.754 +                  enabled: hasClassAndSelector
   1.755 +                  label: 'Aspect Method'
   1.756 +                  itemValue: doGenerateAspectMethod
   1.757 +                )
   1.758 +               )
   1.759 +              nil
   1.760 +              nil
   1.761              )
   1.762 -             #(#MenuItem
   1.763 -                #label: 'Add'
   1.764 -                #activeHelpKey: #add
   1.765 -                #submenu: 
   1.766 -                 #(#Menu
   1.767 -                    
   1.768 -                     #(
   1.769 -                       #(#MenuItem
   1.770 -                          #label: 'Tab Item'
   1.771 -                          #value: #doCreate
   1.772 -                          #activeHelpKey: #addTabItem
   1.773 -                          #labelImage: #(#ResourceRetriever nil #newTabItemIcon 'Tab Item')
   1.774 -                      )
   1.775 -                    ) nil
   1.776 -                    nil
   1.777 +          )
   1.778 +         (MenuItem
   1.779 +            activeHelpKey: test
   1.780 +            label: 'Test'
   1.781 +            submenu: 
   1.782 +           (Menu
   1.783 +              (
   1.784 +               (MenuItem
   1.785 +                  activeHelpKey: testPreview
   1.786 +                  enabled: canToggleTestMode
   1.787 +                  label: 'Preview'
   1.788 +                  indication: testMode
   1.789                  )
   1.790 +               )
   1.791 +              nil
   1.792 +              nil
   1.793              )
   1.794 -             #(#MenuItem
   1.795 -                #label: 'Generate'
   1.796 -                #activeHelpKey: #add
   1.797 -                #submenu: 
   1.798 -                 #(#Menu
   1.799 -                    
   1.800 -                     #(
   1.801 -                       #(#MenuItem
   1.802 -                          #label: 'Aspect Method'
   1.803 -                          #value: #doGenerateAspectMethod
   1.804 -                          #activeHelpKey: #fileCreateAspectMethod
   1.805 -                          #enabled: #hasClassAndSelector
   1.806 -                      )
   1.807 -                    ) nil
   1.808 -                    nil
   1.809 -                )
   1.810 -            )
   1.811 -             #(#MenuItem
   1.812 -                #label: 'Test'
   1.813 -                #activeHelpKey: #test
   1.814 -                #submenu: 
   1.815 -                 #(#Menu
   1.816 -                    
   1.817 -                     #(
   1.818 -                       #(#MenuItem
   1.819 -                          #label: 'Preview'
   1.820 -                          #activeHelpKey: #testPreview
   1.821 -                          #enabled: #canToggleTestMode
   1.822 -                          #indication: #testMode
   1.823 -                      )
   1.824 -                    ) nil
   1.825 -                    nil
   1.826 -                )
   1.827 -            )
   1.828 -             #(#MenuItem
   1.829 -                #label: 'History'
   1.830 -                #activeHelpKey: #history
   1.831 -                #submenuChannel: #menuHistory
   1.832 -            )
   1.833 -             #(#MenuItem
   1.834 -                label: 'MENU_Help'
   1.835 -                #startGroup: #right
   1.836 -                #activeHelpKey: #help
   1.837 -                #submenuChannel: #menuHelp
   1.838 -                startGroup: conditionalRight
   1.839 -            )
   1.840 -          ) nil
   1.841 -          nil
   1.842 +          )
   1.843 +         (MenuItem
   1.844 +            activeHelpKey: history
   1.845 +            label: 'History'
   1.846 +            submenuChannel: menuHistory
   1.847 +          )
   1.848 +         (MenuItem
   1.849 +            activeHelpKey: help
   1.850 +            label: 'MENU_Help'
   1.851 +            startGroup: conditionalRight
   1.852 +            submenuChannel: menuHelp
   1.853 +          )
   1.854 +         )
   1.855 +        nil
   1.856 +        nil
   1.857        )
   1.858  !
   1.859