rock-qtbindings 4.8.6.5

data/examples/qdbus/chat/chatsetnickname.ui

@@ -0,0 +1,145 @@
+<ui version="4.0" >
+ <class>NicknameDialog</class>
+ <widget class="QDialog" name="NicknameDialog" >
+  <property name="geometry" >
+   <rect>
+    <x>0</x>
+    <y>0</y>
+    <width>396</width>
+    <height>105</height>
+   </rect>
+  </property>
+  <property name="sizePolicy" >
+   <sizepolicy>
+    <hsizetype>1</hsizetype>
+    <vsizetype>1</vsizetype>
+    <horstretch>0</horstretch>
+    <verstretch>0</verstretch>
+   </sizepolicy>
+  </property>
+  <property name="windowTitle" >
+   <string>Set nickname</string>
+  </property>
+  <layout class="QVBoxLayout" >
+   <property name="margin" >
+    <number>9</number>
+   </property>
+   <property name="spacing" >
+    <number>6</number>
+   </property>
+   <item>
+    <layout class="QVBoxLayout" >
+     <property name="margin" >
+      <number>0</number>
+     </property>
+     <property name="spacing" >
+      <number>6</number>
+     </property>
+     <item>
+      <widget class="QLabel" name="label" >
+       <property name="sizePolicy" >
+        <sizepolicy>
+         <hsizetype>1</hsizetype>
+         <vsizetype>1</vsizetype>
+         <horstretch>0</horstretch>
+         <verstretch>0</verstretch>
+        </sizepolicy>
+       </property>
+       <property name="text" >
+        <string>New nickname:</string>
+       </property>
+      </widget>
+     </item>
+     <item>
+      <widget class="QLineEdit" name="nickname" />
+     </item>
+    </layout>
+   </item>
+   <item>
+    <layout class="QHBoxLayout" >
+     <property name="margin" >
+      <number>0</number>
+     </property>
+     <property name="spacing" >
+      <number>6</number>
+     </property>
+     <item>
+      <spacer>
+       <property name="orientation" >
+        <enum>Qt::Horizontal</enum>
+       </property>
+       <property name="sizeHint" >
+        <size>
+         <width>131</width>
+         <height>31</height>
+        </size>
+       </property>
+      </spacer>
+     </item>
+     <item>
+      <widget class="QPushButton" name="okButton" >
+       <property name="text" >
+        <string>OK</string>
+       </property>
+      </widget>
+     </item>
+     <item>
+      <widget class="QPushButton" name="cancelButton" >
+       <property name="text" >
+        <string>Cancel</string>
+       </property>
+      </widget>
+     </item>
+     <item>
+      <spacer>
+       <property name="orientation" >
+        <enum>Qt::Horizontal</enum>
+       </property>
+       <property name="sizeHint" >
+        <size>
+         <width>40</width>
+         <height>20</height>
+        </size>
+       </property>
+      </spacer>
+     </item>
+    </layout>
+   </item>
+  </layout>
+ </widget>
+ <resources/>
+ <connections>
+  <connection>
+   <sender>okButton</sender>
+   <signal>clicked()</signal>
+   <receiver>NicknameDialog</receiver>
+   <slot>accept()</slot>
+   <hints>
+    <hint type="sourcelabel" >
+     <x>278</x>
+     <y>253</y>
+    </hint>
+    <hint type="destinationlabel" >
+     <x>96</x>
+     <y>254</y>
+    </hint>
+   </hints>
+  </connection>
+  <connection>
+   <sender>cancelButton</sender>
+   <signal>clicked()</signal>
+   <receiver>NicknameDialog</receiver>
+   <slot>reject()</slot>
+   <hints>
+    <hint type="sourcelabel" >
+     <x>369</x>
+     <y>253</y>
+    </hint>
+    <hint type="destinationlabel" >
+     <x>179</x>
+     <y>282</y>
+    </hint>
+   </hints>
+  </connection>
+ </connections>
+</ui>

data/examples/qdbus/chat/makefile

@@ -0,0 +1,8 @@
+all: ui_chatmainwindow.rb ui_chatsetnickname.rb
+
+ui_chatmainwindow.rb: chatmainwindow.ui
+	rbuic4 chatmainwindow.ui -o ui_chatmainwindow.rb
+
+ui_chatsetnickname.rb: chatsetnickname.ui
+	rbuic4 chatsetnickname.ui -o ui_chatsetnickname.rb
+

