Changeset 31003 in project


Ignore:
Timestamp:
06/12/14 21:56:02 (6 years ago)
Author:
Mario Domenech Goulart
Message:

dbus (wiki): port the qt car example to the new dbus egg API (no dbus: prefix).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/eggref/4/dbus

    r25879 r31003  
    224224(define (turn-left) (printf "car is turning to the left~%"))
    225225
    226 (define rc-car-context (dbus:make-context
    227         service: 'com.trolltech.CarExample
    228         path: '/Car
    229         interface: 'com.trolltech.Examples.CarInterface ))
    230 
    231 (dbus:enable-polling-thread enable: #f)
    232 
    233 (dbus:register-method rc-car-context "turnRight" turn-right)
    234 (dbus:register-method rc-car-context "turnLeft" turn-left)
     226(define rc-car-context
     227  (make-context
     228   service: 'com.trolltech.CarExample
     229   path: '/Car
     230   interface: 'com.trolltech.Examples.CarInterface ))
     231
     232(enable-polling-thread! enable: #f)
     233
     234(register-method rc-car-context "turnRight" turn-right)
     235(register-method rc-car-context "turnLeft" turn-left)
    235236
    236237(let loop ()
    237   (dbus:poll-for-message)
     238  (poll-for-message)
    238239  (loop))
    239240</enscript>
Note: See TracChangeset for help on using the changeset viewer.