[squeak-dev] Squeak 4.6: Tools-cmm.629.mcz

David T. Lewis lewis at mail.msen.com
Sun Oct 18 21:28:37 UTC 2015


This Fixes another empty MCZ in the squeak46 repository by copying the good one from trunk.

Dave

On Sun, Oct 18, 2015 at 09:26:53PM +0000, commits at source.squeak.org wrote:
> David T. Lewis uploaded a new version of Tools to project Squeak 4.6:
> http://source.squeak.org/squeak46/Tools-cmm.629.mcz
> 
> ==================== Summary ====================
> 
> Name: Tools-cmm.629
> Author: cmm
> Time: 2 July 2015, 11:23:44.144 am
> UUID: 3123de24-8e6a-4ac2-957c-a599484fbfc6
> Ancestors: Tools-eem.628
> 
> Restore the classic Warning window because it supports application-formatted messages which can wrap and scroll as needed.
> 
> =============== Diff against Tools-eem.628 ===============
> 
> Item was changed:
>   ----- Method: Debugger>>openNotifierContents:label: (in category 'initialize') -----
>   openNotifierContents: msgString label: label
>   	"Create, schedule and answer a notifier view with the given label and message. A notifier view shows just the message or the first several lines of the stack, with a menu that allows the user to open a full debugger if so desired."
>   	"NOTE: When this method returns, a new process has been scheduled to run the windows, and thus this notifier, but the previous active process has not been suspended.  The sender will do this."
>   	| msg builder spec |
>   
>   	Sensor flushKeyboard.
>   	savedCursor := Cursor currentCursor.
>   	Cursor currentCursor: Cursor normal.
> + 	msg := (label beginsWith: 'Space is low')
> + 		ifTrue: [self lowSpaceChoices, (msgString ifNil: [String empty])]
> + 		ifFalse: [msgString].
> - 	(label beginsWith: 'Space is low')
> - 		ifTrue: [msg := self lowSpaceChoices, (msgString ifNil: [''])]
> - 		ifFalse: [msg := msgString].
>   	builder := ToolBuilder default.
> + 	spec := self buildNotifierWith: builder label: label message: (msg ifNil: [label]).
> - 	spec := self buildNotifierWith: builder label: label message: msg.
>   	self expandStack.
>   	^[builder openDebugger: spec] ensure:
>   		[errorWasInUIProcess := Project current spawnNewProcessIfThisIsUI: interruptedProcess]
>   !
> 


More information about the Squeak-dev mailing list