--- a/MenuEditor.st Wed May 14 19:58:40 2003 +0200
+++ b/MenuEditor.st Mon May 19 12:10:22 2003 +0200
@@ -1277,7 +1277,7 @@
)
! !
-!MenuEditor class methodsFor:'menu specs - standard'!
+!MenuEditor class methodsFor:'menu specs-standard'!
standardEditMenu
"This resource specification was automatically generated
@@ -2894,16 +2894,6 @@
^ item
! !
-!MenuEditor::Item class methodsFor:'interface - editor'!
-
-addBindingsTo:aspects for:aMenuEditor
- "add additional bindings to the aspects
- "
- aspects at:#notDelayedMenu ifAbsentPut:[
- true asValue
- ].
-! !
-
!MenuEditor::Item class methodsFor:'interface specs'!
detailsEditSpec
@@ -3092,6 +3082,16 @@
)
! !
+!MenuEditor::Item class methodsFor:'interface-editor'!
+
+addBindingsTo:aspects for:aMenuEditor
+ "add additional bindings to the aspects
+ "
+ aspects at:#notDelayedMenu ifAbsentPut:[
+ true asValue
+ ].
+! !
+
!MenuEditor::Item class methodsFor:'testing'!
separatorTypeOf:aString
@@ -3392,27 +3392,6 @@
^ 'Action'
! !
-!MenuEditor::ActionItem class methodsFor:'interface - editor'!
-
-addBindingsTo:aspects for:aMenuEditor
- "add additional bindings to the aspects
- "
- aspects at:#indicationEnabled ifAbsentPut:[
- BlockValue with:[:a | a size == 0 ] argument:(aspects at:#choice)
- ].
-
- aspects at:#choiceEnabled ifAbsentPut:[
- BlockValue with:[:a | a size == 0 ] argument:(aspects at:#indication)
- ].
-
- aspects at:#choiceValueEnabled ifAbsentPut:[
- BlockValue with:[:a | a size ~~ 0 ] argument:(aspects at:#choice)
- ].
- aspects at:#hasNoDelayedMenuValue ifAbsentPut:[
- true asValue
- ].
-! !
-
!MenuEditor::ActionItem class methodsFor:'interface specs'!
basicsEditSpec
@@ -3674,6 +3653,27 @@
)
! !
+!MenuEditor::ActionItem class methodsFor:'interface-editor'!
+
+addBindingsTo:aspects for:aMenuEditor
+ "add additional bindings to the aspects
+ "
+ aspects at:#indicationEnabled ifAbsentPut:[
+ BlockValue with:[:a | a size == 0 ] argument:(aspects at:#choice)
+ ].
+
+ aspects at:#choiceEnabled ifAbsentPut:[
+ BlockValue with:[:a | a size == 0 ] argument:(aspects at:#indication)
+ ].
+
+ aspects at:#choiceValueEnabled ifAbsentPut:[
+ BlockValue with:[:a | a size ~~ 0 ] argument:(aspects at:#choice)
+ ].
+ aspects at:#hasNoDelayedMenuValue ifAbsentPut:[
+ true asValue
+ ].
+! !
+
!MenuEditor::ActionItem methodsFor:'accessing'!
menuItem
@@ -4827,13 +4827,6 @@
^ MenuEditor resourceType
! !
-!MenuEditor::RootItem class methodsFor:'interface - editor'!
-
-addBindingsTo:aspects for:aMenuEditor
- "add additional bindings to the aspects
- "
-! !
-
!MenuEditor::RootItem class methodsFor:'interface specs'!
basicsEditSpec
@@ -4892,6 +4885,13 @@
)
! !
+!MenuEditor::RootItem class methodsFor:'interface-editor'!
+
+addBindingsTo:aspects for:aMenuEditor
+ "add additional bindings to the aspects
+ "
+! !
+
!MenuEditor::RootItem methodsFor:'accessing'!
menuItem:aMenuItem
@@ -5008,38 +5008,6 @@
^ false
! !
-!MenuEditor::SeparatorItem class methodsFor:'interface - editor'!
-
-addBindingsTo:aspects for:aMenuEditor
- "add additional bindings to the aspects
- "
- |holder|
-
- aspects at:#seperatorList ifAbsentPut:[
- self separatorSlices collect:[:el| el last ]
- ].
-
- aspects at:#seperatorSelection ifAbsentPut:[
- holder := 0 asValue.
- holder addDependent:aMenuEditor.
- holder
- ].
-!
-
-defaultLabel
- ^ '-'
-!
-
-separatorSlices
- "get the list of menu spec values of the corresponding separator types
- "
- ^ #(
- ( #blank '' 'blank' )
- ( #single '-' 'single line')
- ( #double '=' 'double line')
- )
-! !
-
!MenuEditor::SeparatorItem class methodsFor:'interface specs'!
basicsEditSpec
@@ -5132,6 +5100,38 @@
)
! !
+!MenuEditor::SeparatorItem class methodsFor:'interface-editor'!
+
+addBindingsTo:aspects for:aMenuEditor
+ "add additional bindings to the aspects
+ "
+ |holder|
+
+ aspects at:#seperatorList ifAbsentPut:[
+ self separatorSlices collect:[:el| el last ]
+ ].
+
+ aspects at:#seperatorSelection ifAbsentPut:[
+ holder := 0 asValue.
+ holder addDependent:aMenuEditor.
+ holder
+ ].
+!
+
+defaultLabel
+ ^ '-'
+!
+
+separatorSlices
+ "get the list of menu spec values of the corresponding separator types
+ "
+ ^ #(
+ ( #blank '' 'blank' )
+ ( #single '-' 'single line')
+ ( #double '=' 'double line')
+ )
+! !
+
!MenuEditor::SeparatorItem methodsFor:'accessing'!
icon
--- a/ResourceSelectionBrowser.st Wed May 14 19:58:40 2003 +0200
+++ b/ResourceSelectionBrowser.st Mon May 19 12:10:22 2003 +0200
@@ -93,7 +93,7 @@
withResourceTypes: resourceTypes
! !
-!ResourceSelectionBrowser class methodsFor:'callbacks - default'!
+!ResourceSelectionBrowser class methodsFor:'callbacks-default'!
treeViewClassHierarchyChildren
"returns the children for the contents (class) of aTreeItem as a block"