Переглянути джерело

Added haiku sdl audio driver.

Brucey 4 роки тому
батько
коміт
a136943887
1 змінених файлів з 24 додано та 0 видалено
  1. 24 0
      audiosdl.mod/audiosdl.bmx

+ 24 - 0
audiosdl.mod/audiosdl.bmx

@@ -162,6 +162,30 @@ Type TDefaultSoloudAudioDriver Extends TCoreAudioSoloudAudioDriver
 		Return "SoLoud"
 	End Method
 
+End Type
+?haiku
+New THaikuSoloudAudioDriver
+New TDefaultSoloudAudioDriver
+
+Type THaikuSoloudAudioDriver Extends TSDLSoloudAudioDriver
+
+	Method Name$() Override
+		Return "SoLoud::Haiku"
+	End Method
+
+	Method Startup:Int() Override
+		SDLAudioInit("haiku")
+		Return Super.Startup()
+	End Method
+	
+End Type
+
+Type TDefaultSoloudAudioDriver Extends THaikuSoloudAudioDriver
+
+	Method Name$() Override
+		Return "SoLoud"
+	End Method
+
 End Type
 ?