examples/nci/PQt.cpp

   1 /*
   2
   3 # Copyright (C) 2001-2003, Parrot Foundation.
   4 # $Id$
   5
   6 =head1 NAME
   7
   8 examples/nci/PQt.cpp - Qt/Parrot Library
   9
  10 =head1 SYNOPSIS
  11
  12 Compile with:
  13
  14 *NIX:
  15
  16     $ g++ -fPIC -I$QTDIR/include -I$QTDIR/include/QtGui -L$QTDIR -c PQt.cpp
  17
  18     $ gcc -shared -o libPQt.so PQt.o $QTDIR/lib/libQtCore4.so $QTDIR/lib/libQtGui4.so
  19
  20 Windows:
  21
  22     > "%VS90COMNTOOLS%\vsvars32.bat"
  23
  24     > set INCLUDE=%QTDIR%\include;%QTDIR%\include\QtGui;%INCLUDE%
  25
  26     > set LIB=%QTDIR%\lib;%LIB%
  27
  28     > cl /LD PQt.cpp QtGui4.lib QtCore4.lib
  29
  30 Or something like that...
  31
  32 =head1 DESCRIPTION
  33
  34 Qt Native interface for Parrot. See F<examples/nci/QtHelloWorld.pir>
  35 for more information.
  36
  37 =cut
  38
  39 */
  40
  41 #ifdef _WIN32
  42   #define PQT_API __declspec(dllexport)
  43 #else
  44   #define PQT_API
  45 #endif
  46
  47 #include <QtGui>
  48 extern "C" {
  49
  50 PQT_API QApplication * pApp;
  51
  52 /*
  53
  54 =head2 QApplication bindings
  55
  56 =over 4
  57
  58 =item C<QApplication *QApplication_new(void)>
  59
  60 =cut
  61
  62 */
  63 PQT_API QApplication *QApplication_new(void) {
  64     int PQtargc = 0;
  65     char *PQtargv[2];
  66     PQtargv[0] = "";
  67     PQtargv[1] = NULL;
  68     pApp = new QApplication(PQtargc, PQtargv);
  69     return pApp;
  70 }
  71
  72 /*
  73
  74 =item C<void QApplication_exec(QApplication *app)>
  75
  76 =cut
  77
  78 */
  79
  80 PQT_API void QApplication_exec(QApplication *app)
  81 {
  82     app->exec();
  83 }
  84
  85 /*
  86
  87 =back
  88
  89 =head2 QLabel bindings
  90
  91 =over 4
  92
  93 =item C<QLabel * QLabel_new(const char *txt)>
  94
  95 =cut
  96
  97 */
  98
  99 PQT_API QLabel * QLabel_new(const char *txt)
 100 {
 101     QLabel * pLabel = new QLabel(txt, 0);
 102     return pLabel;
 103 }
 104
 105 /*
 106
 107 =item C<void QLabel_show(QLabel *label)>
 108
 109 =cut
 110
 111 */
 112
 113 PQT_API void QLabel_show(QLabel *label)
 114 {
 115     label->show();
 116 }
 117
 118 /*
 119
 120 =item C<void QLabel_resize(QLabel *label, int x, int y)>
 121
 122 =cut
 123
 124 */
 125
 126 PQT_API void QLabel_resize(QLabel *label, int x, int y)
 127 {
 128     label->resize(x, y);
 129 }
 130
 131 }
 132
 133 /*
 134
 135 =back
 136
 137 =head1 SEE ALSO
 138
 139 F<examples/nci/QtHelloWorld.pir>,
 140 F<docs/pdds/pdd03_calling_conventions.pod>.
 141
 142 =cut
 143
 144 */
 145
 146 /*
 147  * Local variables:
 148  *   c-file-style: "parrot"
 149  * End:
 150  * vim: expandtab shiftwidth=4:
 151  */