#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Sat, 19 May 2018 13:25:23 +0200
changeset 22959 a88673d40f15
parent 22958 085e31f4bd4d
child 22960 7ebf49d0aec3
#FEATURE by cg class: OSXOperatingSystem class added: #speak: comment/format in: #speakVoiceOutput:
OSXOperatingSystem.st
--- a/OSXOperatingSystem.st	Sat May 19 13:25:14 2018 +0200
+++ b/OSXOperatingSystem.st	Sat May 19 13:25:23 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2013 by Claus Gittinger
 	      All Rights Reserved
@@ -35,6 +33,7 @@
 #ifndef __osx__
 # define NO_QUARTZ
 # define NO_COCOA
+# define NO_CARBON
 #endif
 
 // #include <mach/clock.h>
@@ -699,6 +698,18 @@
     ^ true
 ! !
 
+!OSXOperatingSystem class methodsFor:'misc'!
+
+speak:aString
+    "use 'say ...'"
+
+    ^ self executeCommand:('say "%1"' bindWith:aString)
+
+    "
+     self speak:'hello world'
+    "
+! !
+
 !OSXOperatingSystem class methodsFor:'quartz - screen'!
 
 getFrameBufferImage:displayNr
@@ -962,3 +973,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+