--- a/OSXOperatingSystem.st	Wed Feb 26 16:32:33 2020 +0100
+++ b/OSXOperatingSystem.st	Wed Feb 26 16:32:43 2020 +0100
@@ -973,16 +973,40 @@
 bestVoiceForLanguage:language
     "choose a voice as per language"
 
+    |voiceName|
+
+    (voiceName := super bestVoiceForLanguage:language) notNil ifTrue:[^ voiceName].
+
+    "/ some hardcoded names
+    "/ TODO: ask os and choose what is present. 
     language = 'de' ifTrue:[
-	^ 'Anna'
+        ^ 'Anna'
     ].
     language = 'en' ifTrue:[
-	^ 'Fiona'
+        ^ 'Fiona'
+    ].
+    language = 'fr' ifTrue:[
+        ^ 'Aurelie'
+    ].
+    language = 'es' ifTrue:[
+        ^ 'Monica'
+    ].
+    language = 'it' ifTrue:[
+        ^ 'Alice'
+    ].
+    language = 'nl' ifTrue:[
+        ^ 'Claire'
     ].
     ^ nil
 
     "
+     OperatingSystem setVoice:'Andrea' forLanguage:'fr'
+     OperatingSystem setVoice:nil forLanguage:'fr'
+
      self bestVoiceForLanguage:'de'
+     self bestVoiceForLanguage:'en'
+     self bestVoiceForLanguage:'es'
+     self bestVoiceForLanguage:'fr'  
     "
 
     "Created: / 23-07-2019 / 10:20:21 / Claus Gittinger"
@@ -1186,3 +1210,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+