[Pkg] The Trunk: Morphic-dtl.777.mcz

[commits at source.squeak.org]

David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.777.mcz

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

Name: Morphic-dtl.777
Author: dtl
Time: 9 March 2015, 7:36:28.204 pm
UUID: 29bbab46-e2f3-4cda-bf4b-533ec61eb65a
Ancestors: Morphic-mt.776

PreDebugWindow is unreference and no longer required. The debug notifier is now created with ToolBuilder. Remove PreDebugWindow.

=============== Diff against Morphic-mt.776 ===============

Item was removed:
- SystemWindow subclass: #PreDebugWindow
- 	instanceVariableNames: 'proceedButton debugButton'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'Morphic-Windows'!

Item was removed:
- ----- Method: PreDebugWindow class>>includeInNewMorphMenu (in category 'new-morph participation') -----
- includeInNewMorphMenu
- 	^ false!

Item was removed:
- ----- Method: PreDebugWindow>>adjustBookControls (in category 'as yet unclassified') -----
- adjustBookControls
- 	| inner |
- 	proceedButton ifNil: [^ self].
- 	proceedButton align: proceedButton topLeft with: (inner := self innerBounds) topLeft + (35 @ -4).
- 	debugButton align: debugButton topRight with: inner topRight - (16 @ 4).!

Item was removed:
- ----- Method: PreDebugWindow>>debug (in category 'as yet unclassified') -----
- debug
- 	model debug!

Item was removed:
- ----- Method: PreDebugWindow>>extent: (in category 'geometry') -----
- extent: newExtent
- 	super extent: (newExtent max: 100 @ 50).
- 	self adjustBookControls!

Item was removed:
- ----- Method: PreDebugWindow>>initialize (in category 'initialization') -----
- initialize
- 	| aFont proceedLabel debugLabel aWidth |
- 	super initialize.
- 	true 
- 		ifFalse: 
- 			["Preferences optionalMorphicButtons"
- 
- 			(aWidth := self widthOfFullLabelText) > 280 ifTrue: [^self].	"No proceed/debug buttons if title too long"
- 			debugLabel := aWidth > 210 
- 				ifTrue: 
- 					["Abbreviated buttons if title pretty long"
- 
- 					proceedLabel := 'p'.
- 					'd']
- 				ifFalse: 
- 					["Full buttons if title short enough"
- 
- 					proceedLabel := 'proceed'.
- 					'debug'].
- 			aFont := Preferences standardButtonFont.
- 			self addMorph: (proceedButton := (SimpleButtonMorph new)
- 								borderWidth: 0;
- 								label: proceedLabel font: aFont;
- 								color: Color transparent;
- 								actionSelector: #proceed;
- 								target: self).
- 			proceedButton setBalloonText: 'continue execution'.
- 			self addMorph: (debugButton := (SimpleButtonMorph new)
- 								borderWidth: 0;
- 								label: debugLabel font: aFont;
- 								color: Color transparent;
- 								actionSelector: #debug;
- 								target: self).
- 			debugButton setBalloonText: 'bring up a debugger'.
- 			proceedButton submorphs first color: Color blue.
- 			debugButton submorphs first color: Color red].
- 	self adjustBookControls!

Item was removed:
- ----- Method: PreDebugWindow>>proceed (in category 'as yet unclassified') -----
- proceed
- 	model proceed!

Item was removed:
- ----- Method: PreDebugWindow>>setBalloonTextForCloseBox (in category 'as yet unclassified') -----
- setBalloonTextForCloseBox
- 	closeBox ifNotNil:
- 		[closeBox setBalloonText: 'abandon this execution by closing this window' translated].
- !

Item was removed:
- ----- Method: PreDebugWindow>>setLabelWidgetAllowance (in category 'label') -----
- setLabelWidgetAllowance
- 	^ labelWidgetAllowance := (Smalltalk isMorphic | Preferences optionalButtons)
- 		ifTrue:
- 			[super setLabelWidgetAllowance]
- 		ifFalse:
- 			[180]!

Item was removed:
- ----- Method: PreDebugWindow>>storeLog (in category 'as yet unclassified') -----
- storeLog
- 	model storeLog!