Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
category
authorClaus Gittinger <cg@exept.de>
Mon, 19 May 2003 12:10:22 +0200
changeset 1725 2de97eb77984
parent 1724 b5bec24eeaaf
child 1726 7117789f3020
category
MenuEditor.st file | annotate | diff | comparison | revisions
ResourceSelectionBrowser.st file | annotate | diff | comparison | revisions 
--- 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"
hg/stx-libtool2