[Pkg] The Trunk: Graphics-fbs.216.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jul 9 21:06:25 UTC 2013

Frank Shearar uploaded a new version of Graphics to project The Trunk:

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

Name: Graphics-fbs.216
Author: fbs
Time: 9 July 2013, 10:05:42.576 pm
UUID: d564a396-6a1b-7444-b2b4-a3146713126b
Ancestors: Graphics-fbs.215

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

=============== Diff against Graphics-fbs.215 ===============

Item was changed:
  ----- Method: Cursor>>showWhile: (in category 'displaying') -----
  showWhile: aBlock 
  	"While evaluating the argument, aBlock, make the receiver be the cursor shape."
  	"ar 2/2/2006: Only allow this if active process is ui process"
  	| oldcursor |
  	Processor activeProcess == Project uiProcess ifFalse:[^aBlock value].
+ 	oldcursor := Cursor currentCursor.
- 	oldcursor := Sensor currentCursor.
  	self show.
  	^aBlock ensure: [oldcursor show]

Item was removed:
- ----- Method: InputSensor>>currentCursor (in category '*Graphics-KernelExtensions') -----
- currentCursor
- 	"The current cursor is maintained in class Cursor."
- 	^ Cursor currentCursor!

Item was removed:
- ----- Method: InputSensor>>currentCursor: (in category '*Graphics-KernelExtensions') -----
- currentCursor: newCursor 
- 	"The current cursor is maintained in class Cursor."
- 	Cursor currentCursor: newCursor.!

More information about the Packages mailing list