Ben Do you have any idea?
interpretRegistration: aRegistration
| root |
root := MenuRegistration owner: self.
aRegistration items do: [:item || node |
node := item group
ifNil: [ root item: item item ]
ifNotNil: [:grp | root group: grp ].
item with
ifNotNil: [:block || old |
old := aRegistration currentRoot.
aRegistration currentRoot: node name.
[ node with: block ] ensure: [
aRegistration currentRoot: old ]]
ifNil: [
item action
ifNil: [
node
target: item
target;
arguments: item
arguments;
selector: item
selector ]
ifNotNil:[
node
action: item
action ]].
node
keyText: item keyText;
help: item help;
icon: item icon;
order: item order;
parent: item parent.
item enabled
ifNil: [ node enabledBlock: item enabledBlock ]
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
I get something that say node does not understand enabledBlock:
and I wonder why a MenuRegistration does not understand enableBlock:
Stef
