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

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

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

Name: Services-Base-ul.39
Author: ul
Time: 12 December 2009, 2:48:44 am
UUID: f8c3ab85-82e4-4948-94f6-c65470c996e9
Ancestors: Services-Base-nice.38

- replace sends of #ifNotNilDo: to #ifNotNil:, #ifNil:ifNotNilDo: to #ifNil:ifNotNil:, #ifNotNilDo:ifNil: to #ifNotNil:ifNil:

=============== Diff against Services-Base-nice.38 ===============

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 serviceOrNil
+ ifNotNil: [:sv | sv execute.
- ifNotNilDo: [:sv | sv execute.
  event wasHandled: true]!

Item was changed:
  ----- Method: BrowserRequestor>>getPackage (in category 'requests') -----
  getPackage
  self getSelector ifNil: [
  ^ PackageInfo named:(
  self getClass ifNil: [self getSystemCategory]
+ ifNotNil: [:c | c category copyUpTo:  $-])].
- ifNotNilDo: [:c | c category copyUpTo:  $-])].
  ^ PackageOrganizer default
  packageOfMethod:
  (MethodReference class: self getClass
  selector: self getSelector)
  ifNone: [PackageInfo named: (self getClass category copyUpTo:  $-)] !