summaryrefslogtreecommitdiffstats
path: root/korundum/rubylib/tutorials/p8/p8.rb
blob: 1f39f0e081ba726be3a949833724eacfa56ed835 (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
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, TQ_SIGNAL('clicked(TQListViewItem *)'), 
		    self, TQ_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