MenuEditor.st
changeset 1660 442cdb5b1e0b
parent 1656 f5c0716efd78
child 1668 3e83796a3e0e
equal deleted inserted replaced
1659:c68fbe2ef76d 1660:442cdb5b1e0b
  3249     "returns true if the item is the root item
  3249     "returns true if the item is the root item
  3250     "
  3250     "
  3251     ^ false
  3251     ^ false
  3252 ! !
  3252 ! !
  3253 
  3253 
  3254 !MenuEditor::Item methodsFor:'queries - editor'!
  3254 !MenuEditor::Item methodsFor:'queries-editor'!
  3255 
  3255 
  3256 actionSelectors
  3256 actionSelectors
  3257     "returns my action selectors
  3257     "returns my action selectors
  3258     "
  3258     "
  3259     |value|
  3259     |value|
  3275         sel isSymbol ifTrue:[ aspects add:sel ]
  3275         sel isSymbol ifTrue:[ aspects add:sel ]
  3276     ].    
  3276     ].    
  3277     ^ aspects
  3277     ^ aspects
  3278 ! !
  3278 ! !
  3279 
  3279 
  3280 !MenuEditor::Item methodsFor:'queries - operation'!
  3280 !MenuEditor::Item methodsFor:'queries-operation'!
  3281 
  3281 
  3282 canAddChildren
  3282 canAddChildren
  3283     "returns true if children can be added
  3283     "returns true if children can be added
  3284     "
  3284     "
  3285     ^ false
  3285     ^ false
  3757 
  3757 
  3758 isAction
  3758 isAction
  3759     ^ true
  3759     ^ true
  3760 ! !
  3760 ! !
  3761 
  3761 
  3762 !MenuEditor::ActionItem methodsFor:'queries - operation'!
  3762 !MenuEditor::ActionItem methodsFor:'queries-operation'!
  3763 
  3763 
  3764 canAddDelayedMenu
  3764 canAddDelayedMenu
  3765     "returns true if a delayed menu can be added
  3765     "returns true if a delayed menu can be added
  3766     "
  3766     "
  3767     ^ self hasDelayedMenu not
  3767     ^ self hasDelayedMenu not
  4927 
  4927 
  4928 isRootItem
  4928 isRootItem
  4929     ^ true
  4929     ^ true
  4930 ! !
  4930 ! !
  4931 
  4931 
  4932 !MenuEditor::RootItem methodsFor:'queries - editor'!
  4932 !MenuEditor::RootItem methodsFor:'queries-editor'!
  4933 
  4933 
  4934 actionSelectors
  4934 actionSelectors
  4935     "returns my action selectors
  4935     "returns my action selectors
  4936     "
  4936     "
  4937     ^ #()
  4937     ^ #()
  4941     "returns my aspect selectors
  4941     "returns my aspect selectors
  4942     "
  4942     "
  4943     ^ #()
  4943     ^ #()
  4944 ! !
  4944 ! !
  4945 
  4945 
  4946 !MenuEditor::RootItem methodsFor:'queries - operation'!
  4946 !MenuEditor::RootItem methodsFor:'queries-operation'!
  4947 
  4947 
  4948 canMoveInAbove
  4948 canMoveInAbove
  4949     ^ false
  4949     ^ false
  4950 !
  4950 !
  4951 
  4951