The Trunk: System-ul.385.mcz

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!