[Pkg] The Trunk: Morphic-fbs.664.mcz

[commits at source.squeak.org]

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

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

Name: Morphic-fbs.664
Author: fbs
Time: 9 July 2013, 10:06:36.939 pm
UUID: 3834d6d3-d76f-9f42-9fe4-acf420372809
Ancestors: Morphic-fbs.663

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

=============== Diff against Morphic-fbs.663 ===============

Item was changed:
  SystemOrganization addCategory: #'Morphic-Balloon'!
  SystemOrganization addCategory: #'Morphic-Basic'!
  SystemOrganization addCategory: #'Morphic-Basic-NewCurve'!
  SystemOrganization addCategory: #'Morphic-Borders'!
  SystemOrganization addCategory: #'Morphic-Collections-Arrayed'!
  SystemOrganization addCategory: #'Morphic-Demo'!
  SystemOrganization addCategory: #'Morphic-Events'!
  SystemOrganization addCategory: #'Morphic-Explorer'!
  SystemOrganization addCategory: #'Morphic-Kernel'!
  SystemOrganization addCategory: #'Morphic-Layouts'!
  SystemOrganization addCategory: #'Morphic-Menus'!
  SystemOrganization addCategory: #'Morphic-Menus-DockingBar'!
  SystemOrganization addCategory: #'Morphic-Models'!
+ SystemOrganization addCategory: #'Morphic-Multilingual'!
  SystemOrganization addCategory: #'Morphic-Pluggable Widgets'!
  SystemOrganization addCategory: #'Morphic-Sound'!
+ SystemOrganization addCategory: #'Morphic-Sound-Synthesis'!
  SystemOrganization addCategory: #'Morphic-Support'!
- SystemOrganization addCategory: #'Morphic-Multilingual'!
  SystemOrganization addCategory: #'Morphic-Text Support'!
  SystemOrganization addCategory: #'Morphic-ToolBuilder'!
  SystemOrganization addCategory: #'Morphic-TrueType'!
  SystemOrganization addCategory: #'Morphic-Widgets'!
  SystemOrganization addCategory: #'Morphic-Windows'!
  SystemOrganization addCategory: #'Morphic-Worlds'!
- SystemOrganization addCategory: #'Morphic-Sound-Synthesis'!

Item was changed:
  ----- Method: HandMorph>>showHardwareCursor: (in category 'drawing') -----
  showHardwareCursor: aBool
  	"Show/hide the current hardware cursor as indicated."
  	| cursor |
  	cursor :=  hardwareCursor ifNil:[aBool ifTrue:[Cursor normal] ifFalse:[Cursor blank]].
+ 	Cursor currentCursor == cursor ifFalse: [cursor show].
- 	Sensor currentCursor == cursor ifFalse: [cursor show].
  !