Squeak-dev July 2017

squeak-dev@lists.squeakfoundation.org

28 participants
70 discussions

Caffeine :: Livecode the Web!
by Craig Latta 20 Aug '17

20 Aug '17

Hi folks-- I've released Caffeine, an in-browser IDE for livecoding JS frameworks from SqueakJS. It effectively turns a webpage into an interim dynabook. :) There are also new demos of... - Snowglobe (Smalltalk app streaming and remote GUI access) - HTML5 Morphic (each Morphic window on its own HTML5 canvas, relieving much of the computation burden on SqueakJS) - morphic.js (Jens Mönig's great standalone implementation of Morphic, which is much faster than the current SqueakJS Morphic) - three.js (WebGL 3D graphics) See the announcement on my blog at [1]. I would love any feedback you might have, and to collaborate on new use cases. thanks! -C *** [1] https://thiscontext.com/2017/06/22/caffeine-livecode-the-web -- Craig Latta Black Page Digital Amsterdam :: San Francisco craig(a)blackpagedigital.com +31 6 2757 7177 (SMS ok) + 1 415 287 3547 (no SMS)

5 6

Recovery project hanging after recursive error in debugger
by Jakob Reschke 01 Aug '17

01 Aug '17

Hi, Recently, it occurs quite frequently in my image that something goes so wrong that the Debugger fails to open and I am bumped out to the parent Project. However, the debugger for the crippled Process does not open there either, because the ErrorRecursionGuard Mutex is still held by the suspended Process that wants to be debugged. Interrupting with Cmd+. and terminating the suspended process usually works to get going again, but this seems not like something I should have to do manually. Is something broken with the recovery mechanism? More details from the stack (extracted with the Process Browser): - some UnhandledError is raised - ToolSet class>>debugError: is called - Debugger class>>morphicOpenOn:context:label:contents:fullView: is reached, the ErrorRecursionGuard Mutex is acquired - ErrorRecursion is true there for some reason unknown to me, no further debuggers are on that particular stack - Project current handleFatalDrawingError: - Project class>>tryOtherProjectForRecovery: - SomeProjectType(Project)>>enterForEmergencyRecovery - MorphicProject>>suspendProcessForDebug Now it is waiting to be picked up by the 'FATAL PROJECT ERROR!' debugger, but it cannot because that Mutex is still held, so the debugger waits for the suspended process that it should debug. - reproduce the hanging by ProcessBrowser>>debugProcess on the suspended Process - Process>>debugWithTitle: ... - Debugger class>>morphicOpenOn:context:label:contents:fullView: is reached, wants to enter the critical section with ErrorRecursionGuard, but has to wait ... Kind regards, Jakob

3 3

Recent change in byte array at:put:
by tim Rowledge 31 Jul '17

31 Jul '17

We recently changed ByteArray>at:put: to remove the backup conversion of the value to integer, for what seemed like decent reasons. It’s broken my WeatherStation code a little because there are places where I use {my byte stream} nextPutAll: (aString squeakToUtf8) or similar. #squeakToUtf8 returns a bytestring, and of course when the #nextPutAll: loop does its thing each character is pulled out as a Character (even though we know at this point it’s a byte value) - and we’ve just made it impossible to stick a character into a byte array. Clearly I could fix it reasonably trivially with a few #asByteArray type messages scattered around but it feels a bit tacky somehow. I see some faintly similar code with plausibly similar issues in WebSocket classes too, which would need some care. Not that I can see a lot of usage of that code… Performance isn’t a colossal issue for MQTT packets but it just rankles a bit to have a known byte valued string and then have to convert it to write it into a byte valued stream collection. KnowWhadIMean? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Never write software that anthropomorphizes the machine. They hate that.

4 4

Re: [squeak-dev] Recent change in byte array at:put:
by Jakob Reschke 30 Jul '17

30 Jul '17

Simple "solution" to editing: treat (encoded) Strings as immutable. For editing/stringbuilding, use a WideString or a special kind of stream (MultiByteBinaryOrTextStream or how is it called) plus additional support for inserting in the middle if desired. I remember somebody proposing Ropes when discussing a reformation of strings previously. Could be interesting at "edit-time". For (in-memory) storage, encoded Strings should maybe just be ByteArrays paired with some TextConverter-like thing or at least a spec of the encoding so you can fetch Characters or configure streams from it on demand. If licensing permits it one could also have a look at how the OpenJDK deals with UTF-16 in StringBuilder. Am 30.07.2017 03:20 schrieb "tim Rowledge" <tim(a)rowledge.org>: > On 29-07-2017, at 12:48 PM, Nicolas Cellier <nicolas.cellier.aka.nice@gmai l.com> wrote: > Absolutely, > to me a String is a sequence of characters. > squeakToUtf8 is a hack that makes us consider a String as a sequence of codePoints whose encoding is in the eye of the beholder (or implicitly in the Context - the Smalltalk one). > I's not very object oriented and quite fragile. > We started to clean Multilingual but never finished the job… Yes, that’s pretty much how I see it. Currently the utf8 ‘string’ is just kept as a byte string and the user is expected to understand that it is in a rather dangerous state. > > It's difficult to finish it, because we value backward compatibility. > So maybe the ByteArray change was a bit radical with this respect. Backward compatibility can sometimes drive you to loud swearing! Maybe a new message to return the bytearray of the uft8 data could be added, leaving the old one alone. We should probably consider making an actual UTF8String class, though I did try to work out the best thing to do for that several years ago for NuScratch and got lost in the tangles. Editing the damn things is a pain, to say the leat, so you get to thinking about having the canonical string as an instvar and a byte array and edits work on the String which gets converted at the end of the edit to update bytearray. Or the other way around… or… aaargh! tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful random insult:- Immune from any serious head injury.

