瀏覽代碼

Added Mouse.PointerVisible.

Mark Sibly 9 年之前
父節點
當前提交
bcbf6acfb5
共有 1 個文件被更改,包括 10 次插入0 次删除
  1. 10 0
      modules/mojo/input/mouse.monkey2

+ 10 - 0
modules/mojo/input/mouse.monkey2

@@ -39,6 +39,16 @@ Class MouseDevice Extends InputDevice
 		Next
 	End
 	
+	Property PointerVisible:Bool()
+	
+		Return SDL_ShowCursor( -1 )=SDL_ENABLE
+		
+	Setter( pointerVisible:Bool )
+	
+		SDL_ShowCursor( pointerVisible ? SDL_ENABLE Else SDL_DISABLE )
+	
+	End
+	
 	Property X:Int()
 		Return Location.x
 	End