[Pharo-users] Spec Tree Shortcuts

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 ]