[FIX]PaintBoxMorph placing of colorPickerPalette - Squeak-dev

13 Jul 2000


      When you paint and the first tool you use is the color picker the color picker
palette places wrong. This fixes this.
Karl
'From Squeak2.9alpha of 13 June 2000 [latest update: #2447] on 13 July 2000 at 11:08:24 pm'!
!PaintBoxMorph methodsFor: 'actions' stamp: 'kfr 7/13/2000 23:05'!
eyedropper: aButton action: aSelector cursor: aCursor 
        "Take total control and pick up a color!!!!"
        | pt feedbackColor |
        aButton state: #on.
        tool ifNotNil: [tool state: #off].
        currentCursor _ aCursor.
        self activeHand
                showTemporaryCursor: currentCursor 
                hotSpotOffset: 6 negated @ 4 negated.    "<<<< the form was changed a bit??"
        feedbackColor _ Display colorAt: Sensor cursorPoint.
        self showColorPalette.
        "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) depth: 32
                        ] ifFalse: [
                                Display colorAt: pt
                        ].
"the hand needs to be drawn"
                        self activeHand position: pt.
                        self world displayWorldSafely.
                        Display fill: colorPatch bounds fillColor: feedbackColor].
        Sensor waitNoButton.
        self activeHand showTemporaryCursor: nil hotSpotOffset: 0 @ 0.
        self currentColor: feedbackColor.
        colorMemory delete.
    	 
        tool
                ifNotNil: 
                        [tool state: #on.
                        currentCursor _ tool arguments at: 3].
aButton state: #off! !
!PaintBoxMorph methodsFor: 'actions' stamp: 'kfr 7/13/2000 23:07'!
showColorPalette
colorMemory align: colorMemory bounds topRight 
    		with: colorMemoryThin bounds topRight.
    self addMorphFront: colorMemory.
    ! !