A new version of ToolBuilder-Morphic was added to project The Inbox: http://source.squeak.org/inbox/ToolBuilder-Morphic-nice.80.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-nice.80 Author: nice Time: 30 June 2011, 9:06:57.179 pm UUID: 769ffad1-759b-415b-abce-0a8ab66d10fd Ancestors: ToolBuilder-Morphic-ul.79
Builde richer menus (require PluggableMenuItemSpec changes from ToolBuilder-Kernel)
=============== Diff against ToolBuilder-Morphic-ul.79 ===============
Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableMenuItem: (in category 'building') ----- buildPluggableMenuItem: itemSpec + | item label | + item := itemSpec isUpdating + ifTrue: [self updatingMenuItemClass new] + ifFalse: [self menuItemClass new]. + label := itemSpec label ifNil: ['']. + itemSpec hasCheckBox + ifTrue: [ itemSpec checked + ifTrue: [label := '<on>', label] + ifFalse: [label := '<off>', label]]. - | item action label menu | - item := self menuItemClass new. - label := itemSpec label. - itemSpec checked ifTrue:[label := '<on>', label] ifFalse:[label := '<off>', label]. item contents: label. + item icon: itemSpec icon. item isEnabled: itemSpec enabled. + itemSpec isUpdating ifTrue: [ + itemSpec enablementSelector ifNotNil: [:sel | item enablementSelector: sel]. + item wordingProvider: itemSpec wordingProvider wordingSelector: itemSpec wordingSelector. + itemSpec wordingArgument ifNotNil: [:arg | item wordingArgument: arg]]. + itemSpec action ifNotNil: [:action | - (action := itemSpec action) ifNotNil:[ item target: action receiver; selector: action selector; arguments: action arguments. ]. + itemSpec subMenu ifNotNil: [:menu | - (menu := itemSpec subMenu) ifNotNil:[ item subMenu: (menu buildWith: self). ]. + parentMenu ifNotNil: [parentMenu addMorphBack: item]. + itemSpec separator ifTrue: [parentMenu addLine]. - parentMenu ifNotNil:[parentMenu addMorphBack: item]. - itemSpec separator ifTrue:[parentMenu addLine]. ^item!
Item was changed: ----- Method: MorphicToolBuilder>>buildPluggablePanel: (in category 'pluggable widgets') ----- buildPluggablePanel: aSpec + | widget children | - | widget children frame | widget := self panelClass new. self register: widget id: aSpec name. widget model: aSpec model. widget color: Color transparent. widget clipSubmorphs: true. children := aSpec children. children isSymbol ifTrue:[ widget getChildrenSelector: children. widget update: children. children := #(). ]. self buildAll: children in: widget. self buildHelpFor: widget spec: aSpec. self setFrame: aSpec frame in: widget. parent ifNotNil:[self add: widget to: parent]. self setLayout: aSpec layout in: widget. widget layoutInset: 0. widget borderWidth: 0. + widget submorphsDo:[:sm| | frame | - widget submorphsDo:[:sm| (frame := sm layoutFrame) ifNotNil:[ (frame rightFraction = 0 or:[frame rightFraction = 1]) ifFalse:[frame rightOffset:1]. (frame bottomFraction = 0 or:[frame bottomFraction = 1]) ifFalse:[frame bottomOffset: 1]]]. widget color: Color transparent. ^widget!
Item was added: + ----- Method: MorphicToolBuilder>>updatingMenuItemClass (in category 'widget classes') ----- + updatingMenuItemClass + ^ UpdatingMenuItemMorph!