qtruby4 2.1.0.b-mswin32 → 2.1.0-mswin32

data/examples/xml/saxbookmarks/main.rb

@@ -0,0 +1,34 @@
+=begin
+**
+** Copyright (C) 2004-2005 Trolltech AS. All rights reserved.
+**
+** This file is part of the example classes of the Qt Toolkit.
+**
+** This file may be used under the terms of the GNU General Public
+** License version 2.0 as published by the Free Software Foundation
+** and appearing in the file LICENSE.GPL included in the packaging of
+** this file.  Please review the following information to ensure GNU
+** General Public Licensing requirements will be met:
+** http://www.trolltech.com/products/qt/opensource.html
+**
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://www.trolltech.com/products/qt/licensing.html or contact the
+** sales department at sales@trolltech.com.
+**
+** This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+** WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+**
+
+** Translated to QtRuby by Richard Dale
+=end
+
+require 'Qt'
+require 'mainwindow.rb'
+
+$KCODE = 'u'
+
+app = Qt::Application.new(ARGV)
+mainWin = MainWindow.new
+mainWin.show
+app.exec

data/examples/xml/saxbookmarks/mainwindow.rb

@@ -0,0 +1,144 @@
+=begin
+**
+** Copyright (C) 2004-2005 Trolltech AS. All rights reserved.
+**
+** This file is part of the example classes of the Qt Toolkit.
+**
+** This file may be used under the terms of the GNU General Public
+** License version 2.0 as published by the Free Software Foundation
+** and appearing in the file LICENSE.GPL included in the packaging of
+** this file.  Please review the following information to ensure GNU
+** General Public Licensing requirements will be met:
+** http://www.trolltech.com/products/qt/opensource.html
+**
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://www.trolltech.com/products/qt/licensing.html or contact the
+** sales department at sales@trolltech.com.
+**
+** This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+** WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+**
+
+** Translated to QtRuby by Richard Dale
+=end
+	
+require 'xbelhandler.rb'
+	
+class MainWindow < Qt::MainWindow
+		
+	slots :open, :saveAs, :about
+	
+	def initialize(parent = nil)
+		super(parent)
+	    labels = []
+	    labels << tr("Title") << tr("Location")
+	
+	    @treeWidget = Qt::TreeWidget.new
+	    @treeWidget.header().resizeMode = Qt::HeaderView::Stretch
+	    @treeWidget.headerLabels = labels
+	    setCentralWidget(@treeWidget)
+	
+	    createActions()
+	    createMenus()
+	
+	    statusBar().showMessage(tr("Ready"))
+	
+	    setWindowTitle(tr("SAX Bookmarks"))
+	    resize(480, 320)
+	end
+	
+	def open()
+	    fileName =
+	            Qt::FileDialog.getOpenFileName(self, tr("Open Bookmark File"),
+	                                         Qt::Dir.currentPath(),
+	                                         tr("XBEL Files (*.xbel *.xml)"))
+	    if fileName.nil?
+	        return
+		end
+	
+	    @treeWidget.clear()
+	
+	    handler = XbelHandler.new(@treeWidget)
+	    reader = Qt::XmlSimpleReader.new
+	    reader.contentHandler = handler
+	    reader.errorHandler = handler
+	
+	    file = Qt::File.new(fileName)
+	    if !file.open(Qt::File::ReadOnly | Qt::File::Text)
+	        Qt::MessageBox.warning(self, tr("SAX Bookmarks"),
+	                             tr("Cannot read file %s:\n%s." %
+	                             [fileName, file.errorString]))
+	        return
+	    end
+	
+	    xmlInputSource = Qt::XmlInputSource.new(file)
+	    if reader.parse(xmlInputSource, false)
+	        statusBar().showMessage(tr("File loaded"), 2000)
+		end
+	end
+	
+	def saveAs()
+	    fileName =
+	            Qt::FileDialog::getSaveFileName(self, tr("Save Bookmark File"),
+	                                         Qt::Dir.currentPath(),
+	                                         tr("XBEL Files (*.xbel *.xml)"))
+	    if fileName.nil?
+	        return
+		end
+	
+	    file = Qt::File.new(fileName)
+	    if !file.open(Qt::File::WriteOnly | Qt::File::Text.to_i)
+	        Qt::MessageBox.warning(self, tr("SAX Bookmarks"),
+	                             tr("Cannot write file %s:\n%s." %
+	                             [fileName, file.errorString]))
+	        return
+	    end
+	
+	    generator = XbelGenerator.new(@treeWidget)
+	    if generator.write(file)
+	        statusBar().showMessage(tr("File saved"), 2000)
+		end
+		file.close
+	end
+	
+	def about()
+	   Qt::MessageBox.about(self, tr("About SAX Bookmarks"),
+	            tr("The <b>SAX Bookmarks</b> example demonstrates how to use Qt's " \
+	               "SAX classes to read XML documents and how to generate XML by " \
+	               "hand."))
+	end
+	
+	def createActions()
+	    @openAct = Qt::Action.new(tr("&Open..."), self)
+	    @openAct.shortcut = Qt::KeySequence.new( tr("Ctrl+O"))
+	    connect(@openAct, SIGNAL(:triggered), self, SLOT(:open))
+	
+	    @saveAsAct = Qt::Action.new(tr("&Save As..."), self)
+	    @saveAsAct.shortcut = Qt::KeySequence.new( tr("Ctrl+S"))
+	    connect(@saveAsAct, SIGNAL(:triggered), self, SLOT(:saveAs))
+	
+	    @exitAct = Qt::Action.new(tr("E&xit"), self)
+	    @exitAct.shortcut = Qt::KeySequence.new( tr("Ctrl+Q"))
+	    connect(@exitAct, SIGNAL(:triggered), self, SLOT(:close))
+	
+	    @aboutAct = Qt::Action.new(tr("&About"), self)
+	    connect(@aboutAct, SIGNAL(:triggered), self, SLOT(:about))
+	
+	    @aboutQtAct = Qt::Action.new(tr("About &Qt"), self)
+	    connect(@aboutQtAct, SIGNAL(:triggered), $qApp, SLOT(:aboutQt))
+	end
+	
+	def createMenus()
+	    @fileMenu = menuBar.addMenu(tr("&File"))
+	    @fileMenu.addAction(@openAct)
+	    @fileMenu.addAction(@saveAsAct)
+	    @fileMenu.addAction(@exitAct)
+	
+	    menuBar().addSeparator()
+	
+	    @helpMenu = menuBar.addMenu(tr("&Help"))
+	    @helpMenu.addAction(@aboutAct)
+	    @helpMenu.addAction(@aboutQtAct)	
+	end
+end

