[squeak-dev] The Trunk: System-ul.385.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Oct 12 02:46:55 UTC 2010


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

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

Name: System-ul.385
Author: ul
Time: 12 October 2010, 3:31:36.17 am
UUID: 1a2bde1f-c1a3-c344-8187-235ade8172d1
Ancestors: System-ul.384

- moved #hasBindingThatBeginsWith: to ShoutCore

=============== Diff against System-ul.384 ===============

Item was removed:
- ----- Method: SharedPool class>>hasBindingThatBeginsWith: (in category 'name lookup') -----
- hasBindingThatBeginsWith: aString
- 	"Answer true if the receiver has a binding that begins with aString, false otherwise"
- 
- 	"First look in classVar dictionary."
- 	(self classPool hasBindingThatBeginsWith: aString) ifTrue:[^true].
- 	"Next look in shared pools."
- 	self sharedPools do:[:pool | 
- 		(pool hasBindingThatBeginsWith: aString) ifTrue: [^true]].
- 	^false!

Item was removed:
- ----- Method: SmalltalkImage>>hasBindingThatBeginsWith: (in category 'dictionary access') -----
- hasBindingThatBeginsWith: aString
- 	"Answer true if the receiver has a key that begins with aString, false otherwise"
- 	
- 	^globals hasBindingThatBeginsWith: aString!

Item was removed:
- ----- Method: SystemDictionary>>hasBindingThatBeginsWith: (in category 'as yet unclassified') -----
- hasBindingThatBeginsWith: aString
- 	"Use the cached class and non-class names for better performance."
- 
- 	| name searchBlock |
- 	searchBlock := [ :element |
- 		(element beginsWith: aString)
- 			ifTrue: [ 0 ]
- 			ifFalse: [
- 				aString < element
- 					ifTrue: [ -1 ]
- 					ifFalse: [ 1 ] ] ].
- 	name := self classNames 
- 		findBinary: searchBlock
- 		ifNone: nil.
- 	name ifNotNil: [ ^true ].
- 	name := self nonClassNames 
- 		findBinary: searchBlock
- 		ifNone: nil.
- 	^name notNil!




More information about the Squeak-dev mailing list