hg/stx-libtool2: comparison MenuEditor.st

equal deleted inserted replaced

-:c76003b74d7b
+:03bc27132916
 #(#FullSpec
 #window:
 #(#WindowSpec
 #name: 'Menu Editor'
-#layout: #(#LayoutFrame 473 0 301 0 1052 0 684 0)
+#layout: #(#LayoutFrame 88 0 294 0 627 0 673 0)
 #label: 'Menu Editor'
-#min: #(#Point 10 10)
+#min: #(#Point 510 390)
 #max: #(#Point 1152 900)
-#bounds: #(#Rectangle 473 301 1053 685)
+#bounds: #(#Rectangle 88 294 628 674)
 #menu: #menu
 #usePreferredExtent: false
 )
 #component:
 #(#SpecCollection
 #(#SpecCollection
 #collection:
 #(
 #(#NoteBookViewSpec
 #name: 'NoteBook'
-#layout: #(#LayoutFrame 1 0.0 0 0.0 1 1.0 -26 1.0)
+#layout: #(#LayoutFrame 1 0.0 0 0.0 1 1.0 -30 1.0)
 #tabable: true
 #model: #tabModel
 #menu: #tabList
 #useIndex: true
 #canvas: #noteBookView
 #(#Menu
 #(
 #(#MenuItem
 #label: 'About'
-#activeHelpKey: #about
 #accessCharacterPosition: 1
 #labelImage: #(#ResourceRetriever nil #menuIcon)
 #submenuChannel: #menuAbout
 )
 #(#MenuItem
 #label: 'Test'
 #activeHelpKey: #test
 #submenuChannel: #submenuTest
 )
 #(#MenuItem
-#label: 'History'
-#activeHelpKey: #history
-#submenuChannel: #menuHistory
-)
-#(#MenuItem
 #label: 'Settings'
 #submenu:
 #(#Menu
 #(
 ) nil
 nil
 )
 )
 #(#MenuItem
+#label: 'History'
+#activeHelpKey: #history
+#submenuChannel: #menuHistory
+)
+#(#MenuItem
 #label: 'Help'
 #startGroup: #right
-#activeHelpKey: #help
+#submenu:
-#submenuChannel: #menuHelp
+#(#Menu
+#(
+#(#MenuItem
+#label: 'Documentation'
+#value: #openHTMLDocument:
+#activeHelpKey: #helpTutorial
+#argument: 'tools/MenuEditor/TOP.html'
+)
+#(#MenuItem
+#label: '-'
+)
+#(#MenuItem
+#label: 'Help Tool'
+#value: #openHTMLDocument:
+#activeHelpKey: #helpHelpTool
+#argument: 'tools/uipainter/HelpTool.html'
+)
+#(#MenuItem
+#label: '-'
+)
+#(#MenuItem
+#label: 'Show Help Texts'
+#activeHelpKey: #helpShowHelp
+#indication: #showHelp:
+)
+) nil
+nil
+)
 )
 ) nil
 nil
 )
 !
 useHelpTool: aHelpTool
 "take the help dictionaries from aHelpTool into my helpTool"
 self noteBookView.
-self helpTool helpSpecFrom: aHelpTool specClass.
+self helpTool buildFromClass: aHelpTool specClass.
-self helpTool dictionaries: aHelpTool dictionaries.
+self helpTool dictionaries:   aHelpTool dictionaries.
-self helpTool dictionary:   aHelpTool dictionary
+self helpTool dictionary:     aHelpTool dictionary
 ! !
 !MenuEditor methodsFor:'aspects'!
 hasAnySingleSelection
 !MenuEditor methodsFor:'building'!
 buildFromClass:aClass andSelector:aSelector
 self isStandAlone ifTrue:[
-self helpTool helpSpecFrom:specClass
+self helpTool buildFromClass:specClass
 ].
 self treeView buildFromClass: aClass andSelector: aSelector.
 self updateHistory.
 self updateInfoLabel.
 (aResourceSpec class == Menu ifTrue: [aResourceSpec] ifFalse: [aResourceSpec decodeAsLiteralArray])
 ! !
 !MenuEditor methodsFor:'change & update'!
-updateEnabledChannels
+updateChannels
-"update enabled channels"
+"update channels"
 |node parent next state|
 state := false.
 next := parent childAt:((parent indexOfChild:node) + 1).
 self valueOfEnableMovingIn       value:(next notNil and:[next hasChildren]).
 self valueOfEnableMovingUpOrDown value:(parent children size > 1).
 self valueOfEnableMovingOut      value:parent parent notNil.
 self hasValidSingleSelection     value:true.
 self hasValidSelection           value:true.
-self valueOfCanPaste             value: true & self valueOfCanPaste value.
+self valueOfCanPaste             value:true & self valueOfCanPaste value.
 ^self
 ]
 ]
 ifFalse:
 [
 ].
 self valueOfEnableMovingUpOrDown value:false.
 self valueOfEnableMovingIn       value:false.
 self valueOfEnableMovingOut      value:false.
 self hasValidSingleSelection     value:false.
 self hasValidSelection           value:state.
-self valueOfCanPaste             value: false.
+self valueOfCanPaste             value:(self hasValidSingleSelection value or: [node == self treeView root]) & self valueOfCanPaste value.
 ! !
 !MenuEditor methodsFor:'event handling'!
 doesNotUnderstand: aMessage
 ] ifFalse:[
 self tabList value:nil.
 self tabSelection:0.
 ]
 ].
-self updateEnabledChannels.
+self updateChannels.
 aspects do: [:holder| holder addDependent:self].
 !
 tabSelection: aSelection
 "put the section aSelection into the note book"
 super postOpenWith:aBuilder.
 self isHelpToolSelected
 ifTrue:  [helpCanvas raise]
 ifFalse: [specCanvas raise]
 ! !
 !MenuEditor methodsFor:'user actions'!
 accept
 modified := false
 !
 doNew
-super doNew ifTrue: [self helpTool reset]
+super doNew ifTrue: [self helpTool doNew]
 !
 doPickAMenu
 |view|
 (ReadStream on:code) fileIn.
 self helpTool installHelpSpecsOnClass:self specClass.
 self updateHistory.
+self updateInfoLabel.
 hasSaved := true.
 modified := false.
 !
 "invoked if any key was pressed"
 <resource: #keyboard (#Delete #BackSpace #Cut #Copy #Paste)>
 (key == #Delete or:[key == #BackSpace]) ifTrue: [^self doDelete].
-key == #Cut  ifTrue:[^self doCut].
+key == #Cut   ifTrue:[^self doCut].
 key == #Copy  ifTrue:[^self doCopy].
 key == #Paste ifTrue:[^self doPaste].
 super keyPress:key x:x y:y
 doCopy
 self hasSelection ifTrue:[
 self application clipboard: OrderedCollection new.
-self selectionDo:[:i| self application clipboard add:((listOfNodes at:i) copy)]
+self selectionDo:[:i| self application clipboard add:((listOfNodes at:i) copy)].
+self topView application updateAllToolInstances.
 ]
 !
 doCreateItem
 self doCopy.
 selectedNodes := self selection asSortedCollection.
 self selectedNodesRemove.
 self selection: selectedNodes first - 1.
 self setModified.
+self topView application updateAllToolInstances.
 ]
 !
 doDelete
 setModified
 self topView application modified: true.
-self topView application updateEnabledChannels
+self topView application updateChannels
 ! !
 !MenuEditor class methodsFor:'documentation'!
 version

changeset 748	03bc27132916
parent 738	ebc4a399f4dc
child 764	5722b94330ef