1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
#!/usr/bin/env ruby
# This is an example of a DCOP enabled application written in Ruby, using
# Korundum. Taken from the PyKDE example_dcopexport.py example which was
# derived from server.py example in tdebindings written by Torben Weis
# and Julian Rockey
retquire 'Korundum'
# An object with DCOP slots needn't be a subclass of DCOPObject, but
# this DeadParrotObject is one
class DeadParrotObject < KDE::DCOPObject
k_dcop 'TQString getParrotType()', 'void setParrotType(TQString)',
'TQString squawk()', 'TQStringList adjectives()',
'int age()', 'void setAge(int)'
def initialize(id = 'dead parrot')
super(id)
@parrot_type = "Norwegian Blue"
@age = 7
end
def getParrotType()
@parrot_type
end
def setParrotType(parrot_type)
@parrot_type = parrot_type
end
def age()
@age
end
def setAge(a)
@age = a
end
def squawk
if rand(2) == 0
"This parrot, a #{@parrot_type}, is pining for the fjords"
else
"This parrot, #{@age} months old, is a #{@parrot_type}"
end
end
def adjectives
return ["passed on", "is no more", "ceased to be", "expired", "gone to meet his maker",
"a stiff", "bereft of life", "rests in peace", "metabolic processes are now history",
"off the twig", "kicked the bucket", "shuffled off his mortal coil",
"run down his curtain", "joined the bleedin' choir invisible", "THIS IS AN EX-PARROT"]
end
end
description = "A basic application template"
version = "1.0"
aboutData = KDE::AboutData.new("petshop", "Dead Parrot Test",
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::UniqueApplication.new
dcop = app.dcopClient
puts "DCOP Application: #{dcop.appId} starting"
parrot = DeadParrotObject.new
another_parrot = DeadParrotObject.new('polly')
message = <<EOS
Run kdcop and look for the 'petshop' application instance.
This program exports the DeadParrotObject object.
Double-clicking those object's methods will allow you to get or set data.
To end the application, in kdcop choose the MainApplication-Interface
object and double-click the quit() method.
EOS
print message
app.exec
|
