pangdudu-ruby-dbus 0.2.3 → 0.2.4

data/NEWS

@@ -1,31 +0,0 @@
-= Ruby D-Bus NEWS
-
-== Ruby D-Bus "Thanks for all the fish" 0.2.1 - 2007-12-29
-
-More bugfixes, mostly supplied by users supplying us with patches.  Thanks!
-
- * Support for new types added: 
-   - dict (courtesy of Drake Wilson);
-   - double (courtesy of Patrick Sissons);
-   - variant.
- * Improved exception raise support (courtesy of Sjoerd Simons,
-   Patrick Sissons).
- * Some polish (removed debug output, solved unnecessary warnings).
- * Documentation updates, example fixes and updates.
-
-== Ruby D-Bus "Almost live from DebConf 7" 0.2.0 - 2007-06-02
-
-Again a bugfix release, also meant to be the public release
-for exploratory purposes. New in 0.2.0:
-
- * Complete tutorial revamp.
- * Relicensed to the LGPL.
-
-== Ruby D-Bus "Release Often" 0.1.1 - 2007-04-23
-
-Bugfix release.  Fixes hardcoded string for requesting bus names,
-found by Rudi Cilibrasi.
-
-== Ruby D-Bus "Happy Birthday Paul" 0.1.0 - 2007-04-17
-
-First release. Supports most of D-Bus' features.

data/README

@@ -1,54 +0,0 @@
-= Ruby D-Bus README
-
-Ruby D-Bus provides an implementation of the D-Bus protocol such that the
-D-Bus system can be used in the Ruby programming language.
-
-== Requirements
-
- * Ruby 1.8 (>= 1.8.6?)
-
- Optionally, for generating the tutorial:
- * Webgen (>= 0.4) 
-
-== Installation
-
- 1. Decompress the Ruby D-Bus tarball (ruby-dbus-<version>.tar.gz).
- 2. Move to top-level directory and type:
-
-      $ ruby setup.rb config
-      $ ruby setup.rb setup
-     ($ su)
-      # ruby setup.rb install
-
-    You can also install files in your favorite directory by
-    supplying setup.rb some options. Try "ruby setup.rb --help".
-
-== Feature
-
-Ruby D-Bus currently supports the following features:
-
- * Connecting to local buses.
- * Accessing remote services, objects and interfaces.
- * Invoking methods on remote objects synchronously and asynchronously.
- * Catch signals on remote objects and handle them via callbacks.
- * Remote object introspection.
- * Walking object trees.
- * Creating services and registering them on the bus.
- * Exporting objects with interfaces on a bus for remote use.
- * Rubyish D-Bus object and interface syntax support that automatically
-   allows for introspection.
- * Emitting signals on exported objects.
- * Connection to a local or remote bus over TCP/IP
-
-== Usage
-
- See some of the examples in the examples/ subdirectory of the tarball.
- Also, check out the included tutorial (in Webgen format) in doc/tutorial/
- or view it online on http://trac.luon.net/data/ruby-dbus/tutorial/.
-
-== License
-
- Ruby D-Bus is free software; you can redistribute it and/or modify it
- under the terms of the GNU Lesser General Public License as published by the
- Free Software Foundation; either version 2.1 of the License, or (at
- your option) any later version.

data/examples/gdbus/gdbus

