qtruby4 2.1.0.b-mswin32 → 2.1.0-mswin32

data/examples/draganddrop/dropsite/dropsitewindow.rb

@@ -0,0 +1,114 @@
+=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 'dropsitewidget.rb'
+	
+class DropSiteWindow < Qt::Widget
+	
+	slots 'updateFormatsTable(const QMimeData *)'
+	
+	def initialize(parent = nil)
+	    super(parent)
+	    @abstractLabel = Qt::Label.new(tr("The Drop Site example accepts drops from other " \
+	                                  "applications, and displays the MIME formats " \
+	                                  "provided by the drag object."))
+	    @abstractLabel.wordWrap = true
+	    @abstractLabel.adjustSize()
+	
+	    @dropArea = DropArea.new
+	    connect(@dropArea, SIGNAL('changed(const QMimeData*)'),
+	            self, SLOT('updateFormatsTable(const QMimeData*)'))
+	
+	    labels = []
+	    labels << tr("Format") << tr("Content")
+
+	    @formatsTable = Qt::TableWidget.new
+        @formatsTable.setColumnCount(2)
+        @formatsTable.setEditTriggers(Qt::AbstractItemView::NoEditTriggers)
+        @formatsTable.setHorizontalHeaderLabels(labels)
+        @formatsTable.horizontalHeader.setStretchLastSection(true)
+
+	    @quitButton = Qt::PushButton.new(tr("Quit"))
+	    @clearButton = Qt::PushButton.new(tr("Clear"))
+
+        @buttonBox = Qt::DialogButtonBox.new
+        @buttonBox.addButton(@clearButton, Qt::DialogButtonBox::ActionRole)
+        @buttonBox.addButton(@quitButton, Qt::DialogButtonBox::RejectRole)
+
+	    connect(@quitButton, SIGNAL('pressed()'), self, SLOT('close()'))
+	    connect(@clearButton, SIGNAL('pressed()'), @dropArea, SLOT('clear()'))
+
+	    @layout = Qt::VBoxLayout.new do |l|
+			l.addWidget(@abstractLabel)
+			l.addWidget(@dropArea)
+			l.addWidget(@formatsTable)
+			l.addWidget(@buttonBox)
+		end
+	
+	    setLayout(@layout)
+	    setWindowTitle(tr("Drop Site"))
+	    setMinimumSize(350, 500)
+	end
+	
+	def updateFormatsTable(mimeData = nil)
+	    @formatsTable.rowCount = 0
+	
+	    if mimeData.nil?
+	        return
+		end
+
+	    formats = mimeData.formats()
+
+	    formats.each do |format|
+	        formatItem = Qt::TableWidgetItem.new(format)
+	        formatItem.flags = Qt::ItemIsEnabled
+	        formatItem.textAlignment = Qt::AlignTop | Qt::AlignLeft
+		
+	        text = ""
+	        if format == "text/plain"
+                text = mimeData.text.simplified
+            elsif format == "text/html"
+                text = mimeData.text.simplified
+            elsif format == "text/uri-list"
+                urlList = mimeData.urls
+                urlList.each do |url|
+                    text << url.path + " "
+                end
+	        else
+	            data = mimeData.data(format)
+	            hexdata = ""
+                data.to_s.each_byte { |b| hexdata << ("%2.2x " % b) }
+	            text << hexdata
+	        end
+	
+	        row = @supportedFormats.rowCount()
+	        @formatsTable.insertRow(row)
+	        @formatsTable.setItem(row, 0, Qt::TabelWidgetItem.new(format))
+	        @formatsTable.setItem(row, 1, Qt::TabelWidgetItem.new(text))
+	    end
+	
+	    @formatsTable.resizeColumnToContents(0)
+	end
+end

data/examples/draganddrop/dropsite/main.rb

@@ -0,0 +1,33 @@
+=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 'dropsitewindow.rb'
+
+app = Qt::Application.new(ARGV)
+window = DropSiteWindow.new
+window.show
+# Qt::debug_level = Qt::DebugLevel::High
+app.exec

data/examples/draganddrop/fridgemagnets/draglabel.rb

@@ -0,0 +1,78 @@
+=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 DragLabel < Qt::Label
+	
+	def initialize(text, parent = nil)
+	    super(parent)
+	    fm = Qt::FontMetrics.new(font())
+	    size = fm.size(Qt::TextSingleLine, text)
+	
+	    image = Qt::Image.new(size.width() + 12, size.height() + 12, Qt::Image::Format_ARGB32_Premultiplied)
+	    image.fill(qRgba(0, 0, 0, 0))
+	
+	    font = Qt::Font.new
+	    font.styleStrategy = Qt::Font::ForceOutline
+	
+	    painter = Qt::Painter.new
+	    painter.begin(image)
+	    painter.renderHint = Qt::Painter::Antialiasing
+	    painter.brush = Qt::Brush.new(Qt::white)
+	    painter.drawRoundRect(Qt::RectF.new(0.5, 0.5, image.width()-1, image.height()-1), 25, 25)
+	
+	    painter.font = font
+	    painter.brush = Qt::Brush.new(Qt::black)
+	    painter.drawText(Qt::Rect.new(Qt::Point.new(6, 6), size), Qt::AlignCenter, text)
+	    painter.end
+	
+	    setPixmap(Qt::Pixmap.fromImage(image))
+	    @labelText = text
+	end
+	
+	def mousePressEvent(event)
+	    itemData = Qt::ByteArray.new("")
+	    dataStream = Qt::DataStream.new(itemData, Qt::IODevice::WriteOnly.to_i)
+		hotSpot = Qt::Point.new(event.pos.x, event.pos.y)
+		hotSpot -= rect.topLeft
+	    dataStream << @labelText << hotSpot
+
+	    mimeData = Qt::MimeData.new
+	    mimeData.setData("application/x-fridgemagnet", itemData)
+	    mimeData.text = @labelText
+	
+	    drag = Qt::Drag.new(self)
+	    drag.mimeData = mimeData
+	    drag.hotSpot = hotSpot
+	    drag.pixmap = pixmap.copy
+	
+	    hide()
+	
+	    if drag.start(Qt::MoveAction.to_i) == Qt::MoveAction
+	        close()
+	    else
+	        show()
+		end
+	end
+end

