The Trunk: Tools-cmm.629.mcz

Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/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]
  !