You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
40 lines
969 B
40 lines
969 B
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
|
|
|