summaryrefslogtreecommitdiffstats
path: root/PerlQt/Qt.xs
diff options
context:
space:
mode:
Diffstat (limited to 'PerlQt/Qt.xs')
-rw-r--r--PerlQt/Qt.xs234
1 files changed, 117 insertions, 117 deletions
diff --git a/PerlQt/Qt.xs b/PerlQt/Qt.xs
index e72bffd..22a66de 100644
--- a/PerlQt/Qt.xs
+++ b/PerlQt/Qt.xs
@@ -23,8 +23,8 @@
#include "perl.h"
#include "XSUB.h"
-#ifndef QT_VERSION_STR
-#define QT_VERSION_STR "Unknown"
+#ifndef TQT_VERSION_STR
+#define TQT_VERSION_STR "Unknown"
#endif
#undef free
@@ -54,8 +54,8 @@ void *_current_object = 0; // TODO: ask myself if this is stupid
bool temporary_virtual_function_success = false;
-static QAsciiDict<Smoke::Index> *methcache = 0;
-static QAsciiDict<Smoke::Index> *classcache = 0;
+static TQAsciiDict<Smoke::Index> *methcache = 0;
+static TQAsciiDict<Smoke::Index> *classcache = 0;
SV *sv_this = 0;
@@ -65,7 +65,7 @@ Smoke::Index _current_method = 0;
* Type handling by moc is simple.
*
* If the type name matches /^(?:const\s+)?\Q$types\E&?$/, use the
- * static_QUType, where $types is join('|', qw(bool int double char* QString);
+ * static_TQUType, where $types is join('|', qw(bool int double char* TQString);
*
* Everything else is passed as a pointer! There are types which aren't
* Smoke::tf_ptr but will have to be passed as a pointer. Make sure to keep
@@ -86,7 +86,7 @@ enum MocArgumentType {
xmoc_int,
xmoc_double,
xmoc_charstar,
- xmoc_QString
+ xmoc_TQString
};
struct MocArgument {
@@ -96,7 +96,7 @@ struct MocArgument {
};
-extern TypeHandler Qt_handlers[];
+extern TypeHandler TQt_handlers[];
void install_handlers(TypeHandler *);
void *sv_to_ptr(SV *sv) { // ptr on success, null on fail
@@ -104,13 +104,13 @@ void *sv_to_ptr(SV *sv) { // ptr on success, null on fail
return o ? o->ptr : 0;
}
-bool isQObject(Smoke *smoke, Smoke::Index classId) {
- if(!strcmp(smoke->classes[classId].className, "QObject"))
+bool isTQObject(Smoke *smoke, Smoke::Index classId) {
+ if(!strcmp(smoke->classes[classId].className, "TQObject"))
return true;
for(Smoke::Index *p = smoke->inheritanceList + smoke->classes[classId].parents;
*p;
p++) {
- if(isQObject(smoke, *p))
+ if(isTQObject(smoke, *p))
return true;
}
return false;
@@ -174,7 +174,7 @@ void unmapPointer(smokeperl_object *o, Smoke::Index classId, void *lastptr) {
}
}
-// Store pointer in pointer_map hash : "pointer_to_Qt_object" => weak ref to associated Perl object
+// Store pointer in pointer_map hash : "pointer_to_TQt_object" => weak ref to associated Perl object
// Recurse to store it also as casted to its parent classes.
void mapPointer(SV *obj, smokeperl_object *o, HV *hv, Smoke::Index classId, void *lastptr) {
@@ -390,14 +390,14 @@ public:
bool cleanup() { return true; }
};
-class UnencapsulatedQObject : public QObject {
+class UnencapsulatedTQObject : public TQObject {
public:
- QConnectionList *public_receivers(int signal) const { return receivers(signal); }
- void public_activate_signal(QConnectionList *clist, QUObject *o) { activate_signal(clist, o); }
+ TQConnectionList *public_receivers(int signal) const { return receivers(signal); }
+ void public_activate_signal(TQConnectionList *clist, TQUObject *o) { activate_signal(clist, o); }
};
class EmitSignal : public Marshall {
- UnencapsulatedQObject *_qobj;
+ UnencapsulatedTQObject *_qobj;
int _id;
MocArgument *_args;
SV **_sp;
@@ -406,8 +406,8 @@ class EmitSignal : public Marshall {
Smoke::Stack _stack;
bool _called;
public:
- EmitSignal(QObject *qobj, int id, int items, MocArgument *args, SV **sp) :
- _qobj((UnencapsulatedQObject*)qobj), _id(id), _items(items), _args(args),
+ EmitSignal(TQObject *qobj, int id, int items, MocArgument *args, SV **sp) :
+ _qobj((UnencapsulatedTQObject*)qobj), _id(id), _items(items), _args(args),
_sp(sp), _cur(-1), _called(false) {
_stack = new Smoke::StackItem[_items];
}
@@ -427,28 +427,28 @@ public:
if(_called) return;
_called = true;
- QConnectionList *clist = _qobj->public_receivers(_id);
+ TQConnectionList *clist = _qobj->public_receivers(_id);
if(!clist) return;
- QUObject *o = new QUObject[_items + 1];
+ TQUObject *o = new TQUObject[_items + 1];
for(int i = 0; i < _items; i++) {
- QUObject *po = o + i + 1;
+ TQUObject *po = o + i + 1;
Smoke::StackItem *si = _stack + i;
switch(_args[i].argType) {
case xmoc_bool:
- static_QUType_bool.set(po, si->s_bool);
+ static_TQUType_bool.set(po, si->s_bool);
break;
case xmoc_int:
- static_QUType_int.set(po, si->s_int);
+ static_TQUType_int.set(po, si->s_int);
break;
case xmoc_double:
- static_QUType_double.set(po, si->s_double);
+ static_TQUType_double.set(po, si->s_double);
break;
case xmoc_charstar:
- static_QUType_charstar.set(po, (char*)si->s_voidp);
+ static_TQUType_charstar.set(po, (char*)si->s_voidp);
break;
- case xmoc_QString:
- static_QUType_QString.set(po, *(QString*)si->s_voidp);
+ case xmoc_TQString:
+ static_TQUType_TQString.set(po, *(TQString*)si->s_voidp);
break;
default:
{
@@ -511,7 +511,7 @@ public:
p = 0;
break;
}
- static_QUType_ptr.set(po, p);
+ static_TQUType_ptr.set(po, p);
}
}
}
@@ -536,11 +536,11 @@ public:
};
class InvokeSlot : public Marshall {
- QObject *_qobj;
+ TQObject *_qobj;
GV *_gv;
int _items;
MocArgument *_args;
- QUObject *_o;
+ TQUObject *_o;
int _cur;
bool _called;
SV **_sp;
@@ -558,27 +558,27 @@ public:
}
void copyArguments() {
for(int i = 0; i < _items; i++) {
- QUObject *o = _o + i + 1;
+ TQUObject *o = _o + i + 1;
switch(_args[i].argType) {
case xmoc_bool:
- _stack[i].s_bool = static_QUType_bool.get(o);
+ _stack[i].s_bool = static_TQUType_bool.get(o);
break;
case xmoc_int:
- _stack[i].s_int = static_QUType_int.get(o);
+ _stack[i].s_int = static_TQUType_int.get(o);
break;
case xmoc_double:
- _stack[i].s_double = static_QUType_double.get(o);
+ _stack[i].s_double = static_TQUType_double.get(o);
break;
case xmoc_charstar:
- _stack[i].s_voidp = static_QUType_charstar.get(o);
+ _stack[i].s_voidp = static_TQUType_charstar.get(o);
break;
- case xmoc_QString:
- _stack[i].s_voidp = &static_QUType_QString.get(o);
+ case xmoc_TQString:
+ _stack[i].s_voidp = &static_TQUType_TQString.get(o);
break;
default: // case xmoc_ptr:
{
const SmokeType &t = _args[i].st;
- void *p = static_QUType_ptr.get(o);
+ void *p = static_TQUType_ptr.get(o);
switch(t.elem()) {
case Smoke::t_bool:
_stack[i].s_bool = *(bool*)p;
@@ -661,7 +661,7 @@ public:
invokeSlot();
_cur = oldcur;
}
- InvokeSlot(QObject *qobj, GV *gv, int items, MocArgument *args, QUObject *o) :
+ InvokeSlot(TQObject *qobj, GV *gv, int items, MocArgument *args, TQUObject *o) :
_qobj(qobj), _gv(gv), _items(items), _args(args), _o(o), _cur(-1), _called(false) {
dSP;
ENTER;
@@ -681,9 +681,9 @@ public:
};
-class QtSmokeBinding : public SmokeBinding {
+class TQtSmokeBinding : public SmokeBinding {
public:
- QtSmokeBinding(Smoke *s) : SmokeBinding(s) {}
+ TQtSmokeBinding(Smoke *s) : SmokeBinding(s) {}
void deleted(Smoke::Index classId, void *ptr) {
SV *obj = getPointerObject(ptr);
smokeperl_object *o = sv_obj_info(obj);
@@ -727,7 +727,7 @@ public:
char *className(Smoke::Index classId) {
const char *className = smoke->className(classId);
char *buf = new char[strlen(className) + 6];
- strcpy(buf, " Qt::");
+ strcpy(buf, " TQt::");
strcat(buf, className + 1);
return buf;
}
@@ -885,7 +885,7 @@ XS(XS_super) {
//---------- XS Autoload (for all functions except fully qualified statics & enums) ---------
-static inline bool isQt(char *p) {
+static inline bool isTQt(char *p) {
return (p[0] == 'Q' && p[1] && p[1] == 't' && ((p[2] && p[2] == ':') || !p[2]));
}
@@ -893,7 +893,7 @@ bool avoid_fetchmethod = false;
XS(XS_AUTOLOAD) {
// Err, XS autoload is borked. Lets try...
dXSARGS;
- SV *sv = get_sv("Qt::AutoLoad::AUTOLOAD", TRUE);
+ SV *sv = get_sv("TQt::AutoLoad::AUTOLOAD", TRUE);
char *package = SvPV_nolen(sv);
char *method = 0;
for(char *s = package; *s ; s++)
@@ -912,7 +912,7 @@ XS(XS_AUTOLOAD) {
strcat(super, "::SUPER");
package = super;
}
- } else if( isQt(package) )
+ } else if( isTQt(package) )
avoid_fetchmethod = true;
HV *stash = gv_stashpv(package, TRUE);
@@ -1012,7 +1012,7 @@ XS(XS_AUTOLOAD) {
fprintf(stderr, "Increasing refcount in DESTROY for %s=%p (still has a parent)\n", package, o->ptr);
} else {
- if( items > 18 ) XSRETURN_NO; // current max number of args in Qt is 13.
+ if( items > 18 ) XSRETURN_NO; // current max number of args in TQt is 13.
// save the stack -- we'll need it
SV **savestack = new SV*[items+1];
@@ -1021,7 +1021,7 @@ XS(XS_AUTOLOAD) {
Copy(SP - items + 1 + withObject, savestack, items-withObject, SV*);
- // Get the classid (eventually converting SUPER to the right Qt class)
+ // Get the classid (eventually converting SUPER to the right TQt class)
Smoke::Index cid = package_classid(package);
// Look in the cache
char *cname = (char*)qt_Smoke->className(cid);
@@ -1068,7 +1068,7 @@ XS(XS_AUTOLOAD) {
old_this = sv_this;
sv_this = newSVsv(saveobj);
}
- call_pv("Qt::_internal::do_autoload", G_DISCARD|G_EVAL);
+ call_pv("TQt::_internal::do_autoload", G_DISCARD|G_EVAL);
FREETMPS;
LEAVE;
@@ -1145,7 +1145,7 @@ MocArgument *getmetainfo(GV *gv, const char *name, int &offset, int &index, int
if(!svp) return 0;
smokeperl_object *ometa = sv_obj_info(*svp);
if(!ometa) return 0;
- QMetaObject *metaobject = (QMetaObject*)ometa->ptr;
+ TQMetaObject *metaobject = (TQMetaObject*)ometa->ptr;
offset = metaobject->signalOffset();
@@ -1194,7 +1194,7 @@ MocArgument *getslotinfo(GV *gv, int id, char *&slotname, int &index, int &argcn
if(!svp) return 0;
smokeperl_object *ometa = sv_obj_info(*svp);
if(!ometa) return 0;
- QMetaObject *metaobject = (QMetaObject*)ometa->ptr;
+ TQMetaObject *metaobject = (TQMetaObject*)ometa->ptr;
int offset = isSignal ? metaobject->signalOffset() : metaobject->slotOffset();
@@ -1229,10 +1229,10 @@ XS(XS_signal) {
dXSARGS;
smokeperl_object *o = sv_obj_info(sv_this);
- QObject *qobj = (QObject*)o->smoke->cast(
+ TQObject *qobj = (TQObject*)o->smoke->cast(
o->ptr,
o->classId,
- o->smoke->idClass("QObject")
+ o->smoke->idClass("TQObject")
);
if(qobj->signalsBlocked()) XSRETURN_UNDEF;
@@ -1256,15 +1256,15 @@ XS(XS_signal) {
XS(XS_qt_invoke) {
dXSARGS;
- // Arguments: int id, QUObject *o
+ // Arguments: int id, TQUObject *o
int id = SvIV(ST(0));
- QUObject *_o = (QUObject*)SvIV(SvRV(ST(1)));
+ TQUObject *_o = (TQUObject*)SvIV(SvRV(ST(1)));
smokeperl_object *o = sv_obj_info(sv_this);
- QObject *qobj = (QObject*)o->smoke->cast(
+ TQObject *qobj = (TQObject*)o->smoke->cast(
o->ptr,
o->classId,
- o->smoke->idClass("QObject")
+ o->smoke->idClass("TQObject")
);
// Now, I need to find out if this means me
@@ -1290,7 +1290,7 @@ XS(XS_qt_invoke) {
// ------------------- Tied types ------------------------
-MODULE = Qt PACKAGE = Qt::_internal::QString
+MODULE = TQt PACKAGE = TQt::_internal::TQString
PROTOTYPES: DISABLE
SV*
@@ -1300,7 +1300,7 @@ FETCH(obj)
if (!SvROK(obj))
croak("?");
IV tmp = SvIV((SV*)SvRV(obj));
- QString *s = (QString*) tmp;
+ TQString *s = (TQString*) tmp;
RETVAL = newSV(0);
if( s )
{
@@ -1327,15 +1327,15 @@ STORE(obj,what)
if (!SvROK(obj))
croak("?");
IV tmp = SvIV((SV*)SvRV(obj));
- QString *s = (QString*) tmp;
+ TQString *s = (TQString*) tmp;
s->truncate(0);
if(SvOK(what)) {
if(SvUTF8(what))
- s->append(QString::fromUtf8(SvPV_nolen(what)));
+ s->append(TQString::fromUtf8(SvPV_nolen(what)));
else if(IN_LOCALE)
- s->append(QString::fromLocal8Bit(SvPV_nolen(what)));
+ s->append(TQString::fromLocal8Bit(SvPV_nolen(what)));
else
- s->append(QString::fromLatin1(SvPV_nolen(what)));
+ s->append(TQString::fromLatin1(SvPV_nolen(what)));
}
void
@@ -1345,10 +1345,10 @@ DESTROY(obj)
if (!SvROK(obj))
croak("?");
IV tmp = SvIV((SV*)SvRV(obj));
- QString *s = (QString*) tmp;
+ TQString *s = (TQString*) tmp;
delete s;
-MODULE = Qt PACKAGE = Qt::_internal::QByteArray
+MODULE = TQt PACKAGE = TQt::_internal::TQByteArray
PROTOTYPES: DISABLE
SV*
@@ -1358,7 +1358,7 @@ FETCH(obj)
if (!SvROK(obj))
croak("?");
IV tmp = SvIV((SV*)SvRV(obj));
- QByteArray *s = (QByteArray*) tmp;
+ TQByteArray *s = (TQByteArray*) tmp;
RETVAL = newSV(0);
if( s )
{
@@ -1377,7 +1377,7 @@ STORE(obj,what)
if (!SvROK(obj))
croak("?");
IV tmp = SvIV((SV*)SvRV(obj));
- QByteArray *s = (QByteArray*) tmp;
+ TQByteArray *s = (TQByteArray*) tmp;
if(SvOK(what)) {
STRLEN len;
@@ -1394,10 +1394,10 @@ DESTROY(obj)
if (!SvROK(obj))
croak("?");
IV tmp = SvIV((SV*)SvRV(obj));
- QByteArray *s = (QByteArray*) tmp;
+ TQByteArray *s = (TQByteArray*) tmp;
delete s;
-MODULE = Qt PACKAGE = Qt::_internal::QRgbStar
+MODULE = TQt PACKAGE = TQt::_internal::TQRgbStar
PROTOTYPES: DISABLE
SV*
@@ -1407,7 +1407,7 @@ FETCH(obj)
if (!SvROK(obj))
croak("?");
IV tmp = SvIV((SV*)SvRV(obj));
- QRgb *s = (QRgb*) tmp;
+ TQRgb *s = (TQRgb*) tmp;
AV* ar = newAV();
RETVAL = newRV_noinc((SV*)ar);
for(int i=0; s[i] ; i++)
@@ -1427,17 +1427,17 @@ STORE(obj,sv)
if (!SvROK(obj))
croak("?");
IV tmp = SvIV((SV*)SvRV(obj));
- QRgb *s = (QRgb*) tmp;
+ TQRgb *s = (TQRgb*) tmp;
if(!SvROK(sv) || SvTYPE(SvRV(sv)) != SVt_PVAV ||
av_len((AV*)SvRV(sv)) < 0) {
- s = new QRgb[1];
+ s = new TQRgb[1];
s[0] = 0;
- sv_setref_pv(obj, "Qt::_internal::QRgbStar", (void*)s);
+ sv_setref_pv(obj, "TQt::_internal::TQRgbStar", (void*)s);
return;
}
AV *list = (AV*)SvRV(sv);
int count = av_len(list);
- s = new QRgb[count + 2];
+ s = new TQRgb[count + 2];
int i;
for(i = 0; i <= count; i++) {
SV **item = av_fetch(list, i, 0);
@@ -1448,7 +1448,7 @@ STORE(obj,sv)
s[i] = SvIV(*item);
}
s[i] = 0;
- sv_setref_pv(obj, "Qt::_internal::QRgbStar", (void*)s);
+ sv_setref_pv(obj, "TQt::_internal::TQRgbStar", (void*)s);
void
DESTROY(obj)
@@ -1457,13 +1457,13 @@ DESTROY(obj)
if (!SvROK(obj))
croak("?");
IV tmp = SvIV((SV*)SvRV(obj));
- QRgb *s = (QRgb*) tmp;
+ TQRgb *s = (TQRgb*) tmp;
delete[] s;
-# --------------- XSUBS for Qt::_internal::* helpers ----------------
+# --------------- XSUBS for TQt::_internal::* helpers ----------------
-MODULE = Qt PACKAGE = Qt::_internal
+MODULE = TQt PACKAGE = TQt::_internal
PROTOTYPES: DISABLE
void
@@ -1526,8 +1526,8 @@ setMocType(ptr, idx, name, static_type)
arg[idx].argType = xmoc_double;
else if(!strcmp(static_type, "char*"))
arg[idx].argType = xmoc_charstar;
- else if(!strcmp(static_type, "QString"))
- arg[idx].argType = xmoc_QString;
+ else if(!strcmp(static_type, "TQString"))
+ arg[idx].argType = xmoc_TQString;
XSRETURN_YES;
void
@@ -1624,28 +1624,28 @@ getSVt(sv)
RETVAL
void *
-make_QUParameter(name, type, extra, inout)
+make_TQUParameter(name, type, extra, inout)
char *name
char *type
SV *extra
int inout
CODE:
- QUParameter *p = new QUParameter;
+ TQUParameter *p = new TQUParameter;
p->name = new char[strlen(name) + 1];
strcpy((char*)p->name, name);
if(!strcmp(type, "bool"))
- p->type = &static_QUType_bool;
+ p->type = &static_TQUType_bool;
else if(!strcmp(type, "int"))
- p->type = &static_QUType_int;
+ p->type = &static_TQUType_int;
else if(!strcmp(type, "double"))
- p->type = &static_QUType_double;
+ p->type = &static_TQUType_double;
else if(!strcmp(type, "char*") || !strcmp(type, "const char*"))
- p->type = &static_QUType_charstar;
- else if(!strcmp(type, "QString") || !strcmp(type, "QString&") ||
- !strcmp(type, "const QString") || !strcmp(type, "const QString&"))
- p->type = &static_QUType_QString;
+ p->type = &static_TQUType_charstar;
+ else if(!strcmp(type, "TQString") || !strcmp(type, "TQString&") ||
+ !strcmp(type, "const TQString") || !strcmp(type, "const TQString&"))
+ p->type = &static_TQUType_TQString;
else
- p->type = &static_QUType_ptr;
+ p->type = &static_TQUType_ptr;
// Lacking support for several types. Evil.
p->inOut = inout;
p->typeExtra = 0;
@@ -1654,25 +1654,25 @@ make_QUParameter(name, type, extra, inout)
RETVAL
void *
-make_QMetaData(name, method)
+make_TQMetaData(name, method)
char *name
void *method
CODE:
- QMetaData *m = new QMetaData; // will be deleted
+ TQMetaData *m = new TQMetaData; // will be deleted
m->name = new char[strlen(name) + 1];
strcpy((char*)m->name, name);
- m->method = (QUMethod*)method;
- m->access = QMetaData::Public;
+ m->method = (TQUMethod*)method;
+ m->access = TQMetaData::Public;
RETVAL = m;
OUTPUT:
RETVAL
void *
-make_QUMethod(name, params)
+make_TQUMethod(name, params)
char *name
SV *params
CODE:
- QUMethod *m = new QUMethod; // permanent memory allocation
+ TQUMethod *m = new TQUMethod; // permanent memory allocation
m->name = new char[strlen(name) + 1]; // this too
strcpy((char*)m->name, name);
m->count = 0;
@@ -1681,14 +1681,14 @@ make_QUMethod(name, params)
AV *av = (AV*)SvRV(params);
m->count = av_len(av) + 1;
if(m->count > 0) {
- m->parameters = new QUParameter[m->count];
+ m->parameters = new TQUParameter[m->count];
for(int i = 0; i < m->count; i++) {
SV *sv = av_shift(av);
if(!SvOK(sv))
- croak("Invalid paramater for QUMethod\n");
- QUParameter *p = (QUParameter*)SvIV(sv);
+ croak("Invalid paramater for TQUMethod\n");
+ TQUParameter *p = (TQUParameter*)SvIV(sv);
SvREFCNT_dec(sv);
- ((QUParameter*)m->parameters)[i] = *p;
+ ((TQUParameter*)m->parameters)[i] = *p;
delete p;
}
} else
@@ -1699,19 +1699,19 @@ make_QUMethod(name, params)
RETVAL
void *
-make_QMetaData_tbl(list)
+make_TQMetaData_tbl(list)
SV *list
CODE:
RETVAL = 0;
if(SvOK(list) && SvRV(list)) {
AV *av = (AV*)SvRV(list);
int count = av_len(av) + 1;
- QMetaData *m = new QMetaData[count];
+ TQMetaData *m = new TQMetaData[count];
for(int i = 0; i < count; i++) {
SV *sv = av_shift(av);
if(!SvOK(sv))
croak("Invalid metadata\n");
- QMetaData *old = (QMetaData*)SvIV(sv);
+ TQMetaData *old = (TQMetaData*)SvIV(sv);
SvREFCNT_dec(sv);
m[i] = *old;
delete old;
@@ -1732,10 +1732,10 @@ make_metaObject(className, parent, slot_tbl, slot_count, signal_tbl, signal_coun
CODE:
smokeperl_object *po = sv_obj_info(parent);
if(!po || !po->ptr) croak("Cannot create metaObject\n");
- QMetaObject *meta = QMetaObject::new_metaobject(
- className, (QMetaObject*)po->ptr,
- (const QMetaData*)slot_tbl, slot_count, // slots
- (const QMetaData*)signal_tbl, signal_count, // signals
+ TQMetaObject *meta = TQMetaObject::new_metaobject(
+ className, (TQMetaObject*)po->ptr,
+ (const TQMetaData*)slot_tbl, slot_count, // slots
+ (const TQMetaData*)signal_tbl, signal_count, // signals
0, 0, // properties
0, 0, // enums
0, 0);
@@ -1746,7 +1746,7 @@ make_metaObject(className, parent, slot_tbl, slot_count, signal_tbl, signal_coun
smokeperl_object o;
o.smoke = qt_Smoke;
- o.classId = qt_Smoke->idClass("QMetaObject");
+ o.classId = qt_Smoke->idClass("TQMetaObject");
o.ptr = meta;
o.allocated = true;
sv_magic((SV*)hv, sv_qapp, '~', (char*)&o, sizeof(o));
@@ -1796,7 +1796,7 @@ setqapp(obj)
SV *obj
CODE:
if(!obj || !SvROK(obj))
- croak("Invalid Qt::Application object. Couldn't set Qt::app()\n");
+ croak("Invalid TQt::Application object. Couldn't set TQt::app()\n");
sv_qapp = SvRV(obj);
void
@@ -1811,7 +1811,7 @@ deleteObject(obj)
CODE:
smokeperl_object *o = sv_obj_info(obj);
if(!o) { XSRETURN_EMPTY; }
- QObject *qobj = (QObject*)o->smoke->cast(o->ptr, o->classId, o->smoke->idClass("QObject"));
+ TQObject *qobj = (TQObject*)o->smoke->cast(o->ptr, o->classId, o->smoke->idClass("TQObject"));
delete qobj;
void
@@ -1828,12 +1828,12 @@ mapObject(obj)
mapPointer(obj, o, pointer_map, o->classId, 0);
bool
-isQObject(obj)
+isTQObject(obj)
SV *obj
CODE:
RETVAL = 0;
smokeperl_object *o = sv_obj_info(obj);
- if(o && isQObject(o->smoke, o->classId))
+ if(o && isTQObject(o->smoke, o->classId))
RETVAL = 1;
OUTPUT:
RETVAL
@@ -2161,9 +2161,9 @@ installautoload(package)
newXS(autoload, XS_AUTOLOAD, file);
delete[] autoload;
-# ----------------- XSUBS for Qt:: -----------------
+# ----------------- XSUBS for TQt:: -----------------
-MODULE = Qt PACKAGE = Qt
+MODULE = TQt PACKAGE = TQt
SV *
this()
@@ -2182,17 +2182,17 @@ app()
SV *
version()
CODE:
- RETVAL = newSVpv(QT_VERSION_STR,0);
+ RETVAL = newSVpv(TQT_VERSION_STR,0);
OUTPUT:
RETVAL
BOOT:
init_qt_Smoke();
- qt_Smoke->binding = new QtSmokeBinding(qt_Smoke);
- install_handlers(Qt_handlers);
+ qt_Smoke->binding = new TQtSmokeBinding(qt_Smoke);
+ install_handlers(TQt_handlers);
pointer_map = newHV();
sv_this = newSV(0);
- methcache = new QAsciiDict<Smoke::Index>(1187);
- classcache = new QAsciiDict<Smoke::Index>(827);
+ methcache = new TQAsciiDict<Smoke::Index>(1187);
+ classcache = new TQAsciiDict<Smoke::Index>(827);
methcache->setAutoDelete(1);
classcache->setAutoDelete(1);
generated by cgit v1.2.1 (git 2.18.0) at 2024-12-27 05:28:25 +0000