Win32OperatingSystem.st
changeset 10775 6fd2156c692d
parent 10771 f336281a488e
child 10792 46d6f7358405
--- a/Win32OperatingSystem.st	Mon Nov 05 16:44:36 2007 +0100
+++ b/Win32OperatingSystem.st	Tue Nov 06 00:47:14 2007 +0100
@@ -7915,6 +7915,42 @@
     "Created: / 27-07-2006 / 14:40:41 / fm"
 !
 
+playSound:fileName 
+    self playSound:fileName mode:1
+
+"/#define SND_SYNC            0x0000  /* play synchronously (default) */
+"/#define SND_ASYNC           0x0001  /* play asynchronously */
+"/#define SND_NODEFAULT       0x0002  /* silence (!!default) if sound not found */
+"/#define SND_LOOP            0x0008  /* loop the sound until next sndPlaySound */
+"/#define SND_NOSTOP          0x0010  /* don't stop any currently playing sound */
+
+    "
+     self 
+        playSound:'C:\Dokumente und Einstellungen\cg\work\exept\expecco\resources\sounds\start.wav'
+    "
+
+    "Created: / 06-11-2007 / 00:46:57 / cg"
+!
+
+playSound:fileName mode:modeInteger
+    <apicall: void "sndPlaySoundA" ( lpstr uint32) module: "winmm.dll" >
+    self primitiveFailed.
+
+"/#define SND_SYNC            0x0000  /* play synchronously (default) */
+"/#define SND_ASYNC           0x0001  /* play asynchronously */
+"/#define SND_NODEFAULT       0x0002  /* silence (!!default) if sound not found */
+"/#define SND_LOOP            0x0008  /* loop the sound until next sndPlaySound */
+"/#define SND_NOSTOP          0x0010  /* don't stop any currently playing sound */
+
+    "
+     self 
+        playSound:'C:\Dokumente und Einstellungen\cg\work\exept\expecco\resources\sounds\start.wav'
+        mode:1
+    "
+
+    "Modified: / 06-11-2007 / 00:46:27 / cg"
+!
+
 primAbortDoc:hwnd
     <apicall: int32 "AbortDoc" (handle) module: "gdi32.dll" >
     self primitiveFailed.
@@ -14880,7 +14916,7 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.321 2007-10-29 11:40:37 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.322 2007-11-05 23:47:14 cg Exp $'
 ! !
 
 Win32OperatingSystem initialize!