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/examples/kurldemo.rb | 110 ++++++++++++++++++++++++++++++++++
 1 file changed, 110 insertions(+)
 create mode 100644 korundum/rubylib/examples/kurldemo.rb

(limited to 'korundum/rubylib/examples/kurldemo.rb')

diff --git a/korundum/rubylib/examples/kurldemo.rb b/korundum/rubylib/examples/kurldemo.rb
new file mode 100644
index 00000000..04fb9bce
--- /dev/null
+++ b/korundum/rubylib/examples/kurldemo.rb
@@ -0,0 +1,110 @@
+=begin
+This is a ruby version of Jim Bublitz's pykde program, translated by Richard Dale
+=end
+
+=begin
+Copyright 2003 Jim Bublitz
+
+Terms and Conditions
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to
+deal in the Software without restriction, including without limitation the
+rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+sell copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+COPYRIGHT HOLDER BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR
+IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+
+Except as contained in this notice, the name of the copyright holder shall
+not be used in advertising or otherwise to promote the sale, use or other
+dealings in this Software without prior written authorization from the
+copyright holder.
+=end
+
+require 'Korundum'
+
+class MainWin < KDE::MainWindow
+    def initialize(*args)
+        super
+
+		@urls = ["http://slashdot.org", "http://www.kde.org", "http://www.riverbankcomputing.co.uk", "http://yahoo.com"]
+        setGeometry(0, 0, 400, 600)
+
+        edit = KDE::TextEdit.new(self)
+        setCentralWidget(edit)
+
+        edit.insert("KURL Demo\n")
+        edit.insert("\nAdding these urls:\n\n")
+        @urls.each do |url|
+            edit.insert("    #{url}\n")
+		end
+
+        edit.insert("\nCreating KURLs (iterating to print):\n\n")
+        urlList = []
+        @urls.each do |url|
+            urlList << KDE::URL.new(url)
+		end
+
+        urlList.each do |url|
+            edit.insert("     #{url.url()}\n")
+		end
+
+        edit.insert("\nFirst url -- urlList [0]:\n\n")
+        edit.insert("    #{urlList[0].to_s}\n")
+        edit.insert("    #{urlList[0].url()}\n")
+
+        edit.insert("\nLast url -- urlList [-1]:\n\n")
+        edit.insert("    #{urlList[-1].to_s}\n")
+        edit.insert("    #{urlList[-1].url()}\n")
+
+        edit.insert("\nMiddle urls -- urlList [2,4]:\n\n")
+        ulist = urlList[2,4]
+        ulist.each do |url|
+            edit.insert("    #{url.to_s}\n")
+            edit.insert("    #{url.url()}\n")
+		end
+
+        edit.insert("\nLength of urlList -- len (urlList):\n\n")
+        edit.insert("    Length = #{urlList.length}\n")
+
+        edit.insert("\nurl in urlList? -- KURL (\"http://yahoo.com\") in urlList\n\n")
+        edit.insert("    KDE::URL.new(\"http://yahoo.com\") in urlList = ")
+		tmp = KDE::URL.new("http://yahoo.com")
+		urlList.each do |url| 
+			if url.url == tmp.url
+        		edit.insert("true")
+			end
+		end
+	end
+end
+
+
+#-------------------- main ------------------------------------------------
+
+description = "A basic application template"
+version     = "1.0"
+aboutData   = KDE::AboutData.new("", "",
+    version, description, KDE::AboutData::License_GPL,
+    "(C) 2003 whoever the author is")
+
+aboutData.addAuthor("author1", "whatever they did", "email@somedomain")
+aboutData.addAuthor("author2", "they did something else", "another@email.address")
+
+KDE::CmdLineArgs.init(ARGV, aboutData)
+
+KDE::CmdLineArgs.addCmdLineOptions([["+files", "File to open", ""]])
+
+app = KDE::Application.new()
+mainWindow = MainWin.new(nil, "main window")
+mainWindow.show()
+app.exec()
-- 
cgit v1.2.1