Smalltalk › Squeak › Squeak - Dev

Squeak 4.6: Tools-cmm.629.mcz

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

2 messages Options

commits-2

Squeak 4.6: Tools-cmm.629.mcz

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]
!

David T. Lewis

Re: Squeak 4.6: Tools-cmm.629.mcz

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, [hidden email] 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]
> !
>