What is the current way to add shortcuts to the a TreeModel?
I am a bit lost, since I thought I just do something like this:
tree
^ tree ifNil: [
tree := self instantiate: TreeModel.
tree whenBuiltDo: [ self initializeShortcuts ]].
initializeShortcuts
self shortCuts keysAndValuesDo: [ :key :value |
self tree bindKeyCombination: key toAction: value ]