Squeak-dev December 2022

squeak-dev@lists.squeakfoundation.org

31 participants
95 discussions

The Inbox: MorphicExtras-kfr.340.mcz
by commits＠source.squeak.org 03 Dec '22

03 Dec '22

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-kfr.340.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.340 Author: kfr Time: 3 December 2022, 12:06:49.470695 pm UUID: 8756d7d9-da81-754e-b457-1a55cd46e07f Ancestors: MorphicExtras-kfr.339 Change to make color picker cursor scale to right size. =============== Diff against MorphicExtras-kfr.339 =============== 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 big | - | pt feedbackColor delay | delay := Delay forMilliseconds: 10. aButton state: #on. tool ifNotNil: [tool state: #off]. currentCursor := aCursor. + big := CursorWithAlpha extent: aCursor extent depth: 32. + (aCursor asCursorForm magnifyBy: 1) displayOn: big. + big offset: (aCursor offset - 0.5 min: 0@0 max: big extent negated) asIntegerPoint. + evt hand showTemporaryCursor: big. - 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 - (13@9). - [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" evt hand position: pt. currentColor ~= feedbackColor ifTrue: [ currentColor := feedbackColor. self showColor ]. self refreshWorld. 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 refreshWorld. delay wait]. + evt hand showTemporaryCursor: nil hotSpotOffset: 4 negated @ 0. - 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 !

1 0

The Inbox: MorphicExtras-kfr.339.mcz
by commits＠source.squeak.org 03 Dec '22

03 Dec '22

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-kfr.339.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.339 Author: kfr Time: 3 December 2022, 12:45:52.792307 am UUID: cb1428dc-dec9-7b45-8015-436b49674bc1 Ancestors: MorphicExtras-ct.338 Fixes issue with scale of tool cursor and offset =============== Diff against MorphicExtras-ct.338 =============== Item was added: + ----- Method: SketchEditorMorph>>cursor:enlargedBy: (in category 'event handling') ----- + cursor: aForm enlargedBy: scale + "Big cursors are 32 bits deep (ARGB premultiplied)" + | big | + + big := CursorWithAlpha extent: aForm extent * scale depth: 32. + (aForm asCursorForm magnifyBy: scale) displayOn: big. + big offset: (aForm offset - 0.5 * scale min: 0@0 max: big extent negated) asIntegerPoint. + + ^big! Item was changed: ----- Method: SketchEditorMorph>>mouseEnter: (in category 'event handling') ----- mouseEnter: evt "Set the cursor. Reread colors if embedded editable polygon needs it." | poly cColor | super mouseEnter: evt. (self get: #action for: evt) == #scaleOrRotate ifTrue: [ self set: #action for: evt to: (self get: #priorAction for: evt). ]. "scale and rotate are not real modes. If we enter with one, wear the previous tool." + evt hand showTemporaryCursor: (self cursor:(self getCursorFor: evt) enlargedBy: 1). - evt hand showTemporaryCursor: (self getCursorFor: evt). palette getSpecial == #polygon: ifFalse: [^self]. (poly := self valueOfProperty: #polygon) ifNil: [^ self]. cColor := self getColorFor: evt. poly borderColor: cColor; borderWidth: (self getNibFor: evt) width. poly changed.!

2 1

Mailing list server help
by Russell Allen 03 Dec '22

03 Dec '22

Hi, sorry for offtopic, The Self mailing list runs on the Squeak mailing list infrastructure (thanks!), but I'm locked out from the admin page http://lists.selflanguage.org/mailman/admin/self-interest <http://lists.selflanguage.org/mailman/admin/self-interest> I need someone with the appropriate authorisation to reset my password and let me back in, but I'm not sure who! If you have this superpower, could you please contact me offlist? Thanks so much! Russell mail(a)russell-allen.com

1 0

something with Monticello's package-cache I don't understand.
by Eliot Miranda 02 Dec '22

02 Dec '22

Hi All, I just updated an image that had been lying dormant for a few months. There were several package versions on a branch I didn't have in my package-cache. As I like my package-cacher to contain all intermediate versions I opened the repository browser and started selecting all the versions I was missing. As I selected each the package browser reported "downloading xxx" as expected. However, when I did an lds of my package-cache directory for the branched package nothing showed up. So I again selected each version, again got the "downloading report", again didn't see the version show up in my package-cache until I used the Browse button to open a package browser on the version. Only then did the package version show up in the ls of t6he directory. I don't understand this at all. What's going on? _,,,^..^,,,_ best, Eliot

2 1

What it is the expected behavior of Rectangle (class) #intersect: if there is no interesection?
by LawsonEnglish 02 Dec '22

02 Dec '22

I did this and created 2 small rectangles quite far from each other trying to figure out what the method returns when there is no intersection: r1 := Rectangle fromUser. r2 := Rectangle fromUser. r2 3072@993 corner: 3203@1136 r1 2710@632 corner: 2835@752 r2 intersect: r1 3072@993 corner: 2835@752 r1 intersect: r2 3072@993 corner: 2835@752 Could someone explain these results? Not in terms of the math involved (I assume that there’s no math bug as the routine was last edited 22 years ago and it is used everywhere in Morphic), but what the LOGIC is for returning what is returned and what it means in the context of the comments: intersect: aRectangle "Answer a Rectangle that is the area in which the receiver overlaps with aRectangle…. “ I was trying to figure out how to look to identify when there is no intersection, and that isn’t at all obvious here. Thanks. L

2 6