commands.cpp

qconsole2 qt寫的一個console元件

/***************************************************************************
commands.cpp  -  description
-------------------
begin                : lun jun 27 2005
copyright            : (C) 2005 by houssem
email                : houssem@localhost
***************************************************************************/

/***************************************************************************
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 ***************************************************************************/

#include "commands.h"
#include <qstringlist.h>
#include <qmessagebox.h>

//Global callback function that implements the msgbox command
int CallQMessageBox( ClientData, Tcl_Interp* interp, int argc, char *argv[])
{
    // Reset result data
    Tcl_ResetResult(interp);

    //Help message in case of wrong parameters
    if (argc != 3)
    {
        Tcl_AppendResult(interp, "Usage: msgbox title text\n", (char*) NULL);
        return TCL_ERROR;
    }

    //calls the messagebox with the parameters
    int result = QMessageBox::warning(0, argv[1] , argv[2], QMessageBox::Yes,
        QMessageBox::No, QMessageBox::Cancel);

    //displays the return value
    Tcl_AppendResult(interp, QString("QMessageBox exited with result: %1\n").arg(result).ascii(), (char*) NULL);

    return TCL_OK;
}