rock-qtbindings 4.8.6.5

data/examples/mainwindows/sdi/mainwindow.rb

@@ -0,0 +1,335 @@
+=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 MainWindow < Qt::MainWindow
+
+	slots   'newFile()',
+    		'open()',
+    		'save()',
+    		'saveAs()',
+    		'about()',
+    		'documentWasModified()'
+	
+	attr_reader :curFile
+
+	@@sequenceNumber = 0
+	
+	def initialize(fileName = "")
+		super()
+	    init()
+
+		if fileName.empty?
+			setCurrentFile("")
+		else
+	    	loadFile(fileName)
+		end
+	end
+	
+	def closeEvent(event)
+	    if maybeSave()
+	        writeSettings()
+	        event.accept()
+	    else
+	        event.ignore()
+	    end
+	end
+	
+	def newFile()
+	    other = MainWindow.new
+	    other.move(x() + 40, y() + 40)
+	    other.show()
+	end
+	
+	def open()
+	    fileName = Qt::FileDialog.getOpenFileName(self)
+	    if !fileName.nil?
+	        existing = findMainWindow(fileName)
+	        if !existing.nil?
+	            existing.show()
+	            existing.raise()
+	            existing.activateWindow()
+	            return
+	        end
+	
+	        if @isUntitled && @textEdit.document().empty? &&
+	                !isWindowModified()
+	            loadFile(fileName)
+	        else
+	            other = MainWindow.new(fileName)
+	            if other.isUntitled
+	                other.dispose
+	                return
+	            end
+	            other.move(x() + 40, y() + 40)
+	            other.show()
+	        end
+	    end
+	end
+	
+	def save()
+	    if @isUntitled
+	        return saveAs()
+	    else
+	        return saveFile(@curFile)
+	    end
+	end
+	
+	def saveAs()
+	    fileName = Qt::FileDialog.getSaveFileName(self, tr("Save As"),
+	                                                    @curFile)
+	    if fileName.nil?
+	        return false
+		end
+	
+	    return saveFile(fileName)
+	end
+	
+	def about()
+	   Qt::MessageBox::about(self, tr("About SDI"),
+	            tr("The <b>SDI</b> example demonstrates how to write single " +
+	               "document interface applications using Qt."))
+	end
+	
+	def documentWasModified()
+	    setWindowModified(true)
+	end
+	
+	def init()
+	    setAttribute(Qt::WA_DeleteOnClose)
+	
+	    @isUntitled = true
+	
+	    @textEdit = Qt::TextEdit.new
+	    setCentralWidget(@textEdit)
+	
+	    createActions()
+	    createMenus()
+	    createToolBars()
+	    createStatusBar()
+	
+	    readSettings()
+	
+	    connect(@textEdit.document(), SIGNAL('contentsChanged()'),
+	            self, SLOT('documentWasModified()'))
+	end
+	
+	def createActions()
+	    @newAct = Qt::Action.new(Qt::Icon.new("images/new.png"), tr("&New"), self)
+	    @newAct.shortcut = Qt::KeySequence.new( tr("Ctrl+N") )
+	    @newAct.statusTip = tr("Create a file.new")
+	    connect(@newAct, SIGNAL('triggered()'), self, SLOT('newFile()'))
+	
+	    @openAct = Qt::Action.new(Qt::Icon.new("images/open.png"), tr("&Open..."), self)
+	    @openAct.shortcut = Qt::KeySequence.new( tr("Ctrl+O") )
+	    @openAct.statusTip = tr("Open an existing file")
+	    connect(@openAct, SIGNAL('triggered()'), self, SLOT('open()'))
+	
+	    @saveAct = Qt::Action.new(Qt::Icon.new("images/save.png"), tr("&Save"), self)
+	    @saveAct.shortcut = Qt::KeySequence.new( tr("Ctrl+S") )
+	    @saveAct.statusTip = tr("Save the document to disk")
+	    connect(@saveAct, SIGNAL('triggered()'), self, SLOT('save()'))
+	
+	    @saveAsAct = Qt::Action.new(tr("Save &As..."), self)
+	    @saveAsAct.statusTip = tr("Save the document under a name.new")
+	    connect(@saveAsAct, SIGNAL('triggered()'), self, SLOT('saveAs()'))
+	
+	    @closeAct = Qt::Action.new(tr("&Close"), self)
+	    @closeAct.shortcut = Qt::KeySequence.new( tr("Ctrl+W") )
+	    @closeAct.statusTip = tr("Close self window")
+	    connect(@closeAct, SIGNAL('triggered()'), self, SLOT('close()'))
+	
+	    @exitAct = Qt::Action.new(tr("E&xit"), self)
+	    @exitAct.shortcut = Qt::KeySequence.new( tr("Ctrl+Q") )
+	    @exitAct.statusTip = tr("Exit the application")
+	    connect(@exitAct, SIGNAL('triggered()'), $qApp, SLOT('closeAllWindows()'))
+	
+	    @cutAct = Qt::Action.new(Qt::Icon.new("images/cut.png"), tr("Cu&t"), self)
+	    @cutAct.shortcut = Qt::KeySequence.new( tr("Ctrl+X") )
+	    @cutAct.setStatusTip(tr("Cut the current selection's contents to the " +
+	                            "clipboard"))
+	    connect(@cutAct, SIGNAL('triggered()'), @textEdit, SLOT('cut()'))
+	
+	    @copyAct = Qt::Action.new(Qt::Icon.new("images/copy.png"), tr("&Copy"), self)
+	    @copyAct.shortcut = Qt::KeySequence.new( tr("Ctrl+C") )
+	    @copyAct.setStatusTip(tr("Copy the current selection's contents to the " +
+	                             "clipboard"))
+	    connect(@copyAct, SIGNAL('triggered()'), @textEdit, SLOT('copy()'))
+	
+	    @pasteAct = Qt::Action.new(Qt::Icon.new("images/paste.png"), tr("&Paste"), self)
+	    @pasteAct.shortcut = Qt::KeySequence.new( tr("Ctrl+V") )
+	    @pasteAct.setStatusTip(tr("Paste the clipboard's contents into the current " +
+	                              "selection"))
+	    connect(@pasteAct, SIGNAL('triggered()'), @textEdit, SLOT('paste()'))
+	
+	    @aboutAct = Qt::Action.new(tr("&About"), self)
+	    @aboutAct.statusTip = tr("Show the application's About box")
+	    connect(@aboutAct, SIGNAL('triggered()'), self, SLOT('about()'))
+	
+	    @aboutQtAct = Qt::Action.new(tr("About &Qt"), self)
+	    @aboutQtAct.statusTip = tr("Show the Qt library's About box")
+	    connect(@aboutQtAct, SIGNAL('triggered()'), $qApp, SLOT('aboutQt()'))
+	
+	
+	    @cutAct.enabled = false
+	    @copyAct.enabled = false
+	    connect(@textEdit, SIGNAL('copyAvailable(bool)'),
+	            @cutAct, SLOT('setEnabled(bool)'))
+	    connect(@textEdit, SIGNAL('copyAvailable(bool)'),
+	            @copyAct, SLOT('setEnabled(bool)'))
+	end
+	
+	def createMenus()
+	    @fileMenu = menuBar().addMenu(tr("&File"))
+	    @fileMenu.addAction(@newAct)
+	    @fileMenu.addAction(@openAct)
+	    @fileMenu.addAction(@saveAct)
+	    @fileMenu.addAction(@saveAsAct)
+	    @fileMenu.addSeparator()
+	    @fileMenu.addAction(@closeAct)
+	    @fileMenu.addAction(@exitAct)
+	
+	    @editMenu = menuBar().addMenu(tr("&Edit"))
+	    @editMenu.addAction(@cutAct)
+	    @editMenu.addAction(@copyAct)
+	    @editMenu.addAction(@pasteAct)
+	
+	    menuBar().addSeparator()
+	
+	    @helpMenu = menuBar().addMenu(tr("&Help"))
+	    @helpMenu.addAction(@aboutAct)
+	    @helpMenu.addAction(@aboutQtAct)
+	end
+	
+	def createToolBars()
+	    @fileToolBar = addToolBar(tr("File"))
+	    @fileToolBar.addAction(@newAct)
+	    @fileToolBar.addAction(@openAct)
+	    @fileToolBar.addAction(@saveAct)
+	
+	    @editToolBar = addToolBar(tr("Edit"))
+	    @editToolBar.addAction(@cutAct)
+	    @editToolBar.addAction(@copyAct)
+	    @editToolBar.addAction(@pasteAct)
+	end
+	
+	def createStatusBar()
+	    statusBar().showMessage(tr("Ready"))
+	end
+	
+	def readSettings()
+	    settings = Qt::Settings.new("Trolltech", "SDI Example")
+	    pos = settings.value("pos", Qt::Variant.new(Qt::Point.new(200, 200))).toPoint()
+	    size = settings.value("size", Qt::Variant.new(Qt::Size.new(400, 400))).toSize()
+	    move(pos)
+	    resize(size)
+	end
+	
+	def writeSettings()
+	    settings = Qt::Settings.new("Trolltech", "SDI Example")
+	    settings.setValue("pos", Qt::Variant.new(pos()))
+	    settings.setValue("size", Qt::Variant.new(size()))
+	end
+	
+	def maybeSave()
+	    if @textEdit.document().isModified()
+	        ret = Qt::MessageBox.warning(self, tr("SDI"),
+	                     tr("The document has been modified.\n" +
+	                        "Do you want to save your changes?"),
+	                     Qt::MessageBox::Yes | Qt::MessageBox::Default,
+	                     Qt::MessageBox::No,
+	                     Qt::MessageBox::Cancel | Qt::MessageBox::Escape)
+	        if ret == Qt::MessageBox::Yes
+	            return save()
+	        elsif ret == Qt::MessageBox::Cancel
+	            return false
+			end
+	    end
+	    return true
+	end
+
+	def loadFile(fileName)
+	    file = Qt::File.new(fileName)
+	    if !file.open(Qt::File::ReadOnly | Qt::File::Text)
+	        Qt::MessageBox.warning(self, tr("SDI"),
+	                             tr("Cannot read file %s:\n%s." % [fileName, file.errorString]))
+	        return
+	    end
+	
+	    inf = Qt::TextStream.new(file)
+	    Qt::Application.overrideCursor = Qt::Cursor.new(Qt::WaitCursor)
+	    @textEdit.plainText = inf.readAll
+	    Qt::Application::restoreOverrideCursor
+	
+	    setCurrentFile(fileName)
+	    statusBar().showMessage(tr("File loaded"), 2000)
+	end
+	
+	def saveFile(fileName)
+	    file = Qt::File.new(fileName)
+	    if !file.open(Qt::File::WriteOnly | Qt::File::Text)
+	        Qt::MessageBox.warning(self, tr("SDI"),
+	                             tr("Cannot write file %s:\n%s." % [fileName, file.errorString]))
+	        return
+	    end
+	
+	    outf = Qt::TextStream.new(file)
+	    Qt::Application.overrideCursor = Qt::Cursor.new(Qt::WaitCursor)
+	    outf << @textEdit.toPlainText
+		outf.flush
+	    Qt::Application.restoreOverrideCursor
+	
+	    setCurrentFile(fileName)
+	    statusBar().showMessage(tr("File saved"), 2000)
+	end
+	
+	def setCurrentFile(fileName)
+	    @isUntitled = fileName.empty?
+	    if @isUntitled
+	        @curFile = tr("document%d.txt" % (@@sequenceNumber += 1))
+	    else
+	        @curFile = Qt::FileInfo.new(fileName).canonicalFilePath()
+	    end
+	
+	    @textEdit.document().modified = false
+	    setWindowModified(false)
+	
+	    setWindowTitle(tr("%s[*] - %s" % [strippedName(@curFile), tr("SDI")]))
+	end
+	
+	def strippedName(fullFileName)
+	    return Qt::FileInfo.new(fullFileName).fileName()
+	end
+	
+	def findMainWindow(fileName)
+	    canonicalFilePath = Qt::FileInfo.new(fileName).canonicalFilePath()
+	
+	    $qApp.topLevelWidgets.each do |widget|
+	        if widget.kind_of?(MainWindow) && widget.curFile == canonicalFilePath
+	            return mainWin
+			end
+	    end
+	    return nil
+	end
+end

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,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

data/examples/network/fortuneclient/client.rb

@@ -0,0 +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