[Pkg] The Trunk: Tools-ar.263.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Sep 2 05:56:02 UTC 2010


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 at 0corner: 1 at 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
+ !



More information about the Packages mailing list