The Trunk: Kernel-ar.490.mcz

Andreas Raab uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-ar.490.mcz

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

Name: Kernel-ar.490
Author: ar
Time: 5 September 2010, 11:28:07.137 am
UUID: 421b78d6-e95b-af49-affd-34ef3fa166ae
Ancestors: Kernel-ar.489

Restructurings to reduce package depencencies.

=============== Diff against Kernel-ar.489 ===============

Item was removed:
- ----- Method: Object>>openAsMorph (in category 'creation') -----
- openAsMorph
- "Open a morph, as best one can, on the receiver"
-
- ^ self asMorph openInHand
-
- "
- 234 openAsMorph
- (ScriptingSystem formAtKey: #TinyMenu) openAsMorph
- 'fred' openAsMorph
- "!

Item was removed:
- ----- Method: Object>>refineUndoTarget:selector:arguments:in: (in category 'undo') -----
- refineUndoTarget: target selector: aSymbol arguments: arguments in: refineBlock
- "Any object can override this method to refine its undo specification"
-
- ^ refineBlock
- value: target
- value: aSymbol
- value: arguments!

Item was removed:
- ----- Method: Object>>rememberCommand: (in category 'undo') -----
- rememberCommand: aCommand
- "Remember the given command for undo"
- Preferences useUndo ifFalse: [^ self]. "get out quickly"
- ^ self commandHistory rememberCommand: aCommand!

Item was removed:
- ----- Method: Object>>rememberUndoableAction:named: (in category 'undo') -----
- rememberUndoableAction: actionBlock named: caption
- | cmd result |
- cmd := Command new cmdWording: caption.
- cmd undoTarget: self selector: #undoFromCapturedState: argument: self capturedState.
- result := actionBlock value.
- cmd redoTarget: self selector: #redoFromCapturedState: argument: self capturedState.
- self rememberCommand: cmd.
- ^ result!

Item was removed:
- ----- Method: Object>>asStringMorph (in category 'creation') -----
- asStringMorph
- "Open a StringMorph, as best one can, on the receiver"
-
- ^ self asStringOrText asStringMorph
- !

Item was removed:
- ----- Method: Object>>commandHistory (in category 'undo') -----
- commandHistory
- "Return the command history for the receiver"
- | w |
- (w := self currentWorld) ifNotNil: [^ w commandHistory].
- ^ CommandHistory new. "won't really record anything but prevent breaking things"!

Item was removed:
- ----- Method: Object>>undoFromCapturedState: (in category 'undo') -----
- undoFromCapturedState: st
- "May be overridden in subclasses.  See also capturedState"
-
- self copyFrom: st
- !

Item was removed:
- ----- Method: Object>>capturedState (in category 'undo') -----
- capturedState
- "May be overridden in subclasses."
-
- ^ self shallowCopy
- !

Item was removed:
- ----- Method: Object>>propertyList (in category 'printing') -----
- propertyList
- "Answer a String whose characters are a property-list description of the receiver."
-
- ^ PropertyListEncoder process:self.
- !

Item was removed:
- ----- Method: Object>>refineRedoTarget:selector:arguments:in: (in category 'undo') -----
- refineRedoTarget: target selector: aSymbol arguments: arguments in: refineBlock
- "Any object can override this method to refine its redo specification"
-
- ^ refineBlock
- value: target
- value: aSymbol
- value: arguments!

Item was removed:
- ----- Method: Object>>descriptionForPartsBin (in category 'parts bin') -----
- descriptionForPartsBin
- "If the receiver is a member of a class that would like to be represented in a parts bin, answer the name by which it should be known, and a documentation string to be provided, for example, as balloon help.  When the 'nativitySelector' is sent to the 'globalReceiver', it is expected that some kind of Morph will result.  The parameters used in the implementation below are for documentation purposes only!!"
-
- ^ DescriptionForPartsBin
- formalName: 'PutFormalNameHere'
- categoryList: #(PutACategoryHere MaybePutAnotherCategoryHere)
- documentation: 'Put the balloon help here'
- globalReceiverSymbol: #PutAGlobalHere
- nativitySelector: #PutASelectorHere!

Item was removed:
- ----- Method: Object>>asTextMorph (in category 'creation') -----
- asTextMorph
- "Open a TextMorph, as best one can, on the receiver"
-
- ^ TextMorph new contentsAsIs: self asStringOrText
- !

Item was removed:
- ----- Method: Object>>asDraggableMorph (in category 'converting') -----
- asDraggableMorph
- "Converts the receiver into a Morph suitable for dragging"
- ^(StringMorph contents: (
- (self respondsTo: #dragLabel)
- ifTrue:[self dragLabel]
- ifFalse:[self printString]))
- color: Color white;
- yourself!

Item was removed:
- ----- Method: Object>>asMorph (in category 'creation') -----
- asMorph
- "Open a morph, as best one can, on the receiver"
-
- ^ self asStringMorph
-
- "
- 234 asMorph
- (ScriptingSystem formAtKey: #TinyMenu) asMorph
- 'fred' asMorph
- "
-
- !

Item was removed:
- ----- Method: Object>>redoFromCapturedState: (in category 'undo') -----
- redoFromCapturedState: st
- "May be overridden in subclasses.  See also capturedState"
-
- self undoFromCapturedState: st  "Simple cases are symmetric"
- !

Item was removed:
- ----- Method: Object>>purgeAllCommands (in category 'undo') -----
- purgeAllCommands
- "Purge all commands for this object"
- Preferences useUndo ifFalse: [^ self]. "get out quickly"
- self commandHistory purgeAllCommandsSuchThat: [:cmd | cmd undoTarget == self].
- !