Skip to content
Permalink
Browse files

Merge pull request #715 from juliendelplanque/704-Commander2-should-p…

…rovide-easier-way-to-use-command-group-on-list-tree-etc

704-Commander2-should-provide-easier-way-to-use-command-group-on-list-tree-etc
  • Loading branch information...
jecisc committed Aug 12, 2019
2 parents 16a842d + f5886c4 commit d80a9658675687a343b91f54d1cb3d1449177269
@@ -99,11 +99,11 @@ SpContactBookPresenter >> initializeWidgets [
addColumn: (SpStringTableColumn title: 'Name' evaluated: #name);
addColumn: (SpStringTableColumn title: 'Phone' evaluated: #phone).

table contextMenu: [ (self rootCommandsGroup / 'Context Menu') beRoot asMenuPresenter ].
table contextMenuFromCommandsGroup: [ self rootCommandsGroup / 'Context Menu' ].

table items: contactBook contents.

menuBar := (self rootCommandsGroup / 'MenuBar') asMenuBarPresenter.
menuBar := (self rootCommandsGroup / 'MenuBar') asMenuBarPresenter.
]

{ #category : #initialization }
@@ -0,0 +1,6 @@
Extension { #name : #SpAbstractListPresenter }

{ #category : #'*Spec2-Commander2' }
SpAbstractListPresenter >> contextMenuFromCommandsGroup: aValuable [
self contextMenu: [ aValuable value beRoot asMenuPresenter ]
]
@@ -0,0 +1,6 @@
Extension { #name : #SpAbstractTextPresenter }

{ #category : #'*Spec2-Commander2' }
SpAbstractTextPresenter >> contextMenuFromCommandsGroup: aValuable [
self contextMenu: [ aValuable value beRoot asMenuPresenter ]
]
@@ -0,0 +1,6 @@
Extension { #name : #SpButtonPresenter }

{ #category : #'*Spec2-Commander2' }
SpButtonPresenter >> contextMenuFromCommandsGroup: aValuable [
self contextMenu: [ aValuable value beRoot asMenuPresenter ]
]
@@ -0,0 +1,6 @@
Extension { #name : #SpTreeTablePresenter }

{ #category : #'*Spec2-Commander2' }
SpTreeTablePresenter >> contextMenuFromCommandsGroup: aValuable [
self contextMenu: [ aValuable value beRoot asMenuPresenter ]
]

0 comments on commit d80a965

Please sign in to comment.
You can’t perform that action at this time.