qtbindings 4.8.6.0-x86-mingw32 → 4.8.6.1-x86-mingw32

data/examples/network/broadcastreceiver/main.rb

@@ -1,32 +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
+=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

@@ -1,64 +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
+=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

@@ -1,32 +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
+=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

@@ -1,72 +1,72 @@
-=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,
-	    # method_missing with this syntax
-	    #@udpSocket.writeDatagram(datagram.data(), datagram.size(),
-	                             Qt::HostAddress.new(Qt::HostAddress::Broadcast), 45454)
-	    @messageNo += 1
-	end
-end
+=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,
+	    # method_missing with this syntax
+	    #@udpSocket.writeDatagram(datagram.data(), datagram.size(),
+	                             Qt::HostAddress.new(Qt::HostAddress::Broadcast), 45454)
+	    @messageNo += 1
+	end
+end

data/examples/network/fortuneclient/client.rb

@@ -1,149 +1,149 @@
-=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
+=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