add actionMofifier idiom

src/Spec2-Core/Character.extension.st

@@ -0,0 +1,10 @@
+Extension { #name : #Character }
+
+{ #category : #'*Spec2-Core' }
+Character >> actionModifier [
+	"Define the action action modifier depending in which platform we are running.
+	 e.g. $x actionModifier will resolve in $x ctrl in unix and windows systems and $x command 
+	 in mac"
+
+	^ self asKeyCombination actionModifier
+]

src/Spec2-Core/KMKeyCombination.extension.st

@@ -0,0 +1,12 @@
+Extension { #name : #KMKeyCombination }
+
+{ #category : #'*Spec2-Core' }
+KMKeyCombination >> actionModifier [
+	"Define the action action modifier depending in which platform we are running.
+	 e.g. $x actionModifier will resolve in $x ctrl in unix and windows systems and $x command 
+	 in mac"
+
+	^ (KMModifier command + self) mac 
+		| (KMModifier control + self) unix 
+		| (KMModifier control + self) win
+]

src/Spec2-Tests/SpActionModifierTest.class.st

@@ -0,0 +1,13 @@
+Class {
+	#name : #SpActionModifierTest,
+	#superclass : #TestCase,
+	#category : #'Spec2-Tests-Core'
+}
+
+{ #category : #tests }
+SpActionModifierTest >> testActionModifier [
+
+	self 
+		assert: $x actionModifier 
+		equals: ($x ctrl unix | $x ctrl win | $x command mac)
+]