qtruby4 2.1.0.b-mswin32 → 2.1.0-mswin32

data/examples/network/broadcastreceiver/main.rb

@@ -0,0 +1,32 @@
+=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 'receiver.rb'
+
+app = Qt::Application.new(ARGV)
+receiver = Receiver.new
+receiver.show
+receiver.exec

data/examples/network/broadcastreceiver/receiver.rb

@@ -0,0 +1,64 @@
+=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 Receiver < Qt::Dialog
+		
+	slots :processPendingDatagrams
+
+	def initialize(parent = nil)
+	    super(parent)
+	    @statusLabel = Qt::Label.new(tr("Listening for broadcasted messages"))
+	    @quitButton = Qt::PushButton.new(tr("&Quit"))
+	
+	    @udpSocket = Qt::UdpSocket.new(self)
+	    @udpSocket.bind(45454)
+	
+	    connect(@udpSocket, SIGNAL(:readyRead),
+	            self, SLOT(:processPendingDatagrams))
+	    connect(@quitButton, SIGNAL(:clicked), self, SLOT(:close))
+	
+	    buttonLayout = Qt::HBoxLayout.new do |b|
+	    	b.addStretch(1)
+	   		b.addWidget(@quitButton)
+		end
+	
+	    self.layout = Qt::VBoxLayout.new do |m|
+	    	m.addWidget(@statusLabel)
+	    	m.addLayout(buttonLayout)
+	    end
+	
+	    self.windowTitle = tr("Broadcast Receiver")
+	end
+	
+	def processPendingDatagrams()
+	    while @udpSocket.hasPendingDatagrams do
+	        datagram = Qt::ByteArray.new
+	        datagram.resize(@udpSocket.pendingDatagramSize)
+	        @udpSocket.readDatagram(datagram.data(), datagram.size())
+	        @statusLabel.text = tr('Received datagram: "%d"' % datagram.data)
+	    end
+	end
+end

data/examples/network/broadcastsender/main.rb

@@ -0,0 +1,32 @@
+=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 'sender.rb'
+
+app = Qt::Application.new(ARGV)
+sender = Sender.new
+sender.show
+sender.exec

data/examples/network/broadcastsender/sender.rb

@@ -0,0 +1,70 @@
+=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 Sender < Qt::Dialog
+		
+	slots :startBroadcasting, :broadcastDatagram
+	
+	def initialize(parent = nil)
+	    super(parent)
+	    @statusLabel = Qt::Label.new(tr("Ready to broadcast datagrams on port 45454"))
+	    @startButton = Qt::PushButton.new(tr("&Start"))
+	    @quitButton = Qt::PushButton.new(tr("&Quit"))
+	    @timer = Qt::Timer.new(self)
+	    @udpSocket = Qt::UdpSocket.new(self)
+	    @messageNo = 1
+	
+	    connect(@startButton, SIGNAL(:clicked), self, SLOT(:startBroadcasting))
+	    connect(@quitButton, SIGNAL(:clicked), self, SLOT(:close))
+	    connect(@timer, SIGNAL(:timeout), self, SLOT(:broadcastDatagram))
+	
+	    buttonLayout = Qt::HBoxLayout.new do |b|
+			b.addStretch(1)
+			b.addWidget(@startButton)
+			b.addWidget(@quitButton)
+		end
+	
+	    self.layout = Qt::VBoxLayout.new do |m|
+			m.addWidget(@statusLabel)
+			m.addLayout(buttonLayout)
+		end
+	
+	    self.windowTitle = tr("Broadcast Sender")
+	end
+	
+	def startBroadcasting()
+	    @startButton.enabled = false
+	    @timer.start(1000)
+	end
+	
+	def broadcastDatagram()
+	    @statusLabel.text = tr("Now broadcasting datagram %d" % @messageNo)
+	    datagram = Qt::ByteArray.new("Broadcast message %d" % @messageNo)
+	    @udpSocket.writeDatagram(datagram.data(), datagram.size(),
+	                             Qt::HostAddress.new(Qt::HostAddress::Broadcast), 45454)
+	    @messageNo += 1
+	end
+end

