QtCollider/primitives/prim_misc.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
  24 #include "../Common.h"
  25 #include "../Slot.h"
  26 #include "../QcApplication.h"
  27 #include "../QObjectProxy.h"
  28 #include "../style/style.hpp"
  29 #include "QtCollider.h"
  30
  31 #ifdef Q_WS_MAC
  32 # include "../hacks/hacks_mac.hpp"
  33 #endif
  34
  35 #include <PyrKernel.h>
  36
  37 #include <QFontMetrics>
  38 #include <QDesktopWidget>
  39 #include <QFontDatabase>
  40 #include <QStyleFactory>
  41 #include <QWebSettings>
  42
  43 namespace QtCollider {
  44
  45 QC_LANG_PRIMITIVE( QtGUI_SetDebugLevel, 1, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  46 {
  47   QtCollider::setDebugLevel( Slot::toInt(a) );
  48   return errNone;
  49 }
  50
  51 QC_LANG_PRIMITIVE( QtGUI_DebugLevel, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  52 {
  53   SetInt( r, QtCollider::debugLevel() );
  54   return errNone;
  55 }
  56
  57 QC_LANG_PRIMITIVE( QWindow_ScreenBounds, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  58 {
  59   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
  60
  61   QRect screenGeometry = QApplication::desktop()->screenGeometry();
  62   Slot::setRect( r, screenGeometry );
  63   return errNone;
  64 }
  65
  66 QC_LANG_PRIMITIVE( QWindow_AvailableGeometry, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  67 {
  68   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
  69
  70   QRect rect = QApplication::desktop()->availableGeometry();
  71   Slot::setRect( r, rect );
  72   return errNone;
  73 }
  74
  75 QC_LANG_PRIMITIVE( Qt_StringBounds, 2, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  76 {
  77   QString str = Slot::toString( a );
  78
  79   QFont f = Slot::toFont( a+1 );
  80
  81   QFontMetrics fm( f );
  82   QRect bounds = fm.boundingRect( str );
  83
  84   // we keep the font height even on empty string;
  85   if( str.isEmpty() ) bounds.setHeight( fm.height() );
  86
  87   Slot::setRect( r, bounds );
  88   return errNone;
  89 }
  90
  91 QC_LANG_PRIMITIVE( Qt_AvailableFonts, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  92 {
  93   QFontDatabase database;
  94   VariantList l;
  95   Q_FOREACH( QString family, database.families() ) {
  96     l.data << QVariant(family);
  97   }
  98   Slot::setVariantList( r, l );
  99   return errNone;
 100 }
 101
 102 QC_LANG_PRIMITIVE( Qt_GlobalPalette, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
 103 {
 104   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
 105
 106   QPalette p( QApplication::palette() );
 107   Slot::setPalette( r, p );
 108   return errNone;
 109 }
 110
 111 QC_LANG_PRIMITIVE( Qt_SetGlobalPalette, 1, PyrSlot *r, PyrSlot *a, VMGlobals *g )
 112 {
 113   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
 114
 115   QPalette p = Slot::toPalette( a );
 116   QApplication::setPalette( p );
 117
 118   return errNone;
 119 }
 120
 121 QC_LANG_PRIMITIVE( Qt_FocusWidget, 0,  PyrSlot *r, PyrSlot *a, VMGlobals *g )
 122 {
 123   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
 124
 125   QWidget *w = QApplication::focusWidget();
 126
 127 #ifdef Q_WS_MAC
 128   // On Mac we need to make additional checks, as Qt does not monitor
 129   // focus changes to native Cocoa windows in the same application.
 130   if( w && !QtCollider::Mac::isKeyWindow( w ) )
 131     w = 0;
 132 #endif
 133
 134   if( w ) {
 135     QObjectProxy *proxy = QObjectProxy::fromObject(w);
 136     if( proxy && proxy->scObject() ) {
 137       SetObject( r, proxy->scObject() );
 138       return errNone;
 139     }
 140   }
 141
 142   SetNil(r);
 143   return errNone;
 144 }
 145
 146 QC_LANG_PRIMITIVE( Qt_SetStyle, 1, PyrSlot *r, PyrSlot *a, VMGlobals *g )
 147 {
 148   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
 149
 150   QString str = Slot::toString( a );
 151   if( str.isEmpty() ) return errFailed;
 152
 153   QStyle *style = QStyleFactory::create( str );
 154   if( !style ) return errFailed;
 155
 156   QApplication::setStyle( new QtCollider::Style::StyleImpl( style ) );
 157   return errNone;
 158 }
 159
 160 QC_LANG_PRIMITIVE( Qt_AvailableStyles, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
 161 {
 162   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
 163
 164   VariantList list;
 165   Q_FOREACH( QString key, QStyleFactory::keys() ) {
 166     list.data << QVariant(key);
 167   }
 168
 169   Slot::setVariantList( r, list );
 170   return errNone;
 171 }
 172
 173 QC_LANG_PRIMITIVE( QWebView_ClearMemoryCaches, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
 174 {
 175   if( !QcApplication::compareThread() ) return QtCollider::wrongThreadError();
 176
 177   QWebSettings::clearMemoryCaches();
 178
 179   return errNone;
 180 }
 181
 182 void defineMiscPrimitives()
 183 {
 184   LangPrimitiveDefiner definer;
 185   definer.define<QtGUI_SetDebugLevel>();
 186   definer.define<QtGUI_DebugLevel>();
 187   definer.define<QWindow_ScreenBounds>();
 188   definer.define<QWindow_AvailableGeometry>();
 189   definer.define<Qt_StringBounds>();
 190   definer.define<Qt_AvailableFonts>();
 191   definer.define<Qt_GlobalPalette>();
 192   definer.define<Qt_SetGlobalPalette>();
 193   definer.define<Qt_FocusWidget>();
 194   definer.define<Qt_SetStyle>();
 195   definer.define<Qt_AvailableStyles>();
 196   definer.define<QWebView_ClearMemoryCaches>();
 197 }
 198
 199 } // namespace QtCollider