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

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
+}