MenuEditor.st
changeset 3545 b3e0ca689991
parent 3541 23028559b7b2
child 3566 278888b1ca84
equal deleted inserted replaced
3544:5d127d65ea3e 3545:b3e0ca689991
   477      MenuEditor open
   477      MenuEditor open
   478     "
   478     "
   479 
   479 
   480     <resource: #canvas>
   480     <resource: #canvas>
   481 
   481 
   482     ^
   482     ^ 
   483      #(FullSpec
   483     #(FullSpec
   484 	name: windowSpec
   484        name: windowSpec
   485 	window:
   485        uuid: '7d4bc1c6-2067-11b2-b33d-3065ec8abe8a'
   486        (WindowSpec
   486        window: 
   487 	  label: 'Menu Editor'
   487       (WindowSpec
   488 	  name: 'Menu Editor'
   488          label: 'Menu Editor'
   489 	  min: (Point 550 385)
   489          name: 'Menu Editor'
   490 	  bounds: (Rectangle 0 0 574 473)
   490          uuid: '7d4bc6f8-2067-11b2-b33d-3065ec8abe8a'
   491 	  menu: menu
   491          min: (Point 550 385)
   492 	  icon: defaultIcon
   492          bounds: (Rectangle 0 0 574 473)
   493 	  returnIsOKInDialog: false
   493          menu: menu
   494 	  escapeIsCancelInDialog: false
   494          icon: defaultIcon
   495 	)
   495          returnIsOKInDialog: false
   496 	component:
   496          escapeIsCancelInDialog: false
   497        (SpecCollection
   497        )
   498 	  collection: (
   498        component: 
   499 	   (MenuPanelSpec
   499       (SpecCollection
   500 	      name: 'toolbar'
   500          collection: (
   501 	      layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
   501           (MenuPanelSpec
   502 	      tabable: true
   502              name: 'toolbar'
   503 	      menu: toolbar
   503              layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
   504 	      showSeparatingLines: true
   504              uuid: '7d4bcc98-2067-11b2-b33d-3065ec8abe8a'
   505 	    )
   505              tabable: true
   506 	   (VariableHorizontalPanelSpec
   506              menu: toolbar
   507 	      name: 'mainPanel'
   507              showSeparatingLines: true
   508 	      layout: (LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0)
   508            )
   509 	      component:
   509           (VariableHorizontalPanelSpec
   510 	     (SpecCollection
   510              name: 'mainPanel'
   511 		collection: (
   511              layout: (LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0)
   512 		 (HierarchicalListViewSpec
   512              uuid: '7d4bd2ba-2067-11b2-b33d-3065ec8abe8a'
   513 		    name: 'ListOfItemsView'
   513              component: 
   514 		    model: selectionHolder
   514             (SpecCollection
   515 		    menu: editMenu
   515                collection: (
   516 		    hasHorizontalScrollBar: true
   516                 (HierarchicalListViewSpec
   517 		    hasVerticalScrollBar: true
   517                    name: 'ListOfItemsView'
   518 		    miniScrollerHorizontal: true
   518                    uuid: '7d4bd7ba-2067-11b2-b33d-3065ec8abe8a'
   519 		    miniScrollerVertical: true
   519                    model: selectionHolder
   520 		    listModel: listOfItems
   520                    menu: editMenu
   521 		    multipleSelectOk: true
   521                    hasHorizontalScrollBar: true
   522 		    useIndex: false
   522                    hasVerticalScrollBar: true
   523 		    highlightMode: label
   523                    miniScrollerHorizontal: true
   524 		    doubleClickSelector: indicatorClickedAt:
   524                    miniScrollerVertical: true
   525 		    selectConditionSelector: canSelect:
   525                    listModel: listOfItems
   526 		    showLeftIndicators: false
   526                    multipleSelectOk: true
   527 		    indicatorSelector: indicatorClickedAt:
   527                    useIndex: false
   528 		    properties:
   528                    highlightMode: label
   529 		   (PropertyListDictionary
   529                    doubleClickSelector: indicatorClickedAt:
   530 		      dropSelector: doDrop:
   530                    selectConditionSelector: canSelect:
   531 		      dragArgument: nil
   531                    showLeftIndicators: false
   532 		      dropObjectSelector: dropObjects
   532                    indicatorSelector: indicatorClickedAt:
   533 		      overSelector: dropOver:
   533                    postBuildCallback: postBuildListOfItemsView:
   534 		      dropArgument: nil
   534                    properties: 
   535 		      leaveSelector: dropLeave:
   535                   (PropertyListDictionary
   536 		      canDropSelector: canDrop:
   536                      dropSelector: doDrop:
   537 		      enterSelector: dropEnter:
   537                      dragArgument: nil
   538 		    )
   538                      overSelector: dropOver:
   539 		    postBuildCallback: postBuildListOfItemsView:
   539                      canDropSelector: canDrop:
   540 		  )
   540                      dropObjectSelector: dropObjects
   541 		 (ViewSpec
   541                      enterSelector: dropEnter:
   542 		    name: 'Box'
   542                      dropArgument: nil
   543 		    level: -1
   543                      leaveSelector: dropLeave:
   544 		    component:
   544                    )
   545 		   (SpecCollection
   545                  )
   546 		      collection: (
   546                 (ViewSpec
   547 		       (NoteBookViewSpec
   547                    name: 'Box'
   548 			  name: 'NoteBook'
   548                    uuid: '7d4be156-2067-11b2-b33d-3065ec8abe8a'
   549 			  layout: (LayoutFrame 1 0.0 0 0.0 1 1.0 -30 1.0)
   549                    level: -1
   550 			  enableChannel: hasSingleSelectionChannel
   550                    component: 
   551 			  tabable: true
   551                   (SpecCollection
   552 			  model: tabHolder
   552                      collection: (
   553 			  menu: listOfTabs
   553                       (NoteBookViewSpec
   554 			  fitLastRow: false
   554                          name: 'NoteBook'
   555 			  translateLabel: true
   555                          layout: (LayoutFrame 1 0.0 0 0.0 1 1.0 -39 1.0)
   556 			  canvas: wizardHolder
   556                          uuid: '7d4be430-2067-11b2-b33d-3065ec8abe8a'
   557 			  keepCanvasAlive: true
   557                          enableChannel: hasSingleSelectionChannel
   558 			  postBuildCallback: postBuildNoteBook:
   558                          tabable: true
   559 			)
   559                          model: tabHolder
   560 		       (UISubSpecification
   560                          menu: listOfTabs
   561 			  name: 'SubSpecification'
   561                          fitLastRow: false
   562 			  layout: (LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
   562                          translateLabel: true
   563 			  majorKey: ToolApplicationModel
   563                          canvas: wizardHolder
   564 			  minorKey: windowSpecForCommit
   564                          keepCanvasAlive: true
   565 			)
   565                          postBuildCallback: postBuildNoteBook:
   566 		       )
   566                        )
   567 
   567                       (UISubSpecification
   568 		    )
   568                          name: 'SubSpecification'
   569 		  )
   569                          layout: (LayoutFrame 2 0.0 -35 1.0 -2 1.0 -2 1.0)
   570 		 )
   570                          uuid: '7d4beab6-2067-11b2-b33d-3065ec8abe8a'
   571 
   571                          majorKey: ToolApplicationModel
   572 	      )
   572                          minorKey: windowSpecForCommit
   573 	      handles: (Any 0.300493 1.0)
   573                        )
   574 	    )
   574                       )
   575 	   (UISubSpecification
   575                     
   576 	      name: 'infoBarSubSpec'
   576                    )
   577 	      layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
   577                  )
   578 	      majorKey: ToolApplicationModel
   578                 )
   579 	      minorKey: windowSpecForInfoBar
   579               
   580 	    )
   580              )
   581 	   )
   581              handles: (Any 0.29999999999999999 1.0)
   582 
   582            )
   583 	)
   583           (UISubSpecification
   584       )
   584              name: 'infoBarSubSpec'
       
   585              layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
       
   586              uuid: '7d4bee30-2067-11b2-b33d-3065ec8abe8a'
       
   587              majorKey: ToolApplicationModel
       
   588              minorKey: windowSpecForInfoBar
       
   589            )
       
   590           )
       
   591         
       
   592        )
       
   593      )
   585 ! !
   594 ! !
   586 
   595 
   587 !MenuEditor class methodsFor:'menu specs'!
   596 !MenuEditor class methodsFor:'menu specs'!
   588 
   597 
   589 addMenu
   598 addMenu