data/examples/qdbus/complexpingpong/complexping.rb

@@ -0,0 +1,92 @@
+=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
+    
+require 'Qt'
+require './ping-common.rb'
+   
+class Ping < Qt::Object
+    slots 'start(const QString&, const QString&, const QString&)'
+
+    def start(name, oldValue, newValue)
+        if name != SERVICE_NAME || newValue.empty?
+            return
+        end
+
+        # find our remote
+        iface = Qt::DBusInterface.new(SERVICE_NAME, "/", "com.trolltech.QtDBus.ComplexPong.Pong",
+                                   Qt::DBusConnection.sessionBus, self)
+        if !iface.valid?
+            $stderr.puts("%s" % Qt::DBusConnection.sessionBus.lastError.message)
+            Qt::CoreApplication.instance.quit
+        end
+    
+        connect(iface, SIGNAL(:aboutToQuit), Qt::CoreApplication.instance(), SLOT(:quit))
+    
+        while true
+            print("Ask your question: ")
+    
+            line = gets.strip
+            if line.empty?
+                iface.call("quit")
+                return
+            elsif line == "value"
+                reply = iface.value
+                if !reply.nil?
+                    puts("value = %s" % reply)
+                end
+            elsif line =~ /^value=/
+                iface.setValue Qt::Variant.new(line[6, line.length])
+            else
+                reply = Qt::DBusReply.new(iface.call("query", Qt::Variant.new(line)))
+                if reply.valid?
+                    puts("Reply was: %s" % reply.value.value)
+                end
+            end
+    
+            if iface.lastError.valid?
+                $stderr.puts("Call failed: %s" % iface.lastError.message)
+            end
+        end
+    end    
+end
+
+app = Qt::CoreApplication.new(ARGV)
+    
+if !Qt::DBusConnection.sessionBus.connected?
+    $stderr.puts("Cannot connect to the D-BUS session bus.\n" \
+                    "To start it, run:\n" \
+                    "\teval `dbus-launch --auto-syntax`\n")
+    exit(1)
+end
+    
+ping = Ping.new
+ping.connect(Qt::DBusConnection.sessionBus.interface,
+             SIGNAL('serviceOwnerChanged(QString,QString,QString)'),
+             SLOT('start(QString,QString,QString)'))
+
+pong = Qt::Process.new
+pong.start("ruby ./complexpong.rb")
+
+app.exec

data/examples/qdbus/complexpingpong/complexpong.rb

@@ -0,0 +1,83 @@
+#!/usr/bin/ruby
+
+=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
+
+require 'Qt'
+require './ping-common.rb'
+
+class Pong < Qt::DBusAbstractAdaptor
+    q_classinfo("D-Bus Interface", "com.trolltech.QtDBus.ComplexPong.Pong")
+
+    signals :aboutToQuit
+    slots 'QDBusVariant query(QString)', :quit,
+			'QString value()', 'setValue(QString)'
+    
+    # the property
+    def value()
+        return @m_value
+    end
+    
+    def setValue(newValue)
+        @m_value = newValue
+    end
+    
+    def quit
+        Qt::Timer.singleShot(0, Qt::CoreApplication.instance, SLOT(:quit))
+    end
+    
+    def query(query)
+        q = query.downcase
+        if q == "hello"
+            return Qt::DBusVariant.new("World")
+        elsif q == "ping"
+            return Qt::DBusVariant.new("Pong")
+        elsif q == "the answer to life, the universe and everything"
+            return Qt::DBusVariant.new(42)
+        elsif !q.index("unladen swallow").nil?
+            if !q.index("european").nil?
+                return Qt::DBusVariant.new(11.0)
+            end
+            return Qt::DBusVariant.new(Qt::ByteArray.new("african or european?"))
+        end
+    
+        return Qt::DBusVariant.new("Sorry, I don't know the answer")
+    end
+end
+
+app = Qt::CoreApplication.new(ARGV)
+    
+obj = Qt::Object.new
+pong = Pong.new(obj)
+pong.connect(app, SIGNAL(:aboutToQuit), SIGNAL(:aboutToQuit))
+pong.setValue("initial value")
+Qt::DBusConnection.sessionBus.registerObject("/", obj)
+    
+if !Qt::DBusConnection.sessionBus.registerService(SERVICE_NAME)
+    $stderr.puts("%s" % Qt::DBusConnection.sessionBus.lastError.message)
+    exit(1)
+end
+        
+app.exec

