Improved compatibility with older project files

repository/OpenPonk-FSM/OPFsmExamples.class.st

@@ -36,17 +36,17 @@ OPFsmExamples class >> exampleDecimal [
 		add: k.
 
 	fsm addAll: {
-			(initial -> z).
-			(z -> b name: '+').
-			(z -> b name: '-').
-			(z -> c name: 'd').
-			(z -> d name: '.').
-			(b -> c name: 'd').
-			(c -> d name: '.').
-			(c -> c name: 'd').
-			(b -> d name: '.').
-			(d -> k name: 'd').
-			(k -> k name: 'd') }.
+			(initial => z).
+			(z => b name: '+').
+			(z => b name: '-').
+			(z => c name: 'd').
+			(z => d name: '.').
+			(b => c name: 'd').
+			(c => d name: '.').
+			(c => c name: 'd').
+			(b => d name: '.').
+			(d => k name: 'd').
+			(k => k name: 'd') }.
 
 	isDigit := [ :aValue | '^[0-9]$' asRegex matches: aValue ].
 	fsm transitions
@@ -73,13 +73,13 @@ OPFsmExamples class >> exampleDivisibility [
 		add: two.
 
 	fsm addAll: {
-			(initial -> zero).
-			(zero -> zero name: '0').
-			(zero -> one name: '1').
-			(one -> zero name: '1').
-			(one -> two name: '0').
-			(two -> one name: '0').
-			(two -> two name: '1') }.
+			(initial => zero).
+			(zero => zero name: '0').
+			(zero => one name: '1').
+			(one => zero name: '1').
+			(one => two name: '0').
+			(two => one name: '0').
+			(two => two name: '1') }.
 
 	^ fsm
 ]

repository/OpenPonk-FSM/OPFsmModelDeprecatedSerializer.class.st

@@ -7,9 +7,9 @@ Class {
 }
 
 { #category : 'as yet unclassified' }
-OPFsmModelDeprecatedSerializer class >> fileExtension [
+OPFsmModelDeprecatedSerializer class >> fileExtensions [
 
-	^ #ston
+	^ #( #ston )
 ]
 
 { #category : 'as yet unclassified' }

repository/OpenPonk-FSM/OPFsmModelSerializer.class.st

@@ -13,9 +13,9 @@ OPFsmModelSerializer class >> exportVersion [
 ]
 
 { #category : 'as yet unclassified' }
-OPFsmModelSerializer class >> fileExtension [
+OPFsmModelSerializer class >> fileExtensions [
 
-	^ #xml
+	^ #( #xml )
 ]
 
 { #category : 'as yet unclassified' }

repository/OpenPonk-FSM/OPFsmVertex.class.st

@@ -11,7 +11,8 @@ Class {
 }
 
 { #category : 'associating' }
-OPFsmVertex >> -> aVertex [
+OPFsmVertex >> => aVertex [
+
 	^ OPFsmTransition from: self to: aVertex
 ]