developer toolbox » harbour

hbqt¶

bringout@nmraka-2:~/devel/git/upstream/harbour/harbour/contrib/hbqt$ ls TQTextDoc* -l

-rw-r--r-- 1 bringout bringout 3199 2009-06-02 14:28 TQTextDocumentFragment.prg
-rw-r--r-- 1 bringout bringout 9446 2009-06-02 14:28 TQTextDocument.prg
-rw-r--r-- 1 bringout bringout 3809 2009-06-02 14:28 TQTextDocumentWriter.prg

možemo li napraviti odt dokument ?

Naša zamjena za file view ?

bringout@nmraka-2:~/devel/git/upstream/harbour/harbour/contrib/hbqt$ ls -l TQTextBrowser.prg

-rw-r--r-- 1 bringout bringout 4719 2009-06-02 14:28 TQTextBrowser.prg

nezgrapno rješeno c++ method overloading:

bringout@nmraka-2:~/devel/git/upstream/harbour/harbour/contrib/hbqt$ vi hbqt_qtextdocumentwriter.cpp

...

/*
 * bool write ( const QTextDocument * document )
 */
HB_FUNC( QT_QTEXTDOCUMENTWRITER_WRITE )
{
   hb_retl( hbqt_par_QTextDocumentWriter( 1 )->write( hbqt_par_QTextDocument( 2 ) ) );
}

/*
 * bool write ( const QTextDocumentFragment & fragment )
 */
HB_FUNC( QT_QTEXTDOCUMENTWRITER_WRITE_1 )
{
   hb_retl( hbqt_par_QTextDocumentWriter( 1 )->write( *hbqt_par_QTextDocumentFragment( 2 ) ) );
}

...

zašto ne ispita koji je tip parametra proslijeđen

inače

hbqt.h kaže:

..
#define hbqt_par_QTextDocument( n )          ( ( QTextDocument* ) hb_parptr( n ) )
#define hbqt_par_QTextDocumentFragment( n )  ( ( QTextDocumentFragment* ) hb_parptr( n ) )

...

zar ne može ispitati klasu koja je proslijeđena ?