[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
|