--- a/MenuEditor.st Wed Jan 28 18:32:02 1998 +0100
+++ b/MenuEditor.st Wed Jan 28 19:10:17 1998 +0100
@@ -84,6 +84,20 @@
TreeView initialize
! !
+!MenuEditor class methodsFor:'instance creation'!
+
+openModalOnClass:aClass andSelector:aSelector
+ ^ self new openModalOnClass:aClass andSelector:aSelector
+
+
+!
+
+openOnClass:aClass andSelector:aSelector
+ ^ self new openOnClass:aClass andSelector:aSelector
+
+
+! !
+
!MenuEditor class methodsFor:'code generation'!
generateCodeFor:aClass menuSelector:aSelector
@@ -253,6 +267,102 @@
)
!
+windowSpec
+ "this window spec was automatically generated by the ST/X UIPainter"
+
+ "do not manually edit this - the painter/builder may not be able to
+ handle the specification if its corrupted."
+
+ "
+ UIPainter new openOnClass:MenuEditor andSelector:#windowSpec
+ MenuEditor new openInterface:#windowSpec
+ "
+ "MenuEditor open"
+
+ <resource: #canvas>
+
+ ^
+
+ #(#FullSpec
+ #'window:'
+ #(#WindowSpec
+ #'name:' 'Menu Builder'
+ #'layout:' #(#LayoutFrame 221 0 394 0 800 0 777 0)
+ #'label:' 'Menu Builder'
+ #'min:' #(#Point 10 10)
+ #'max:' #(#Point 1152 900)
+ #'bounds:' #(#Rectangle 221 394 801 778)
+ #'menu:' #menu
+ #'usePreferredExtent:' false
+ )
+ #'component:'
+ #(#SpecCollection
+ #'collection:'
+ #(
+ #(#MenuPanelSpec
+ #'name:' 'menuToolbarView'
+ #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
+ #'menu:' #menuToolbar
+ #'showSeparatingLines:' true
+ )
+ #(#VariableHorizontalPanelSpec
+ #'name:' 'variableHorizontalPanel1'
+ #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0)
+ #'component:'
+ #(#SpecCollection
+ #'collection:'
+ #(
+ #(#ArbitraryComponentSpec
+ #'name:' 'painterView'
+ #'menu:' #menuEdit
+ #'hasHorizontalScrollBar:' true
+ #'hasVerticalScrollBar:' true
+ #'component:' #treeView
+ #'hasBorder:' false
+ )
+ #(#ViewSpec
+ #'name:' 'view1'
+ #'component:'
+ #(#SpecCollection
+ #'collection:'
+ #(
+ #(#NoteBookViewSpec
+ #'name:' 'specificationView'
+ #'layout:' #(#LayoutFrame 1 0.0 0 0.0 1 1.0 -26 1.0)
+ #'tabable:' true
+ #'model:' #tabModel
+ #'menu:' #tabList
+ #'useIndex:' true
+ #'canvas:' #noteBookView
+ )
+ #(#UISubSpecification
+ #'name:' 'SubSpecification'
+ #'layout:' #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
+ #'majorKey:' #ToolApplicationModel
+ #'minorKey:' #windowSpecForCommit
+ )
+ )
+ )
+ #'level:' -1
+ )
+ )
+ )
+ #'level:' 1
+ #'handles:' #(#Any 0.384483 1.0)
+ )
+ #(#UISubSpecification
+ #'name:' 'infoBarSubSpec'
+ #'layout:' #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1.0)
+ #'majorKey:' #ToolApplicationModel
+ #'minorKey:' #windowSpecForInfoBar
+ )
+ )
+ )
+ )
+! !
+
+!MenuEditor class methodsFor:'menu specs'!
+
menu
"this window spec was automatically generated by the ST/X MenuEditor"
@@ -552,100 +662,6 @@
) nil
nil
)
-!
-
-windowSpec
- "this window spec was automatically generated by the ST/X UIPainter"
-
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
-
- "
- UIPainter new openOnClass:MenuEditor andSelector:#windowSpec
- MenuEditor new openInterface:#windowSpec
- "
- "MenuEditor open"
-
- <resource: #canvas>
-
- ^
-
- #(#FullSpec
- #'window:'
- #(#WindowSpec
- #'name:' 'Menu Builder'
- #'layout:' #(#LayoutFrame 221 0 394 0 800 0 777 0)
- #'label:' 'Menu Builder'
- #'min:' #(#Point 10 10)
- #'max:' #(#Point 1152 900)
- #'bounds:' #(#Rectangle 221 394 801 778)
- #'menu:' #menu
- #'usePreferredExtent:' false
- )
- #'component:'
- #(#SpecCollection
- #'collection:'
- #(
- #(#MenuPanelSpec
- #'name:' 'menuToolbarView'
- #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
- #'menu:' #menuToolbar
- #'showSeparatingLines:' true
- )
- #(#VariableHorizontalPanelSpec
- #'name:' 'variableHorizontalPanel1'
- #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0)
- #'component:'
- #(#SpecCollection
- #'collection:'
- #(
- #(#ArbitraryComponentSpec
- #'name:' 'painterView'
- #'menu:' #menuEdit
- #'hasHorizontalScrollBar:' true
- #'hasVerticalScrollBar:' true
- #'component:' #treeView
- #'hasBorder:' false
- )
- #(#ViewSpec
- #'name:' 'view1'
- #'component:'
- #(#SpecCollection
- #'collection:'
- #(
- #(#NoteBookViewSpec
- #'name:' 'specificationView'
- #'layout:' #(#LayoutFrame 1 0.0 0 0.0 1 1.0 -26 1.0)
- #'tabable:' true
- #'model:' #tabModel
- #'menu:' #tabList
- #'useIndex:' true
- #'canvas:' #noteBookView
- )
- #(#UISubSpecification
- #'name:' 'SubSpecification'
- #'layout:' #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
- #'majorKey:' #ToolApplicationModel
- #'minorKey:' #windowSpecForCommit
- )
- )
- )
- #'level:' -1
- )
- )
- )
- #'level:' 1
- #'handles:' #(#Any 0.384483 1.0)
- )
- #(#UISubSpecification
- #'name:' 'infoBarSubSpec'
- #'layout:' #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1.0)
- #'majorKey:' #ToolApplicationModel
- #'minorKey:' #windowSpecForInfoBar
- )
- )
- )
- )
! !
!MenuEditor class methodsFor:'resources'!
@@ -1333,20 +1349,6 @@
)
! !
-!MenuEditor class methodsFor:'startup'!
-
-openModalOnClass:aClass andSelector:aSelector
- ^ self new openModalOnClass:aClass andSelector:aSelector
-
-
-!
-
-openOnClass:aClass andSelector:aSelector
- ^ self new openOnClass:aClass andSelector:aSelector
-
-
-! !
-
!MenuEditor methodsFor:'accessing'!
isModified: aBoolean
@@ -2662,7 +2664,9 @@
setModified
- self topView application isModified: true
+ self topView application isModified: true.
+
+ self topView application updateEnabledChannels
! !
!MenuEditor::TreeView methodsFor:'selection'!