[squeak-dev] The Trunk: MorphicExtras-nice.145.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Dec 25 22:14:20 UTC 2013
Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-nice.145.mcz
==================== Summary ====================
Name: MorphicExtras-nice.145
Author: nice
Time: 25 December 2013, 11:12:48.502 pm
UUID: 8fd3a7be-e242-422e-974a-065a92ac27e8
Ancestors: MorphicExtras-nice.144
Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat printShowingMaxDecimalPlaces: 2)
=============== Diff against MorphicExtras-nice.144 ===============
Item was changed:
----- Method: PaintBoxMorph>>eyedropper:action:cursor:evt: (in category 'actions') -----
eyedropper: aButton action: aSelector cursor: aCursor evt: evt
"Take total control and pick up a color!!!!"
| pt feedbackColor delay |
delay := Delay forMilliseconds: 10.
aButton state: #on.
tool ifNotNil: [tool state: #off].
currentCursor := aCursor.
evt hand showTemporaryCursor: currentCursor
hotSpotOffset: 6 negated @ 4 negated.
"<<<< the form was changed a bit??"
feedbackColor := Display colorAt: Sensor cursorPoint.
colorMemory align: colorMemory bounds topRight
with: colorMemoryThin bounds topRight.
self addMorphFront: colorMemory.
"Full color picker"
[Sensor anyButtonPressed] whileFalse:
[pt := Sensor cursorPoint.
"deal with the fact that 32 bit displays may have garbage in the
alpha bits"
feedbackColor := Display depth = 32
ifTrue:
+ [Color colorFromPixelValue: ((Display pixelValueAt: pt) bitOr: 16rFF000000)
- [Color colorFromPixelValue: ((Display pixelValueAt: pt) bitOr: 4278190080)
depth: 32]
ifFalse: [Display colorAt: pt].
"the hand needs to be drawn"
evt hand position: pt.
currentColor ~= feedbackColor ifTrue: [
currentColor := feedbackColor.
self showColor ].
self world displayWorldSafely.
delay wait].
"Now wait for the button to be released."
[Sensor anyButtonPressed] whileTrue:
[ pt := Sensor cursorPoint.
"the hand needs to be drawn"
evt hand position: pt.
self world displayWorldSafely.
delay wait].
evt hand showTemporaryCursor: nil hotSpotOffset: 0 @ 0.
self currentColor: feedbackColor evt: evt.
colorMemory delete.
tool ifNotNil:
[tool state: #on.
currentCursor := tool arguments third].
aButton state: #off
!
Item was changed:
----- Method: SoundEventMorph>>sound: (in category 'as yet unclassified') -----
sound: aSound
sound := aSound.
+ self setBalloonText: 'a sound of duration ',(sound duration printShowingMaxDecimalPlaces: 1),' seconds'.!
- self setBalloonText: 'a sound of duration ',(sound duration roundTo: 0.1) printString,' seconds'.!
Item was changed:
----- Method: ZASMCameraMarkMorph>>cameraPoint:cameraScale:controller: (in category 'as yet unclassified') -----
cameraPoint: aPoint cameraScale: aNumber controller: aController
self setProperty: #cameraPoint toValue: aPoint.
self setProperty: #cameraScale toValue: aNumber.
self setProperty: #cameraController toValue: aController.
self addMorph: (
+ StringMorph contents: aPoint printString,' ',(aNumber printShowingMaxDecimalPlaces: 3)
- StringMorph contents: aPoint printString,' ',(aNumber roundTo: 0.001) printString
) lock.!
Item was changed:
----- Method: ZASMCameraMarkMorph>>cameraPoint:cameraScale:controller:page: (in category 'as yet unclassified') -----
cameraPoint: aPoint cameraScale: aNumber controller: aController page: aBookPage
self setProperty: #cameraPoint toValue: aPoint.
self setProperty: #cameraScale toValue: aNumber.
self setProperty: #cameraController toValue: aController.
self setProperty: #bookPage toValue: aBookPage.
self addMorphBack: (ImageMorph new image: (aBookPage imageForm scaledToSize: 80 at 80)) lock.
+ self setBalloonText: aPoint rounded printString,' ',(aNumber printShowingMaxDecimalPlaces: 3)!
- self setBalloonText: aPoint rounded printString,' ',(aNumber roundTo: 0.001) printString!
More information about the Squeak-dev
mailing list
|