QtCollider/primitives/prim_QWidget.cpp

   1 /************************************************************************
   2 *
   3 * Copyright 2010-2011 Jakob Leben (jakob.leben@gmail.com)
   4 *
   5 * This file is part of SuperCollider Qt GUI.
   6 *
   7 * This program is free software: you can redistribute it and/or modify
   8 * it under the terms of the GNU General Public License as published by
   9 * the Free Software Foundation, either version 3 of the License, or
  10 * (at your option) any later version.
  11 *
  12 * This program is distributed in the hope that it will be useful,
  13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 * GNU General Public License for more details.
  16 *
  17 * You should have received a copy of the GNU General Public License
  18 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  19 *
  20 ************************************************************************/
  21
  22 #include "primitives.h"
  23 #include "../Slot.h"
  24 #include "../QWidgetProxy.h"
  25 #include "../Common.h"
  26
  27 #include <PyrKernel.h>
  28 #include <SCBase.h>
  29
  30 #include <QWidget>
  31 #include <QThread>
  32 #include <QApplication>
  33 #include <QDrag>
  34 #include <QMimeData>
  35
  36 using namespace QtCollider;
  37
  38 // WARNING these primitives have to always execute asynchronously, or Cocoa language client will
  39 // hang.
  40
  41 QC_LANG_PRIMITIVE( QWidget_SetFocus, 1, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  42 {
  43   QWidgetProxy *proxy = qobject_cast<QWidgetProxy*>( Slot::toObjectProxy( r ) );
  44
  45   QApplication::postEvent( proxy, new SetFocusEvent( IsTrue(a) ) );
  46
  47   return errNone;
  48 }
  49
  50 QC_LANG_PRIMITIVE( QWidget_BringFront, 1, PyrSlot *r, PyrSlot *a, VMGlobals *g ) {
  51   QWidgetProxy *proxy = qobject_cast<QWidgetProxy*>( Slot::toObjectProxy( r ) );
  52
  53   QApplication::postEvent( proxy,
  54                            new QEvent( (QEvent::Type) QtCollider::Event_Proxy_BringFront ) );
  55
  56   return errNone;
  57 }
  58
  59 QC_LANG_PRIMITIVE( QWidget_Refresh, 1, PyrSlot *r, PyrSlot *a, VMGlobals *g ) {
  60   QWidgetProxy *proxy = qobject_cast<QWidgetProxy*>( Slot::toObjectProxy( r ) );
  61
  62   if( !proxy->compareThread() ) return QtCollider::wrongThreadError();
  63
  64   proxy->refresh();
  65
  66   return errNone;
  67 }
  68
  69 QC_LANG_PRIMITIVE( QWidget_MapToGlobal, 1, PyrSlot *r, PyrSlot *a, VMGlobals *g ) {
  70   QWidgetProxy *proxy = qobject_cast<QWidgetProxy*>( Slot::toObjectProxy( r ) );
  71
  72   if( !proxy->compareThread() ) return QtCollider::wrongThreadError();
  73
  74   QWidget *w = proxy->widget();
  75   if( !w ) return errNone;
  76
  77   QPoint pt( Slot::toPoint( a ).toPoint() );
  78   pt = w->mapToGlobal( pt );
  79   Slot::setPoint( r, pt );
  80
  81   return errNone;
  82 }
  83
  84 QC_LANG_PRIMITIVE( QWidget_SetLayout, 1, PyrSlot *r, PyrSlot *a, VMGlobals *g ) {
  85   if( !isKindOfSlot( a, class_QLayout ) ) return errWrongType;
  86
  87   QWidgetProxy *wProxy = qobject_cast<QWidgetProxy*>( Slot::toObjectProxy(r) );
  88
  89   if( !wProxy->compareThread() ) return QtCollider::wrongThreadError();
  90
  91   QObjectProxy *lProxy = Slot::toObjectProxy( a );
  92   wProxy->setLayout( lProxy );
  93
  94   return errNone;
  95 }
  96
  97 QC_LANG_PRIMITIVE( QWidget_GetAlwaysOnTop, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g ) {
  98   QWidgetProxy *wProxy = qobject_cast<QWidgetProxy*>( Slot::toObjectProxy(r) );
  99
 100   if( QThread::currentThread() != wProxy->thread() ) return errFailed;
 101
 102   SetBool( r, wProxy->alwaysOnTop() );
 103   return errNone;
 104 }
 105
 106 QC_LANG_PRIMITIVE( QWidget_SetAlwaysOnTop, 1, PyrSlot *r, PyrSlot *a, VMGlobals *g ) {
 107   QWidgetProxy *wProxy = qobject_cast<QWidgetProxy*>( Slot::toObjectProxy(r) );
 108
 109   QApplication::postEvent( wProxy, new SetAlwaysOnTopEvent( IsTrue(a) ) );
 110
 111   return errNone;
 112 }
 113
 114 namespace QtCollider {
 115
 116 struct MimeData : public QMimeData {
 117   virtual ~MimeData() {
 118     qcDebugMsg(1,"Drag data object destroyed, clearing QView.currentDrag.");
 119
 120     QtCollider::lockLang();
 121
 122     PyrClass *classView = getsym("View")->u.classobj;
 123     PyrSymbol *symClearDrag = getsym("prClearCurrentDrag");
 124     if( !classView || !symClearDrag ) return;
 125
 126     QtCollider::runLang( classView, symClearDrag );
 127
 128     QtCollider::unlockLang();
 129   }
 130 };
 131
 132 }
 133
 134 QC_LANG_PRIMITIVE( QWidget_StartDrag, 3, PyrSlot *r, PyrSlot *a, VMGlobals *g ) {
 135   QWidgetProxy *wProxy = qobject_cast<QWidgetProxy*>( Slot::toObjectProxy(r) );
 136   if( !wProxy->compareThread() ) return QtCollider::wrongThreadError();
 137
 138   PyrSlot *data = a+1;
 139   QString str = Slot::toString(a+2);
 140
 141   QMimeData *mime = new QtCollider::MimeData;
 142
 143   mime->setData( "application/supercollider", QByteArray() );
 144
 145   if( isKindOfSlot( data, class_Color ) )
 146     mime->setColorData( QVariant(Slot::toColor(data)) );
 147
 148   if( !str.isEmpty() )
 149     mime->setText( str );
 150
 151   QApplication::postEvent( wProxy, new StartDragEvent( Slot::toString(a), mime ) );
 152
 153   return errNone;
 154 }
 155
 156 QC_LANG_PRIMITIVE( QWidget_SetGlobalEventEnabled, 2, PyrSlot *r, PyrSlot *a, VMGlobals *g ) {
 157   if( NotInt( a+0 ) ) return errWrongType;
 158   int event = Slot::toInt(a+0);
 159   bool enabled = IsTrue(a+1);
 160   if( !enabled && !IsFalse(a+1) ) return errWrongType;
 161
 162   QWidgetProxy::setGlobalEventEnabled( (QWidgetProxy::GlobalEvent) event, enabled );
 163
 164   return errNone;
 165 }