[squeak-dev] The Trunk: Kernel-fbs.789.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Jul 7 21:43:32 UTC 2013


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

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

Name: Kernel-fbs.789
Author: fbs
Time: 7 July 2013, 10:42:38.83 pm
UUID: b65ace2f-db14-3e4c-9d5e-8d5f187cf836
Ancestors: Kernel-fbs.788

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 Kernel-fbs.788 ===============

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

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

Item was removed:
- ----- Method: InputSensor>>testJoystick: (in category 'joystick') -----
- 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 removed:
- ----- Method: Object>>fullScreenSize (in category 'user interface') -----
- 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 removed:
- ----- Method: ProcessorScheduler class>>sweepHandIdleProcess (in category 'background process') -----
- 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
- !



More information about the Squeak-dev mailing list