package dbus_object;

sub system_bus {
    my %params = @_;
    #- use nomainloop => 1 to disable Net::DBus::Reactor main loop
    require Net::DBus;
    Net::DBus->system(%params);
}

sub new {
    my ($type, $bus, $service, $path, $interface) = @_;
    my $o = {
	bus => $bus,
	service => $service,
	path => $path,
	interface => $interface,
    };
    attach_object($o);
    bless $o, $type;
}

sub attach_object {
    my ($o) = @_;
    my $service = $o->{bus}->get_service($o->{service});
    $o->{object} = $service->get_object($o->{path}, $o->{interface});
}

sub call_method {
    my ($o, $method, @args) = @_;
    $o->{object}->$method(@args);
}

sub safe_call_method {
    my ($o, $method, @args) = @_;
    my @ret;
    eval {
        @ret = $o->call_method($method, @args);
    };
    if ($@) {
        print STDERR "($method) exception: $@\n";
        $o->{bus}{connection}->dispatch;
        return;
    }
    @ret;
}

sub set_gtk2_watch {
    my ($o) = @_;
    set_gtk2_watch_helper($o->{bus});
}

sub set_gtk2_watch_helper {
    my ($bus) = @_;
    $bus->{connection}->set_watch_callbacks(sub {
        my ($con, $watch) = @_;
        my $flags = $watch->get_flags;
        require Net::DBus::Binding::Watch;
	require Gtk2::Helper;
        if ($flags & &Net::DBus::Binding::Watch::READABLE) {
            Gtk2::Helper->add_watch($watch->get_fileno, 'in', sub {
                $watch->handle(&Net::DBus::Binding::Watch::READABLE);
                $con->dispatch;
                1;
            });
        }
        #- do nothing for WRITABLE watch, we dispatch when needed
    }, undef, undef); #- do nothing when watch is disabled or toggled yet

    $bus->{connection}->dispatch;
}

