The Trunk: Morphic-dtl.777.mcz

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!