Merge pull request #1622 from koendehondt/Pharo13

Set enablement of button in SpCommand>>#configureAsButtonOfClass:

src/Spec2-Commander2-Tests/SpCommandTest.class.st

@@ -141,6 +141,7 @@ SpCommandTest >> testConfigureAsToolBarButton [
 	self assert: button label equals: command name.
 	self assert: button help equals: command description.
 	self assert: button icon isNil.
+	self assert: button isEnabled.
 	self assert: button action value equals: command execute
 ]
 
@@ -231,3 +232,27 @@ SpCommandTest >> testShortcutKey [
 
 	self assert: command shortcutKey equals:  $a asKeyCombination
 ]
+
+{ #category : 'tests' }
+SpCommandTest >> testToolBarButtonEnablement [
+
+	| button context |
+	context := OrderedCollection new.
+	command := (CmBlockCommand new
+		name: 'foo';
+		description: 'bar';
+		canBeExecutedBlock: [:collection | collection isNotEmpty ];
+		context: context;
+		yourself) asSpecCommand.
+
+	button := command
+					configureAsToolbarButton;
+					buildPresenter.
+	self deny: button isEnabled.
+
+	context add: 1.
+	button := command
+					configureAsToolbarButton;
+					buildPresenter.
+	self assert: button isEnabled.
+]

src/Spec2-Commander2/SpCommand.class.st

@@ -58,6 +58,7 @@ SpCommand >> configureAsButtonOfClass: aButtonClass [
 					specCommand hasIcon
 						ifTrue: [ button icon: specCommand icon ] ];
 				action: [ specCommand execute ];
+				enabled: specCommand canBeExecuted;
 				yourself ]
 ]