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

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

Name: Graphics-fbs.215
Author: fbs
Time: 7 July 2013, 10:43:46.084 pm
UUID: e5b5bf86-cec7-1643-960f-020a2b2bdf38
Ancestors: Graphics-fbs.214

Move most of the Graphics-referencing methods to Graphics. #testJoystick: and #sweepHandIdleProcess have no senders in the base image. #currentCursor and #currentCursor: look like they should die (and have their senders call Cursor's methods directly).

Making MethodFinder's references to Color and Point looks like it might require another registry-like thing, where packages tell MethodFinder about their internals.

=============== Diff against Graphics-fbs.214 ===============

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

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

Item was added:
+ ----- Method: InputSensor>>testJoystick: (in category '*Graphics-KernelExtensions') -----
+ testJoystick: index
+ 	"Sensor testJoystick: 3"
+ 
+ 	| f pt buttons status |
+ 	f := Form extent: 110 at 50.
+ 	[Sensor anyButtonPressed] whileFalse: [
+ 		pt := Sensor joystickXY: index.
+ 		buttons := Sensor joystickButtons: index.
+ 		status :=
+ 'xy: ', pt printString, '
+ buttons: ', buttons printStringHex.
+ 		f fillWhite.
+ 		status displayOn: f at: 10 at 10.
+ 		f displayOn: Display at: 10 at 10.
+ 	].
+ !

Item was added:
+ ----- Method: Object>>fullScreenSize (in category '*Graphics-KernelExtensions') -----
+ fullScreenSize
+ 	"Answer the size to which a window displaying the receiver should be set"
+ 	| adj |
+ 	adj := (3 * Preferences scrollBarWidth) @ 0.
+ 	^ Rectangle origin: adj extent: (DisplayScreen actualScreenSize - adj)!

Item was added:
+ ----- Method: ProcessorScheduler class>>sweepHandIdleProcess (in category '*Graphics-KernelExtensions') -----
+ sweepHandIdleProcess
+ 	"A default background process which shows a sweeping circle of XOR-ed bits on the screen."
+ 
+ 	| sweepHand |
+ 	sweepHand := Pen new.
+ 	sweepHand defaultNib: 2.
+ 	sweepHand combinationRule: 6.
+ 	[
+ 		2 timesRepeat: [
+ 			sweepHand north.
+ 			36 timesRepeat: [
+ 				sweepHand place: Display boundingBox topRight + (-25 at 25).
+ 				sweepHand go: 20.
+ 				sweepHand turn: 10]].
+ 		self relinquishProcessorForMicroseconds: 10000] repeat
+ !