3 2

Re: [squeak-dev] Recent change in byte array at:put:
by Jakob Reschke 30 Jul '17

30 Jul '17

I did not want to advertise for UTF-16, but I thought maybe something could be learned from the Java implementation of string building. ;-) But now that I looked up about UTF-16 and its surrogates again, and found this [1], I doubt it. [1] https://stackoverflow.com/questions/26170180/complexity-of-insert0-c-operat… 2017-07-30 15:34 GMT+02:00 Tobias Pape <Das.Linux(a)gmx.de>: > >> On 30.07.2017, at 11:02, Jakob Reschke <jakob.reschke(a)student.hpi.de> wrote: >> >> Simple "solution" to editing: treat (encoded) Strings as immutable. >> >> For editing/stringbuilding, use a WideString or a special kind of stream (MultiByteBinaryOrTextStream or how is it called) plus additional support for inserting in the middle if desired. I remember somebody proposing Ropes when discussing a reformation of strings previously. Could be interesting at "edit-time". >> >> For (in-memory) storage, encoded Strings should maybe just be ByteArrays paired with some TextConverter-like thing or at least a spec of the encoding so you can fetch Characters or configure streams from it on demand. >> >> If licensing permits it one could also have a look at how the OpenJDK deals with UTF-16 in StringBuilder. >> > > While I agree in principle, don't come near me with utf16 ;) > >> >> Am 30.07.2017 03:20 schrieb "tim Rowledge" <tim(a)rowledge.org>: >> >> > On 29-07-2017, at 12:48 PM, Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com> wrote: >> > Absolutely, >> > to me a String is a sequence of characters. >> > squeakToUtf8 is a hack that makes us consider a String as a sequence of codePoints whose encoding is in the eye of the beholder (or implicitly in the Context - the Smalltalk one). >> > I's not very object oriented and quite fragile. >> > We started to clean Multilingual but never finished the job… >> >> Yes, that’s pretty much how I see it. Currently the utf8 ‘string’ is just kept as a byte string and the user is expected to understand that it is in a rather dangerous state. >> >> > >> > It's difficult to finish it, because we value backward compatibility. >> > So maybe the ByteArray change was a bit radical with this respect. >> >> Backward compatibility can sometimes drive you to loud swearing! >> >> Maybe a new message to return the bytearray of the uft8 data could be added, leaving the old one alone. We should probably consider making an actual UTF8String class, though I did try to work out the best thing to do for that several years ago for NuScratch and got lost in the tangles. Editing the damn things is a pain, to say the leat, so you get to thinking about having the canonical string as an instvar and a byte array and edits work on the String which gets converted at the end of the edit to update bytearray. Or the other way around… or… aaargh! >> >> >> tim >> -- >> tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim >> Useful random insult:- Immune from any serious head injury. >> >> >> >> >> > >

1 0

Can a running Squeak program look at a Squeak image file and know if it is a good image?
by Louis LaBrunda 26 Jul '17

26 Jul '17

Hi All, Can a running Squeak program look at a Squeak image file and know if it is a good image? I'm working on a program that the user won't have easy access to. I would like to allow its replacement with a new version. I think I know how to do that but would like to see if I can program in some protection from the user replacing the image with a bad or completely wrong file. Any ideas? Lou -- Louis LaBrunda Keystone Software Corp. SkypeMe callto://PhotonDemon

5 16

Livecoding everything loaded in your web browser with Caffeine
by Craig Latta 26 Jul '17

26 Jul '17

Hi all-- My latest blog post[1] is a mix of several interesting things. Now you can use Caffeine to send Smalltalk messages to the JavaScript DOM objects of any tab in your web browser, not just the one in which Caffeine is running. It's the Chrome extension version of Caffeine's Chrome Remote Debugging Protocol support (complementing the WebSocket-based version I wrote about last year). This turns every website you can visit into "personal dynamic media". :) Thanks! -C [1] https://tinyurl.com/y7ypeew2 (thiscontext.com) -- Craig Latta Black Page Digital Amsterdam :: San Francisco craig(a)blackpagedigital.com +31 6 2757 7177 (SMS ok) + 1 415 287 3547 (no SMS)

3 3

The Trunk: Morphic-mt.1342.mcz
by commits＠source.squeak.org 26 Jul '17

