require '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)) tqWarning("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