QtCollider/primitives/prim_QWidget.cpp

   1 /************************************************************************
   2 *
   3 * Copyright 2010-2012 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 // WARNING these primitives have to always execute asynchronously, or Cocoa language client will
  37 // hang.
  38
  39 namespace QtCollider {
  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, SC_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 struct MimeData : public QMimeData {
 115   virtual ~MimeData() {
 116     qcDebugMsg(1,"Drag data object destroyed, clearing QView.currentDrag.");
 117
 118     QtCollider::lockLang();
 119
 120     PyrClass *classView = getsym("View")->u.classobj;
 121     PyrSymbol *symClearDrag = getsym("prClearCurrentDrag");
 122     if( !classView || !symClearDrag ) return;
 123
 124     QtCollider::runLang( classView, symClearDrag );
 125
 126     QtCollider::unlockLang();
 127   }
 128 };
 129
 130 QC_LANG_PRIMITIVE( QWidget_StartDrag, 3, PyrSlot *r, PyrSlot *a, VMGlobals *g ) {
 131   QWidgetProxy *wProxy = qobject_cast<QWidgetProxy*>( Slot::toObjectProxy(r) );
 132   if( !wProxy->compareThread() ) return QtCollider::wrongThreadError();
 133
 134   PyrSlot *data = a+1;
 135   QString str = Slot::toString(a+2);
 136
 137   QMimeData *mime = new QtCollider::MimeData;
 138
 139   mime->setData( "application/supercollider", QByteArray() );
 140
 141   QColor color( Slot::toColor(data) );
 142   if( color.isValid() )
 143     mime->setColorData( QVariant(color) );
 144
 145   if( !str.isEmpty() )
 146     mime->setText( str );
 147
 148   QApplication::postEvent( wProxy, new StartDragEvent( Slot::toString(a), mime ) );
 149
 150   return errNone;
 151 }
 152
 153 QC_LANG_PRIMITIVE( QWidget_SetGlobalEventEnabled, 2, PyrSlot *r, PyrSlot *a, VMGlobals *g ) {
 154   if( NotInt( a+0 ) ) return errWrongType;
 155   int event = Slot::toInt(a+0);
 156   bool enabled = IsTrue(a+1);
 157   if( !enabled && !IsFalse(a+1) ) return errWrongType;
 158
 159   QWidgetProxy::setGlobalEventEnabled( (QWidgetProxy::GlobalEvent) event, enabled );
 160
 161   return errNone;
 162 }
 163
 164 QC_LANG_PRIMITIVE( QWidget_SetAcceptsMouse, 1,  PyrSlot *r, PyrSlot *a, VMGlobals *g ) {
 165   QWidgetProxy *proxy = qobject_cast<QWidgetProxy*>( Slot::toObjectProxy(r) );
 166   if( !proxy->compareThread() ) return QtCollider::wrongThreadError();
 167
 168   QWidget *w = proxy->widget();
 169   if( !w ) return errNone;
 170
 171   bool accept = IsTrue(a);
 172   w->setAttribute( Qt::WA_TransparentForMouseEvents, !accept );
 173
 174   return errNone;
 175 }
 176
 177 QC_LANG_PRIMITIVE( QWidget_AcceptsMouse, 1,  PyrSlot *r, PyrSlot *a, VMGlobals *g ) {
 178   QWidgetProxy *proxy = qobject_cast<QWidgetProxy*>( Slot::toObjectProxy(r) );
 179   if( !proxy->compareThread() ) return QtCollider::wrongThreadError();
 180
 181   QWidget *w = proxy->widget();
 182   if( !w ) return errNone;
 183
 184   bool accept = !w->testAttribute( Qt::WA_TransparentForMouseEvents );
 185   SetBool(r, accept);
 186
 187   return errNone;
 188 }
 189
 190 void defineQWidgetPrimitives()
 191 {
 192   LangPrimitiveDefiner definer;
 193   definer.define<QWidget_SetFocus>();
 194   definer.define<QWidget_BringFront>();
 195   definer.define<QWidget_Refresh>();
 196   definer.define<QWidget_MapToGlobal>();
 197   definer.define<QWidget_SetLayout>();
 198   definer.define<QWidget_GetAlwaysOnTop>();
 199   definer.define<QWidget_SetAlwaysOnTop>();
 200   definer.define<QWidget_StartDrag>();
 201   definer.define<QWidget_SetGlobalEventEnabled>();
 202   definer.define<QWidget_AcceptsMouse>();
 203   definer.define<QWidget_SetAcceptsMouse>();
 204 }
 205
 206 } // namespace QtCollider