@@ -1,255 +0,0 @@
-#!/usr/bin/ruby
-#
-# This is a quite complex example using internal lower level API.
-# Not a good starting point, but might be usefull if you want to do tricky
-# stuff.
-# -- Arnaud
-
-require 'dbus'
-require 'libglade2'
-
-$enable_system = false
-
-class MethodCallWindow
-  def initialize(pwindow, intf, meth)
-    @intf, @meth = intf, meth
-    @entries = Array.new
-    @dialog = Gtk::Dialog.new(meth.name, pwindow,
-                             Gtk::Dialog::MODAL | Gtk::Dialog::NO_SEPARATOR,
-                             [Gtk::Stock::OK, Gtk::Dialog::RESPONSE_OK],
-                             [Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL])
-
-    @meth.params.each do |param|
-      shbox = Gtk::HBox.new(true, 0)
-      label = Gtk::Label.new("#{param[0]} (#{param[1]})")
-      input = Gtk::Entry.new
-      @entries << input
-      shbox.pack_start(label, true, true, 0)
-      shbox.pack_start(input, true, true, 0)
-      @dialog.vbox.pack_start(shbox, true, true, 0)
-      @dialog.vbox.show_all
-    end
-  end
-
-  def run
-    on_ok if @dialog.run == Gtk::Dialog::RESPONSE_OK
-    @dialog.destroy
-  end
-
-  def on_ok
-    bus = @intf.object.bus
-    m = DBus::Message.new(DBus::Message::METHOD_CALL)
-    m.path = @intf.object.path
-    m.interface = @intf.name
-    m.destination = @intf.object.destination
-    m.member = @meth.name
-    m.sender = bus.unique_name
-    @meth.params.each_with_index do |param, idx|
-      entry = @entries[idx]
-      data = nil
-      case param[1]
-      when "u", "i"
-        data = entry.text.to_i
-      when "s"
-        data = entry.text
-      when /^a/
-        begin
-          data = eval(entry.text)
-        rescue
-          puts "Incorrect data: #{data}"
-        end
-      end
-      m.add_param(param[1], data)
-    end
-    bus.on_return(m) do |retm|
-      if retm.is_a?(DBus::Error)
-        puts "Error: #{retm.inspect}"
-      else
-        puts "Method #{m.member} returns: #{retm.params.inspect}"
-      end
-    end
-    bus.send(m.marshall)
-  end
-end
-
-class DBusUI
-  def initialize
-    @glade = GladeXML.new("gdbus.glade") { |h| method(h) } # This block is like
-                                                           # black magic :)
-    @sessiontreeview = @glade.get_widget("sessiontreeview")
-    setup_treeview_renderer(@sessiontreeview, 'D-Bus Objects')
-    @sessiontreeview.selection.signal_connect("changed") do |selection|
-      on_treeview_selection_changed(selection)
-    end
-
-    @systemtreeview = @glade.get_widget("systemtreeview")
-    setup_treeview_renderer(@systemtreeview, 'D-Bus Objects')
-    @systemtreeview.selection.signal_connect("changed") do |selection|
-      on_treeview_selection_changed(selection)
-    end
-
-    @methsigtreeview = @glade.get_widget("methsigtreeview")
-    # ierk
-    setup_methodview_renderer(@methsigtreeview)
-
-    @window = @glade.get_widget("window1")
-    @window.show_all
-    start_buses
-  end
-
-  def beautify_method(meth)
-    # Damn, this need to be rewritten :p
-    s = meth.name + "("
-    if meth.kind_of?(DBus::Method)
-      s += (meth.params.collect { |a| "in #{a[0]}:#{a[1]}" } +
-            meth.rets.collect { |a| "out #{a[0]}:#{a[1]}" }).join(", ")
-    elsif meth.kind_of?(DBus::Signal)
-      s += (meth.params.collect { |a| "in #{a[0]}:#{a[1]}" }).join(", ")
-    end
-    s += ")"
-    s
-  end
-
-  def on_treeview_selection_changed(selection)
-    selected = selection.selected
-    model = Gtk::ListStore.new(String, String, DBus::Method,
-                               DBus::ProxyObjectInterface)
-    @methsigtreeview.model = model
-    if selected
-      if intf = selected[1]
-        intf.methods.keys.sort.each do |mi|
-          m = intf.methods[mi]
-          subiter = model.append
-          subiter[0] = beautify_method(m)
-          subiter[1] = "M"
-          subiter[2] = m
-          subiter[3] = intf
-        end
-        intf.signals.keys.sort.each do |mi|
-          m = intf.signals[mi]
-          subiter = model.append
-          subiter[0] = beautify_method(m)
-          subiter[1] = "S"
-          subiter[2] = m
-          subiter[3] = intf
-        end
-      end
-    end
-  end
-
-  def on_method_activated(view, path, column)
-    name = view.model.get_iter(path)[0]
-    puts "Clicked on: #{name.inspect}"
-    type = view.model.get_iter(path)[1]
-    intf = view.model.get_iter(path)[2]
-    if type == "M"
-      method = view.model.get_iter(path)[2]
-      intf = view.model.get_iter(path)[3]
-      MethodCallWindow.new(@window, intf, method).run
-    elsif type == "S"
-      signal = view.model.get_iter(path)[2]
-      intf = view.model.get_iter(path)[3]
-      mr = DBus::MatchRule.new.from_signal(intf, signal)
-      puts "*** Registering matchrule: #{mr.to_s} ***"
-      intf.object.bus.add_match(mr) do |sig|
-        puts "Got #{sig.member}(#{sig.params.join(',')})"
-      end
-    end
-  end
-
-  def on_sessiontreeview_row_activated(view, path, column)
-    name = view.model.get_iter(path)[0]
-    puts "Clicked on: #{name.inspect}"
-    intf = view.model.get_iter(path)[1]
-  end
-
-  def on_window_delete_event(window, event)
-    Gtk.main_quit
-  end
-
-  def setup_methodview_renderer(treeview)
-    renderer = Gtk::CellRendererText.new
-    col_offset = treeview.insert_column(-1, "T", renderer, 'text' => 1)
-    col_offset = treeview.insert_column(-1, "Name", renderer, 'text' => 0)
-    column = treeview.get_column(col_offset - 1)
-    column.clickable = true
-  end
-
-  def setup_treeview_renderer(treeview, str)
-    renderer = Gtk::CellRendererText.new
-    col_offset = treeview.insert_column(-1, str, renderer, 'text' => 0)
-    column = treeview.get_column(col_offset - 1)
-    column.clickable = true
-  end
-
-  def process_input(bus)
-    # THIS is the bad ass loop
-    # we should return to the glib main loop from time to time. Anyone with a
-    # proper way to handle it ?
-    bus.update_buffer
-    bus.messages.each do |msg|
-      bus.process(msg)
-    end
-  end
-
-  def start_buses
-    # call glibize to get dbus messages from the glib mainloop
-    DBus::SessionBus.instance.glibize
-    DBus::SystemBus.instance.glibize if $enable_system
-
-    DBus::SessionBus.instance.proxy.ListNames do |msg, names|
-      fill_treeview(DBus::SessionBus.instance, @sessiontreeview, names)
-    end
-    if $enable_system
-      DBus::SystemBus.instance.proxy.ListNames do |msg, names|
-        fill_treeview(DBus::SystemBus.instance, @systemtreeview, names)
-      end
-    end
-  end
-
-  def walk_node(model, iter, node)
-    node.each_pair do |key, val|
-      subiter = model.append(iter)
-      subiter[0] = key
-      walk_node(model, subiter, val)
-    end
-    unless node.object.nil?
-      node.object.interfaces.sort.each do |ifname|
-        subiter = model.append(iter)
-        subiter[0] = ifname
-        subiter[1] = node.object[ifname]
-      end
-    end
-  end
-
-  def introspect_services(model, bus)
-    el = @introspect_array.shift
-    if not el =~ /^:/
-      iter = model.append(nil)
-      iter[0] = el
-      puts "introspecting: #{el}"
-      begin
-        service = bus.service(el).introspect
-        walk_node(model, iter, service.root)
-      rescue Exception => e
-        puts "DBus Error:"
-        puts e.backtrace.join("\n")
-      end
-    end
-
-    not @introspect_array.empty?
-  end
-
-  def fill_treeview(bus, treeview, array)
-    model = Gtk::TreeStore.new(String, DBus::ProxyObjectInterface)
-    treeview.model = model
-    @introspect_array = array.sort
-    Gtk::idle_add { introspect_services(model, bus) }
-  end
-
-  def main
-    Gtk.main
-  end
-end
-
-DBusUI.new.main

