fxruby 1.6.19-x86-mingw32 → 1.6.20-x86-mingw32

data/ext/fox16/FXRbApp.cpp

@@ -0,0 +1,128 @@
+/***********************************************************************
+ * FXRuby -- the Ruby language bindings for the FOX GUI toolkit.
+ * Copyright (c) 2001-2009 by Lyle Johnson. All Rights Reserved.
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ * For further information please contact the author by e-mail
+ * at "lyle@lylejohnson.name".
+ ***********************************************************************/
+
+/***********************************************************************
+ * $Id: FXRbApp.cpp 2902 2008-12-11 14:09:20Z lyle $
+ ***********************************************************************/
+
+#include "FXRbCommon.h"
+
+#ifndef RUBY_1_9
+extern "C" {
+#include "rubysig.h" /* For CHECK_INTS */
+}
+#endif
+
+#ifdef HAVE_SYS_TIME_H
+#include <sys/time.h> /* For struct timeval */
+#endif
+
+// Message map
+FXDEFMAP(FXRbApp) FXRbAppMap[]={
+  FXMAPFUNC(SEL_CHORE,FXRbApp::ID_CHORE_THREADS,FXRbApp::onChoreThreads),
+  };
+
+// Class implementation
+FXRbIMPLEMENT(FXRbApp,FXApp,FXRbAppMap,ARRAYNUMBER(FXRbAppMap))
+
+// Constructor
+FXRbApp::FXRbApp(const FXchar* appname,const FXchar* vendor) : FXApp(appname,vendor),m_bThreadsEnabled(TRUE),sleepTime(100){
+  if(m_bThreadsEnabled){
+    addChore(this,ID_CHORE_THREADS);
+    }
+  }
+
+
+// Constructor that also calls FXApp::init()
+FXRbApp* FXRbApp::constructAndInit(const FXchar* appname,const FXchar* vendor){
+  int argc=1;
+  static char* argv[]={"",0};
+  FXRbApp* app=new FXRbApp(appname,vendor);
+  app->FXApp::init(argc,argv);
+  return app;
+  }
+
+
+// Enable (or disable) threads
+void FXRbApp::setThreadsEnabled(FXbool enabled){
+  if(enabled){
+    if(!m_bThreadsEnabled){
+      m_bThreadsEnabled=TRUE;
+      addChore(this,ID_CHORE_THREADS);
+      }
+    }
+  else{
+    m_bThreadsEnabled=FALSE;
+    removeChore(this,ID_CHORE_THREADS);
+    }
+  }
+
+
+// Set sleep time
+void FXRbApp::setSleepTime(FXuint ms){
+  sleepTime=ms;
+  }
+
+
+// Get sleep time
+FXuint FXRbApp::getSleepTime() const {
+  return sleepTime;
+  }
+
+
+// Process threads
+long FXRbApp::onChoreThreads(FXObject*,FXSelector,void*){
+  // Pause for 'sleepTime' millseconds
+  struct timeval wait;
+  wait.tv_sec=0;
+  wait.tv_usec=100*sleepTime;
+
+  // Confirm that this thread can be interrupted, then go to sleep
+#ifndef RUBY_1_9
+  CHECK_INTS;
+  if(!rb_thread_critical)
+    rb_thread_wait_for(wait);
+#else
+  // if(!rb_thread_critical) rb_thread_wait_for(wait);
+  rb_thread_wait_for(wait);
+#endif /* RUBY_1_9 */
+
+  // Re-register this chore for next time
+  addChore(this,ID_CHORE_THREADS);
+
+  // Back to work...
+  return 1;
+  }
+
+
+// Destructor
+FXRbApp::~FXRbApp(){
+  FXTRACE((100,"FXRbApp::~FXRbApp()\n"));
+  VALUE myRegistry;
+  FXRbDestroyAppSensitiveObjects();
+  myRegistry=FXRbGetRubyObj(&(reg()),true);
+  if(!NIL_P(myRegistry)){
+    DATA_PTR(myRegistry)=0;
+    }
+  FXRbUnregisterRubyObj(this);
+  }
+

data/ext/fox16/FXRbDataTarget.cpp

