[etoys-dev] Etoys: DBus-Objects-bf.8.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of DBus-Objects to project Etoys:
http://source.squeak.org/etoys/DBus-Objects-bf.8.mcz

==================== Summary ====================

Name: DBus-Objects-bf.8
Author: bf
Time: 17 August 2010, 3:31:53 pm
UUID: aea2ca84-9dcb-4fd2-9707-e5e658fe6241
Ancestors: DBus-Objects-bf.7

- dbusMethod: declarations were broken since a CompiledMethod's literals nowadays are not just literals anymore

=============== Diff against DBus-Objects-bf.7 ===============

Item was changed:
  ----- Method: DBusObject>>dbusMethodSpecsAndSelectorsDo: (in category 'accessing') -----
  dbusMethodSpecsAndSelectorsDo: aBlock
  	"Evaluate aBlock with all method specs and corresponding selectors that are to be exposed on the DBus.
  	By default, this gathers only methods marked as #dbusMethod:."
  	| cls |
  	cls := self class.
  	[cls selectorsAndMethodsDo: [:sel :meth | 
+ 		(meth numLiterals >= 2 and: [(meth literalAt: 1) == #dbusMethod: and: [(meth literalAt: 2) isString]])
- 		(meth numLiterals >= 2 and: [(meth literalAt: 1) == #dbusMethod:])
  			ifTrue: [aBlock value: (meth literalAt: 2) value: sel]].
  	cls == DBusObject] whileFalse: [cls := cls superclass].
  !