26 Jul '17

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1342.mcz ==================== Summary ==================== Name: Morphic-mt.1342 Author: mt Time: 30 June 2017, 9:26:09.827527 am UUID: 42b6a5ae-42d0-9849-ac5e-5950b96e6e55 Ancestors: Morphic-nice.1341 Extract initial invocation of halo or meta menu to event filter at world level. Having this, EventHandler is more reliable and invocation logic is fully captured in PasteUpMorph >> #tryInvokeHalo:. Further halo transfer logic enclosed in SimpleHaloMorph. This works now: m := Morph new. m openInWorld. m wantsHaloFromClick: false. m wantsYellowButtonMenu: false. m wantsMetaMenu: false. m on: #mouseDown send: #value: to:[:evt| evt redButtonPressed ifTrue:[m color: Color red]. evt yellowButtonPressed ifTrue:[m color: Color yellow]. evt blueButtonPressed ifTrue:[m color: Color blue]]. =============== Diff against Morphic-nice.1341 =============== Item was removed: - ----- Method: DockingBarMorph>>blueButtonDown: (in category 'meta-actions') ----- - blueButtonDown: anEvent - "Special gestures (cmd-mouse on the Macintosh; Alt-mouse on - Windows and Unix) allow a mouse-sensitive morph to be - moved or bring up a halo for the morph." - "In NoviceMode we don't want halos" - - Preferences noviceMode - ifFalse: [super blueButtonDown: anEvent] - ! Item was changed: ----- Method: HaloMorph>>addGraphicalHandleFrom:at: (in category 'private') ----- addGraphicalHandleFrom: formKey at: aPoint "Add the supplied form as a graphical handle centered at the given point. Return the handle." | handle aForm | aForm := (ScriptingSystem formAtKey: formKey) ifNil: [ScriptingSystem formAtKey: #SolidMenu]. handle := ImageMorph new image: aForm; bounds: (Rectangle center: aPoint extent: aForm extent). handle wantsYellowButtonMenu: false. self addMorph: handle. + handle on: #mouseUp send: #endInteraction: to: self. - handle on: #mouseUp send: #endInteraction to: self. ^ handle ! Item was changed: ----- Method: HaloMorph>>addHandleAt:color:icon:on:send:to: (in category 'private') ----- addHandleAt: aPoint color: aColor icon: iconName on: eventName send: selector to: recipient "Add a handle centered at the given point with the given color, and set it up to respond to the given event by sending the given selector to the given recipient. Return the handle." | handle | handle := self createHandleAt: aPoint color: (aColor alpha: 0.8) iconName: iconName. self addMorph: handle. + handle on: #mouseUp send: #endInteraction: to: self. - handle on: #mouseUp send: #endInteraction to: self. handle on: eventName send: selector to: recipient. handle setBalloonText: (target balloonHelpTextForHandle: handle) translated. ^ handle ! Item was removed: - ----- Method: HaloMorph>>blueButtonDown: (in category 'events') ----- - blueButtonDown: event - - self isMagicHalo - ifFalse: [super blueButtonDown: event] - ifTrue: [ - self isMagicHalo: false. - self magicAlpha: 1.0].! Item was removed: - ----- Method: HaloMorph>>containsPoint: (in category 'geometry testing') ----- - containsPoint: aPoint - "This method is overridden so that, once up, the handles will stay up as long as the mouse is within the box that encloses all the handles even if it is not over any handle or over its owner." - - ^target - ifNil: [super containsPoint: aPoint] - ifNotNil: [false]! Item was removed: - ----- Method: HaloMorph>>containsPoint:event: (in category 'events') ----- - containsPoint: aPoint event: anEvent - "Blue buttons are handled by the halo" - (anEvent isMouse and:[anEvent isMouseDown and:[anEvent blueButtonPressed]]) - ifFalse:[^super containsPoint: aPoint event: anEvent]. - ^bounds containsPoint: anEvent position! Item was changed: ----- Method: HaloMorph>>doDebug:with: (in category 'private') ----- doDebug: evt with: menuHandle "Ask hand to invoke the a debugging menu for my inner target. If shift key is down, immediately put up an inspector on the inner target" | menu | + evt shiftPressed ifTrue: [ + evt hand removeHalo. - self obtainHaloForEvent: evt andRemoveAllHandlesBut: nil. - self world displayWorld. - evt shiftPressed ifTrue: - [self delete. ^ innerTarget inspectInMorphic: evt]. menu := innerTarget buildDebugMenu: evt hand. menu addTitle: (innerTarget externalName truncateWithElipsisTo: 40). + menu popUpEvent: evt in: self world. + evt hand removeHalo.! - menu popUpEvent: evt in: self world! Item was changed: ----- Method: HaloMorph>>doMenu:with: (in category 'private') ----- doMenu: evt with: menuHandle "Ask hand to invoke the halo menu for my inner target." | menu | - self obtainHaloForEvent: evt andRemoveAllHandlesBut: nil. - self world displayWorld. menu := innerTarget buildHandleMenu: evt hand. innerTarget addTitleForHaloMenu: menu. menu popUpEvent: evt in: self world. + evt hand removeHalo. ! Item was removed: - ----- Method: HaloMorph>>endInteraction (in category 'private') ----- - endInteraction - "Clean up after a user interaction with the a halo control" - - | m | - self isMagicHalo: false. "no longer" - self magicAlpha: 1.0. - (target isInWorld not or: [owner isNil]) ifTrue: [^self]. - [target isFlexMorph and: [target hasNoScaleOrRotation]] whileTrue: - [m := target firstSubmorph. - target removeFlexShell. - target := m]. - self isInWorld - ifTrue: - ["make sure handles show in front, even if flex shell added" - - self comeToFront. - self addHandles]. - (self valueOfProperty: #commandInProgress) ifNotNil: - [:cmd | - self rememberCommand: cmd. - self removeProperty: #commandInProgress]! Item was added: + ----- Method: HaloMorph>>endInteraction: (in category 'private') ----- + endInteraction: event + "Clean up after a user interaction with the a halo control" + + | m | + self isMagicHalo: false. "no longer" + self magicAlpha: 1.0. + (target isInWorld not or: [owner isNil]) ifTrue: [^self]. + [target isFlexMorph and: [target hasNoScaleOrRotation]] whileTrue: + [m := target firstSubmorph. + target removeFlexShell. + target := m]. + self isInWorld + ifTrue: + ["make sure handles show in front, even if flex shell added" + self flag: #tofix. "mt: Try to avoid deleting and re-creating an event handler (here: the handle) while handling the event." + self comeToFront. + self addHandles. + event hand newMouseFocus: self]. + (self valueOfProperty: #commandInProgress) ifNotNil: + [:cmd | + self rememberCommand: cmd. + self removeProperty: #commandInProgress].! Item was added: + ----- Method: HaloMorph>>mouseDown: (in category 'events') ----- + mouseDown: event + + self isMagicHalo ifTrue: [ + self isMagicHalo: false. + self magicAlpha: 1.0]. + + super mouseDown: event.! Item was changed: ----- Method: HaloMorph>>setCenterOfRotation:with: (in category 'private') ----- setCenterOfRotation: evt with: rotationHandle | localPt | evt hand obtainHalo: self. evt hand showTemporaryCursor: nil. (rotationHandle hasProperty: #trackCenterOfRotation) ifTrue: [localPt := innerTarget transformFromWorld globalPointToLocal: rotationHandle center. innerTarget setRotationCenterFrom: localPt]. rotationHandle removeProperty: #trackCenterOfRotation. + self endInteraction: evt.! - self endInteraction! Item was changed: ----- Method: HaloMorph>>setDirection:with: (in category 'private') ----- setDirection: anEvent with: directionHandle "The user has let up after having dragged the direction arrow; now set the forward direction of the actual SketchMorph accordingly" (directionHandle hasProperty: #trackDirectionArrow) ifTrue: [anEvent hand obtainHalo: self. target setDirectionFrom: directionHandle center. directionHandle removeProperty: #trackDirectionArrow. + self endInteraction: anEvent]! - self endInteraction]! Item was changed: ----- Method: MenuItemMorph>>handleMouseUp: (in category 'events') ----- handleMouseUp: anEvent "The handling of control between menu item requires them to act on mouse up even if not the current focus. This is different from the default behavior which really only wants to handle mouse ups when they got mouse downs before" anEvent wasHandled ifTrue:[^self]. "not interested" anEvent hand releaseMouseFocus: self. anEvent wasHandled: true. + self mouseUp: anEvent.! - anEvent blueButtonChanged - ifTrue:[self blueButtonUp: anEvent] - ifFalse:[self mouseUp: anEvent].! Item was removed: - ----- Method: Morph>>blueButtonDown: (in category 'meta-actions') ----- - blueButtonDown: anEvent - "Special gestures (cmd-mouse on the Macintosh; Alt-mouse on Windows and Unix) allow a mouse-sensitive morph to be moved or bring up a halo for the morph." - | h tfm doNotDrag | - h := anEvent hand halo. - "Prevent wrap around halo transfers originating from throwing the event back in" - doNotDrag := false. - h ifNotNil:[ - (h innerTarget == self) ifTrue:[doNotDrag := true]. - (h innerTarget hasOwner: self) ifTrue:[doNotDrag := true]. - (self hasOwner: h target) ifTrue:[doNotDrag := true]]. - - tfm := (self transformedFrom: nil) inverseTransformation. - - "cmd-drag on flexed morphs works better this way" - h := self addHalo: (anEvent transformedBy: tfm). - h ifNil: [^ self]. - doNotDrag ifTrue:[^self]. - "Initiate drag transition if requested" - anEvent hand - waitForClicksOrDrag: h - event: (anEvent transformedBy: tfm) - selectors: { nil. nil. nil. #startDragTarget:. } - threshold: HandMorph dragThreshold. - "Pass focus explicitly here" - anEvent hand newMouseFocus: h.! Item was removed: - ----- Method: Morph>>blueButtonUp: (in category 'meta-actions') ----- - blueButtonUp: anEvent - "Ignored. Theoretically we should never get here since control is transferred to the halo on #blueButtonDown: but subclasses may implement this differently."! Item was changed: ----- Method: Morph>>handleMouseDown: (in category 'events-processing') ----- handleMouseDown: anEvent "System level event handling." anEvent wasHandled ifTrue:[^self]. "not interested" anEvent hand removePendingBalloonFor: self. anEvent hand removePendingHaloFor: self. anEvent wasHandled: true. - (anEvent controlKeyPressed - and: [anEvent blueButtonChanged not - and: [Preferences cmdGesturesEnabled]]) - ifTrue: [^ self invokeMetaMenu: anEvent]. - "Make me modal during mouse transitions" anEvent hand newMouseFocus: self event: anEvent. - (anEvent blueButtonChanged and:[Preferences cmdGesturesEnabled]) ifTrue:[^self blueButtonDown: anEvent]. "this mouse down could be the start of a gesture, or the end of a gesture focus" (self isGestureStart: anEvent) ifTrue: [^ self gestureStart: anEvent]. self mouseDown: anEvent. - Preferences maintainHalos - ifFalse:[ anEvent hand removeHaloFromClick: anEvent on: self ]. - (self handlesMouseStillDown: anEvent) ifTrue:[ self startStepping: #handleMouseStillDown: at: Time millisecondClockValue + self mouseStillDownThreshold arguments: {anEvent copy resetHandlerFields} stepTime: self mouseStillDownStepRate ]. ! Item was changed: ----- Method: Morph>>handleMouseUp: (in category 'events-processing') ----- handleMouseUp: anEvent "System level event handling." anEvent wasHandled ifTrue:[^self]. "not interested" anEvent hand mouseFocus == self ifFalse:[^self]. "Not interested in other parties" anEvent hand releaseMouseFocus: self. anEvent wasHandled: true. + self mouseUp: anEvent. + self stopSteppingSelector: #handleMouseStillDown:.! - anEvent blueButtonChanged - ifTrue:[self blueButtonUp: anEvent] - ifFalse:[self mouseUp: anEvent. - self stopSteppingSelector: #handleMouseStillDown:].! Item was removed: - ----- Method: Morph>>handlerForBlueButtonDown: (in category 'meta-actions') ----- - handlerForBlueButtonDown: anEvent - "Return the (prospective) handler for a mouse down event. The handler is temporarily installed and can be used for morphs further down the hierarchy to negotiate whether the inner or the outer morph should finally handle the event. - Note: Halos handle blue button events themselves so we will only be asked if there is currently no halo on top of us." - self wantsHaloFromClick ifFalse:[^nil]. - anEvent handler ifNil:[^self]. - anEvent handler isPlayfieldLike ifTrue:[^self]. "by default exclude playfields" - (anEvent shiftPressed) - ifFalse:[^nil] "let outer guy have it" - ifTrue:[^self] "let me have it" - ! Item was removed: - ----- Method: Morph>>handlerForMetaMenu: (in category 'meta-actions') ----- - handlerForMetaMenu: evt - "Return the prospective handler for invoking the meta menu. By default, the top-most morph in the innermost world gets this menu" - self isWorldMorph ifTrue:[^self]. - evt handler ifNotNil:[evt handler isWorldMorph ifTrue:[^self]]. - ^nil! Item was changed: ----- Method: Morph>>handlerForMouseDown: (in category 'event handling') ----- handlerForMouseDown: anEvent "Return the (prospective) handler for a mouse down event. The handler is temporarily installed and can be used for morphs further down the hierarchy to negotiate whether the inner or the outer morph should finally handle the event." - anEvent blueButtonPressed - ifTrue: [^ self handlerForBlueButtonDown: anEvent]. anEvent yellowButtonPressed ifTrue: [^ self handlerForYellowButtonDown: anEvent]. - anEvent controlKeyPressed - ifTrue: [^ self handlerForMetaMenu: anEvent]. (self handlesMouseDown: anEvent) ifFalse: [^ nil]. "not interested" anEvent handler ifNil: [^ self ]. "Same priority but I am innermost" "Nobody else was interested" ^self mouseDownPriority >= anEvent handler mouseDownPriority ifTrue: [ self] ifFalse: [ nil]! Item was added: + ----- Method: Morph>>invokeHaloOrMove: (in category 'meta-actions') ----- + invokeHaloOrMove: anEvent + "Special gestures (cmd-mouse on the Macintosh; Alt-mouse on Windows and Unix) allow a mouse-sensitive morph to be moved or bring up a halo for the morph." + | h tfm doNotDrag | + h := anEvent hand halo. + "Prevent wrap around halo transfers originating from throwing the event back in" + doNotDrag := false. + h ifNotNil:[ + (h innerTarget == self) ifTrue:[doNotDrag := true]. + (h innerTarget hasOwner: self) ifTrue:[doNotDrag := true]. + (self hasOwner: h target) ifTrue:[doNotDrag := true]]. + + tfm := (self transformedFrom: nil) inverseTransformation. + + "cmd-drag on flexed morphs works better this way" + h := self addHalo: (anEvent transformedBy: tfm). + h ifNil: [^ self]. + doNotDrag ifTrue:[^self]. + "Initiate drag transition if requested" + anEvent hand + waitForClicksOrDrag: h + event: (anEvent transformedBy: tfm) + selectors: { nil. nil. nil. #startDragTarget:. } + threshold: HandMorph dragThreshold. + "Pass focus explicitly here" + anEvent hand newMouseFocus: h.! Item was changed: ----- Method: Morph>>invokeMetaMenu: (in category 'meta-actions') ----- invokeMetaMenu: evt - "Put up the 'meta' menu, invoked via control-click, unless eToyFriendly is true." | menu | - Preferences eToyFriendly ifTrue: [^ self]. - menu := self buildMetaMenu: evt. menu addTitle: self externalName. menu popUpEvent: evt in: self world! Item was added: + ----- Method: Morph>>wantsHaloFromClick: (in category 'halos and balloon help') ----- + wantsHaloFromClick: aBoolean + + self + setProperty: #wantsHaloFromClick + toValue: aBoolean.! Item was added: + ----- Method: Morph>>wantsMetaMenu (in category 'menu') ----- + wantsMetaMenu + + ^ self valueOfProperty: #wantsMetaMenu ifAbsent: [true]! Item was added: + ----- Method: Morph>>wantsMetaMenu: (in category 'menu') ----- + wantsMetaMenu: aBoolean + + self + setProperty: #wantsMetaMenu + toValue: aBoolean.! Item was added: + ----- Method: PasteUpMorph>>addMouseShortcuts (in category 'initialization') ----- + addMouseShortcuts + + self addMouseCaptureFilter: self.! Item was changed: ----- Method: PasteUpMorph>>filterEvent:for: (in category 'events-processing') ----- + filterEvent: mouseOrKeyboardEvent for: anObject - filterEvent: aKeyboardEvent for: anObject - "Provide keyboard shortcuts." + "1) Mouse shortcuts" + mouseOrKeyboardEvent isMouse ifTrue: [ - "Delegate keyboard shortcuts to my docking bars." - self submorphsDo: [:ea | ea isDockingBar ifTrue: [ - ea filterEvent: aKeyboardEvent for: anObject. "No support for converting events here!!" - aKeyboardEvent wasIgnored ifTrue: [^ aKeyboardEvent "early out"]]]. + "Only accept mouse down, no up." + mouseOrKeyboardEvent isMouseDown + ifFalse: [^ mouseOrKeyboardEvent]. + + mouseOrKeyboardEvent blueButtonPressed + ifTrue: [ self tryInvokeHalo: mouseOrKeyboardEvent] + ifFalse: [mouseOrKeyboardEvent controlKeyPressed + ifTrue: [self tryInvokeMetaMenu: mouseOrKeyboardEvent]]. - aKeyboardEvent isKeystroke - ifFalse: [^ aKeyboardEvent]. + ^ mouseOrKeyboardEvent]. - aKeyboardEvent commandKeyPressed ifTrue: [ - aKeyboardEvent keyCharacter caseOf: { - [$R] -> [Utilities browseRecentSubmissions]. - [$L] -> [self findAFileList: aKeyboardEvent]. - [$O] -> [self findAMonticelloBrowser]. - [$P] -> [self findAPreferencesPanel: aKeyboardEvent]. - "[$Z] -> [ChangeList browseRecentLog]." - [$]] -> [Smalltalk snapshot: true andQuit: false]. - [$+] -> [Preferences increaseFontSize]. - [$-] -> [Preferences decreaseFontSize]. - [$=] -> [Preferences restoreDefaultFonts]. - } otherwise: [^ aKeyboardEvent "no hit"]. - ^ aKeyboardEvent ignore "hit!!"]. + "2) Keyboard shortcuts" + mouseOrKeyboardEvent isKeyboard ifTrue: [ + + "Delegate keyboard shortcuts to my docking bars." + self submorphsDo: [:ea | ea isDockingBar ifTrue: [ + ea filterEvent: mouseOrKeyboardEvent for: anObject. "No support for converting events here!!" + mouseOrKeyboardEvent wasIgnored ifTrue: [^ mouseOrKeyboardEvent "early out"]]]. + + "Only accept key strokes as shortcuts, no down/up." + mouseOrKeyboardEvent isKeystroke + ifFalse: [^ mouseOrKeyboardEvent]. + + self tryInvokeKeyboardShortcut: mouseOrKeyboardEvent. + + ^ mouseOrKeyboardEvent]. + + "Should not be necessary if this filter is correctly configured." + ^ mouseOrKeyboardEvent! - ^ aKeyboardEvent "no hit"! Item was changed: ----- Method: PasteUpMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" cursor := 1. padding := 3. self enableDragNDrop. self isWorldMorph ifTrue: [self setProperty: #automaticPhraseExpansion toValue: true]. self clipSubmorphs: true. + self initializeKeyboardShortcuts. + self initializeMouseShortcuts.! - self initializeKeyboardShortcuts.! Item was added: + ----- Method: PasteUpMorph>>initializeMouseShortcuts (in category 'initialization') ----- + initializeMouseShortcuts + + self addMouseShortcuts.! Item was added: + ----- Method: PasteUpMorph>>tryInvokeHalo: (in category 'events-processing') ----- + tryInvokeHalo: anEvent + + | innerMost target | + anEvent hand halo ifNotNil: [^ self "No invocation needed. Halo will handle transfer itself."]. + Preferences noviceMode ifTrue: [^ self "No halo in novice mode."]. + Preferences cmdGesturesEnabled ifFalse: [^ self]. + + innerMost := (self morphsAt: anEvent position unlocked: true) first. + + "1) Try to use innermost morph but skip all the ones that do not want to show a halo along the owner chain." + target := innerMost. + [target isNil or: [target wantsHaloFromClick]] + whileFalse: [target := target owner]. + target ifNil: [^ self]. + + "2) Without a modifier, which is normal, find the outermost container for that inner morph." + (innerMost == self or: [anEvent shiftPressed]) ifFalse: [ + | previousTargets | + previousTargets := OrderedCollection new. + [target notNil and: [target owner ~~ self]] whileTrue: [ + previousTargets add: target. + target := target owner]. + target ifNil: [^ self]. + [previousTargets isEmpty or: [target wantsHaloFromClick]] whileFalse: [ + target := previousTargets removeLast]. + target wantsHaloFromClick ifFalse: [^ self]]. + + "3) Show the container of that nested structure, which is usually my direct submorph." + target withAllOwnersDo: [:ea | ea owner == self ifTrue: [ea comeToFront]]. + + "4) Now that we have the target, show the halo. Abort event dispatching, too, to avoid confusion." + anEvent hand newMouseFocus: target event: anEvent. + target invokeHaloOrMove: anEvent. + anEvent ignore.! Item was added: + ----- Method: PasteUpMorph>>tryInvokeKeyboardShortcut: (in category 'events-processing') ----- + tryInvokeKeyboardShortcut: aKeyboardEvent + + aKeyboardEvent commandKeyPressed ifFalse: [^ self]. + + aKeyboardEvent keyCharacter caseOf: { + [$R] -> [Utilities browseRecentSubmissions]. + [$L] -> [self findAFileList: aKeyboardEvent]. + [$O] -> [self findAMonticelloBrowser]. + [$P] -> [self findAPreferencesPanel: aKeyboardEvent]. + "[$Z] -> [ChangeList browseRecentLog]." + [$]] -> [Smalltalk snapshot: true andQuit: false]. + [$+] -> [Preferences increaseFontSize]. + [$-] -> [Preferences decreaseFontSize]. + [$=] -> [Preferences restoreDefaultFonts]. + } otherwise: [^ self "no hit"]. + + aKeyboardEvent ignore "hit!!".! Item was added: + ----- Method: PasteUpMorph>>tryInvokeMetaMenu: (in category 'events-processing') ----- + tryInvokeMetaMenu: anEvent + + | innerMost target | + Preferences cmdGesturesEnabled ifFalse: [^ self]. + Preferences eToyFriendly ifTrue: [^ self]. + + innerMost := (self morphsAt: anEvent position unlocked: true) first. + + "Traverse the owner chain if some morph does not want to show its meta menu." + target := innerMost. + [target isNil or: [target wantsMetaMenu]] whileFalse: [target := target owner]. + target ifNil: [^ self]. + + target invokeMetaMenu: anEvent. + anEvent ignore.! Item was removed: - ----- Method: SimpleHaloMorph>>blueButtonDown: (in category 'events') ----- - blueButtonDown: event - "Transfer the halo to the next likely recipient" - - self target ifNil: [^self delete]. - event hand obtainHalo: self. - - self positionOffset: (event position - (self target point: self target position in: self owner)). - - "wait for drags or transfer" - event hand - waitForClicksOrDrag: self - event: event - selectors: { #transferHalo:. nil. nil. #startDragTarget:. } - threshold: HandMorph dragThreshold.! Item was added: + ----- Method: SimpleHaloMorph>>handleMouseUp: (in category 'events') ----- + handleMouseUp: evt + + super handleMouseUp: evt. + evt hand newMouseFocus: self.! Item was removed: - ----- Method: SimpleHaloMorph>>handlerForBlueButtonDown: (in category 'events') ----- - handlerForBlueButtonDown: anEvent - "Blue button was clicked within the receiver" - ^self! Item was added: + ----- Method: SimpleHaloMorph>>handlesMouseDown: (in category 'events') ----- + handlesMouseDown: evt + + ^ true! Item was added: + ----- Method: SimpleHaloMorph>>mouseDown: (in category 'events') ----- + mouseDown: event + "Transfer the halo to the next likely recipient" + + ((self containsPoint: event position) not or: [event blueButtonPressed not]) + ifTrue: [ + "Close this halo and give another morph the chance to react." + event hand removeHalo. + event resetHandlerFields. + event hand world processEvent: event. + ^ self]. + + self target ifNil: [^self delete]. + event hand obtainHalo: self. + + self positionOffset: (event position - (self target point: self target position in: self owner)). + + "wait for drags or transfer" + event hand + waitForClicksOrDrag: self + event: event + selectors: { #transferHalo:. nil. nil. #startDragTarget:. } + threshold: HandMorph dragThreshold.! Item was added: + ----- Method: SimpleHaloMorph>>processFocusEvent:using: (in category 'events') ----- + processFocusEvent: evt using: dispatcher + + ^ dispatcher dispatchFocusEventFully: evt with: self! Item was added: + ----- Method: SimpleHaloMorph>>transferHalo:from: (in category 'halos and balloon help') ----- + transferHalo: event from: formerHaloOwner + "Ignore. No halo for halo."! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'Project allMorphicProjects do: [:ea | ea world addMouseShortcuts].'! - (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "For more fine-granular visual settings." - - "These are all in UI Themes now but remained as deprecated, so the preference got not removed automatically." - Preferences removePreference: #''BalloonMorph>>balloonColor''. - Preferences removePreference: #''MenuMorph>>menuBorderColor''. - Preferences removePreference: #''MenuMorph>>menuBorderWidth''. - Preferences removePreference: #''MenuMorph>>menuColor''. - Preferences removePreference: #''MenuMorph>>menuLineColor''. - Preferences removePreference: #''MenuMorph>>menuSelectionColor''. - Preferences removePreference: #''MenuMorph>>menuTitleBorderColor''. - Preferences removePreference: #''MenuMorph>>menuTitleBorderWidth''. - Preferences removePreference: #''MenuMorph>>menuTitleColor''. - '!

