OSXOperatingSystem.st
changeset 22959 a88673d40f15
parent 22833 60d71a4c5600
child 22962 4352599df059
--- 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$'
 ! !
+