The Trunk: Tools-ar.263.mcz

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

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

Name: Tools-ar.263
Author: ar
Time: 1 September 2010, 10:55:03.147 pm
UUID: 0de80ed6-03ef-3b40-a638-67913c9bf718
Ancestors: Tools-eem.262

Reclassify methods to fix various package dependencies.

=============== Diff against Tools-eem.262 ===============

Item was added:
+ ----- Method: TranscriptStream class>>windowColorSpecification (in category '*Tools') -----
+ windowColorSpecification
+ "Answer a WindowColorSpec object that declares my preference"
+
+ ^ WindowColorSpec classSymbol: self name wording: 'Transcript' brightColor: #lightOrange pastelColor: #paleOrange helpMessage: 'The system transcript'!

Item was added:
+ ----- Method: TranscriptStream class>>openMorphicTranscript (in category '*Tools') -----
+ openMorphicTranscript
+ "Have the current project's transcript open up as a morph"
+
+ ^ToolBuilder open: self!

Item was added:
+ ----- Method: TranscriptStream>>buildWith: (in category '*Tools') -----
+ buildWith: builder
+ | windowSpec textSpec |
+ windowSpec := builder pluggableWindowSpec new.
+ windowSpec model: self.
+ windowSpec label: 'Transcript'.
+ windowSpec children: OrderedCollection new.
+
+ textSpec := builder pluggableTextSpec new.
+ textSpec
+ model: self;
+ menu: #codePaneMenu:shifted:;
+ frame: (0@0corner: 1@1).
+ windowSpec children add: textSpec.
+
+ ^builder build: windowSpec!

Item was added:
+ ----- Method: TranscriptStream class>>buildWith: (in category '*Tools') -----
+ buildWith: aBuilder
+ ^(Smalltalk at: #Transcript) buildWith: aBuilder!

Item was added:
+ ----- Method: TranscriptStream>>openLabel: (in category '*Tools') -----
+ openLabel: aString
+ "Open a window on this transcriptStream"
+ ^ToolBuilder open: self label: aString!

Item was added:
+ ----- Method: TranscriptStream>>open (in category '*Tools') -----
+ open
+ | openCount |
+ openCount := self countOpenTranscripts.
+ openCount = 0
+ ifTrue: [self openLabel: 'Transcript']
+ ifFalse: [self openLabel: 'Transcript #' , (openCount+1) printString]!

Item was added:
+ ----- Method: TranscriptStream>>codePaneMenu:shifted: (in category '*Tools') -----
+ codePaneMenu: aMenu shifted: shifted
+ "Note that unless we override perform:orSendTo:, PluggableTextController will respond to all menu items"
+ ^ StringHolder basicNew codePaneMenu: aMenu shifted: shifted
+ !