data/examples/qdbus/complexpingpong/ping-common.rb

@@ -0,0 +1 @@
+SERVICE_NAME = "com.trolltech.QtDBus.PingExample"

data/examples/qdbus/listnames/listnames.rb

@@ -0,0 +1,69 @@
+#!/usr/bin/ruby
+=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'
+
+def method1()
+    qDebug("Method 1:")
+    
+    reply = Qt::DBusConnection.sessionBus.interface.registeredServiceNames
+    if !reply.valid?
+            qDebug("Error:" + reply.error.message)
+            exit 1
+    end
+    reply.value.each {|name| qDebug(name)}
+end
+    
+def method2()
+    qDebug("Method 2:")
+    
+    bus = Qt::DBusConnection.sessionBus
+    dbus_iface = Qt::DBusInterface.new("org.freedesktop.DBus", "/org/freedesktop/DBus", 
+                                       "org.freedesktop.DBus", bus)
+        
+    qDebug(dbus_iface.call("ListNames").arguments[0].value.inspect)
+end
+    
+def method3()
+    qDebug("Method 3:")
+    qDebug(Qt::DBusConnection.sessionBus.interface.registeredServiceNames.value.inspect)
+end
+    
+app = Qt::CoreApplication.new(ARGV)
+    
+if !Qt::DBusConnection.sessionBus.connected?
+    $stderr.puts("Cannot connect to the D-BUS session bus.\n" \
+                    "To start it, run:\n" \
+                    "\teval `dbus-launch --auto-syntax`\n")
+    exit 1
+end
+    
+method1()
+method2()
+method3()
+
+exit 0
+

data/examples/qdbus/pingpong/ping-common.rb

@@ -0,0 +1 @@
+SERVICE_NAME = "com.trolltech.QtDBus.PingExample"

data/examples/qdbus/pingpong/ping.rb

@@ -0,0 +1,52 @@
+=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
+
+require 'Qt'
+require './ping-common.rb'
+	
+app = Qt::CoreApplication.new(ARGV)
+	
+if !Qt::DBusConnection.sessionBus.connected?
+	$stderr.puts("Cannot connect to the D-BUS session bus.\n" \
+	                "To start it, run:\n" \
+	                "\teval `dbus-launch --auto-syntax`\n")
+	exit(1)
+end
+	
+iface = Qt::DBusInterface.new(SERVICE_NAME, "/", "", Qt::DBusConnection.sessionBus)
+if iface.valid?
+	message = iface.call("ping", ARGV.length > 0 ? ARGV[0] : "")
+	reply = Qt::DBusReply.new(message)
+	if reply.valid?
+		puts("Reply was: %s\n" % reply.value)
+		exit(0)
+	end
+	
+	$stderr.puts("Call failed: %s\n" % reply.error.message)
+	exit(1)
+end
+	
+$stderr.puts("%s\n" % Qt::DBusConnection.sessionBus.lastError.message)
+exit(1)

data/examples/qdbus/pingpong/pong.rb

@@ -0,0 +1,55 @@
+=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
+
+require 'Qt'
+require './ping-common.rb'
+
+class Pong < Qt::Object
+	slots 'QString ping(const QString&)'
+	
+	def ping(arg)
+	    Qt::MetaObject.invokeMethod(Qt::CoreApplication.instance(), "quit")
+	    return 'ping("' + arg +'") got called'
+	end
+end
+	
+app = Qt::CoreApplication.new(ARGV)
+	
+if !Qt::DBusConnection::sessionBus.connected?
+	$stderr.puts("Cannot connect to the D-BUS session bus.\n" \
+	                "To start it, run:\n" \
+	                "\teval `dbus-launch --auto-syntax`\n")
+	exit(1)
+end
+	
+if !Qt::DBusConnection.sessionBus.registerService(SERVICE_NAME)
+	$stderr.puts("%s\n" %  Qt::DBusConnection.sessionBus.lastError.message)
+	exit(1)
+end
+	
+pong = Pong.new
+Qt::DBusConnection.sessionBus.registerObject("/", pong, Qt::DBusConnection::ExportAllSlots)
+	    
+app.exec()

