+namespace {
+ SCM handler (void*, SCM tag, SCM throw_args) {
+ scm_handle_by_message_noexit ((void*)"foo", tag, throw_args);
+ return SCM_BOOL_F;
+ }
+}
+
+ScriptingDock::ScriptingDock(const QString& title, QWidget * parent)
+ : QDockWidget(title, parent)
+ , logger(log4cxx::Logger::getLogger("ScriptingDock")) {
+ QTabWidget * tab = new QTabWidget;
+ QWidget * widget = new QWidget;
+ widget->setLayout(layout = new QGridLayout);
+ 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);
+ tab->addTab(widget, "GUILE");
+ ((QDockWidget*)this)->setWidget(tab);
+ 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);
+}
+
+