data/examples/xml/saxbookmarks/xbelgenerator.rb

@@ -0,0 +1,95 @@
+=begin
+**
+** Copyright (C) 2004-2005 Trolltech AS. All rights reserved.
+**
+** This file is part of the example classes of the Qt Toolkit.
+**
+** This file may be used under the terms of the GNU General Public
+** License version 2.0 as published by the Free Software Foundation
+** and appearing in the file LICENSE.GPL included in the packaging of
+** this file.  Please review the following information to ensure GNU
+** General Public Licensing requirements will be met:
+** http://www.trolltech.com/products/qt/opensource.html
+**
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://www.trolltech.com/products/qt/licensing.html or contact the
+** sales department at sales@trolltech.com.
+**
+** This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+** WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+**
+
+** Translated to QtRuby by Richard Dale
+=end
+	
+		
+class XbelGenerator
+	IndentSize = 4
+	
+	def initialize(treeWidget)
+	    @treeWidget = treeWidget
+		@outf = Qt::TextStream.new
+	end
+	
+	def write(device)
+	    @outf.device = device
+	    @outf.codec = "UTF-8"
+	    @outf << "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" <<
+	        "<!DOCTYPE xbel>\n" <<
+	        "<xbel version=\"1.0\">\n"
+		
+		for i in 0...@treeWidget.topLevelItemCount()
+	        generateItem(@treeWidget.topLevelItem(i), 1)
+		end
+	
+	    @outf << "</xbel>\n"
+	    return true
+	end
+	
+	def indent(depth)
+	    return " " * (IndentSize * depth)
+	end
+	
+	def escapedText(str)
+	    result = str
+	    result.gsub!("&", "&amp;")
+	    result.gsub!("<", "&lt;")
+	    result.gsub!(">", "&gt;")
+	    return result
+	end
+	
+	def escapedAttribute(str)
+	    result = escapedText(str)
+	    result.gsub!("\"", "&quot;")
+	    return '"' + result + '"'
+	end
+	
+	def generateItem(item, depth)
+	    tagName = item.data(0, Qt::UserRole).toString()
+	    if tagName == "folder"
+	        folded = !@treeWidget.isItemExpanded(item)
+	        @outf << indent(depth) << "<folder folded=\"" << (folded ? "yes" : "no") <<
+	                             "\">\n" <<
+	            indent(depth + 1) << "<title>" << escapedText(item.text(0)) <<
+	                                 "</title>\n"
+	
+			for i in 0...item.childCount()
+	            generateItem(item.child(i), depth + 1)
+			end
+	
+	        @outf << indent(depth) << "</folder>\n"
+	    elsif tagName == "bookmark"
+	        @outf << indent(depth) << "<bookmark"
+	        if !item.text(1).empty?
+	            @outf << " href=" << escapedAttribute(item.text(1))
+			end
+	        @outf << ">\n" <<
+	            indent(depth + 1) << "<title>" << escapedText(item.text(0)) <<
+	                                 "</title>\n" <<
+	            indent(depth) << "</bookmark>\n"
+	    elsif tagName == "separator"
+	        @outf << indent(depth) << "<separator/>\n"
+	    end
+	end
+end

