qtruby4 2.1.0.b-mswin32 → 2.1.0-mswin32

data/examples/draganddrop/draggableicons/dragwidget.rb

@@ -0,0 +1,125 @@
+=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 DragWidget < Qt::Frame
+	
+	def initialize(parent = nil, flags = 0)
+	    super(parent, flags)
+	    setMinimumSize(200, 200)
+	    setFrameStyle(Qt::Frame::Sunken | Qt::Frame::StyledPanel)
+	    setAcceptDrops(true)
+	
+	    boatIcon = Qt::Label.new(self)
+	    boatIcon.pixmap = Qt::Pixmap.new("images/boat.png")
+	    boatIcon.move(20, 20)
+	    boatIcon.show()
+	    boatIcon.attribute = Qt::WA_DeleteOnClose
+	
+	    carIcon = Qt::Label.new(self)
+	    carIcon.pixmap = Qt::Pixmap.new("images/car.png")
+	    carIcon.move(120, 20)
+	    carIcon.show()
+	    carIcon.attribute = Qt::WA_DeleteOnClose
+	
+	    houseIcon = Qt::Label.new(self)
+	    houseIcon.pixmap = Qt::Pixmap.new("images/house.png")
+	    houseIcon.move(20, 120)
+	    houseIcon.show()
+	    houseIcon.attribute = Qt::WA_DeleteOnClose
+	end
+	
+	def dragEnterEvent(event)
+	    if event.mimeData().hasFormat("application/x-dnditemdata")
+	        if event.source() == self
+	            event.dropAction = Qt::MoveAction
+	            event.accept()
+	        else
+	            event.acceptProposedAction()
+	        end
+	    else
+	        event.ignore()
+	    end
+	end
+	
+	def dropEvent(event)
+	    if event.mimeData().hasFormat("application/x-dnditemdata")
+	        itemData = event.mimeData().data("application/x-dnditemdata")
+	        dataStream = Qt::DataStream.new(itemData, Qt::IODevice::ReadOnly.to_i)
+	        
+	        pixmap = Qt::Pixmap.new
+	        offset = Qt::Point.new
+	        dataStream >> pixmap >> offset
+	        newIcon = Qt::Label.new(self)
+	        newIcon.pixmap = pixmap
+	        newIcon.move(event.pos() - offset)
+	        newIcon.show()
+	        newIcon.attribute = Qt::WA_DeleteOnClose
+	
+	        if event.source() == self
+	            event.dropAction = Qt::MoveAction
+	            event.accept()
+	        else
+	            event.acceptProposedAction()
+	        end
+	    else
+	        event.ignore()
+	    end
+	end
+	
+	def mousePressEvent(event)
+	    child = childAt(event.pos())
+	    if child.nil?
+	        return
+		end
+	
+	    pixmap = child.pixmap.copy
+	
+	    itemData = Qt::ByteArray.new("")
+	    dataStream = Qt::DataStream.new(itemData, Qt::IODevice::WriteOnly.to_i)
+	    dataStream << pixmap << (event.pos() - child.pos())
+	    mimeData = Qt::MimeData.new
+	    mimeData.setData("application/x-dnditemdata", itemData)
+	        
+	    drag = Qt::Drag.new(self)
+	    drag.mimeData = mimeData
+	    drag.pixmap = pixmap
+	    drag.hotSpot = event.pos - child.pos
+	
+	    tempPixmap = pixmap.copy
+	    painter = Qt::Painter.new
+	    painter.begin(tempPixmap)
+	    painter.fillRect(pixmap.rect(), Qt::Brush.new(Qt::Color.new(127, 127, 127, 127)))
+	    painter.end
+	
+	    child.pixmap = tempPixmap
+	
+	    if drag.start(Qt::CopyAction | Qt::MoveAction) == Qt::MoveAction
+	        child.close()
+	    else
+	        child.show()
+	        child.pixmap = pixmap
+	    end
+	end
+end

data/examples/draganddrop/draggableicons/main.rb

@@ -0,0 +1,41 @@
+=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)
+
+mainWidget = Qt::Widget.new
+horizontalLayout = Qt::HBoxLayout.new
+
+horizontalLayout.addWidget(DragWidget.new)
+horizontalLayout.addWidget(DragWidget.new)
+
+mainWidget.layout = horizontalLayout
+mainWidget.windowTitle = "Draggable Icons"
+mainWidget.show
+
+app.exec