data/examples/draganddrop/fridgemagnets/dragwidget.rb

@@ -0,0 +1,130 @@
+=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 'draglabel.rb'
+
+class DragWidget < Qt::Widget
+	
+	def initialize(parent = nil)
+	    super(parent)
+	    dictionaryFile = Qt::File.new("words.txt")
+	    dictionaryFile.open(Qt::File::ReadOnly.to_i)
+	    inputStream = Qt::TextStream.new(dictionaryFile)
+	
+	    x = 5
+	    y = 5
+	
+	    while !inputStream.atEnd()
+	        word = ""
+	        inputStream >> word
+	        if !word.empty?
+	            wordLabel = DragLabel.new(word, self)
+	            wordLabel.move(x, y)
+	            wordLabel.show()
+	            x += wordLabel.width() + 2
+	            if x >= 245
+	                x = 5
+	                y += wordLabel.height() + 2
+	            end
+	        end
+	    end
+	
+	    newPalette = palette()
+	    newPalette.setColor(Qt::Palette::Background, Qt::Color.new(Qt::white))
+	    setPalette(newPalette)
+	
+	    setAcceptDrops(true)
+	    setMinimumSize(400, [200, y].max)
+	    setWindowTitle(tr("Fridge Magnets"))
+	end
+	
+	def dragEnterEvent(event)
+	    if event.mimeData().hasFormat("application/x-fridgemagnet")
+	        if children().include? event.source()
+	            event.dropAction = Qt::MoveAction
+	            event.accept()
+	        else
+	            event.acceptProposedAction()
+	        end
+	    elsif event.mimeData().hasText()
+	        event.acceptProposedAction()
+	    else
+	        event.ignore()
+	    end
+	end
+	
+	def dragMoveEvent(event)
+	    if event.mimeData().hasFormat("application/x-fridgemagnet")
+	        if children().include? event.source()
+	            event.dropAction = Qt::MoveAction
+	            event.accept()
+	        else
+	            event.acceptProposedAction()
+	        end
+	    elsif event.mimeData().hasText()
+	        event.acceptProposedAction()
+	    else
+	        event.ignore()
+	    end
+	end
+	
+	def dropEvent(event)
+	    if event.mimeData().hasFormat("application/x-fridgemagnet")
+	        itemData = event.mimeData().data("application/x-fridgemagnet")
+	        dataStream = Qt::DataStream.new(itemData, Qt::IODevice::ReadOnly.to_i)
+	        
+	        text = ""
+	        offset = Qt::Point.new
+	        dataStream >> text >> offset
+
+	        newLabel = DragLabel.new(text.to_s, self)
+	        newLabel.move(event.pos() - offset)
+	        newLabel.show()
+	
+	        if children().include? event.source()
+	            event.dropAction = Qt::MoveAction
+	            event.accept()
+	        else
+	            event.acceptProposedAction()
+	        end
+	    elsif event.mimeData().hasText()
+	        pieces = event.mimeData().text().split(Qt::RegExp("\\s+"),
+	                             Qt::String::SkipEmptyParts)
+	        position = Qt::Point.new(event.pos.x, event.pos.y)
+	
+			pieces.each do |piece|
+	            newLabel = DragLabel.new(piece, self)
+	            newLabel.move(position)
+	            newLabel.show()
+	
+	            position += Qt::Point.new(newLabel.width(), 0)
+	        end
+	
+	        event.acceptProposedAction()
+	    else
+	        event.ignore()
+	    end
+	end
+end

data/examples/draganddrop/fridgemagnets/main.rb

@@ -0,0 +1,33 @@
+=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 'dragwidget.rb'
+
+app = Qt::Application.new(ARGV)
+
+window = DragWidget.new
+window.show
+app.exec

data/examples/draganddrop/fridgemagnets/words.txt

@@ -0,0 +1,48 @@
+Colorless
+green
+ideas
+sleep
+furiously
+A
+colorless
+green
+idea
+is
+a
+new
+untried
+idea
+that
+is
+without
+vividness
+dull
+and
+unexciting
+To
+sleep
+furiously
+may
+seem
+a
+puzzling
+turn
+of
+phrase
+but
+the
+mind
+in
+sleep
+often
+indeed
+moves
+furiously
+with
+ideas
+and
+images
+flickering
+in
+and
+out

data/examples/draganddrop/puzzle/main.rb

@@ -0,0 +1,33 @@
+=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'
+
+app = Qt::Application.new(ARGV)
+window = MainWindow.new
+window.openImage("example.jpg")
+window.show
+app.exec