- ScriptingDock(const QString& title, QWidget * parent = 0)
- : logger(log4cxx::Logger::getLogger("ScriptingDock")) {
- QDockWidget(title, parent);
- QWidget * widget = new QWidget;
- widget->setLayout(layout = new QGridLayout(this));
- layout->addWidget(browser = new QTextBrowser, 0, 0, 1, 0);
- layout->addWidget(line = new QLineEdit, 1, 0);
- layout->addWidget(button = new QPushButton(tr("Evaluate")), 1, 1);
- setWidget(widget);
- connect(button, SIGNAL(released()), this, SLOT(doEvaluate()));
- connect(line, SIGNAL(returnPressed()), this, SLOT(doEvaluate()));
- scm_init_guile();
- guile_output_port = scm_open_output_string();
- guile_error_port = scm_open_output_string();
- scm_set_current_output_port(guile_output_port);
- scm_set_current_error_port(guile_error_port);
- }