data/examples/xml/saxbookmarks/xbelhandler.rb

@@ -0,0 +1,122 @@
+=begin
+**
+** Copyright (C) 2004-2005 Trolltech AS. All rights reserved.
+**
+** This file is part of the example classes of the Qt Toolkit.
+**
+** This file may be used under the terms of the GNU General Public
+** License version 2.0 as published by the Free Software Foundation
+** and appearing in the file LICENSE.GPL included in the packaging of
+** this file.  Please review the following information to ensure GNU
+** General Public Licensing requirements will be met:
+** http://www.trolltech.com/products/qt/opensource.html
+**
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://www.trolltech.com/products/qt/licensing.html or contact the
+** sales department at sales@trolltech.com.
+**
+** This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+** WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+**
+
+** Translated to QtRuby by Richard Dale
+=end
+		
+require 'xbelgenerator.rb'
+
+class XbelHandler < Qt::XmlDefaultHandler
+	
+	def initialize(treeWidget)
+	    super()
+		@treeWidget = treeWidget
+	    @item = nil
+	    @metXbelTag = false
+		@currentText = ""
+	
+	    style = @treeWidget.style()
+	
+		@folderIcon = Qt::Icon.new
+	    @folderIcon.addPixmap(style.standardPixmap(Qt::Style::SP_DirClosedIcon),
+	                         Qt::Icon::Normal, Qt::Icon::Off)
+	    @folderIcon.addPixmap(style.standardPixmap(Qt::Style::SP_DirOpenIcon),
+	                         Qt::Icon::Normal, Qt::Icon::On)
+		@bookmarkIcon = Qt::Icon.new
+	    @bookmarkIcon.addPixmap(style.standardPixmap(Qt::Style::SP_FileIcon))
+	end
+	
+	def startElement(namespaceURI, localName, qName, attributes)
+	    if !@metXbelTag && qName != "xbel"
+	        @errorStr = Qt::Object.tr("The file is not an XBEL file.")
+	        return false
+	    end
+	
+	    if qName == "xbel"
+	        version = attributes.value("version")
+	        if !version.empty? && version != "1.0"
+	            @errorStr = Qt::Object.tr("The file is not an XBEL version 1.0 file.")
+	            return false
+	        end
+	        @metXbelTag = true
+	    elsif qName == "folder"
+	        @item = createChildItem(qName)
+	        @item.flags = @item.flags | Qt::ItemIsEditable.to_i
+	        @item.setIcon(0, @folderIcon)
+	        @item.setText(0, Qt::Object.tr("Folder"))
+	        folded = (attributes.value("folded") != "no")
+	        @treeWidget.setItemExpanded(@item, !folded)
+	    elsif qName == "bookmark"
+	        @item = createChildItem(qName)
+	        @item.flags = @item.flags | Qt::ItemIsEditable.to_i
+	        @item.setIcon(0, @bookmarkIcon)
+	        @item.setText(0, Qt::Object.tr("Unknown title"))
+	        @item.setText(1, attributes.value("href"))
+	    elsif qName == "separator"
+	        @item = createChildItem(qName)
+	        @item.flags = @item.flags & ~Qt::ItemIsSelectable.to_i
+#	        @item.setText(0, Qt::String(30, 0xB7))
+	        @item.setText(0, "..............................")
+	    end
+	
+		@currentText = ""
+	    return true
+	end
+	
+	def endElement(namespaceURI, localName, qName)
+	    if qName == "title"
+	        if !@item.nil?
+	            @item.setText(0, @currentText)
+			end
+	    elsif qName == "folder" || qName == "bookmark" ||
+	               qName == "separator"
+	        @item = @item.parent()
+	    end
+	    return true
+	end
+	
+	def characters(str)
+	    @currentText += str
+	    return true
+	end
+	
+	def fatalError(exception)
+	    Qt::MessageBox.information(@treeWidget.window(), Qt::Object.tr("SAX Bookmarks"),
+	                             Qt::Object::tr("Parse error at line %s, column %s:\n%s" %
+	                             [exception.lineNumber, exception.columnNumber,exception.message]))
+	    return false
+	end
+	
+	def errorString()
+	    return @errorStr
+	end
+	
+	def createChildItem(tagName)
+	    if !@item.nil?
+	        childItem = Qt::TreeWidgetItem.new(@item, Qt::TreeWidgetItem::Type)
+	    else
+	        childItem = Qt::TreeWidgetItem.new(@treeWidget)
+	    end
+	    childItem.setData(0, Qt::UserRole, Qt::Variant.new(tagName))
+	    return childItem
+	end
+end

