X-Git-Url: https://git.siccegge.de//index.cgi?p=frida%2Ffrida.git;a=blobdiff_plain;f=src%2Fgui%2Fwidgets%2FScriptingDock.cxx;h=baf38c1d4493700c0d5f5ad0746f8d56a558c3e3;hp=ce00030473be583013b5fc2eac81a9dbd8ec2591;hb=788d2cf483ac868d2ce1e2007b578fc798853760;hpb=11fd69cdfce58707599bf57c07c5a784905e23f6;ds=sidebyside

diff --git a/src/gui/widgets/ScriptingDock.cxx b/src/gui/widgets/ScriptingDock.cxx
index ce00030..baf38c1 100644
--- a/src/gui/widgets/ScriptingDock.cxx
+++ b/src/gui/widgets/ScriptingDock.cxx
@@ -7,6 +7,27 @@ namespace {
 	}
 }
 
+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);
+}
+
+
 void ScriptingDock::doEvaluate() {
 	QString text = line->text();
 	line->clear();