The Trunk: Services-Base-ul.37.mcz

Levente Uzonyi uploaded a new version of Services-Base to project The Trunk:
http://source.squeak.org/trunk/Services-Base-ul.37.mcz

==================== 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!