data/examples/network/fortuneclient/client.rb

@@ -0,0 +1,150 @@
+=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 Client < Qt::Dialog
+    
+    slots   'requestNewFortune()',
+            'readFortune()',
+            'displayError(QAbstractSocket::SocketError)',
+            'enableGetFortuneButton()'
+    
+    def initialize(parent = nil)
+        super(parent)
+        @hostLabel = Qt::Label.new(tr("&Server name:"))
+        @portLabel = Qt::Label.new(tr("S&erver port:"))
+    
+        @hostLineEdit = Qt::LineEdit.new("Localhost")
+        @portLineEdit = Qt::LineEdit.new
+        @portLineEdit.validator = Qt::IntValidator.new(1, 65535, self)
+    
+        @hostLabel.buddy = @hostLineEdit
+        @portLabel.buddy = @portLineEdit
+    
+        @statusLabel = Qt::Label.new(tr("This example requires that you run the " +
+                                    "Fortune Server example as well."))
+    
+        @getFortuneButton = Qt::PushButton.new(tr("Get Fortune")) do |b|
+            b.default = true
+            b.enabled = false
+        end
+    
+        @quitButton = Qt::PushButton.new(tr("Quit"))
+    
+        @tcpSocket = Qt::TcpSocket.new(self)
+    
+        connect(@hostLineEdit, SIGNAL('textChanged(const QString &)'),
+                self, SLOT('enableGetFortuneButton()'))
+        connect(@portLineEdit, SIGNAL('textChanged(const QString &)'),
+                self, SLOT('enableGetFortuneButton()'))
+        connect(@getFortuneButton, SIGNAL('clicked()'),
+                self, SLOT('requestNewFortune()'))
+        connect(@quitButton, SIGNAL('clicked()'), self, SLOT('close()'))
+        connect(@tcpSocket, SIGNAL('readyRead()'), self, SLOT('readFortune()'))
+        connect(@tcpSocket, SIGNAL('error(QAbstractSocket::SocketError)'), self, SLOT('displayError(QAbstractSocket::SocketError)'))
+    
+        buttonLayout = Qt::HBoxLayout.new do |b|
+            b.addStretch(1)
+            b.addWidget(@getFortuneButton)
+            b.addWidget(@quitButton)
+        end
+    
+        self.layout = Qt::GridLayout.new do |m|
+            m.addWidget(@hostLabel, 0, 0)
+            m.addWidget(@hostLineEdit, 0, 1)
+            m.addWidget(@portLabel, 1, 0)
+            m.addWidget(@portLineEdit, 1, 1)
+            m.addWidget(@statusLabel, 2, 0, 1, 2)
+            m.addLayout(buttonLayout, 3, 0, 1, 2)
+        end
+    
+        self.windowTitle = tr("Fortune Client")
+        @portLineEdit.setFocus()
+    end
+    
+    def requestNewFortune
+        @getFortuneButton.enabled = false
+        @blockSize = 0
+        @tcpSocket.abort
+        @tcpSocket.connectToHost(@hostLineEdit.text,
+                                 @portLineEdit.text.to_i)
+    end
+    
+    def readFortune
+        inf = Qt::DataStream.new(@tcpSocket)
+        inf.version = Qt::DataStream::Qt_4_0
+    
+        if @blockSize == 0
+            if @tcpSocket.bytesAvailable < 4
+                return
+            end
+    
+            inf >> @blockSize
+        end
+    
+        if @tcpSocket.bytesAvailable < @blockSize
+            return
+        end
+    
+        nextFortune = ""
+        inf >> nextFortune
+    
+        if nextFortune == @currentFortune
+            Qt::Timer.singleShot(0, self, SLOT('requestNewFortune()'))
+            return
+        end
+    
+        @currentFortune = nextFortune
+        @statusLabel.text = @currentFortune
+        @getFortuneButton.enabled = true
+    end
+    
+    def displayError(socketError)
+        case socketError
+        when Qt::AbstractSocket::RemoteHostClosedError:
+            ;
+        when Qt::AbstractSocket::HostNotFoundError:
+            Qt::MessageBox.information(self, tr("Fortune Client"),
+                                     tr("The host was not found. Please check the " +
+                                        "host name and port settings."))
+        when Qt::AbstractSocket::ConnectionRefusedError:
+            Qt::MessageBox.information(self, tr("Fortune Client"),
+                                     tr("The connection was refused by the peer. " +
+                                        "Make sure the fortune server is running, " +
+                                        "and check that the host name and port " +
+                                        "settings are correct."))
+        else
+            Qt::MessageBox.information(self, tr("Fortune Client"),
+                                     tr("The following error occurred: %s." %
+                                     @tcpSocket.errorString))
+        end
+    
+        @getFortuneButton.enabled = true
+    end
+    
+    def enableGetFortuneButton
+        @getFortuneButton.enabled = !@hostLineEdit.text.empty? &&
+                                    !@portLineEdit.text.empty?
+    end
+end

