From a0b8efacf958ed7a29e908b64b3b766c2fa593ea Mon Sep 17 00:00:00 2001
From: Jakob Leben <jakob.leben@gmail.com>
Date: Mon, 11 Feb 2013 19:40:50 +0100
Subject: [PATCH] qtcollider: support String:-speak when Speech class is
 available

---
 SCClassLibrary/Common/Collections/String.sc | 1 +
 SCClassLibrary/QtCollider/QtGUI.sc          | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/SCClassLibrary/Common/Collections/String.sc b/SCClassLibrary/Common/Collections/String.sc
index 443ac010def..5267f631550 100644
--- a/SCClassLibrary/Common/Collections/String.sc
+++ b/SCClassLibrary/Common/Collections/String.sc
@@ -482,6 +482,7 @@ String[char] : RawArray {
 	}
 
 	speak { arg channel = 0, force = false;
+		// FIXME: this should better be handled by Platform than GUI
 		var speech = GUI.current.speech;
 		if( speech.initialized.not, { speech.init });
 		speech.channels[ channel ].speak( this, force );
diff --git a/SCClassLibrary/QtCollider/QtGUI.sc b/SCClassLibrary/QtCollider/QtGUI.sc
index aa5971bb28c..bf99c8934fe 100644
--- a/SCClassLibrary/QtCollider/QtGUI.sc
+++ b/SCClassLibrary/QtCollider/QtGUI.sc
@@ -85,6 +85,8 @@ QtGUI {
   *font { ^QFont }
   *image { ^this.notImplemented( "Image" ) }
 
+  *speech { ^'Speech'.asClass }
+
   *notImplemented { arg class;
     //("QtGUI: " ++ class.asString ++ " is not implemented yet").postln;
     ^nil;