浏览代码

Added Window.ClearWindow for clearing window outside of normal OnRender processing.

Mark Sibly 7 年之前
父节点
当前提交
e936d99628
共有 1 个文件被更改,包括 22 次插入0 次删除
  1. 22 0
      modules/mojo/app/window.monkey2

+ 22 - 0
modules/mojo/app/window.monkey2

@@ -268,6 +268,28 @@ Class Window Extends View
 		OnWindowEvent( event )
 		OnWindowEvent( event )
 	End
 	End
 	
 	
+	#rem monkeydoc Clear the window directly.
+	
+	ClearWindow can be used to clear the window outside of normal OnRender processing.
+	
+	#end
+	Method ClearWindow( color:Color )
+		
+		SDL_GL_MakeCurrent( _sdlWindow,_sdlGLContext )
+
+		Local bounds:=New Recti( 0,0,Frame.Size )
+		
+		_canvas.Resize( bounds.Size )
+		
+		_canvas.BeginRender( bounds,New AffineMat3f )
+		
+		_canvas.Clear( color )
+		
+		_canvas.EndRender()
+		
+		SDL_GL_SwapWindow( _sdlWindow )
+	End
+	
 	Protected
 	Protected
 	
 	
 	#rem monkeydoc Theme changed handler.
 	#rem monkeydoc Theme changed handler.