2 1

The Trunk: Collections-bf.761.mcz
by commits＠source.squeak.org 25 Jul '17

25 Jul '17

Bert Freudenberg uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-bf.761.mcz ==================== Summary ==================== Name: Collections-bf.761 Author: bf Time: 20 July 2017, 12:42:02.196604 pm UUID: 5b68150c-4eb0-4210-9fac-c4aa09623b6d Ancestors: Collections-eem.760 Remove ByteArray>>at:put: and fix the fallback code in ByteArray>>#replaceFrom:to:with:startingAt: to match prim 105 =============== Diff against Collections-eem.760 =============== Item was removed: - ----- Method: ByteArray>>at:put: (in category 'accessing') ----- - at: index put: value - <primitive: 61> "try primitiveAtPut, convert value to integer if that fails and try again" - ^ self byteAt: index put: value asInteger - ! Item was changed: ----- Method: ByteArray>>replaceFrom:to:with:startingAt: (in category 'private') ----- replaceFrom: start to: stop with: replacement startingAt: repStart "Primitive. This destructively replaces elements from start to stop in the receiver starting at index, repStart, in the collection, replacement. Answer the receiver. Range checks are performed in the primitive only. Optional. See Object documentation whatIsAPrimitive." <primitive: 105> + replacement isString + ifFalse: + [super replaceFrom: start to: stop with: replacement startingAt: repStart] + ifTrue: + [ "use String>>byteAt: to mimic prim 105" + | index repOff | + repOff := repStart - start. + index := start - 1. + [(index := index + 1) <= stop] + whileTrue: [self at: index put: (replacement byteAt: repOff + index)]] + ! - super replaceFrom: start to: stop with: replacement startingAt: repStart!