data/lib/Qt/qtruby4.rb

@@ -3103,7 +3103,11 @@ class Module
 	private :_protected_instance_methods, :_public_instance_methods
 
 	def constants
-		qt_methods(_constants, 0x10, true)
+    if self == Qt::PrintDialog
+			qt_methods(_constants, 0x10, false)
+		else
+			qt_methods(_constants, 0x10, true)
+		end
 	end
 
 	def instance_methods(inc_super=true)

data/lib/qtscript/qtscript.rb

@@ -0,0 +1,40 @@
+=begin
+/***************************************************************************
+                          qtscript.rb  -  QtScript ruby client lib
+                             -------------------
+    begin                : 11-07-2008
+    copyright            : (C) 2008 by Richard Dale
+    email                : richard.j.dale@gmail.com
+ ***************************************************************************/
+
+/***************************************************************************
+ *                                                                         *
+ *   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.                                   *
+ *                                                                         *
+ ***************************************************************************/
+=end
+
+module QtScript
+  module Internal
+    def self.init_all_classes
+#      Qt::Internal::add_normalize_proc(Proc.new do |classname|
+#        if classname =~ /^QtScript/
+#          now = classname.sub(/^QtScript?(?=[A-Z])/,'QtScript::')
+#        end
+#        now
+#      end)
+      getClassList.each do |c|
+        classname = Qt::Internal::normalize_classname(c)
+        id = Qt::Internal::findClass(c);
+        Qt::Internal::insert_pclassid(classname, id)
+        Qt::Internal::cpp_names[classname] = c
+        klass = Qt::Internal::isQObject(c) ? Qt::Internal::create_qobject_class(classname, Qt) \
+                                           : Qt::Internal::create_qt_class(classname, Qt)
+        Qt::Internal::classes[classname] = klass unless klass.nil?
+      end
+    end
+  end
+end