data/examples/gdbus/gdbus.glade

@@ -1,184 +0,0 @@
-<?xml version="1.0" standalone="no"?> <!--*- mode: xml -*-->
-<!DOCTYPE glade-interface SYSTEM "http://glade.gnome.org/glade-2.0.dtd">
-
-<glade-interface>
-
-<widget class="GtkWindow" id="window1">
-  <property name="visible">True</property>
-  <property name="title" translatable="yes">GD-Bus</property>
-  <property name="type">GTK_WINDOW_TOPLEVEL</property>
-  <property name="window_position">GTK_WIN_POS_NONE</property>
-  <property name="modal">False</property>
-  <property name="default_width">500</property>
-  <property name="default_height">400</property>
-  <property name="resizable">True</property>
-  <property name="destroy_with_parent">False</property>
-  <property name="decorated">True</property>
-  <property name="skip_taskbar_hint">False</property>
-  <property name="skip_pager_hint">False</property>
-  <property name="type_hint">GDK_WINDOW_TYPE_HINT_NORMAL</property>
-  <property name="gravity">GDK_GRAVITY_NORTH_WEST</property>
-  <property name="focus_on_map">True</property>
-  <property name="urgency_hint">False</property>
-  <signal name="delete_event" handler="on_window_delete_event" last_modification_time="Sat, 17 Mar 2007 14:49:13 GMT"/>
-
-  <child>
-    <widget class="GtkHPaned" id="hpaned1">
-      <property name="visible">True</property>
-      <property name="can_focus">True</property>
-
-      <child>
-	<widget class="GtkNotebook" id="notebook1">
-	  <property name="visible">True</property>
-	  <property name="can_focus">True</property>
-	  <property name="show_tabs">True</property>
-	  <property name="show_border">True</property>
-	  <property name="tab_pos">GTK_POS_TOP</property>
-	  <property name="scrollable">False</property>
-	  <property name="enable_popup">False</property>
-
-	  <child>
-	    <widget class="GtkScrolledWindow" id="scrolledwindow3">
-	      <property name="visible">True</property>
-	      <property name="can_focus">True</property>
-	      <property name="hscrollbar_policy">GTK_POLICY_ALWAYS</property>
-	      <property name="vscrollbar_policy">GTK_POLICY_ALWAYS</property>
-	      <property name="shadow_type">GTK_SHADOW_IN</property>
-	      <property name="window_placement">GTK_CORNER_TOP_LEFT</property>
-
-	      <child>
-		<widget class="GtkTreeView" id="sessiontreeview">
-		  <property name="visible">True</property>
-		  <property name="can_focus">True</property>
-		  <property name="headers_visible">True</property>
-		  <property name="rules_hint">False</property>
-		  <property name="reorderable">False</property>
-		  <property name="enable_search">True</property>
-		  <property name="fixed_height_mode">False</property>
-		  <property name="hover_selection">False</property>
-		  <property name="hover_expand">False</property>
-		  <signal name="row_activated" handler="on_sessiontreeview_row_activated" last_modification_time="Sat, 17 Mar 2007 10:17:11 GMT"/>
-		</widget>
-	      </child>
-	    </widget>
-	    <packing>
-	      <property name="tab_expand">False</property>
-	      <property name="tab_fill">True</property>
-	    </packing>
-	  </child>
-
-	  <child>
-	    <widget class="GtkLabel" id="label1">
-	      <property name="visible">True</property>
-	      <property name="label" translatable="yes">Session</property>
-	      <property name="use_underline">False</property>
-	      <property name="use_markup">False</property>
-	      <property name="justify">GTK_JUSTIFY_LEFT</property>
-	      <property name="wrap">False</property>
-	      <property name="selectable">False</property>
-	      <property name="xalign">0.5</property>
-	      <property name="yalign">0.5</property>
-	      <property name="xpad">0</property>
-	      <property name="ypad">0</property>
-	      <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
-	      <property name="width_chars">-1</property>
-	      <property name="single_line_mode">False</property>
-	      <property name="angle">0</property>
-	    </widget>
-	    <packing>
-	      <property name="type">tab</property>
-	    </packing>
-	  </child>
-
-	  <child>
-	    <widget class="GtkScrolledWindow" id="scrolledwindow5">
-	      <property name="visible">True</property>
-	      <property name="can_focus">True</property>
-	      <property name="hscrollbar_policy">GTK_POLICY_ALWAYS</property>
-	      <property name="vscrollbar_policy">GTK_POLICY_ALWAYS</property>
-	      <property name="shadow_type">GTK_SHADOW_IN</property>
-	      <property name="window_placement">GTK_CORNER_TOP_LEFT</property>
-
-	      <child>
-		<widget class="GtkTreeView" id="systemtreeview">
-		  <property name="visible">True</property>
-		  <property name="can_focus">True</property>
-		  <property name="headers_visible">True</property>
-		  <property name="rules_hint">False</property>
-		  <property name="reorderable">False</property>
-		  <property name="enable_search">True</property>
-		  <property name="fixed_height_mode">False</property>
-		  <property name="hover_selection">False</property>
-		  <property name="hover_expand">False</property>
-		</widget>
-	      </child>
-	    </widget>
-	    <packing>
-	      <property name="tab_expand">False</property>
-	      <property name="tab_fill">True</property>
-	    </packing>
-	  </child>
-
-	  <child>
-	    <widget class="GtkLabel" id="label2">
-	      <property name="visible">True</property>
-	      <property name="label" translatable="yes">System</property>
-	      <property name="use_underline">False</property>
-	      <property name="use_markup">False</property>
-	      <property name="justify">GTK_JUSTIFY_LEFT</property>
-	      <property name="wrap">False</property>
-	      <property name="selectable">False</property>
-	      <property name="xalign">0.5</property>
-	      <property name="yalign">0.5</property>
-	      <property name="xpad">0</property>
-	      <property name="ypad">0</property>
-	      <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
-	      <property name="width_chars">-1</property>
-	      <property name="single_line_mode">False</property>
-	      <property name="angle">0</property>
-	    </widget>
-	    <packing>
-	      <property name="type">tab</property>
-	    </packing>
-	  </child>
-	</widget>
-	<packing>
-	  <property name="shrink">True</property>
-	  <property name="resize">False</property>
-	</packing>
-      </child>
-
-      <child>
-	<widget class="GtkScrolledWindow" id="scrolledwindow4">
-	  <property name="visible">True</property>
-	  <property name="can_focus">True</property>
-	  <property name="hscrollbar_policy">GTK_POLICY_ALWAYS</property>
-	  <property name="vscrollbar_policy">GTK_POLICY_ALWAYS</property>
-	  <property name="shadow_type">GTK_SHADOW_IN</property>
-	  <property name="window_placement">GTK_CORNER_TOP_LEFT</property>
-
-	  <child>
-	    <widget class="GtkTreeView" id="methsigtreeview">
-	      <property name="visible">True</property>
-	      <property name="can_focus">True</property>
-	      <property name="headers_visible">True</property>
-	      <property name="rules_hint">False</property>
-	      <property name="reorderable">False</property>
-	      <property name="enable_search">True</property>
-	      <property name="fixed_height_mode">False</property>
-	      <property name="hover_selection">False</property>
-	      <property name="hover_expand">False</property>
-              <signal name="row_activated" handler="on_method_activated" last_modification_time="Sat, 17 Mar 2007 14:49:13 GMT"/>
-	    </widget>
-	  </child>
-	</widget>
-	<packing>
-	  <property name="shrink">True</property>
-	  <property name="resize">False</property>
-	</packing>
-      </child>
-    </widget>
-  </child>
-</widget>
-
-</glade-interface>