[squeak-dev] The Trunk: Services-Base-ul.37.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Dec 7 04:54:26 UTC 2009

Levente Uzonyi uploaded a new version of Services-Base to project The Trunk:

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

Name: Services-Base-ul.37
Author: ul
Time: 7 December 2009, 4:45:03 am
UUID: 1ce326b5-c5c5-f541-9d4d-a6ffbb0ea65f
Ancestors: Services-Base-ar.36

- deprecated SequenceableCollection >> #startWith:
- replaced sends of #startWith: with #beginsWith:

=============== Diff against Services-Base-ar.36 ===============

Item was changed:
  ----- Method: ServiceShortcuts class>>shortcut:event: (in category 'as yet unclassified') -----
  shortcut: str event: event 
  	| s |
  	Transcript cr.
  	s := self map
  				at: str , event keyCharacter asString
  				ifAbsent: [^ self].
+ 	(s beginsWith: '[') ifTrue: [^ (Compiler evaluateUnloggedForSelf:  s) value].
- 	(s startsWith: '[') ifTrue: [^ (Compiler evaluateUnloggedForSelf:  s) value].
  	s serviceOrNil
  		ifNotNilDo: [:sv | sv execute.
  	event wasHandled: true]!

Item was changed:
  ----- Method: ServiceShortcuts class>>changeShortcut:to: (in category 'as yet unclassified') -----
  changeShortcut: shortcut to: aString
  	aString isBlock ifTrue: [^self map at: shortcut put: aString].
+ 	(aString beginsWith: '[') ifTrue: [^self map at: shortcut put: aString].
- 	(aString startsWith: '[') ifTrue: [^self map at: shortcut put: aString].
  	aString isEmpty ifTrue: [self map removeKey: shortcut ifAbsent: []]
  				ifFalse: [self map at: shortcut put: aString]!

Item was changed:
  ----- Method: SequenceableCollection>>startsWith: (in category '*services-base') -----
+ startsWith: start
- startsWith: start 
  	| comp |
+ 	self deprecated: 'Use #beginsWith:'.
  	self size < start size ifTrue: [^ false].
  	comp := true.
  	(self first: start size) with: start
  		do: [:ea :ea2 | ea = ea2 ifFalse: [comp := false]].
  	^ comp!

More information about the Squeak-dev mailing list