From 90825e2392b2d70e43c7a25b8a3752299a933894 Mon Sep 17 00:00:00 2001
From: toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Wed, 25 Nov 2009 17:56:58 +0000
Subject: Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
 BUG:215923

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdebindings@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
---
 korundum/rubylib/tutorials/p8/p8.rb | 39 +++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 korundum/rubylib/tutorials/p8/p8.rb

(limited to 'korundum/rubylib/tutorials/p8/p8.rb')

diff --git a/korundum/rubylib/tutorials/p8/p8.rb b/korundum/rubylib/tutorials/p8/p8.rb
new file mode 100644
index 00000000..711fe021
--- /dev/null
+++ b/korundum/rubylib/tutorials/p8/p8.rb
@@ -0,0 +1,39 @@
+require 'Korundum'
+  
+class BookMarkList < KDE::ListView
+    k_dcop 'void add(QString)'
+	
+    slots 'setURLInBrowser(QListViewItem *)'
+ 
+    def initialize()
+       super(nil, "Bookmarks")
+       addColumn( i18n("My Bookmarks") );
+       connect( self, SIGNAL('clicked(QListViewItem *)'), 
+		    self, SLOT('setURLInBrowser(QListViewItem *)'))
+    end
+ 
+    def add( s )
+        insertItem( KDE::ListViewItem.new( self , s ) )
+    end
+ 
+    def setURLInBrowser( item )
+        if item.nil? then return end
+        dcopRef = KDE::DCOPRef.new("p7", "Browser")
+        if ! dcopRef.setURL(item.text(0))
+            qWarning("Error with DCOP\n")
+        end
+    end
+end
+
+    about = KDE::AboutData.new("p8", "Tutorial - p8", "0.1")
+    KDE::CmdLineArgs.init(ARGV, about)
+    a = KDE::UniqueApplication.new()
+	
+    mylist = BookMarkList.new
+    mylist.resize( 300, 200 )
+	
+    a.mainWidget = mylist
+    mylist.show
+	
+    a.exec 
+
-- 
cgit v1.2.1