1 0

Re: [squeak-dev] Squeak File Glitch
by Jakob Reschke 25 Jul '17

25 Jul '17

I tried it, the file reading and writing works fine here (trunk image). When the execution hits your #halt, the FileStream buffers are not yet filled with any data. That is why you see only placeholder box characters at this stage. During the first #nextLine, the buffers are filled, so after that you should be able to see your data in the stream variables. 2017-07-23 0:06 GMT+02:00 ReliableRobots.com <reliablerobots(a)gmail.com>: > If this code is used by thousands of people, it also fails for thousands of > people. I have had two Smalltalk jobs plus ran a Smalltalk SIG so I'm not > in need of humility on Smalltalk unless and until you can show me my > mistake. I even tried copying the file access code used by the file list > tool and that did not work either. So I suspect it is a bad version of the > VM. > > I will try to locate an older version to confirm. It is amazing how many > commentators fail to even try out the code to confirm or refute my discovery > BEFORE providing commentary. Is that true humility? > > > > On Sat, Jul 22, 2017 at 8:22 AM, Frank Shearar <frank.shearar(a)gmail.com> > wrote: >> >> On Jul 20, 2017 21:14, "ReliableRobots.com" <reliablerobots(a)gmail.com> >> wrote: >> >> I ran this program and nothing happened so I added self halts and learned >> it can't even read the input file! Yet the File List tool reads it. Such >> dichotomy in behavior might be covered by a preference? I know MS Notepad, >> the simplest editor now allows one to store a file in ones's choice of >> formats. Does Squeak have a simple choice for input treatments that works >> in Win10? >> >> do >> "Read a Bible file, reformat for beter readability and html standards." >> | inPath ootPath inFIle outFile line words | >> inPath := 'C:\Users\Owner\Desktop\Website\Jesus Words\Matthew.html'. >> ootPath := 'C:\Users\Owner\Desktop\Website\Jesus Words\Matthew2.html'. >> inFIle := FileStream oldFileNamed: inPath. >> outFile := FileStream newFileNamed: ootPath. >> self halt. >> [(line := inFIle nextLine) notNil >> whileTrue:[ >> words := line substrings. >> self halt. >> words size >0 ifTrue:[ >> outFile nextPutAll: line, '<br>'; cr; lf]. >> ]]. >> inFIle close. >> outFile close. >> >> >> It is my observation that Squeak is the last gasp uttered by a mouse when >> it fears death. It is not a normal sound they make unless they are being >> eaten by a Python! I hope the Python people don't release code that simply >> doesn't work. >> >> >> I too am often frustrated by code that will just not work. When I wish to >> blame the libraries I use, I end up asking myself "how likely is it that the >> bug is in my code, written by a single frail, weak human, versus a big in >> code used every day, in anger, by thousands of people?" I am hardly humble, >> but this thought does help me at least try to practice humility. It is >> almost always the case that the error end up being mine. >> >> frank >> >> >> >

3 2