Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-nice.132.mcz==================== Summary ====================
Name: MorphicExtras-nice.132
Author: nice
Time: 9 December 2013, 10:24:06.153 pm
UUID: a59ef5cb-c29a-49fe-ab2b-87bea72f3edf
Ancestors: MorphicExtras-cmm.131
Remove a (now) useless Cursor wait.
[ColorPickerMorph colorPaletteForDepth: 16 extent: 120 @ 89] timeToRun -> 34ms on my not so recent Mac
Which machine was that slow to justify visual feedback?
=============== Diff against MorphicExtras-cmm.131 ===============
Item was changed:
----- Method: PaintBoxMorph>>fixUpColorPicker (in category 'recent colors') -----
fixUpColorPicker
| chart picker |
+ chart := ColorChart ifNil: [ColorChart := (ColorPickerMorph colorPaletteForDepth: 16 extent: 120 @ 89)].
- chart := ColorChart ifNil: [ColorChart := Cursor wait showWhile: [(ColorPickerMorph colorPaletteForDepth: 16 extent: 120 @ 89)]].
chart getCanvas frameRectangle: chart boundingBox color: Color black.
picker := Form extent: (chart extent + (14 @ 12)) depth: 16.
picker fillWhite.
"top"
picker copy: (0 @ 0 extent: picker width @ 6)
from: (colorMemory image width - picker width) @ 0
in: colorMemory image rule: Form over.
"bottom"
picker copy: (0 @ (picker height - 6) extent: picker width @ 6)
from: (colorMemory image width - picker width) @ (colorMemory image height - 7)
in: colorMemory image rule: Form over.
"left"
picker copy: (0 @ 6 corner: 8 @ (picker height - 6))
from: (colorMemory image boundingBox topLeft + (0 @ 6))
in: colorMemory image rule: Form over.
"right"
picker copy: (picker width-6 @ 6 corner: picker width @ (picker height - 6))
from: (colorMemory image boundingBox topRight - (6 @ -6))
in: colorMemory image rule: Form over.
chart displayOn: picker at: 8 @ 6.
picker getCanvas frameRectangle: picker boundingBox color: Color black.
colorMemory image: picker.
!