Florian Klaempfl wrote 13 lines
Andrew Johnson wrote:
> alright. that sounds good. I will go look into that, and if moc _does_
> produces cohesive enough ones, such that we don't need to actually
> include any of the actual translations and upkeep them ourselves, it
> might make usage easier anyway, since we could just require moc and have
> a script to compile things properly and link resulting c objects and
> pascal objects and stuff, perhaps in a lazarus package like the gtk2
> one. And if not.. well we shall see. :)
>
I started a pascal output module for moc already some time ago but I
didn't finish it. I'll see if I can dig it out.
Ok, I digged it out, for an example output look below. As you may see, it needs some fixes. But the whole output is done in one file of 800 lines of C++. The conversion is done by a tool called kalyptus which comes with KDE3 and it is used to generate the C, Java, ObjC etc. wrappers as well. It generates C++ wrappers as well as an pascal import unit. If it looks suitable, I'll continue to get it working. For the interessted, kalyptus can be found in the kdebindings-3.X.X package.
{*************************************************************************** QButton.pas - description
-------------------
begin : Sun Aug 11 16:37:06 2002
copyright : (C) 2000-2001 Lost Highway Ltd. All rights reserved.
email :
generated by : on Sun Aug 11 16:37:06
2002, using kalyptus 0.9.
***************************************************************************}
{*************************************************************************** *
*
* This library is free software; you can redistribute it and/or modify *
* it under the terms of the GNU Library General Public License as *
* published by the Free Software Foundation; either version 2 of the *
* License, or (at your option) any later version. *
*
*
***************************************************************************}
unit QButton;
interface
uses qtp_types;
{*
***************************************************************************
* $Id: qt/qbuttongroup.h 3.0.3 edited Oct 12 12:18 $
*
* Definition of QButtonGroup class
*
* Created : 950130
*
* Copyright (C) 1992-2000 Trolltech AS. All rights reserved.
*
* This file is part of the widgets module of the Qt GUI Toolkit.
*
* This file may be distributed under the terms of the Q Public License
* as defined by Trolltech AS of Norway and appearing in the file
* LICENSE.QPL included in the packaging of this file.
*
* This file may be distributed and/or modified under the terms of the
* GNU General Public License version 2 as published by the Free Software
* Foundation and appearing in the file LICENSE.GPL included in the
* packaging of this file.
*
* Licensees holding valid Qt Enterprise Edition or Qt Professional Edition
* licenses may use this file in accordance with the Qt Commercial License
* Agreement provided with the Software.
*
* This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
* WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*
* See http://www.trolltech.com/pricing.html or email for
* information about Qt Commercial License Agreements.
* See http://www.trolltech.com/qpl/ for QPL licensing information.
* See http://www.trolltech.com/gpl/ for GPL licensing information.
* Contact if any conditions of this licensing are
* not clear to you.
*
********************************************************************
@short
***************************************************************************
* $Id: qt/qbuttongroup.
}
#define QBUTTON_SingleShot 0
#define QBUTTON_Toggle 1
#define QBUTTON_Tristate 2
#define QBUTTON_Off 0
#define QBUTTON_NoChange 1
#define QBUTTON_On 2
function QButton_metaObject(instPointer : PQButton) : PQMetaObject;
function QButton_className(instPointer : PQButton) : pchar;
function QButton_qt_cast(instPointer : PQButton; arg1 : pchar) : pointer;
function QButton_qt_invoke(instPointer : PQButton; arg1 : longint; arg2
: PQUObject) : longint;
function QButton_qt_emit(instPointer : PQButton; arg1 : longint; arg2 :
PQUObject) : longint;
function QButton_qt_property(instPointer : PQButton; arg1 : longint;
arg2 : longint; arg3 : PQVariant) : longint;
function QButton_qObject(instPointer : PQButton) : PQObject;
function new_QButton( parent : qt_QWidget *; name : pchar; f :
longint) : PQButton;cdecl;
procedure del_QButton(p : PQButton);cdecl;
function QButton_text(instPointer : PQButton) : PQString;
procedure QButton_setText(instPointer : PQButton;var arg1 : QString);
function QButton_pixmap(instPointer : PQButton) : PQPixmap;
procedure QButton_setPixmap(instPointer : PQButton; arg1 : qt_QPixmap *);
function QButton_accel(instPointer : PQButton) : qt_QKeySequence*;
procedure QButton_setAccel(instPointer : PQButton; arg1 : qt_QKeySequence*);
function QButton_isToggleButton(instPointer : PQButton) : longint;
function QButton_toggleType(instPointer : PQButton) : ToggleType;
procedure QButton_setDown(instPointer : PQButton; arg1 : longint);
function QButton_isDown(instPointer : PQButton) : longint;
function QButton_isOn(instPointer : PQButton) : longint;
function QButton_state(instPointer : PQButton) : ToggleState;
function QButton_autoResize(instPointer : PQButton) : longint;
procedure QButton_setAutoResize(instPointer : PQButton; arg1 : longint);
function QButton_autoRepeat(instPointer : PQButton) : longint;
procedure QButton_setAutoRepeat(instPointer : PQButton; arg1 : longint);
function QButton_isExclusiveToggle(instPointer : PQButton) : longint;
function QButton_group(instPointer : PQButton) : qt_QButtonGroup*;
procedure QButton_animateClick(instPointer : PQButton);
procedure QButton_toggle(instPointer : PQButton);
function QButton_staticMetaObject() : PQMetaObject;
function QButton_tr( arg1 : pchar; arg2 : pchar) : PQString;
function QButton_trUtf8( arg1 : pchar; arg2 : pchar) : PQString;
procedure QButton_setToggleButton(instPointer : PQButton; arg1 : longint);
procedure QButton_setToggleType(instPointer : PQButton; arg1 : ToggleType);
procedure QButton_setOn(instPointer : PQButton; arg1 : longint);
procedure QButton_setState(instPointer : PQButton; arg1 : ToggleState);
function QButton_hitButton(instPointer : PQButton; pos : qt_QPoint*) :
longint;
procedure QButton_drawButton(instPointer : PQButton; arg1 : qt_QPainter *);
procedure QButton_drawButtonLabel(instPointer : PQButton; arg1 :
qt_QPainter *);
procedure QButton_enabledChange(instPointer : PQButton; arg1 : longint);
