[Gridflow-cvs] [svn] commit: r3804 - /trunk/format/sdl.c

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Thu Jun 5 10:05:01 EDT 2008


Author: matju
Date: Thu Jun  5 10:05:01 2008
New Revision: 3804

Log:
[#out sdl] supports title

Modified:
    trunk/format/sdl.c

Modified: trunk/format/sdl.c
==============================================================================
--- trunk/format/sdl.c (original)
+++ trunk/format/sdl.c Thu Jun  5 10:05:01 2008
@@ -88,6 +88,7 @@
 	void call ();
 	\decl 0 setcursor (int shape);
 	\decl 0 hidecursor ();
+	\decl 0 title (string title);
 	\constructor (t_symbol *mode) {
 		dim=0;screen=0;
 		if (in_use) RAISE("only one FormatSDL object at a time; sorry");
@@ -107,6 +108,7 @@
 		instance=this;
 		clock = clock_new(this,(t_method)FormatSDL_call);
 		clock_delay(clock,0);
+		_0_title(0,0,string("GridFlow SDL"));
 	}
 	\grin 0 int
 	~FormatSDL () {
@@ -117,6 +119,10 @@
 		in_use=false;
 	}
 };
+
+\def 0 title (string title) {
+	SDL_WM_SetCaption(title.data(),title.data());
+}
 
 void FormatSDL::call() {HandleEvent(); clock_delay(clock,20);}
 void FormatSDL_call(FormatSDL *self) {self->call();}



More information about the Gridflow-cvs mailing list