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@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@10.
- f displayOn: Display at: 10@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@25).
- sweepHand go: 20.
- sweepHand turn: 10]].
- self relinquishProcessorForMicroseconds: 10000] repeat
- !
Locked
