Added hidden SwapInterval property to Window - doesn't work on PC?

modules/mojo/app/window.monkey2

@@ -61,6 +61,17 @@ Class Window Extends View
 		_clearColor=clearColor
 	End
 	
+	#rem monkeydoc @hidden
+	#end
+	Property SwapInterval:Int()
+	
+		Return _swapInterval
+	
+	Setter( swapInterval:Int )
+	
+		_swapInterval=swapInterval
+	End
+	
 	#rem monkeydoc @hidden
 	#end
 	Method Update()
@@ -87,6 +98,8 @@ Class Window Extends View
 	
 		SDL_GL_MakeCurrent( _sdlWindow,_sdlGLContext )
 		
+		SDL_GL_SetSwapInterval( _swapInterval )
+		
 		Local viewport:=New Recti( 0,0,Frame.Size )
 		
 		_canvas.Resize( viewport.Size )
@@ -208,6 +221,7 @@ Class Window Extends View
 	
 	Field _sdlWindow:SDL_Window Ptr
 	Field _sdlGLContext:SDL_GLContext
+	Field _swapInterval:Int=1
 	
 	Field _canvas:Canvas