data/examples/qdbus/remotecontrolledcar/car/car.rb

@@ -0,0 +1,151 @@
+=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 CarAdaptor < Qt::Object
+    q_classinfo("D-Bus Interface", "com.trolltech.Examples.CarInterface")
+
+    slots :accelerate, :decelerate, :turnLeft, :turnRight
+    signals :crashed
+
+    def initialize(car)
+        super()
+		@car = car
+        startTimer(1000 / 33)
+    end
+    
+    def accelerate
+        @car.accelerate
+    end
+    
+    def decelerate
+        @car.decelerate
+    end
+    
+    def turnLeft
+        @car.turnLeft
+    end
+    
+    def turnRight
+        @car.turnRight
+    end
+    
+    def timerEvent(event)
+        @car.timerEvent(event)
+    end
+ end
+
+# Note that as Ruby doesn't have multiple inheritance, and 'Car', can't inherit from 
+# Qt::Object as well as Qt::Graphics item. So the timerEvent event handling is done
+# in the CarAdaptor instance which is a Qt::Object, which calls back to the Car
+# instance.
+#
+class Car < Qt::GraphicsItem
+    def boundingRect()
+        return Qt::RectF.new(-35, -81, 70, 115)
+    end
+    
+    def initialize()
+        super
+        @color = Qt::Brush.new(Qt::green)
+        @wheelsAngle = 0.0 
+        @speed = 0.0
+        setFlag(Qt::GraphicsItem::ItemIsMovable, true)
+        setFlag(Qt::GraphicsItem::ItemIsFocusable, true)
+    end
+    
+    def accelerate()
+        if @speed < 10
+            @speed += 1
+        end
+    end
+    
+    def decelerate()
+        if @speed > -10
+            @speed -= 1
+        end
+    end
+    
+    def turnLeft()
+        if @wheelsAngle > -30
+            @wheelsAngle -= 5
+        end
+    end
+    
+    def turnRight()
+        if @wheelsAngle < 30
+           @wheelsAngle += 5
+        end
+    end
+    
+    def paint(painter, option, widget)
+        painter.brush = Qt::Brush.new(Qt::gray)
+        painter.drawRect(-20, -58, 40, 2) # front axel
+        painter.drawRect(-20, 7, 40, 2) # rear axel
+    
+        painter.brush = @color
+        painter.drawRect(-25, -79, 50, 10) # front wing
+    
+        painter.drawEllipse(-25, -48, 50, 20) # side pods
+        painter.drawRect(-25, -38, 50, 35) # side pods
+        painter.drawRect(-5, 9, 10, 10) # back pod
+    
+        painter.drawEllipse(-10, -81, 20, 100) # main body
+    
+        painter.drawRect(-17, 19, 34, 15) # rear wing
+    
+        painter.brush = Qt::Brush.new(Qt::black)
+        painter.drawPie(-5, -51, 10, 15, 0, 180 * 16)
+        painter.drawRect(-5, -44, 10, 10) # cocpit
+    
+        painter.save()
+        painter.translate(-20, -58)
+        painter.rotate(@wheelsAngle)
+        painter.drawRect(-10, -7, 10, 15) # front left
+        painter.restore()
+    
+        painter.save()
+        painter.translate(20, -58)
+        painter.rotate(@wheelsAngle)
+        painter.drawRect(0, -7, 10, 15) # front left
+        painter.restore()
+    
+        painter.drawRect(-30, 0, 12, 17) # rear left
+        painter.drawRect(19, 0, 12, 17)  # rear right
+    end
+    
+    def timerEvent(event)
+        axelDistance = 54
+        wheelsAngleRads = (@wheelsAngle * Math::PI) / 180
+        turnDistance = Math.cos(wheelsAngleRads) * axelDistance * 2
+        turnRateRads = wheelsAngleRads / turnDistance  # rough estimate
+        turnRate = (turnRateRads * 180) / Math::PI
+        rotation = @speed * turnRate
+        
+        rotate(rotation)
+        translate(0, -@speed)
+        update()
+    end
+end