[squeak-dev] The Trunk: Tools-cmm.629.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jul 2 16:24:15 UTC 2015

Chris Muller uploaded a new version of Tools to project The Trunk:

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