MenuEditor.st
changeset 2156 215e8d8f965e
parent 2151 5427bb64d15e
child 2161 1dd6800c1bb3
equal deleted inserted replaced
2155:bfc839d08928 2156:215e8d8f965e
   474 )
   474 )
   475 ! !
   475 ! !
   476 
   476 
   477 !MenuEditor class methodsFor:'image specs'!
   477 !MenuEditor class methodsFor:'image specs'!
   478 
   478 
       
   479 defaultIcon
       
   480     <resource: #programImage>
       
   481 
       
   482     ^ ToolbarIconLibrary startMenuEditorIcon
       
   483 !
       
   484 
   479 iconUnknown
   485 iconUnknown
   480     "returns an image used for picked items containing an image
   486     "returns an image used for picked items containing an image
   481     "
   487     "
   482     <resource: #fileImage>
   488     <resource: #fileImage>
   483 
   489 
   509           label: 'Menu Editor'
   515           label: 'Menu Editor'
   510           name: 'Menu Editor'
   516           name: 'Menu Editor'
   511           min: (Point 550 385)
   517           min: (Point 550 385)
   512           bounds: (Rectangle 0 0 574 473)
   518           bounds: (Rectangle 0 0 574 473)
   513           menu: menu
   519           menu: menu
       
   520           icon: defaultIcon
   514           returnIsOKInDialog: false
   521           returnIsOKInDialog: false
   515           escapeIsCancelInDialog: false
   522           escapeIsCancelInDialog: false
   516         )
   523         )
   517         component: 
   524         component: 
   518        (SpecCollection
   525        (SpecCollection
   546                     selectConditionSelector: canSelect:
   553                     selectConditionSelector: canSelect:
   547                     showLeftIndicators: false
   554                     showLeftIndicators: false
   548                     indicatorSelector: indicatorClickedAt:
   555                     indicatorSelector: indicatorClickedAt:
   549                     properties: 
   556                     properties: 
   550                    (PropertyListDictionary
   557                    (PropertyListDictionary
   551                       leaveSelector: dropLeave:
   558                       dropSelector: doDrop:
   552                       dragArgument: nil
   559                       dragArgument: nil
   553                       dropObjectSelector: dropObjects
   560                       dropObjectSelector: dropObjects
   554                       overSelector: dropOver:
   561                       overSelector: dropOver:
   555                       dropArgument: nil
   562                       dropArgument: nil
       
   563                       leaveSelector: dropLeave:
   556                       canDropSelector: canDrop:
   564                       canDropSelector: canDrop:
   557                       enterSelector: dropEnter:
   565                       enterSelector: dropEnter:
   558                       dropSelector: doDrop:
       
   559                     )
   566                     )
   560                     postBuildCallback: postBuildListOfItemsView:
   567                     postBuildCallback: postBuildListOfItemsView:
   561                   )
   568                   )
   562                  (ViewSpec
   569                  (ViewSpec
   563                     name: 'Box'
   570                     name: 'Box'