1 files changed, 75 insertions, 0 deletions
diff --git a/zarb-ml/mageia-artwork/2011-April/000244.html b/zarb-ml/mageia-artwork/2011-April/000244.html
new file mode 100644
index 000000000..b4a3c46a2
--- /dev/null
+++ b/zarb-ml/mageia-artwork/2011-April/000244.html
@@ -0,0 +1,75 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
+<HTML>
+ <HEAD>
+   <TITLE> [Mageia-artwork] [Bug 270] No icon in hardware
+   </TITLE>
+   <LINK REL="Index" HREF="index.html" >
+   <LINK REL="made" HREF="mailto:mageia-artwork%40mageia.org?Subject=Re%3A%20%5BMageia-artwork%5D%20%5BBug%20270%5D%20No%20icon%20in%20hardware&In-Reply-To=%3C20110418174107.474D942932%40alamut.mageia.org%3E">
+   <META NAME="robots" CONTENT="index,nofollow">
+   <META http-equiv="Content-Type" content="text/html; charset=us-ascii">
+   <LINK REL="Previous"  HREF="000243.html">
+   <LINK REL="Next"  HREF="000245.html">
+ </HEAD>
+ <BODY BGCOLOR="#ffffff">
+   <H1>[Mageia-artwork] [Bug 270] No icon in hardware</H1>
+    <B>AL13N</B> 
+    <A HREF="mailto:mageia-artwork%40mageia.org?Subject=Re%3A%20%5BMageia-artwork%5D%20%5BBug%20270%5D%20No%20icon%20in%20hardware&In-Reply-To=%3C20110418174107.474D942932%40alamut.mageia.org%3E"
+       TITLE="[Mageia-artwork] [Bug 270] No icon in hardware">bugzilla-daemon at mageia.org
+       </A><BR>
+    <I>Mon Apr 18 19:41:07 CEST 2011<package dbus_object;
+sub system_bus() {
+    require Net::DBus;
+    Net::DBus->system;
+}
+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 dispatch {
+    my ($o) = @_;
+    $o->{bus}{connection}->dispatch;
+}
+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->dispatch;
+        return;
+    }
+    @ret;
+}
+sub set_gtk2_watch {
+    my ($o) = @_;
+    $o->{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
+    $o->dispatch;
+}
+1;