@@ -0,0 +1,110 @@
+/***********************************************************************
+ * FXRuby -- the Ruby language bindings for the FOX GUI toolkit.
+ * Copyright (c) 2001-2009 by Lyle Johnson. All Rights Reserved.
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ * For further information please contact the author by e-mail
+ * at "lyle@lylejohnson.name".
+ ***********************************************************************/
+
+/***********************************************************************
+ * $Id: FXRbDataTarget.cpp 2713 2007-11-14 15:27:36Z lyle $
+ ***********************************************************************/
+
+#include "FXRbCommon.h"
+
+/**
+ * Data targets for FXRuby are implemented slightly different from
+ * those in the C++ implementation since we don't have the concept
+ * of C++ references for immutable types (like integers, floats and
+ * strings).
+ */
+
+// Initialize a data target with this value
+FXRbDataTarget::FXRbDataTarget(VALUE value,FXObject* tgt,FXSelector sel) : FXDataTarget(tgt,sel), intValue(0), doubleValue(0.0), boolValue(FALSE) {
+  setValue(value);
+  }
+
+// Set new value for data target
+void FXRbDataTarget::setValue(VALUE value){
+  switch (TYPE(value)) {
+    case T_NIL:
+      connect();
+      break;
+    case T_FIXNUM:
+      intValue=NUM2LONG(value);
+      connect(intValue);
+      break;
+    case T_BIGNUM: /* still not sure about this conversion */
+      intValue=NUM2ULONG(value);
+      connect(intValue);
+      break;
+    case T_FLOAT:
+      doubleValue=NUM2DBL(value);
+      connect(doubleValue);
+      break;
+    case T_STRING:
+      stringValue=StringValuePtr(value);
+      connect(stringValue);
+      break;
+    case T_TRUE:
+      boolValue=TRUE;
+      connect(boolValue);
+      break;
+    case T_FALSE:
+      boolValue=FALSE;
+      connect(boolValue);
+      break;
+    default:
+      rb_raise(rb_eTypeError,
+        "can't initialize FXDataTarget with type %s.",
+        rb_class2name(CLASS_OF(value)));
+    }
+  }
+
+// Return current value for this data target
+VALUE FXRbDataTarget::getValue() const {
+  switch(type){
+    case DT_VOID:
+      return Qnil;
+    case DT_CHAR:
+      return to_ruby(*reinterpret_cast<FXchar*>(data));
+    case DT_UCHAR:
+      return to_ruby(*reinterpret_cast<FXuchar*>(data));
+    case DT_SHORT:
+      return to_ruby(*reinterpret_cast<FXshort*>(data));
+    case DT_USHORT:
+      return to_ruby(*reinterpret_cast<FXushort*>(data));
+    case DT_INT:
+      return to_ruby(*reinterpret_cast<FXint*>(data));
+    case DT_UINT:
+      return to_ruby(*reinterpret_cast<FXuint*>(data));
+    case DT_LONG:
+      return to_ruby(*reinterpret_cast<FXlong*>(data));
+    case DT_ULONG:
+      return to_ruby(*reinterpret_cast<FXulong*>(data));
+    case DT_FLOAT:
+      return to_ruby(*reinterpret_cast<FXfloat*>(data));
+    case DT_DOUBLE:
+      return to_ruby(*reinterpret_cast<FXdouble*>(data));
+    case DT_STRING:
+      return to_ruby(*reinterpret_cast<FXString*>(data));
+    default:
+      fxerror("unknown data type in FXRbDataTarget::getValue()");
+    }
+  return Qnil;
+  }
+

data/ext/fox16/FXRbGLViewer.cpp

@@ -0,0 +1,89 @@
+/***********************************************************************
+ * FXRuby -- the Ruby language bindings for the FOX GUI toolkit.
+ * Copyright (c) 2001-2009 by Lyle Johnson. All Rights Reserved.
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ * For further information please contact the author by e-mail
+ * at "lyle@lylejohnson.name".
+ ***********************************************************************/
+
+/***********************************************************************
+ * $Id: FXRbGLViewer.cpp 2190 2005-08-24 07:58:47Z lyle $
+ ***********************************************************************/
+
+#include "FXRbCommon.h"
+
+// Process picks
+FXGLObject* FXRbGLViewer::processHits(FXuint *pickbuffer,FXint nhits){
+  FXuint d1,d2,i,n,zmin,zmax,sel=0,nnames=0;
+  if(0<=nhits){
+    for(i=0,zmin=zmax=4294967295U; nhits>0; i+=n+3,nhits--){
+      n=pickbuffer[i];
+      d1=pickbuffer[1+i];
+      d2=pickbuffer[2+i];
+      if(d1<zmin || (d1==zmin && d2<=zmax)){
+        zmin=d1;
+        zmax=d2;
+        sel=i;
+	nnames=n;
+        }
+      }
+    FXASSERT(scene->isMemberOf(FXMETACLASS(FXRbGLObject)) || scene->isMemberOf(FXMETACLASS(FXRbGLShape)));
+    if(scene->isMemberOf(FXMETACLASS(FXRbGLObject))){
+      FXRbGLObject* obj=dynamic_cast<FXRbGLObject*>(scene);
+      FXASSERT(obj!=0);
+      return obj->identify(&pickbuffer[4+sel],nnames-1);
+      }
+    else{
+      FXRbGLShape* shape=dynamic_cast<FXRbGLShape*>(scene);
+      FXASSERT(shape!=0);
+      return shape->identify(&pickbuffer[4+sel],nnames-1);
+      }
+    }
+  return NULL;
+  }
+
+
+// Build NULL-terminated list of ALL picked objects overlapping rectangle
+FXGLObject** FXRbGLViewer::_select(FXint x,FXint y,FXint w,FXint h){
+  FXGLObject *obj,**objects=NULL;
+  FXint nhits,i,j;
+  FXuint *hits;
+  FXint nnames;
+  if(scene && maxhits){
+    if(selectHits(hits,nhits,x,y,w,h)){     // FIXME leak
+      FXMALLOC(&objects,FXGLObject*,nhits+1);
+      FXASSERT(scene->isMemberOf(FXMETACLASS(FXRbGLObject)) || scene->isMemberOf(FXMETACLASS(FXRbGLShape)));
+      if(scene->isMemberOf(FXMETACLASS(FXRbGLObject))){
+        for(i=j=0; nhits>0; i+=hits[i]+3,nhits--){
+          nnames=hits[i];
+          obj=dynamic_cast<FXRbGLObject*>(scene)->identify(&hits[4+i],nnames-1);
+          if(obj!=NULL) objects[j++]=obj;
+          }
+        }
+      else{
+        for(i=j=0; nhits>0; i+=hits[i]+3,nhits--){
+          nnames=hits[i];
+          obj=dynamic_cast<FXRbGLShape*>(scene)->identify(&hits[4+i],nnames-1);
+          if(obj!=NULL) objects[j++]=obj;
+          }
+        }
+      objects[j]=NULL;
+      FXFREE(&hits);
+      }
+    }
+  return objects;
+  }