data/examples/draganddrop/draggabletext/draglabel.rb

@@ -0,0 +1,51 @@
+=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(text, parent)
+	    setFrameShape(Qt::Frame::Panel)
+	    setFrameShadow(Qt::Frame::Raised)
+	end
+	
+	def mousePressEvent(event)
+	    plainText = text(); # for quoting purposes
+	
+	    mimeData = Qt::MimeData.new
+	    mimeData.text = plainText
+	
+	    drag = Qt::Drag.new(self)
+	    drag.mimeData = mimeData
+	    drag.hotSpot = event.pos - rect.topLeft
+	
+	    dropAction = drag.start(Qt::CopyAction | Qt::MoveAction)
+	    
+	    if dropAction == Qt::MoveAction
+	        close()
+	        update()
+	    end
+	end
+end

data/examples/draganddrop/draggabletext/dragwidget.rb

@@ -0,0 +1,94 @@
+=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::IODevice::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 >= 195
+                    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("Draggable Text"))
+    end
+    
+    def dragEnterEvent(event)
+        if event.mimeData.hasText
+            event.acceptProposedAction
+        else
+            event.ignore
+        end
+    end
+    
+    def dropEvent(event)
+        if event.mimeData().hasText()
+            pieces = event.mimeData.text.split(/\\s+"/)
+            position = event.pos
+    
+            pieces.each do |piece|
+                newLabel = DragLabel.new(piece, self)
+                newLabel.move(position)
+                newLabel.show()
+    
+                position += Qt::Point.new(newLabel.width(), 0)
+            end
+    
+            if children().include? event.source()
+                event.dropAction = Qt::MoveAction
+                event.accept()
+            else
+                event.acceptProposedAction()
+            end
+        else
+            event.ignore()
+        end
+    end
+end

data/examples/draganddrop/draggabletext/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/draggabletext/words.txt

@@ -0,0 +1,41 @@
+Qt
+Quarterly
+is
+a
+paper
+based
+newsletter
+exclusively
+available
+to
+Qt
+customers
+Every
+quarter
+we
+mail
+out
+an
+issue
+that
+we
+hope
+will
+bring
+added
+insight
+and
+pleasure
+to
+your
+Qt
+programming
+with
+high
+quality
+technical
+articles
+written
+by
+Qt
+experts

data/examples/draganddrop/dropsite/dropsitewidget.rb

@@ -0,0 +1,98 @@
+=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 DropArea < Qt::Label
+	
+	slots 'clear()'
+	
+	signals 'changed(const QMimeData*)'
+	
+	def initialize(parent = nil)
+	    super(parent)
+	    setMinimumSize(200, 200)
+	    setFrameStyle(Qt::Frame::Sunken | Qt::Frame::StyledPanel)
+	    setAlignment(Qt::AlignCenter)
+	    setAcceptDrops(true)
+	    setAutoFillBackground(true)
+        clear()
+	end
+	
+	def dragEnterEvent(event)
+	    setText(tr("<drop content>"))
+	    setBackgroundRole(Qt::Palette::Highlight)
+	
+	    event.acceptProposedAction()
+#	    emit changed(event.mimeData())
+	end
+	
+    def dragMoveEvent(event)
+	    event.acceptProposedAction()
+    end
+
+	def dropEvent(event)
+	    mimeData = event.mimeData()
+        if mimeData.hasText
+            setText(mimeData.text())
+            setTextFormat(Qt::PlainText)
+	    end
+
+
+	    formats = mimeData.formats()
+	    formats.each do |format|
+	        if format.startsWith("image/")
+	            pixmap = createPixmap(mimeData.data(format), format)
+	            if !pixmap.nil?
+	                setPixmap(pixmap)
+	                break
+	            end
+	        end
+	        text = createPlainText(mimeData.data(format), format)
+	        if !text.empty?
+	            setText(text)
+	            break
+	        else
+	            setText(tr("No supported format"))
+	        end
+	    end
+	
+	    setBackgroundRole(Qt::Palette::Dark)
+	    event.acceptProposedAction()
+	end
+	
+	def dragLeaveEvent(event)
+	    clear()
+	    event.accept()
+	end
+	
+	def clear()
+	    setText(tr("<drop content>"))
+	    setBackgroundRole(Qt::Palette::Dark)
+	
+	    emit changed(nil)
+	end
+end