--- a/MenuEditor.st Mon Jan 19 11:39:44 1998 +0100
+++ b/MenuEditor.st Mon Jan 19 11:48:04 1998 +0100
@@ -79,6 +79,8 @@
initialize
+ super initialize.
+
TreeView initialize
! !
@@ -110,7 +112,7 @@
!
sourceCategory
- "returns the catagory where to instal the menu
+ "returns the category where to install the menu
"
^ 'accessing menu'
! !
@@ -216,11 +218,11 @@
#'window:'
#(#WindowSpec
#'name:' 'MenuEditor'
- #'layout:' #(#LayoutFrame 344 0 297 0 590 0 390 0)
+ #'layout:' #(#LayoutFrame 262 0 426 0 508 0 519 0)
#'label:' 'MenuEditor'
#'min:' #(#Point 10 10)
#'max:' #(#Point 1152 900)
- #'bounds:' #(#Rectangle 344 297 591 391)
+ #'bounds:' #(#Rectangle 262 426 509 520)
#'usePreferredExtent:' false
)
#'component:'
@@ -229,47 +231,24 @@
#(
#(#LabelSpec
#'name:' 'boxLabel'
- #'layout:' #(#LayoutFrame 0 0.0 4 0 0 1.0 24 0)
+ #'layout:' #(#LayoutFrame 2 0.0 4 0 -2 1.0 24 0)
#'label:' 'Class for menu spec:'
#'adjust:' #left
#'resizeForLabel:' true
)
#(#InputFieldSpec
#'name:' 'classNameField'
- #'layout:' #(#LayoutFrame 0 0.0 27 0 0 1.0 49 0)
+ #'layout:' #(#LayoutFrame 2 0.0 27 0 -2 1.0 49 0)
#'tabable:' true
#'model:' #classNameChannel
#'acceptOnReturn:' false
#'acceptOnTab:' false
)
- #(#HorizontalPanelViewSpec
- #'name:' 'commitPanel'
- #'layout:' #(#LayoutFrame 10 0.0 -29 1.0 -10 1.0 -5 1.0)
- #'component:'
- #(#SpecCollection
- #'collection:'
- #(
- #(#ActionButtonSpec
- #'name:' 'button1'
- #'label:' 'Cancel'
- #'tabable:' true
- #'model:' #cancel
- #'extent:' #(#Point 109 24)
- )
- #(#ActionButtonSpec
- #'name:' 'button2'
- #'label:' 'OK'
- #'tabable:' true
- #'model:' #accept
- #'isDefault:' true
- #'extent:' #(#Point 109 24)
- )
- )
- )
- #'horizontalLayout:' #fitSpace
- #'verticalLayout:' #fit
- #'horizontalSpace:' 3
- #'verticalSpace:' 3
+ #(#UISubSpecification
+ #'name:' 'SubSpecification'
+ #'layout:' #(#LayoutFrame 0 0 -29 1 0 1 -5 1)
+ #'majorKey:' #ToolApplicationModel
+ #'minorKey:' #windowSpecForCommitWithoutChannels
)
)
)
@@ -1460,7 +1439,7 @@
specCanvas := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
helpCanvas client:helpTool.
- helpTool masterApplication:self.
+ helpTool masterApplication:self.
helpTool modifiedHolder: self valueOfEnablingCommitButtons.
builder aspectAt:#noteBookView put:noteBook.
@@ -1627,7 +1606,7 @@
menuChanged
- |node item slc sel old|
+ |node item slc sel old dep|
aspects do: [:holder| holder removeDependent:self].
(node := self treeView selectedNode) notNil ifTrue:[
@@ -1651,7 +1630,11 @@
slc := self class perform:#slicesSeparatorMenu.
]
].
- self helpTool helpKey:(self helpKey).
+
+ self helpTool helpKey: self helpKey.
+ "Next line helps me to preserve myself against unnecessary settings of
+ valueOfEnablingCommitButtons to true in the help tool."
+ self valueOfEnablingCommitButtons value: false.
slc ~= slices ifTrue:[
tabSelection ~~ 0 ifTrue:[
@@ -1699,7 +1682,7 @@
tabSelection := 1
].
- self isHelpToolSelected ifTrue:[
+ self isHelpToolSelected ifTrue:[
self helpTool helpKey:(self helpKey).
helpCanvas raise.
] ifFalse:[
@@ -1896,7 +1879,7 @@
|node|
(node := self treeView selectedNode) notNil
ifTrue:
- [
+ [
self helpTool helpKey:(self helpKey).
aspects do:[:anAspect| anAspect value:nil].
node contents toAspects:aspects
@@ -2104,7 +2087,7 @@
ifTrue:
[
self loadFromInClassesOf: box contents asSymbol
- ].
+ ]
@@ -2699,18 +2682,6 @@
self topView application isModified: true
! !
-!MenuEditor::TreeView methodsFor:'queries'!
-
-xOfFigureLevel2:aLevel
-
- ^super xOfFigureLevel: aLevel - 1
-
-
-
-
-
-! !
-
!MenuEditor::TreeView methodsFor:'selection'!
updateNode: aNode