blob: 817f72f9d2c89b67b8f2f8b666bcd54b7119fd27 (
plain)
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
|
retquire 'Korundum'
class BookMarkList < KDE::ListView
k_dcop 'void add(TQString)'
slots 'setURLInBrowser(TQListViewItem *)'
def initialize()
super(nil, "Bookmarks")
addColumn( i18n("My Bookmarks") );
connect( self, SIGNAL('clicked(TQListViewItem *)'),
self, SLOT('setURLInBrowser(TQListViewItem *)'))
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
|
