source: project/release/4/dbus/trunk/examples/listen-example.scm @ 25880

Last change on this file since 25880 was 19799, checked in by felix winkelmann, 11 years ago

applied dbus porting patch by andrei barbu

File size: 291 bytes
Line 
1(use dbus)
2
3(define (query . params)
4        (printf "got a query; params: ~s~%" params)
5        ;; the response to the query:
6        `(#t 42))
7
8(define ctxt (dbus:make-context
9        service: 'test.method.server
10        interface: 'test.method.Type
11        path: '/test/method/Object))
12
13(dbus:register-method ctxt "Method" query)
Note: See TracBrowser for help on using the repository browser.