The Trunk: Tools-fbs.482.mcz

Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.482.mcz

==================== Summary ====================

Name: Tools-fbs.482
Author: fbs
Time: 9 July 2013, 10:07:54.176 pm
UUID: 44ffe1eb-429a-5246-a3d3-a711b6da9ac8
Ancestors: Tools-fbs.481

Make things use Cursor currentCursor (because InputSensor >> #currentCursor delegates to it anyway).

=============== Diff against Tools-fbs.481 ===============

Item was changed:
  ----- Method: Debugger>>openNotifierContents:label: (in category 'initialize') -----
  openNotifierContents: msgString label: label
  "Create and schedule 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 porcess has not been suspended.  The sender will do this."
  | msg builder spec |
  Sensor flushKeyboard.
+ savedCursor := Cursor currentCursor.
+ Cursor currentCursor: Cursor normal.
- savedCursor := Sensor currentCursor.
- Sensor currentCursor: Cursor normal.
  (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.
  self expandStack.
  builder openDebugger: spec.
  errorWasInUIProcess := Project spawnNewProcessIfThisIsUI: interruptedProcess.
  !