data/examples/network/fortuneclient/main.rb

@@ -0,0 +1,32 @@
+=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 'client.rb'
+
+app = Qt::Application.new(ARGV)
+client = Client.new
+client.show
+client.exec

data/examples/network/fortuneserver/main.rb

@@ -0,0 +1,32 @@
+=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 'server.rb'
+
+app = Qt::Application.new(ARGV)
+server = Server.new
+server.show
+server.exec

data/examples/network/fortuneserver/server.rb

@@ -0,0 +1,88 @@
+=begin
+**
+** Copyright (C) 2004-2006 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 Server < Qt::Dialog
+    
+    slots :sendFortune
+    
+    def initialize(parent = nil)
+        super(parent)
+        @statusLabel = Qt::Label.new
+        @quitButton = Qt::PushButton.new(tr("Quit"))
+        @quitButton.autoDefault = false
+    
+        @tcpServer = Qt::TcpServer.new(self)
+        if !@tcpServer.listen
+            Qt::MessageBox.critical(self, tr("Fortune Server"),
+                tr("Unable to start the server: %s." % @tcpServer.errorString))
+            close()
+            return
+        end
+    
+        @statusLabel.text = tr("The server is running on port %d.\nRun the Fortune Client example now." %
+                             @tcpServer.serverPort)
+    
+        @fortunes = []
+        @fortunes << tr("You've been leading a dog's life. Stay off the furniture.") <<
+                 tr("You've got to think about tomorrow.") <<
+                 tr("You will be surprised by a loud noise.") <<
+                 tr("You will feel hungry again in another hour.") <<
+                 tr("You might have mail.") <<
+                 tr("You cannot kill time without injuring eternity.") <<
+                 tr("Computers are not intelligent. They only think they are.")
+    
+        connect(@quitButton, SIGNAL(:clicked), self, SLOT(:close))
+        connect(@tcpServer, SIGNAL(:newConnection), self, SLOT(:sendFortune))
+    
+        buttonLayout = Qt::HBoxLayout.new do |b|
+            b.addStretch(1)
+            b.addWidget(@quitButton)
+        end
+
+        self.layout = Qt::VBoxLayout.new do |m|
+            m.addWidget(@statusLabel)
+            m.addLayout(buttonLayout)
+        end
+    
+        self.windowTitle = tr("Fortune Server")
+    end
+    
+    def sendFortune
+        block = Qt::ByteArray.new
+        outf = Qt::DataStream.new(block, Qt::IODevice::WriteOnly)
+        outf.version = Qt::DataStream::Qt_4_0
+        outf << 0  # Write a 4 byte integer
+        outf << @fortunes[rand(@fortunes.length)]
+        outf.device.seek(0)
+        outf << (block.length - 4)  # 4 bytes is the size of an integer
+    
+        clientConnection = @tcpServer.nextPendingConnection()
+        connect(clientConnection, SIGNAL(:disconnected),
+                clientConnection, SLOT(:deleteLater))
+    
+        clientConnection.write(block)
+        clientConnection.disconnectFromHost
+    end
+end