QtCollider/primitives/prim_misc.cpp

   1 /************************************************************************
   2 *
   3 * Copyright 2010 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
  24 #include "../Common.h"
  25 #include "../Slot.h"
  26 #include "../QcApplication.h"
  27 #include "../QObjectProxy.h"
  28 #include "../style/ProxyStyle.hpp"
  29 #include "QtCollider.h"
  30
  31 #include <PyrKernel.h>
  32
  33 #include <QFontMetrics>
  34 #include <QDesktopWidget>
  35 #include <QFontDatabase>
  36 #include <QStyleFactory>
  37 #include <QWebSettings>
  38
  39 using namespace QtCollider;
  40
  41 QC_LANG_PRIMITIVE( QtGUI_SetDebugLevel, 1, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  42 {
  43   QtCollider::setDebugLevel( Slot::toInt(a) );
  44   return errNone;
  45 }
  46
  47 QC_LANG_PRIMITIVE( QtGUI_DebugLevel, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  48 {
  49   SetInt( r, QtCollider::debugLevel() );
  50   return errNone;
  51 }
  52
  53 QC_LANG_PRIMITIVE( QWindow_ScreenBounds, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  54 {
  55   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
  56
  57   QRect screenGeometry = QApplication::desktop()->screenGeometry();
  58   Slot::setRect( r, screenGeometry );
  59   return errNone;
  60 }
  61
  62 QC_LANG_PRIMITIVE( QWindow_AvailableGeometry, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  63 {
  64   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
  65
  66   QRect rect = QApplication::desktop()->availableGeometry();
  67   Slot::setRect( r, rect );
  68   return errNone;
  69 }
  70
  71 QC_LANG_PRIMITIVE( Qt_StringBounds, 2, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  72 {
  73   QString str = Slot::toString( a );
  74
  75   QFont f = Slot::toFont( a+1 );
  76
  77   QFontMetrics fm( f );
  78   QRect bounds = fm.boundingRect( str );
  79
  80   // we keep the font height even on empty string;
  81   if( str.isEmpty() ) bounds.setHeight( fm.height() );
  82
  83   Slot::setRect( r, bounds );
  84   return errNone;
  85 }
  86
  87 QC_LANG_PRIMITIVE( Qt_AvailableFonts, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  88 {
  89   QFontDatabase database;
  90   VariantList l;
  91   Q_FOREACH( QString family, database.families() ) {
  92     l.data << QVariant(family);
  93   }
  94   Slot::setVariantList( r, l );
  95   return errNone;
  96 }
  97
  98 QC_LANG_PRIMITIVE( Qt_GlobalPalette, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  99 {
 100   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
 101
 102   QPalette p( QApplication::palette() );
 103   Slot::setPalette( r, p );
 104   return errNone;
 105 }
 106
 107 QC_LANG_PRIMITIVE( Qt_SetGlobalPalette, 1, PyrSlot *r, PyrSlot *a, VMGlobals *g )
 108 {
 109   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
 110
 111   QPalette p = Slot::toPalette( a );
 112   QApplication::setPalette( p );
 113
 114   return errNone;
 115 }
 116
 117 QC_LANG_PRIMITIVE( Qt_FocusWidget, 0,  PyrSlot *r, PyrSlot *a, VMGlobals *g )
 118 {
 119   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
 120
 121   QWidget *w = QApplication::focusWidget();
 122
 123   if( w ) {
 124     QObjectProxy *proxy = QObjectProxy::fromObject(w);
 125     if( proxy && proxy->scObject() ) {
 126       SetObject( r, proxy->scObject() );
 127       return errNone;
 128     }
 129   }
 130
 131   SetNil(r);
 132   return errNone;
 133 }
 134
 135 QC_LANG_PRIMITIVE( Qt_SetStyle, 1, PyrSlot *r, PyrSlot *a, VMGlobals *g )
 136 {
 137   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
 138
 139   QString str = Slot::toString( a );
 140   if( str.isEmpty() ) return errFailed;
 141
 142   QStyle *style = QStyleFactory::create( str );
 143   if( !style ) return errFailed;
 144
 145   QApplication::setStyle( new QtCollider::ProxyStyle( style ) );
 146   return errNone;
 147 }
 148
 149 QC_LANG_PRIMITIVE( Qt_AvailableStyles, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
 150 {
 151   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
 152
 153   VariantList list;
 154   Q_FOREACH( QString key, QStyleFactory::keys() ) {
 155     list.data << QVariant(key);
 156   }
 157
 158   Slot::setVariantList( r, list );
 159   return errNone;
 160 }
 161
 162 QC_LANG_PRIMITIVE( QWebView_ClearMemoryCaches, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
 163 {
 164   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
 165
 166   QWebSettings::clearMemoryCaches();
 167
 168   return errNone;
 169 }