'From etoys3.0 of 7 March 2008 [latest update: #1995] on 8 May 2008 at 5:23:03 pm'!
"Change Set:		DBus-Core-bf-41
Date:			8 May 2008
Author:			Bert Freudenberg

Name: DBus-Core-bf.41
Author: bf
Time: 8 May 2008, 5:19:11 pm
UUID: d006be6a-8f0a-4387-a963-ca3591613dfb
Ancestors: DBus-Core-bf.40

- fix reading empty ByteArrays"!

!DBusConnection methodsFor: 'initialize-release' stamp: 'bf 5/1/2008 15:57'!
startUp
	self registerSemaphore.! !

!DBusConnection methodsFor: 'arguments-read' stamp: 'bf 5/8/2008 17:17'!
argumentReadArray
	"returns an array"	
	| arg sig array |
	sig := self primIteratorSignature. 

	sig = 'ay' ifTrue: [
		^DBusArgument array: (
			ByteArray streamContents: [:strm |
				self primPushIterator.
				[	arg := [self primArgumentGetByte] ifError: [nil].
					"XXX earlier plugins answer signed bytes"
					arg ifNotNil: [strm nextPut: (arg bitAnd: 16rFF)].
					self nextIterator
				] whileTrue.
				self popIterator])
			signature: sig].

	array := Array streamContents: [:strm |
		self primPushIterator.
		[	arg := self getArgument.
			arg ifNotNil: [strm nextPut: arg].
			self nextIterator
		] whileTrue.
		self popIterator].
	^ DBusArgument array: array signature: sig
	
! !


!DBusConnection class methodsFor: 'start up' stamp: 'bf 5/1/2008 15:58'!
startUp: resuming
	resuming ifFalse: [^self].

	self allBussesDo: [:each| each startUp]! !


!DBusMessageError class methodsFor: 'constants' stamp: 'bf 5/1/2008 19:21'!
dbusErrorUnknownObject
	^ 'org.freedesktop.DBus.Error.UnknownObject'! !