QtCollider/Common.cpp

   1 #include "Common.h"
   2 #include "Slot.h"
   3
   4 #include <PyrKernel.h>
   5 #include <VMGlobals.h>
   6 #include <PyrLexer.h>
   7
   8 // WARNING: QtCollider::lockLang() must be called before
   9 void QtCollider::runLang (
  10   PyrObjectHdr *receiver,
  11   PyrSymbol *method,
  12   const QList<QVariant> & args,
  13   PyrSlot *result )
  14 {
  15   VMGlobals *g = gMainVMGlobals;
  16   g->canCallOS = true;
  17   ++g->sp;  SetObject(g->sp, receiver);
  18   Q_FOREACH( QVariant var, args ) {
  19     ++g->sp;
  20     if( !Slot::setVariant( g->sp, var ) )
  21       SetNil( g->sp );
  22   }
  23   runInterpreter(g, method, args.size() + 1);
  24   g->canCallOS = false;
  25   if (result) slotCopy(result, &g->result);
  26 }
  27
  28 int QtCollider::wrongThreadError ()
  29 {
  30   qcErrorMsg( "You can not use this Qt functionality in the current thread. "
  31               "Try scheduling on AppClock instead." );
  32   return errFailed;
  33 }