The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#include <qdialog.h>

suicidal virtual class QDialog : virtual QWidget {
    enum DialogCode {
	Rejected, Accepted
    };
    QDialog(QWidget * = 0, const char * = 0, bool = FALSE, WFlags = 0);
    virtual ~QDialog();
    int exec();
    void move(const QPoint &);
    virtual void move(int, int);
    void resize(const QSize &);
    virtual void resize(int, int);
    int result() const;
    void setGeometry(const QRect &);
    virtual void setGeometry(int, int, int, int);
    virtual void show();
protected:
    void accept() slot;
    virtual void closeEvent(QCloseEvent *);
    virtual void done(int) slot;
    virtual void keyPressEvent(QKeyEvent *);
    void reject() slot;
    void setResult(int);
} Qt::Dialog;