[Pkg] The Trunk: Services-Base-ul.39.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Dec 12 14:28:04 UTC 2009

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

==================== 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') -----
  	self getSelector ifNil: [
  			^ PackageInfo named:(
  					self getClass ifNil: [self getSystemCategory] 
+ 									ifNotNil: [:c | c category copyUpTo:  $-])].
- 									ifNotNilDo: [:c | c category copyUpTo:  $-])].
  	^ PackageOrganizer default 
  					(MethodReference class: self getClass
  										selector: self getSelector)
  			ifNone: [PackageInfo named: (self getClass category copyUpTo:  $-)] !

More information about the Packages mailing list