Move qui.cpp

1 files changed, 175 insertions, 0 deletions

diff --git a/qtruby/rubylib/designer/uilib/tqui.cpp b/qtruby/rubylib/designer/uilib/tqui.cpp
new file mode 100644
index 00000000..05b094bb
--- /dev/null
+++ b/qtruby/rubylib/designer/uilib/tqui.cpp
@@ -0,0 +1,175 @@
+/***************************************************************************
+                          tqui.cpp  -  A ruby wrapper for the TQWidgetFactory class
+                             -------------------
+    begin                : Wed Mar 14 2004
+    copyright            : (C) 2004 by Richard Dale
+    email                : Richard_Dale@tipitina.demon.co.uk
+ ***************************************************************************/
+
+/***************************************************************************
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ ***************************************************************************/
+
+#include <tqwidgetfactory.h>
+#include <tqwidget.h>
+
+#include "smoke.h"
+
+#undef DEBUG
+#ifndef _GNU_SOURCE
+#define _GNU_SOURCE
+#endif
+#ifndef __USE_POSIX
+#define __USE_POSIX
+#endif
+#ifndef __USE_XOPEN
+#define __USE_XOPEN
+#endif
+#include <ruby.h>
+
+#include "qtruby.h"
+#include "smokeruby.h"
+
+extern Smoke *qt_Smoke;
+extern bool isDerivedFrom(Smoke *smoke, Smoke::Index classId, Smoke::Index baseId);
+
+extern "C" {
+extern VALUE set_obj_info(const char * className, smokeruby_object * o);
+
+static VALUE tqui_module;
+static VALUE qwidget_factory_class;
+
+static VALUE
+create(int argc, VALUE * argv, VALUE /*klass*/)
+{
+	TQWidget * topLevelWidget = 0;
+	VALUE result = Qnil;
+	
+	if (argc == 0 || argc > 4) {
+		rb_raise(rb_eArgError, "wrong number of arguments (%d)\n", argc);
+	}
+	
+	TQObject * connector = 0;
+	if (argc >= 2) {
+		if (TYPE(argv[1]) == T_DATA) {
+			smokeruby_object *o = value_obj_info(argv[1]);
+			if (o != 0) {
+				connector = (TQObject *) o->ptr;
+			}
+		} else {
+			rb_raise(rb_eArgError, "invalid argument type\n");
+		}
+	}
+	
+	TQWidget * parent = 0;
+	if (argc >= 3) {
+		if (TYPE(argv[2]) == T_DATA) {
+			smokeruby_object *o = value_obj_info(argv[2]);
+			if (o != 0) {
+				parent = (TQWidget *) o->ptr;
+			}
+		} else {
+			rb_raise(rb_eArgError, "invalid argument type\n");
+		}
+	}
+	
+	const char * name = 0;
+	if (argc >= 4) {
+		if (TYPE(argv[3]) == T_STRING) {
+			name = StringValuePtr(argv[3]);
+		} else {
+			rb_raise(rb_eArgError, "invalid argument type\n");
+		}
+	}
+	
+	if (TYPE(argv[0]) == T_STRING) {
+		topLevelWidget = TQWidgetFactory::create(TQString(StringValuePtr(argv[0])), connector, parent, name);
+	} else if (TYPE(argv[0]) == T_DATA) {
+		TQIODevice * dev = 0;
+		smokeruby_object *o = value_obj_info(argv[0]);
+		
+		if (o != 0 && o->ptr != 0 && o->classId == qt_Smoke->idClass("TQIODevice")) {
+			dev = (TQIODevice *) o->ptr;
+		} else {
+			rb_raise(rb_eArgError, "invalid argument type\n");
+		}
+		
+		topLevelWidget = TQWidgetFactory::create(dev, connector, parent, name);
+	} else {
+		rb_raise(rb_eArgError, "invalid argument type\n");
+	}
+	
+	if (topLevelWidget != 0) {
+		smokeruby_object  * o = (smokeruby_object *) malloc(sizeof(smokeruby_object));
+		o->smoke = qt_Smoke;
+		o->classId = qt_Smoke->idClass(topLevelWidget->className());
+		o->ptr = topLevelWidget;
+		o->allocated = false;
+		
+		const char * className = qt_Smoke->binding->className(o->classId);
+		result = set_obj_info(className, o);
+	}
+	
+	return result;
+}
+
+static VALUE
+load_images(VALUE klass, VALUE dir)
+{
+	TQWidgetFactory::loadImages(TQString(StringValuePtr(dir)));
+	return klass;
+}
+
+static VALUE
+widgets(VALUE /*self*/)
+{
+    VALUE result = rb_ary_new();
+	TQStringList widgetList = TQWidgetFactory::widgets();
+	
+	for (TQStringList::Iterator it = widgetList.begin(); it != widgetList.end(); ++it) {
+		TQString widgetName = *it;
+		if (widgetName.startsWith("Q")) {
+			widgetName.replace(0, 1, TQString("TQt::"));
+		} else if (widgetName.startsWith("K")) {
+			widgetName.replace(0, 1, TQString("KDE::"));
+		}
+		rb_ary_push(result, rb_str_new2(widgetName.latin1()));
+    }
+
+    return result;
+}
+
+static VALUE
+supports_widget(VALUE /*self*/, VALUE widget)
+{
+	TQString widgetName(StringValuePtr(widget));
+	
+	if (widgetName.startsWith("TQt::")) {
+		widgetName.replace(0, 4, TQString("Q"));
+	} else if (widgetName.startsWith("KDE::")) {
+		widgetName.replace(0, 5, TQString("K"));
+	}
+	
+	return TQWidgetFactory::supportsWidget(widgetName) ? Qtrue : Qfalse;
+}
+
+void
+Init_tqui()
+{
+    tqui_module = rb_define_module("TQUI");
+    qwidget_factory_class = rb_define_class_under(tqui_module, "WidgetFactory", rb_cObject);
+    
+	rb_define_singleton_method(qwidget_factory_class, "create", (VALUE (*) (...)) create, -1);
+	rb_define_singleton_method(qwidget_factory_class, "loadImages", (VALUE (*) (...)) load_images, 1);
+	rb_define_singleton_method(qwidget_factory_class, "load_images", (VALUE (*) (...)) load_images, 1);
+	rb_define_singleton_method(qwidget_factory_class, "widgets", (VALUE (*) (...)) widgets, 0);
+	rb_define_singleton_method(qwidget_factory_class, "supportsWidget", (VALUE (*) (...)) supports_widget, 1);
+	rb_define_singleton_method(qwidget_factory_class, "supports_widget", (VALUE (*) (...)) supports_widget, 1);
+}
+
+};