1;
p´ØFk­Ù*JçøŠ†k£ÞÜ%O%ü‚ì3¦ÙÛ¢»Xê›Ã;júkÉ¹çççÖ<MàG‰d—ÓñÓ#q÷Ä )ïkð2Hlßú›½™‹¨Ôédz},Rôæ¾_±·ó­Ÿ¢]¬wºŸ·ÒÏlGDÕµïâÐ³ãuíÂˆs{Yþ•!OnI'@ß:Z '^°¸£½ ü$ÚƒÌ]è5~úTîÇ;!BZüVžÉ6t$–"þBœðÎhÇ‘ãàÎº_Ù¼NÖîbmmíØBÛ‹c}qÄÒN½d _eÚ3ËÅk±‡žÙ[‰Á×/ægVœ¡µ]0i¯û
úÖ8ê¯ ƒÀÖÀ’/îm/å9¼¼Ù{ƒ/“Pž†¶c‡‰E˜3x:K#op*ÝéŒDl’ c'ßÆ@3ØÕtÉOM§pXðx‰ÈîrWÆs|{ØZ›:äGi}3cÉü¢e¥ŸN~µwp°ïÂsãd¶	œÔ£Ëcª&jíÂ$ðXŠ´ænÇÅ½3ÁÛl4ƒkn§"jØŒŸ lÏ´^‰0Ñ¸ƒ·î"€ƒ´{Ž+õsC·æ~vÇÂ~[º¾¯Õy
øë³÷ßÏ~zöñ¯¼ÖžVg|}ÁÿaK
k¾£M•ÎbŠé˜^O'—ÿŠ\OGøˆ$¼øoÈÀb¸XG°š¦Öî¢ ‚›”]ŠázÂú°œ;ÄvPêïjzÝÉ5×Ð_$È‰9õaÇÃMú²«—»ètKº@ïÂJ]ma»±ƒÝá•HSl}ÜO–êyüë2®w|ùÛp|Ú˜ù…ÌIÏô`kÅ¡XÀ9‚Ûñç÷o~zÿý¯¡ñÁ‡Šw¾5XÀš<S—©‡ÇTvá urå>ð’LQP¤ÂØ?ŽÆ‹Ysüh[Ñt×ÈE]]Ñcò-˜ìMrÞX¹S0?|’×þÆ±làâe{,¦ öuð ¬è ýÁÙÚŠÆOož<)¡w=½žô8‚òEê!Ç«6€#ÂH,Ð«ÃŠwŒ#Ð{O¯&ÿ\¶kŒîìx{þæîì#k2j^PÇ9G¸}'z‡èzÜßï‘:$ŽÒ‹ÁÃ|ôïØ«cqâzöcêÙ=ÌMzøF%|CãGóG%ý£’þQIÿ¨¤ÿßLIšîÐ
<GÓÒ—ù˜ÉÓt,)äù"R¦þ\©‰}¬Ÿ_¼~1|	ü{2¼º=ý¤C›·?|èÙ"–Ù£d8¾éÓlëúöb!âqÏîT»I±?“Üe&Ek‹!ZáëÈÐÚ¨–[)" IâE8¥÷'Bêí†üþa˜´ïÄÒõ@lóÅD7OØ±(w‚¶ctrVÿøœ5ÂUŠe 4|’3Qùa'!Êüøpn/îÒÐúƒ’û bÝ[wÅª­ÊXõäÑTçøAÜÐ—ƒd=4 ƒC|	Èpè@†SWê‚¸Á	^2‰(:P§/ä]Ó¥;“ð¢™<‰t Ó¢uI¬Ñ3IÆÑŽ;:P—U`ô>Ò LÒÔ…ä&QHê2<“\¤u!¹IHÒº,“ÄTRk2‰O:P—=¥¢u‡ùãóúÀ]½Y—¡£xu(‹¬m©Ôåô3Å÷ê@]†g
öÕº,{Sä¯Ô Ãép]z4	t% cL°g’ît .{Í$êé@]Ö‚IîÓ¡Ã:P—“¤1ŽX‡ì²ÜMAÅ:P—ÝeŠ0ÖºËn¬™G¨SÔ(Ej¦@dÈ$Rj@QÉe¸'tf]G·G0#—>äfš`ž@Ç(`¯+=>Ù·Ço_0‹J´Uè„!}FÄáWp¸:T”ÎT(:Æfñ4ô—ÀHR$=Aãë]7A©~›`òN¥´ˆî)ŠŒ’†d-5K£C9ÚúÍeÈ¹0Rº#+Òd¿Ç²ø=šwJ/Í;5ïÍ;å—ÿÍ;	„ÌVžÇBµ/Þ?&jáÒ¯w”Ñ¹=¥Ñ–¼ž¦äFwÜ„˜½`ëW|4ÑñôÝ¹Â½ƒqÃ]ÜN†/^¯F­!Ô ??LÃî6jå¸ñÂI#ôUîÙŸÄ1Ðfx9éÓ
nváîÙ]¬E÷lïâDlz6Jãþ¡ãzÿ&‘èÞ&Œ(:„ò·6…YXôÒÒÃKÞ¸Þ/§×ýY7A*ó“gä:bŽÓÁwƒn¶¶ŸXf\¶Ìù±‹	Š×ÂúïpVÿ—§ó$Å€Äh<]IlÅ‚}7nLBm(¾` ÓÌ."ñûð(IÃ"J·Îþ´‘^¬m%Þ+6¦!º—?…ö4XŸÛy“¡f‹µXÜ¡odñ{7ÓëN¨9Á"¾øë³{ýöÕÿõþûg/üþL9úç6Gù sú÷hÕÉ§ì†8ã¿Î §;1Ã(„…$mœ;Ôd¯Ä8ÿ6.<ßØ‘§ºYÔ>]—›ó„ÖHWú9Q~Ô¬zH»hKßþ¥„áÎâgÖ€4|þîÝÇ,‰õÚ¾§µ[tMa­,cëò|tŠ¡