qtcollider: implement QtGUI:*cursorPosition

supercollider · Feb 14, 2013 · b3a2f64 · b3a2f64
1 parent 1f42acc
commit b3a2f64
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/QtCollider/primitives/prim_misc.cpp b/QtCollider/primitives/prim_misc.cpp
@@ -40,6 +40,7 @@
 #include <QDesktopWidget>
 #include <QStyleFactory>
 #include <QWebSettings>
+#include <QCursor>
 
 namespace QtCollider {
 
@@ -266,6 +267,14 @@ QC_LANG_PRIMITIVE( Qt_IsMethodOverridden, 2, PyrSlot *r, PyrSlot *a, VMGlobals *
   return errNone;
 }
 
+QC_LANG_PRIMITIVE( Qt_CursorPosition, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
+{
+    if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
+
+    Slot::setPoint(r, QCursor::pos());
+    return errNone;
+}
+
 void defineMiscPrimitives()
 {
   LangPrimitiveDefiner definer;
@@ -284,6 +293,7 @@ void defineMiscPrimitives()
   definer.define<Qt_AvailableStyles>();
   definer.define<Qt_IsMethodOverridden>();
   definer.define<QWebView_ClearMemoryCaches>();
+  definer.define<Qt_CursorPosition>();
 }
 
 } // namespace QtCollider
diff --git a/SCClassLibrary/QtCollider/QtGUI.sc b/SCClassLibrary/QtCollider/QtGUI.sc
@@ -94,6 +94,8 @@ QtGUI {
 
   //////////////////////////////////////////////////////////////////////
 
+  *cursorPosition { _Qt_CursorPosition }
+
   *availableStyles {
     _Qt_AvailableStyles
     ^this.primitiveFailed;