summaryrefslogtreecommitdiffstats
path: root/qtruby/bin
diff options
context:
space:
mode:
authortoma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2009-11-25 17:56:58 +0000
committertoma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2009-11-25 17:56:58 +0000
commit90825e2392b2d70e43c7a25b8a3752299a933894 (patch)
treee33aa27f02b74604afbfd0ea4f1cfca8833d882a /qtruby/bin
downloadtdebindings-90825e2392b2d70e43c7a25b8a3752299a933894.tar.gz
tdebindings-90825e2392b2d70e43c7a25b8a3752299a933894.zip
Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
BUG:215923 git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdebindings@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'qtruby/bin')
-rw-r--r--qtruby/bin/Makefile.am9
-rw-r--r--qtruby/bin/qtrubyinit.cpp29
-rwxr-xr-xqtruby/bin/rbqtapi103
-rwxr-xr-xqtruby/bin/rbqtsh627
4 files changed, 768 insertions, 0 deletions
diff --git a/qtruby/bin/Makefile.am b/qtruby/bin/Makefile.am
new file mode 100644
index 00000000..e53bd0fc
--- /dev/null
+++ b/qtruby/bin/Makefile.am
@@ -0,0 +1,9 @@
+INCLUDES = $(all_includes) -I$(RUBY_ARCHDIR)
+
+bin_PROGRAMS = qtrubyinit
+qtrubyinit_LDFLAGS = -module $(all_libraries) -version-info 0:0:0 -L$(top_srcdir)/smoke/qt/ -L$(RUBY_LIBDIR)
+qtrubyinit_METASOURCES = AUTO
+qtrubyinit_SOURCES = qtrubyinit.cpp
+qtrubyinit_LDADD = $(LIB_QT) $(RUBY_LIBRUBYARG) $(top_builddir)/smoke/qt/libsmokeqt.la $(top_builddir)/qtruby/rubylib/qtruby/libqtrubyinternal.la
+
+bin_SCRIPTS = rbqtapi rbqtsh
diff --git a/qtruby/bin/qtrubyinit.cpp b/qtruby/bin/qtrubyinit.cpp
new file mode 100644
index 00000000..2451e002
--- /dev/null
+++ b/qtruby/bin/qtrubyinit.cpp
@@ -0,0 +1,29 @@
+#include <ruby.h>
+
+/***************************************************************************
+qrubyinit - makes use of kdeinit_wrapper possible for ruby programs
+-------------------
+ begin : Wed Jan 7 2004
+ copyright : (C) 2004 by Alexander Kellett
+ email : lypanov@kde.org
+ ***************************************************************************/
+
+/***************************************************************************
+ * *
+ * 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. *
+ * *
+ ***************************************************************************/
+
+// this name can be used to allow apps
+// to detect what they were started with
+static const char* script_name = "qrubyinit_app";
+
+int main(int argc, char **argv) {
+ ruby_init();
+ ruby_script((char*)script_name);
+ ruby_options(argc, argv);
+ ruby_run();
+}
diff --git a/qtruby/bin/rbqtapi b/qtruby/bin/rbqtapi
new file mode 100755
index 00000000..30735b48
--- /dev/null
+++ b/qtruby/bin/rbqtapi
@@ -0,0 +1,103 @@
+#!/usr/bin/env ruby
+
+# Note: this program is part of qtruby and makes use of its internal functions.
+# You should not rely on those in your own programs.
+
+require 'getopts'
+getopts('r:hvimp')
+
+case File.basename $0
+when "rbqtapi"
+ require 'Qt'
+when "rbkdeapi"
+ require 'Korundum'
+end
+
+if $OPT_v
+ # TODO add and use version number #{Qt::VERSION}
+ print "qtruby using Qt-#{Qt::version}\n"
+ exit 0
+elsif $OPT_h
+ print $usage
+ exit 0
+end
+
+if $OPT_m
+ while 1
+ line = STDIN.readline.chomp
+ line.gsub!(/^Q(?=[A-Z])/,'Qt::')
+ line.gsub!(/^K/,'KDE::') unless line =~ /^(KDE)|(KIO)|(KParts)|(KNS)/
+ classid = Qt::Internal::find_pclassid($_)
+ puts "__START__"
+ if classid
+ a = Qt::Internal::findAllMethods(classid)
+ ids = (a.keys.sort.map{|k|a[k]}).flatten
+ candidates = Qt::dumpCandidates(ids)
+ sup = []
+ Qt::Internal::getAllParents(classid, sup)
+ sup.each {
+ |sup_item|
+ a = Qt::Internal::findAllMethods(sup_item)
+ ids = (a.keys.sort.map{|k|a[k]}).flatten
+ candidates << Qt::Internal::dumpCandidates(ids)
+ }
+ candidates.gsub("\t","") # erm. whats the "s" mean on s/\t//gs ?
+ print candidates
+ end
+ puts "__END__"
+ end
+end
+
+search_string = ARGV[0] ? ARGV[0].dup : nil
+search_string.gsub!(/^Q(?=[A-Z])/,'Qt::') if search_string
+# search_string.gsub!(/^K(?=[^D][^E])/,'KDE::') if search_string
+search_string.gsub!(/^K/,'KDE::') unless search_string.nil? or search_string =~ /^(KDE)|(KIO)|(KParts)|(KNS)/
+classid = search_string ? Qt::Internal::find_pclassid(search_string) : 1
+if classid == 0
+ puts "Class #{search_string} not found"
+ exit 1
+end
+regexp = nil
+regexp = ( $OPT_i ? Regexp.new($OPT_r, Regexp::IGNORECASE) : Regexp.new($OPT_r) ) if $OPT_r
+candidates = ""
+while true
+ a = Qt::Internal::findAllMethods(classid)
+ break if a.nil?
+ ids = (a.keys.sort.map{|k|a[k]}).flatten
+ candidates = Qt::Internal::dumpCandidates(ids)
+ if $OPT_p and !search_string.empty? and classid
+ sup = []
+ Qt::Internal::getAllParents(classid, sup)
+ sup.each {
+ |sup_item|
+ a = Qt::Internal::findAllMethods(sup_item)
+ ids = (a.keys.sort.map{|k|a[k]}).flatten
+ candidates << Qt::Internal::dumpCandidates(ids)
+ }
+ end
+ if regexp
+ candidates.split("\n").each {
+ |candidate|
+ puts candidate if candidate =~ regexp
+ }
+ else
+ print candidates
+ end
+ break unless search_string.nil?
+ classid += 1
+end
+
+BEGIN {
+$usage = <<USAGE
+rbqtapi - a qtruby introspection tool\t(c) Germain Garand 2003 <germain\@ebooksfrance.org>
+
+usage: rbqtapi [-r <re>] [<class>]
+
+options:
+\t-r <re> : find all functions matching regular expression/keyword <re>
+\t-i : together with -r, performs a case insensitive search
+\t-p : display also inherited methods for <class>.
+\t-v : print qtruby and Qt versions
+\t-h : print this help message
+USAGE
+}
diff --git a/qtruby/bin/rbqtsh b/qtruby/bin/rbqtsh
new file mode 100755
index 00000000..b9d8ee9e
--- /dev/null
+++ b/qtruby/bin/rbqtsh
@@ -0,0 +1,627 @@
+#!/usr/bin/env ruby
+
+# rbqtsh : a graphical shell for qtruby.
+#
+# author: Germain Garand <germain@ebooksfrance.org>
+# ruby port: Alexander Kellett <lypanov@kde.org>
+# license: GNU Public License v2
+#
+
+require 'stringio'
+
+case File.basename $0
+when "rbqtsh"
+ require 'Qt'
+when "rbkdesh"
+ require 'Korundum'
+end
+
+include Qt
+
+$image0_data =
+["22 22 7 1",
+". c None",
+"# c #000000",
+"b c #292c29",
+"c c #5a5d5a",
+"d c #838583",
+"e c #c5c2c5",
+"a c #ffffff",
+"......................",
+"....##########........",
+"....#aaaaaaa#b#.......",
+"....#aaaaaaa#cb#......",
+"....#aaaaaaa#dcb#.....",
+"....#aaaaaaa#edcb#....",
+"....#aaaaaaa#aedcb#...",
+"....#aaaaaaa#######...",
+"....#aaaaaaaaaaaaa#...",
+"....#aaaaaaaaaaaaa#...",
+"....#aaaaaaaaaaaaa#...",
+"....#aaaaaaaaaaaaa#...",
+"....#aaaaaaaaaaaaa#...",
+"....#aaaaaaaaaaaaa#...",
+"....#aaaaaaaaaaaaa#...",
+"....#aaaaaaaaaaaaa#...",
+"....#aaaaaaaaaaaaa#...",
+"....#aaaaaaaaaaaaa#...",
+"....#aaaaaaaaaaaaa#...",
+"....###############...",
+"......................",
+"......................"]
+
+$image1_data =
+["22 22 5 1",
+". c None",
+"# c #000000",
+"c c #838100",
+"a c #ffff00",
+"b c #ffffff",
+"......................",
+"......................",
+"......................",
+"............####....#.",
+"...........#....##.##.",
+"..................###.",
+".................####.",
+".####...........#####.",
+"#abab##########.......",
+"#babababababab#.......",
+"#ababababababa#.......",
+"#babababababab#.......",
+"#ababab###############",
+"#babab##cccccccccccc##",
+"#abab##cccccccccccc##.",
+"#bab##cccccccccccc##..",
+"#ab##cccccccccccc##...",
+"#b##cccccccccccc##....",
+"###cccccccccccc##.....",
+"##cccccccccccc##......",
+"###############.......",
+"......................"]
+
+$image2_data =
+["22 22 5 1",
+". c None",
+"# c #000000",
+"a c #838100",
+"b c #c5c2c5",
+"c c #cdb6d5",
+"......................",
+".####################.",
+".#aa#bbbbbbbbbbbb#bb#.",
+".#aa#bbbbbbbbbbbb#bb#.",
+".#aa#bbbbbbbbbcbb####.",
+".#aa#bbbccbbbbbbb#aa#.",
+".#aa#bbbccbbbbbbb#aa#.",
+".#aa#bbbbbbbbbbbb#aa#.",
+".#aa#bbbbbbbbbbbb#aa#.",
+".#aa#bbbbbbbbbbbb#aa#.",
+".#aa#bbbbbbbbbbbb#aa#.",
+".#aaa############aaa#.",
+".#aaaaaaaaaaaaaaaaaa#.",
+".#aaaaaaaaaaaaaaaaaa#.",
+".#aaa#############aa#.",
+".#aaa#########bbb#aa#.",
+".#aaa#########bbb#aa#.",
+".#aaa#########bbb#aa#.",
+".#aaa#########bbb#aa#.",
+".#aaa#########bbb#aa#.",
+"..##################..",
+"......................"]
+
+$image3_data =
+["22 22 88 2",
+"Qt c None",
+".2 c #000000",
+".S c #08ff08",
+"#v c #100810",
+".U c #101010",
+"#c c #101018",
+".M c #181018",
+"#e c #181818",
+".A c #181820",
+".L c #201820",
+"#l c #202020",
+".z c #202029",
+"#m c #292029",
+"#u c #292829",
+"#n c #292831",
+".R c #29ff29",
+"#o c #312831",
+".T c #313031",
+"#p c #313039",
+".Z c #31ff31",
+"#q c #393039",
+"#t c #393839",
+".y c #393841",
+"#s c #413841",
+".o c #414041",
+"#h c #4a4852",
+".n c #5a505a",
+"#r c #5a5962",
+".I c #5ace5a",
+"#b c #6a616a",
+".p c #6a696a",
+".x c #6a6973",
+".Y c #6aff62",
+".l c #736973",
+".t c #7b717b",
+".s c #7b7183",
+".0 c #7bff7b",
+".r c #837983",
+".u c #83798b",
+"#g c #83858b",
+".v c #8b7994",
+"#i c #8b858b",
+".w c #8b8594",
+"#j c #8b8d8b",
+".8 c #8b8d94",
+".m c #948d94",
+"#k c #948d9c",
+"#f c #949594",
+".q c #94959c",
+".J c #94c694",
+"#d c #9c959c",
+"#a c #9c95a4",
+".k c #9c9d9c",
+".N c #9c9da4",
+".H c #9ccea4",
+".K c #a49da4",
+"#. c #a49dac",
+".i c #a4a5a4",
+".3 c #a4a5ac",
+"## c #ac9dac",
+".V c #aca5ac",
+".d c #acaeac",
+".j c #acaeb4",
+".9 c #b4aeb4",
+".# c #b4b6b4",
+".a c #bdbebd",
+".7 c #bdd6bd",
+".c c #c5c6c5",
+".5 c #cdc6cd",
+".b c #cdcecd",
+".4 c #cdced5",
+".F c #d5ced5",
+".G c #d5cede",
+".h c #d5d6d5",
+".E c #d5d6de",
+".Q c #d5ffd5",
+".B c #ded6de",
+".1 c #ded6e6",
+".g c #dedede",
+".D c #dedee6",
+".6 c #e6dee6",
+".f c #e6e6e6",
+".C c #e6e6ee",
+".X c #e6ffe6",
+".O c #eee6ee",
+".e c #eeeeee",
+".W c #f6f6f6",
+".P c #ffffff",
+"QtQtQtQtQtQt.#.a.b.b.b.b.c.c.a.a.d.aQtQtQtQt",
+"QtQtQtQtQtQt.a.e.f.f.f.f.f.e.e.e.g.aQtQtQtQt",
+"QtQtQtQtQtQt.a.c.c.c.b.b.c.c.c.c.a.cQtQtQtQt",
+"QtQtQtQtQtQt.#.a.a.a.a.#.a.a.#.#.d.aQtQtQtQt",
+"QtQtQtQtQt.c.d.c.a.c.c.c.a.a.a.c.#QtQtQtQtQt",
+"QtQtQtQtQt.a.a.#.a.a.a.a.a.a.c.c.#QtQtQtQtQt",
+"QtQtQtQtQt.a.#.c.a.a.a.a.a.c.a.c.dQtQtQtQtQt",
+"QtQtQtQtQt.c.a.a.a.a.a.a.a.a.a.a.#QtQtQtQtQt",
+"QtQtQtQtQt.d.b.f.g.g.g.g.g.g.h.g.i.i.jQtQtQt",
+"QtQtQt.a.k.l.#.h.b.h.b.h.b.h.g.g.m.n.o.p.#Qt",
+"QtQt.a.q.r.s.t.t.t.t.t.t.t.u.v.w.x.y.z.A.o.i",
+"Qt.a.k.B.C.D.B.E.E.E.E.F.G.H.I.J.K.o.L.L.M.y",
+".a.N.O.P.P.P.P.P.P.P.P.P.Q.R.S.R.b.v.T.A.U.L",
+".V.W.P.P.P.P.P.P.P.P.P.P.X.Y.Z.0.P.1.t.A.2.L",
+".3.E.4.5.4.h.E.E.g.6.D.B.D.E.7.F.4.5.8.M.2.A",
+".m.9.j.V.3#..3.K#.#..i#..K#.###a.q.8#b#c.2.L",
+".m.j.j#..3.K.K.K.N.K.N.N.N.N#a#d#d.w#b#c.2#e",
+"#f#.#..K.N.K.N.N.N#a.k#a#d#d#d#a.m#g#b.M.2#h",
+".m.3.K.K#a.k#a#d#a.k#a#d#a#d.q.m.8#i.x#c#e.d",
+"#f#g#i.w#j.w#i.8.w#i.8.8.m.8.m#k.8.w#b#e#fQt",
+".#.l.z.A#l.z#m#m#m#n#o#o#p#p#q#q#p#o#p#fQtQt",
+"QtQt.d#r#s#s#t#p.T.T.T#u#u.z#e#e#v.o.kQtQtQt"]
+
+
+class QtShellControl < Qt::MainWindow
+ attr_accessor :menubar, :fileMenu, :helpMenu, :toolBar, :fileName, :fileOpenAction
+ attr_accessor :fileSaveAction, :fileSaveAsAction, :filePrintAction, :fileExitAction
+ attr_accessor :helpExampleAction, :comboBox, :sessionLog, :executedLines, :printer
+ slots 'fileOpen()', 'fileOpen()', 'fileSave()', 'fileSaveAs()'
+ slots 'filePrint()', 'fileExit()', 'runSelection()', 'helpExample()'
+ signals 'fileNeedsEval(QString)', 'selection(QString)'
+
+ def initialize(*k)
+ super(*k)
+ image0 = Qt::Pixmap.new($image0_data)
+ image1 = Qt::Pixmap.new($image1_data)
+ image2 = Qt::Pixmap.new($image2_data)
+ image3 = Qt::Pixmap.new($image3_data)
+ box = VBox.new(self)
+ @sessionLog = TextEdit.new(box, "sessionLog")
+ @sessionLog.setTextFormat(Qt::RichText)
+ @sessionLog.setReadOnly(true)
+ @comboBox = ComboBox.new(box, "comboBox")
+ @comboBox.setEditable(true)
+ @comboBox.setAutoCompletion(true)
+ self.setCentralWidget(box)
+ @comboBox.setFocus
+ self.resize(500,300)
+ self.setCaption("QtRuby Shell")
+ def trUtf8(k)
+ return k
+ end
+ @fileOpenAction = Qt::Action.new(self, "fileOpenAction")
+ @fileOpenAction.setIconSet(Qt::IconSet.new(image1))
+ @fileOpenAction.setText(trUtf8("Open"))
+ @fileOpenAction.setMenuText(trUtf8("&Open..."))
+ @fileOpenAction.setAccel(KeySequence.new(trUtf8("Ctrl+O")))
+ @fileSaveAction = Qt::Action.new(self, "fileSaveAction")
+ @fileSaveAction.setIconSet(Qt::IconSet.new(image2))
+ @fileSaveAction.setText(trUtf8("Save"))
+ @fileSaveAction.setMenuText(trUtf8("&Save"))
+ @fileSaveAction.setAccel(KeySequence.new(trUtf8("Ctrl+S")))
+ @fileSaveAsAction = Qt::Action.new(self, "fileSaveAsAction")
+ @fileSaveAsAction.setText(trUtf8("Save As"))
+ @fileSaveAsAction.setMenuText(trUtf8("Save &As..."))
+ @fileSaveAsAction.setAccel(KeySequence.new(trUtf8("Ctrl+A")))
+ @filePrintAction = Qt::Action.new(self, "filePrintAction")
+ @filePrintAction.setIconSet(Qt::IconSet.new(image3))
+ @filePrintAction.setText(trUtf8("Print"))
+ @filePrintAction.setMenuText(trUtf8("&Print..."))
+ @filePrintAction.setAccel(KeySequence.new(trUtf8("Ctrl+P")))
+ @fileExitAction = Qt::Action.new(self, "fileExitAction")
+ @fileExitAction.setText(trUtf8("Exit"))
+ @fileExitAction.setMenuText(trUtf8("E&xit"))
+ @fileExitAction.setAccel(KeySequence.new(trUtf8("Ctrl+E")))
+
+ @runAction = Qt::Action.new(self, "runAction");
+ @runAction.setText(trUtf8("Run Selection"));
+ @runAction.setMenuText(trUtf8("&Run Selection"));
+ @runAction.setAccel(KeySequence.new(trUtf8("Ctrl+R")));
+
+ @helpExampleAction = Qt::Action.new(self, "helpExampleAction");
+ @helpExampleAction.setText(trUtf8("Example"));
+ @helpExampleAction.setMenuText(trUtf8("Examp&le"));
+ @helpExampleAction.setAccel(KeySequence.new(trUtf8("Ctrl+L")));
+
+ @toolBar = Qt::ToolBar.new("", self, DockTop)
+ @toolBar.setLabel(trUtf8("Tools"))
+
+ @fileOpenAction.addTo(toolBar)
+ @fileSaveAction.addTo(toolBar)
+ @filePrintAction.addTo(toolBar)
+
+ @menubar= Qt::MenuBar.new(self, "menubar")
+
+ @fileMenu= Qt::PopupMenu.new(self)
+ @fileOpenAction.addTo(fileMenu)
+ @fileSaveAction.addTo(fileMenu)
+ @fileSaveAsAction.addTo(fileMenu)
+ @fileMenu.insertSeparator
+ @filePrintAction.addTo(fileMenu)
+ @fileMenu.insertSeparator
+ @fileExitAction.addTo(fileMenu)
+ @menubar.insertItem(trUtf8("&File"), fileMenu)
+
+ @menubar.insertSeparator
+
+ @runMenu= Qt::PopupMenu.new(self)
+ @runAction.addTo(@runMenu)
+ @menubar.insertItem(trUtf8("Run"), @runMenu)
+
+ @menubar.insertSeparator
+
+ @helpMenu= Qt::PopupMenu.new(self)
+ @helpExampleAction.addTo(helpMenu)
+ @menubar.insertItem(trUtf8("&Help"), helpMenu)
+
+ connect(@fileOpenAction, SIGNAL('activated()'), self, SLOT('fileOpen()'))
+ connect(@fileSaveAction, SIGNAL('activated()'), self, SLOT('fileSave()'))
+ connect(@fileSaveAsAction, SIGNAL('activated()'), self, SLOT('fileSaveAs()'))
+ connect(@filePrintAction, SIGNAL('activated()'), self, SLOT('filePrint()'))
+ connect(@fileExitAction, SIGNAL('activated()'), self, SLOT('fileExit()'))
+ connect(@runAction, SIGNAL('activated()'), self, SLOT('runSelection()'))
+ connect(@helpExampleAction, SIGNAL('activated()'), self, SLOT('helpExample()'))
+
+ @executedLines = []
+ end
+
+ def fileOpen
+ fname = Qt::FileDialog::getOpenFileName(
+ ".",
+ "Rbqtsh Session (*.rbqts)",
+ self,
+ "open session",
+ "Choose a file to open")
+ return if fname.nil?
+ emit fileNeedsEval(fname)
+ end
+
+ def getFileName
+ @fileName = Qt::FileDialog::getSaveFileName(
+ ".",
+ "Rbqtsh Session (*.rbqts)",
+ self,
+ "save session",
+ "Choose a filename" )
+ unless @fileName =~ /\.rbqts$/
+ @fileName << ".rbqts"
+ end
+ @fileName
+ end
+
+ def save(fname)
+ file = File.new(fname, "w")
+ if file.nil
+ # TODO fix ": unknown" to give a reason
+ Qt::MessageBox::critical(
+ self,
+ "Error" ,
+ "Couldn't open #{fname} for writing: unknown",
+ Qt::MessageBox::Ok,
+ Qt::MessageBox::NoButton )
+ return
+ end
+ @executedLines.each {
+ |line|
+ next if line =~ /^\s*$/
+ line.chomp!
+ line << ";" unless line =~ /;\s*$/
+ file.puts(line)
+ }
+ file.close
+ end
+
+ def fileSave
+ return if emptySession
+ fname = @fileName || getFileName
+ return if fname.nil?
+ save fname
+ end
+
+ def fileSaveAs(cond = 0)
+ return if emptySession
+ fname = getFileName
+ return if fname.nil?
+ ret = nil
+ if File.exists(fname)
+ cond += 1
+ ret = Qt::MessageBox::warning(
+ self,
+ "Warning" ,
+ "File exists, overwrite ?",
+ Qt::MessageBox::Yes,
+ Qt::MessageBox::No )
+ else
+ cond = 0
+ end
+ fileSaveAs(cond) if (cond == 0) and ret == Qt::MessageBox::No
+ save(fname)
+ end
+
+ def filePrint()
+ margin = 10
+ pageNo = 1
+ emptySession() and return
+ printer = Qt::Printer.new()
+ if printer.setup(self)
+ statusBar().message( "Printing..." )
+ p = Qt::Painter.new()
+ if ! p.begin( printer )
+ statusBar().message( "An error occured..." )
+ return
+ end
+
+ p.setFont( sessionLog.font() )
+ yPos = 0
+ fm = p.fontMetrics
+ metrics = Qt::PaintDeviceMetrics.new( printer )
+
+ for i in 0..@executedLines.length-1
+ if margin + yPos > metrics.height() - margin
+ msg ="Printing (page "+ ++pageNo + ")..."
+ statusBar().message( msg )
+ printer.newPage()
+ yPos = 0
+ end
+ p.drawText( margin, margin + yPos,
+ metrics.width(), fm.lineSpacing(),
+ ExpandTabs | DontClip,
+ "#{@executedLines[ i ]}" )
+ yPos = yPos + fm.lineSpacing()
+ end
+ p.end()
+ statusBar().message( "Printing completed", 3000 )
+ else
+ statusBar().message( "Printing aborted", 3000 )
+ end
+ end
+
+ def fileExit
+ emit $qApp.quit if confirmExit
+ end
+
+ def closeEvent(e)
+ if confirmExit
+ e.accept
+ else
+ e.ignore
+ end
+ end
+
+ def confirmExit
+ ret = 0
+ return true if @executedLines.empty?
+ ret = Qt::MessageBox::warning(
+ self,
+ "Warning" ,
+ "A session is opened, quit anyway ?",
+ Qt::MessageBox::Yes,
+ Qt::MessageBox::No)
+ return ret != Qt::MessageBox::No
+ end
+
+ def emptySession
+ empty = @executedLines.empty?
+ statusBar.message("Session is empty...", 3000) if empty
+ empty
+ end
+
+ def runSelection
+ emit selection(@sessionLog.selectedText())
+ end
+
+ def helpExample
+ emit fileNeedsEval("__DATA__")
+ end
+
+end
+
+class QtShell < Qt::MainWindow
+ slots 'evalInput()', 'evalFile(QString)', 'evalSelection(QString)'
+ attr_accessor :shellWindow
+ @@binding = binding
+def bind
+@@binding
+end
+
+def initialize(*k)
+ super(*k)
+
+ @shellWindow = QtShellControl.new(nil, "shellWindow")
+ self.resize(350,350)
+ self.move(Point.new(10,10))
+ @shellWindow.move(Point.new(300,200))
+ self.show
+ @shellWindow.show
+
+ connect(@shellWindow.comboBox.lineEdit, SIGNAL('returnPressed()'), self, SLOT('evalInput()'))
+
+ @prompt = '<b><font color="blue">$&gt;</font></b>'
+ self.setCaption("MainWindow - this")
+ @shellWindow.sessionLog.setText("Ready.<br>")
+ connect(@shellWindow, SIGNAL('fileNeedsEval(QString)'), self, SLOT('evalFile(QString)'))
+ connect(@shellWindow, SIGNAL('selection(QString)'), self, SLOT('evalSelection(QString)'))
+end
+
+def logAppend(str)
+ tmp = @shellWindow.sessionLog.text << str
+ @shellWindow.sessionLog.setText tmp
+end
+
+def evalInput
+ evalOneLine @shellWindow.comboBox.currentText
+end
+
+=begin
+
+sub TIEHANDLE { my ( $classnm, $widg, $color) = @_;
+ my $h = { widg => $widg, color => $color};
+ bless $h, $classnm;
+}
+
+sub PRINT {
+ my $me = shift;
+ my $color = $me->{color};
+ my $printed = join $/, @_;
+ $printed =~ s/</&lt;/gs;
+ $printed =~ s/>/&gt;/gs;
+ $printed =~ s/\n/<br>/gs;
+ $me->{widg}->setText( $me->{widg}->text . "<font color=\"$color\">$printed</font>" );
+}
+
+#tie *STDOUT, 'Qt::TextHandle', $shw->sessionLog, 'black';
+#tie *STDERR, 'Qt::TextHandle', $shw->sessionLog, 'red';
+
+=end
+
+def evalOneLine(line)
+ prot = ln = line
+ prot.gsub('<', '&lt;') # /gs ???
+ prot.gsub('>', '&gt;') # /gs ???
+
+ logAppend( "#{@prompt}#{prot}" )
+
+ ostdout, ostderr = $stdout, $stderr
+ strio = StringIO.new
+ $stdout, $stderr = strio, strio
+ begin
+ if line =~ /^\$(.*)$/
+ eval $1, bind
+ else
+ eval line
+ end
+ rescue StandardError, ScriptError => e
+ prot = e.to_str
+ prot.gsub(/</, '&lt;') # /gs ???
+ prot.gsub(/>/, '&gt;') # /gs ???
+ c = @shellWindow.sessionLog.color
+ prot.gsub(/\n/, '<br>') # /gs ???
+ logAppend '<font color="red">' << prot << '</font><br>'
+ shellWindow.sessionLog.setColor c
+ end
+ logAppend '<font color="blue">' << strio.string << '</font><br>'
+ @shellWindow.executedLines << line
+ @shellWindow.comboBox.clearEdit
+ @shellWindow.comboBox.setFocus
+ $stdout, $stderr = ostdout, ostderr
+
+ @shellWindow.sessionLog.scrollToBottom
+end
+
+def evalFile(fname)
+ if fname == "__DATA__"
+ file = StringIO.new
+ file.string = $example
+ else
+ file = File.open(fname, "r")
+ if file.nil?
+ # TODO use $! -> error message!
+ Qt::MessageBox::warning(
+ self,
+ "Error" ,
+ "Couldn't open @{$fn}: $!",
+ Qt::MessageBox::Ok,
+ Qt::MessageBox::NoButton)
+ return
+ end
+ indata = file
+ end
+ file.each_line {
+ |line|
+ evalOneLine(line)
+ }
+ file.close
+end
+
+def evalSelection(selection)
+ evalOneLine(selection.sub(/.*span>/, "")) unless selection.nil?
+end
+
+end
+
+app = Qt::Application.new(ARGV)
+w = QtShell.new(nil, "mainWindow")
+app.setMainWidget(w.shellWindow)
+app.exec
+
+BEGIN {
+$example = <<EXAMPLE
+$ attr_accessor :datetime, :button, :textedit, :sample, :vbox
+statusBar.message("Hello World !")
+@vbox = VBox.new(self)
+@datetime = DateTimeEdit.new(vbox)
+@textedit = TextEdit.new(vbox)
+@button = PushButton.new("Hello World!", vbox)
+self.setCentralWidget(vbox)
+self.resize(220,240)
+@vbox.show
+@sample = Qt::PopupMenu.new(self)
+$ slots 'there()'
+@sample.insertItem("&There", self, SLOT('there()'))
+self.menuBar.insertItem("&Here", sample)
+$ def there; statusBar.message("There...", 2000); end
+EXAMPLE
+}