The Trunk: Kernel-fbs.828.mcz

Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.828.mcz

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

Name: Kernel-fbs.828
Author: fbs
Time: 3 January 2014, 11:37:55.998 am
UUID: 7f0b6d62-9a2b-4448-bb09-437d34af6010
Ancestors: Kernel-fbs.827

Move some Tools functionality out of Kernel to Tools.

=============== Diff against Kernel-fbs.827 ===============

Item was removed:
- ----- Method: Behavior>>inspectAllInstances (in category 'accessing instances and variables') -----
- inspectAllInstances
- "Inpsect all instances of the receiver.  1/26/96 sw"
-
- | all allSize prefix |
- all := self allInstances.
- (allSize := all size) = 0 ifTrue: [^ self inform: 'There are no
- instances of ', self name].
- prefix := allSize = 1
- ifTrue: ['The lone instance']
- ifFalse: ['The ', allSize printString, ' instances'].
-
- all asArray inspectWithLabel: (prefix, ' of ', self name)!

Item was removed:
- ----- Method: Behavior>>inspectSubInstances (in category 'accessing instances and variables') -----
- inspectSubInstances
- "Inspect all instances of the receiver and all its subclasses.  CAUTION - don't do this for something as generic as Object!!  1/26/96 sw"
-
- | all allSize prefix |
- all := self allSubInstances.
- (allSize := all size) = 0 ifTrue: [^ self inform: 'There are no
- instances of ', self name, '
- or any of its subclasses'].
- prefix := allSize = 1
- ifTrue: ['The lone instance']
- ifFalse: ['The ', allSize printString, ' instances'].
-
- all asArray inspectWithLabel: (prefix, ' of ', self name, ' & its subclasses')!

Item was removed:
- ----- Method: ContextPart>>errorReportOn: (in category 'debugger access') -----
- errorReportOn: strm
- "Write a detailed error report on the stack (above me) on a stream.  For both the error file, and emailing a bug report.  Suppress any errors while getting printStrings.  Limit the length."
-
- | cnt aContext startPos |
-   strm print: Date today; space; print: Time now; cr.
- strm cr.
- strm nextPutAll: 'VM: ';
- nextPutAll:  Smalltalk platformName asString;
- nextPutAll: ' - ';
- nextPutAll: Smalltalk asString;
- cr.
- strm nextPutAll: 'Image: ';
- nextPutAll:  SystemVersion current version asString;
- nextPutAll: ' [';
- nextPutAll: Smalltalk lastUpdateString asString;
- nextPutAll: ']';
- cr.
- strm cr.
- SecurityManager default printStateOn: strm.
-
- "Note: The following is an open-coded version of ContextPart>>stackOfSize: since this method may be called during a low space condition and we might run out of space for allocating the full stack."
- cnt := 0.  startPos := strm position.
- aContext := self.
- [aContext notNil and: [(cnt := cnt + 1) < 20]] whileTrue:
- [aContext printDetails: strm. "variable values"
- strm cr.
- aContext := aContext sender].
-
- strm cr; nextPutAll: '--- The full stack ---'; cr.
- aContext := self.
- cnt := 0.
- [aContext == nil] whileFalse:
- [cnt := cnt + 1.
- cnt = 20 ifTrue: [strm nextPutAll: ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'; cr].
- strm print: aContext; cr.  "just class>>selector"
-
- "exit early if too long..."
- strm position > (startPos+ self class maxLengthForASingleDebugLogReport) ifTrue: [strm nextPutAll: '...etc...'. ^ self]. cnt > self class maxStackDepthForASingleDebugLogReport ifTrue: [strm nextPutAll: '-- and more not shown --'. ^ self].
- aContext := aContext sender].
- !

Item was removed:
- ----- Method: Object>>explore (in category 'user interface') -----
- explore
- ^ToolSet explore: self!

Item was removed:
- ----- Method: Object>>inspectWithLabel: (in category 'user interface') -----
- inspectWithLabel: aLabel
- "Create and schedule an Inspector in which the user can examine the receiver's variables."
- ^ToolSet inspect: self label: aLabel!

Item was removed:
- ----- Method: Object>>notifyWithLabel: (in category 'error handling') -----
- notifyWithLabel: aString
- "Create and schedule a Notifier with aString as the window label as well as the contents of the window, in  order to request confirmation before a process can proceed."
-
- ToolSet
- debugContext: thisContext
- label: aString
- contents: aString
-
- "nil notifyWithLabel: 'let us see if this works'"!