Squeak-dev June 2020

squeak-dev@lists.squeakfoundation.org

43 participants
346 discussions

TextMorphs support display of text with emphasis. They also support reasonable text-editing capabilities, as well as embedded HOT LINKS
by gettimothy 08 Sep '20

08 Sep '20

Hi Folks, I searched the web and wiki and did not find any examples of Hot Links or keyboard shortcuts. Editor and its Sub Classes initializeFOOKeyBars does not show anything. Any pointers? Motivation: For Doc, I want to code for links to stuff, similar to what you get in Emacs org-mode https://orgmode.org/manual/Link-Format.html#Link-Format In Emacs, to navigate to the link, I type Ctrl-o to open it . Now, the links do not have to be hypertext to the WWW, links to HelpBrowser on a topic would be useful. I guess I could , upon completion of the search, return DoIts, but hot links bound to a key would fit the idiom better. thank you for your time. P.S. I am inferring that a typical Workspace encapsulates the TextMorph doo-hickey, if it is one of the other editor types, please let me know. thx

6 13

The Inbox: System-ct.1161.mcz
by commits＠source.squeak.org 08 Sep '20

08 Sep '20

Christoph Thiede uploaded a new version of System to project The Inbox: http://source.squeak.org/inbox/System-ct.1161.mcz ==================== Summary ==================== Name: System-ct.1161 Author: ct Time: 6 June 2020, 8:19:13.480392 pm UUID: 173a90f3-4bb8-fc46-b5a6-6e4ab74e63ca Ancestors: System-mt.1160 Catch all InvalidDirectoryErrors in GetTextTranslator availableLanguageLocaleIDs. Those exceptions are an implementation detail and may not confuse the caller. Such a confusion happened in connection with Morphic-ct.1638. =============== Diff against System-mt.1160 =============== Item was changed: ----- Method: GetTextTranslator class>>availableLanguageLocaleIDs (in category 'accessing') ----- availableLanguageLocaleIDs "GetTextTranslator availableLanguageLocaleIDs" | ids dirs localeDirForLang directoryNames | ids := Set new. dirs := Set new. dirs addAll: LocaleDirsForDomain values. dirs addAll: self defaultLocaleDirs. + [dirs do: [:dir | - dirs do: [:dir | | localesDir | localesDir := FileDirectory on: dir. + directoryNames := localesDir directoryNames. - directoryNames := [localesDir directoryNames] on: InvalidDirectoryError do: [:e | #()]. directoryNames do: [:langDirName | | localeID | localeID := LocaleID posixName: langDirName. localeDirForLang := localesDir directoryNamed: (self langDirNameForLocaleID: localeID). localeDirForLang ifNotNil: [ (localeDirForLang fileNamesMatching: '*.mo') ifNotEmpty: [ids add: localeID]]. localeID hasParent ifTrue: [ localeDirForLang := localesDir directoryNamed: (self langDirNameForLocaleID: localeID parent). localeDirForLang ifNotNil: [ (localeDirForLang fileNamesMatching: '*.mo') ifNotEmpty: [ids add: localeID parent]]]. ]. + ]] on: InvalidDirectoryError do: [:error | error resumeUnchecked: error defaultAction]. - ]. ^ids!

4 5

Starting an image from SqueakConsole manipulates pwd
by Thiede, Christoph 08 Sep '20

08 Sep '20

Hi all, consider the following terminal session under Windows: ```powershell > cat .\test-output.st FileStream stdout nextPutAll: 'Hello World'; lf ; flush. Smalltalk quitPrimitive. > &"C:\Program Files (x86)\Squeak\SqueakConsole.exe" -headless .\FreshTrunk\FreshTrunk.image .\test-output.st ``` Expected output: Hello Actual output: The VM window opens (first error because I specified the option headless) and shows up a debugger "Error: No content to install". What this error wants to mean is that it could not find the specified file. What I have to do to fix the output is to change the call to the following: > &"C:\Program Files (x86)\Squeak\SqueakConsole.exe" -headless .\FreshTrunk\FreshTrunk.image ..\test-output.st IMO this is a very confusing behavior because it makes it impossible to specify a relative path from the console without thinking "around the corner". If I would run ls ..\test-output.st in the same terminal context, I would get a FileNotFoundException. I never met a comparable situation where starting a script/application from the console manipulated the pwd even before resolving the specified arguments. Is this really desirable? Could we consider this a bug? How is the behavior on other platforms? I cannot test this at the moment because I am getting heartbeat warnings under Linux again. Best, Christoph

6 12

[BUG] Text drag and drop to workspace unreliable
by Jakob Reschke 24 Aug '20

24 Aug '20

Hi, I just noticed that the newly introduced text drag and drop sometimes does not work when dragging text between workspaces. It has always worked until today so I suspect the culprit is among the more recent changes. Problem: When dragging the selected text from one workspace to another, sometimes an object reference is copied to the bindings of the workspace instead of pasting the text. In the target text, the newly created variable name appears instead (e. g. text3997962) as if I had dropped another non-text object. At least the text is not removed from the source workspace when this happens... Problem #2: It does not always happen. When dragging from a third workspace it suddenly worked and then also from the second again. Then I reset my texts back to the old state and now it is broken again. Expected behavior: The selected text from the source workspace is cut from there, and pasted at the drop hand location in the target workspace. Currently I have three workspaces #1, #2, #3. If I drag the selection from #1 to #2, it works. If I drag from #1 to #3 it does not. Dragging from #2 to #3 does not work. Dragging from #2 to #1 does work. Now dragging from #1 to #3 suddenly does work... I dragged to the start of the text this time. Dragging back from #3 to #1 works. Dragging from #1 to #3 to the end of it also works. Dragging back from #1 to #3. Resetting (Cmd+l, lowercase L) text of #3. Dragging from #1 to the end of #3 does not work again. Variable pasted at the start of the text. Repeated dragging of the same text from #1 to #3 always pastes the variable. Dragging to the middle of #3 works! Dragging the pasted text inside of #3 to the end removed the text and pasted a variable instead. Hypothesis: it does not work to drop the text beyond the TextMorphForEditView. And so far I might just have been lucky to always have enough blank lines at the end of my target workspace. Workspaces #1 and #2 from above contain much more text than #3 and fill the whole editing area of the workspace, so this would be consistent. Squeak5.3beta latest update: #19300 Kind regards, Jakob

2 3

[BUG] Pressing Tab on empty PluggableTreeMorph results in ZeroDivide
by Jakob Reschke 23 Aug '20

23 Aug '20

Hello all, I just hit Tab on an empty tree by accident. Turns out it results in a division by zero because the submorphs list is empty. Kind regards, Jakob 17 June 2020 11:30:25.651392 pm VM: Win32 - Smalltalk Image: Squeak6.0alpha [latest update: #19752] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir C:\Users\Jakob\HiDrive Trusted Dir C:\Users\Jakob\HiDrive\Jakob Untrusted Dir C:\Users\Jakob\Documents\My Squeak SmallInteger>>/ Receiver: 190 Arguments and temporary variables: aNumber: 0 Receiver's instance variables: 190 TransformMorph>>numberOfItemsPotentiallyInView Receiver: a TransformMorph(4176857) Arguments and temporary variables: lsBounds: 781@179 corner: 1202@369 Receiver's instance variables: bounds: 781@179 corner: 1202@369 owner: a PluggableTreeMorph(853321) submorphs: #() fullBounds: 781@179 corner: 1202@369 color: Color transparent extension: a MorphExtension (2383097) [other: (animations -> an OrderedCollect...etc... transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = -781@ -179) smoothing: 1 localBounds: 781@179 corner: 1202@369 PluggableTreeMorph(ScrollPane)>>numSelectionsInView Receiver: a PluggableTreeMorph(853321) Arguments and temporary variables: Receiver's instance variables: bounds: 781@179 corner: 1212@379 owner: a PluggablePanelMorph(2744773) submorphs: {a TransformMorph(4176857)} fullBounds: 781@179 corner: 1212@379 color: (Color r: 0.0 g: 0.169 b: 0.212) extension: a MorphExtension (1683625) [eventHandler = an EventHandler recipient...etc... borderWidth: 0 borderColor: (Color r: 0.001 g: 0.004 b: 0.005) model: a SquitBrowser slotName: nil open: false scrollBar: a ScrollBar(3978775) scroller: a TransformMorph(4176857) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #commitListMenu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(825607) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 selectedMorph: nil hoveredMorph: nil getListSelector: nil keystrokeActionSelector: #commitListKey:from: autoDeselect: true columns: {[closure] in SquitBrowser>>buildCommitList: . [closure] in SquitBrowser...etc... columnsCache: #(107 108 nil) sortingSelector: nil getSelectionSelector: #commitSelection setSelectionSelector: #commitSelection: potentialDropMorph: nil lineColor: (Color r: 0.345 g: 0.431 b: 0.458) font: a StrikeFont(Darkmap DejaVu Sans9 14) textColor: (Color r: 0.577 g: 0.631 b: 0.631) rootWrappers: #() selectedWrapper: nil getRootsSelector: #commitList getChildrenSelector: nil hasChildrenSelector: nil getLabelSelector: nil getIconSelector: nil getSelectedPathSelector: nil setSelectedPathSelector: nil setSelectedParentSelector: nil getHelpSelector: nil dropItemSelector: nil wantsDropSelector: nil dragItemSelector: #dragFromCommitList: dragTypeSelector: nil nodeClass: SquitVersionWrapper lastKeystrokeTime: 0 lastKeystrokes: '' dragStartedSelector: nil doubleClickSelector: nil PluggableTreeMorph(SimpleHierarchicalListMorph)>>arrowKey: Receiver: a PluggableTreeMorph(853321) Arguments and temporary variables: asciiValue: 9 keyEvent: 9 max: 0 oldSelection: 0 nextSelection: 0 howManyItemsShowing: nil keyHandled: false Receiver's instance variables: bounds: 781@179 corner: 1212@379 owner: a PluggablePanelMorph(2744773) submorphs: {a TransformMorph(4176857)} fullBounds: 781@179 corner: 1212@379 color: (Color r: 0.0 g: 0.169 b: 0.212) extension: a MorphExtension (1683625) [eventHandler = an EventHandler recipient...etc... borderWidth: 0 borderColor: (Color r: 0.001 g: 0.004 b: 0.005) model: a SquitBrowser slotName: nil open: false scrollBar: a ScrollBar(3978775) scroller: a TransformMorph(4176857) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #commitListMenu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(825607) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 selectedMorph: nil hoveredMorph: nil getListSelector: nil keystrokeActionSelector: #commitListKey:from: autoDeselect: true columns: {[closure] in SquitBrowser>>buildCommitList: . [closure] in SquitBrowser...etc... columnsCache: #(107 108 nil) sortingSelector: nil getSelectionSelector: #commitSelection setSelectionSelector: #commitSelection: potentialDropMorph: nil lineColor: (Color r: 0.345 g: 0.431 b: 0.458) font: a StrikeFont(Darkmap DejaVu Sans9 14) textColor: (Color r: 0.577 g: 0.631 b: 0.631) rootWrappers: #() selectedWrapper: nil getRootsSelector: #commitList getChildrenSelector: nil hasChildrenSelector: nil getLabelSelector: nil getIconSelector: nil getSelectedPathSelector: nil setSelectedPathSelector: nil setSelectedParentSelector: nil getHelpSelector: nil dropItemSelector: nil wantsDropSelector: nil dragItemSelector: #dragFromCommitList: dragTypeSelector: nil nodeClass: SquitVersionWrapper lastKeystrokeTime: 0 lastKeystrokes: '' dragStartedSelector: nil doubleClickSelector: nil PluggableTreeMorph(SimpleHierarchicalListMorph)>>specialKeyPressed: Receiver: a PluggableTreeMorph(853321) Arguments and temporary variables: asciiValue: 9 Receiver's instance variables: bounds: 781@179 corner: 1212@379 owner: a PluggablePanelMorph(2744773) submorphs: {a TransformMorph(4176857)} fullBounds: 781@179 corner: 1212@379 color: (Color r: 0.0 g: 0.169 b: 0.212) extension: a MorphExtension (1683625) [eventHandler = an EventHandler recipient...etc... borderWidth: 0 borderColor: (Color r: 0.001 g: 0.004 b: 0.005) model: a SquitBrowser slotName: nil open: false scrollBar: a ScrollBar(3978775) scroller: a TransformMorph(4176857) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #commitListMenu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(825607) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 selectedMorph: nil hoveredMorph: nil getListSelector: nil keystrokeActionSelector: #commitListKey:from: autoDeselect: true columns: {[closure] in SquitBrowser>>buildCommitList: . [closure] in SquitBrowser...etc... columnsCache: #(107 108 nil) sortingSelector: nil getSelectionSelector: #commitSelection setSelectionSelector: #commitSelection: potentialDropMorph: nil lineColor: (Color r: 0.345 g: 0.431 b: 0.458) font: a StrikeFont(Darkmap DejaVu Sans9 14) textColor: (Color r: 0.577 g: 0.631 b: 0.631) rootWrappers: #() selectedWrapper: nil getRootsSelector: #commitList getChildrenSelector: nil hasChildrenSelector: nil getLabelSelector: nil getIconSelector: nil getSelectedPathSelector: nil setSelectedPathSelector: nil setSelectedParentSelector: nil getHelpSelector: nil dropItemSelector: nil wantsDropSelector: nil dragItemSelector: #dragFromCommitList: dragTypeSelector: nil nodeClass: SquitVersionWrapper lastKeystrokeTime: 0 lastKeystrokes: '' dragStartedSelector: nil doubleClickSelector: nil PluggableTreeMorph>>specialKeyPressed: Receiver: a PluggableTreeMorph(853321) Arguments and temporary variables: asciiValue: 9 Receiver's instance variables: bounds: 781@179 corner: 1212@379 owner: a PluggablePanelMorph(2744773) submorphs: {a TransformMorph(4176857)} fullBounds: 781@179 corner: 1212@379 color: (Color r: 0.0 g: 0.169 b: 0.212) extension: a MorphExtension (1683625) [eventHandler = an EventHandler recipient...etc... borderWidth: 0 borderColor: (Color r: 0.001 g: 0.004 b: 0.005) model: a SquitBrowser slotName: nil open: false scrollBar: a ScrollBar(3978775) scroller: a TransformMorph(4176857) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #commitListMenu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(825607) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 selectedMorph: nil hoveredMorph: nil getListSelector: nil keystrokeActionSelector: #commitListKey:from: autoDeselect: true columns: {[closure] in SquitBrowser>>buildCommitList: . [closure] in SquitBrowser...etc... columnsCache: #(107 108 nil) sortingSelector: nil getSelectionSelector: #commitSelection setSelectionSelector: #commitSelection: potentialDropMorph: nil lineColor: (Color r: 0.345 g: 0.431 b: 0.458) font: a StrikeFont(Darkmap DejaVu Sans9 14) textColor: (Color r: 0.577 g: 0.631 b: 0.631) rootWrappers: #() selectedWrapper: nil getRootsSelector: #commitList getChildrenSelector: nil hasChildrenSelector: nil getLabelSelector: nil getIconSelector: nil getSelectedPathSelector: nil setSelectedPathSelector: nil setSelectedParentSelector: nil getHelpSelector: nil dropItemSelector: nil wantsDropSelector: nil dragItemSelector: #dragFromCommitList: dragTypeSelector: nil nodeClass: SquitVersionWrapper lastKeystrokeTime: 0 lastKeystrokes: '' dragStartedSelector: nil doubleClickSelector: nil PluggableTreeMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a PluggableTreeMorph(853321) Arguments and temporary variables: event: [971@299 keystroke '<tab>' (9) 102540109] Receiver's instance variables: bounds: 781@179 corner: 1212@379 owner: a PluggablePanelMorph(2744773) submorphs: {a TransformMorph(4176857)} fullBounds: 781@179 corner: 1212@379 color: (Color r: 0.0 g: 0.169 b: 0.212) extension: a MorphExtension (1683625) [eventHandler = an EventHandler recipient...etc... borderWidth: 0 borderColor: (Color r: 0.001 g: 0.004 b: 0.005) model: a SquitBrowser slotName: nil open: false scrollBar: a ScrollBar(3978775) scroller: a TransformMorph(4176857) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #commitListMenu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(825607) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 selectedMorph: nil hoveredMorph: nil getListSelector: nil keystrokeActionSelector: #commitListKey:from: autoDeselect: true columns: {[closure] in SquitBrowser>>buildCommitList: . [closure] in SquitBrowser...etc... columnsCache: #(107 108 nil) sortingSelector: nil getSelectionSelector: #commitSelection setSelectionSelector: #commitSelection: potentialDropMorph: nil lineColor: (Color r: 0.345 g: 0.431 b: 0.458) font: a StrikeFont(Darkmap DejaVu Sans9 14) textColor: (Color r: 0.577 g: 0.631 b: 0.631) rootWrappers: #() selectedWrapper: nil getRootsSelector: #commitList getChildrenSelector: nil hasChildrenSelector: nil getLabelSelector: nil getIconSelector: nil getSelectedPathSelector: nil setSelectedPathSelector: nil setSelectedParentSelector: nil getHelpSelector: nil dropItemSelector: nil wantsDropSelector: nil dragItemSelector: #dragFromCommitList: dragTypeSelector: nil nodeClass: SquitVersionWrapper lastKeystrokeTime: 0 lastKeystrokes: '' dragStartedSelector: nil doubleClickSelector: nil PluggableTreeMorph>>keyStroke: Receiver: a PluggableTreeMorph(853321) Arguments and temporary variables: event: [971@299 keystroke '<tab>' (9) 102540109] Receiver's instance variables: bounds: 781@179 corner: 1212@379 owner: a PluggablePanelMorph(2744773) submorphs: {a TransformMorph(4176857)} fullBounds: 781@179 corner: 1212@379 color: (Color r: 0.0 g: 0.169 b: 0.212) extension: a MorphExtension (1683625) [eventHandler = an EventHandler recipient...etc... borderWidth: 0 borderColor: (Color r: 0.001 g: 0.004 b: 0.005) model: a SquitBrowser slotName: nil open: false scrollBar: a ScrollBar(3978775) scroller: a TransformMorph(4176857) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #commitListMenu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(825607) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 selectedMorph: nil hoveredMorph: nil getListSelector: nil keystrokeActionSelector: #commitListKey:from: autoDeselect: true columns: {[closure] in SquitBrowser>>buildCommitList: . [closure] in SquitBrowser...etc... columnsCache: #(107 108 nil) sortingSelector: nil getSelectionSelector: #commitSelection setSelectionSelector: #commitSelection: potentialDropMorph: nil lineColor: (Color r: 0.345 g: 0.431 b: 0.458) font: a StrikeFont(Darkmap DejaVu Sans9 14) textColor: (Color r: 0.577 g: 0.631 b: 0.631) rootWrappers: #() selectedWrapper: nil getRootsSelector: #commitList getChildrenSelector: nil hasChildrenSelector: nil getLabelSelector: nil getIconSelector: nil getSelectedPathSelector: nil setSelectedPathSelector: nil setSelectedParentSelector: nil getHelpSelector: nil dropItemSelector: nil wantsDropSelector: nil dragItemSelector: #dragFromCommitList: dragTypeSelector: nil nodeClass: SquitVersionWrapper lastKeystrokeTime: 0 lastKeystrokes: '' dragStartedSelector: nil doubleClickSelector: nil PluggableTreeMorph(Morph)>>handleKeystroke: Receiver: a PluggableTreeMorph(853321) Arguments and temporary variables: anEvent: [971@299 keystroke '<tab>' (9) 102540109] handler: a PluggableTreeMorph(853321) Receiver's instance variables: bounds: 781@179 corner: 1212@379 owner: a PluggablePanelMorph(2744773) submorphs: {a TransformMorph(4176857)} fullBounds: 781@179 corner: 1212@379 color: (Color r: 0.0 g: 0.169 b: 0.212) extension: a MorphExtension (1683625) [eventHandler = an EventHandler recipient...etc... borderWidth: 0 borderColor: (Color r: 0.001 g: 0.004 b: 0.005) model: a SquitBrowser slotName: nil open: false scrollBar: a ScrollBar(3978775) scroller: a TransformMorph(4176857) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #commitListMenu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(825607) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 selectedMorph: nil hoveredMorph: nil getListSelector: nil keystrokeActionSelector: #commitListKey:from: autoDeselect: true columns: {[closure] in SquitBrowser>>buildCommitList: . [closure] in SquitBrowser...etc... columnsCache: #(107 108 nil) sortingSelector: nil getSelectionSelector: #commitSelection setSelectionSelector: #commitSelection: potentialDropMorph: nil lineColor: (Color r: 0.345 g: 0.431 b: 0.458) font: a StrikeFont(Darkmap DejaVu Sans9 14) textColor: (Color r: 0.577 g: 0.631 b: 0.631) rootWrappers: #() selectedWrapper: nil getRootsSelector: #commitList getChildrenSelector: nil hasChildrenSelector: nil getLabelSelector: nil getIconSelector: nil getSelectedPathSelector: nil setSelectedPathSelector: nil setSelectedParentSelector: nil getHelpSelector: nil dropItemSelector: nil wantsDropSelector: nil dragItemSelector: #dragFromCommitList: dragTypeSelector: nil nodeClass: SquitVersionWrapper lastKeystrokeTime: 0 lastKeystrokes: '' dragStartedSelector: nil doubleClickSelector: nil KeyboardEvent>>sentTo: Receiver: [971@299 keystroke '<tab>' (9) 102540109] Arguments and temporary variables: anObject: a PluggableTreeMorph(853321) Receiver's instance variables: timeStamp: 102540109 source: a HandMorph(3499674) type: #keystroke buttons: 0 position: 971@299 handler: a PluggableTreeMorph(853321) wasHandled: true wasIgnored: false keyValue: 9 PluggableTreeMorph(Morph)>>handleEvent: Receiver: a PluggableTreeMorph(853321) Arguments and temporary variables: anEvent: [971@299 keystroke '<tab>' (9) 102540109] filteredEvent: [971@299 keystroke '<tab>' (9) 102540109] Receiver's instance variables: bounds: 781@179 corner: 1212@379 owner: a PluggablePanelMorph(2744773) submorphs: {a TransformMorph(4176857)} fullBounds: 781@179 corner: 1212@379 color: (Color r: 0.0 g: 0.169 b: 0.212) extension: a MorphExtension (1683625) [eventHandler = an EventHandler recipient...etc... borderWidth: 0 borderColor: (Color r: 0.001 g: 0.004 b: 0.005) model: a SquitBrowser slotName: nil open: false scrollBar: a ScrollBar(3978775) scroller: a TransformMorph(4176857) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #commitListMenu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(825607) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 selectedMorph: nil hoveredMorph: nil getListSelector: nil keystrokeActionSelector: #commitListKey:from: autoDeselect: true columns: {[closure] in SquitBrowser>>buildCommitList: . [closure] in SquitBrowser...etc... columnsCache: #(107 108 nil) sortingSelector: nil getSelectionSelector: #commitSelection setSelectionSelector: #commitSelection: potentialDropMorph: nil lineColor: (Color r: 0.345 g: 0.431 b: 0.458) font: a StrikeFont(Darkmap DejaVu Sans9 14) textColor: (Color r: 0.577 g: 0.631 b: 0.631) rootWrappers: #() selectedWrapper: nil getRootsSelector: #commitList getChildrenSelector: nil hasChildrenSelector: nil getLabelSelector: nil getIconSelector: nil getSelectedPathSelector: nil setSelectedPathSelector: nil setSelectedParentSelector: nil getHelpSelector: nil dropItemSelector: nil wantsDropSelector: nil dragItemSelector: #dragFromCommitList: dragTypeSelector: nil nodeClass: SquitVersionWrapper lastKeystrokeTime: 0 lastKeystrokes: '' dragStartedSelector: nil doubleClickSelector: nil PluggableTreeMorph(Morph)>>handleFocusEvent: Receiver: a PluggableTreeMorph(853321) Arguments and temporary variables: anEvent: [971@299 keystroke '<tab>' (9) 102540109] Receiver's instance variables: bounds: 781@179 corner: 1212@379 owner: a PluggablePanelMorph(2744773) submorphs: {a TransformMorph(4176857)} fullBounds: 781@179 corner: 1212@379 color: (Color r: 0.0 g: 0.169 b: 0.212) extension: a MorphExtension (1683625) [eventHandler = an EventHandler recipient...etc... borderWidth: 0 borderColor: (Color r: 0.001 g: 0.004 b: 0.005) model: a SquitBrowser slotName: nil open: false scrollBar: a ScrollBar(3978775) scroller: a TransformMorph(4176857) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #commitListMenu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(825607) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 selectedMorph: nil hoveredMorph: nil getListSelector: nil keystrokeActionSelector: #commitListKey:from: autoDeselect: true columns: {[closure] in SquitBrowser>>buildCommitList: . [closure] in SquitBrowser...etc... columnsCache: #(107 108 nil) sortingSelector: nil getSelectionSelector: #commitSelection setSelectionSelector: #commitSelection: potentialDropMorph: nil lineColor: (Color r: 0.345 g: 0.431 b: 0.458) font: a StrikeFont(Darkmap DejaVu Sans9 14) textColor: (Color r: 0.577 g: 0.631 b: 0.631) rootWrappers: #() selectedWrapper: nil getRootsSelector: #commitList getChildrenSelector: nil hasChildrenSelector: nil getLabelSelector: nil getIconSelector: nil getSelectedPathSelector: nil setSelectedPathSelector: nil setSelectedParentSelector: nil getHelpSelector: nil dropItemSelector: nil wantsDropSelector: nil dragItemSelector: #dragFromCommitList: dragTypeSelector: nil nodeClass: SquitVersionWrapper lastKeystrokeTime: 0 lastKeystrokes: '' dragStartedSelector: nil doubleClickSelector: nil MorphicEventDispatcher>>doHandlingForFocusEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: currentEvent: [971@299 keystroke '<tab>' (9) 102540109] focusMorph: a PluggableTreeMorph(853321) localEvent: [971@299 keystroke '<tab>' (9) 102540109] filteredEvent: nil Receiver's instance variables: lastType: nil lastDispatch: nil MorphicEventDispatcher>>dispatchFocusEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEventWithGlobalPosition: [971@299 keystroke '<tab>' (9) 102540109] focusMorph: a PluggableTreeMorph(853321) currentEvent: [971@299 keystroke '<tab>' (9) 102540109] Receiver's instance variables: lastType: nil lastDispatch: nil PluggableTreeMorph(Morph)>>processFocusEvent:using: Receiver: a PluggableTreeMorph(853321) Arguments and temporary variables: anEvent: [971@299 keystroke '<tab>' (9) 102540109] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: 781@179 corner: 1212@379 owner: a PluggablePanelMorph(2744773) submorphs: {a TransformMorph(4176857)} fullBounds: 781@179 corner: 1212@379 color: (Color r: 0.0 g: 0.169 b: 0.212) extension: a MorphExtension (1683625) [eventHandler = an EventHandler recipient...etc... borderWidth: 0 borderColor: (Color r: 0.001 g: 0.004 b: 0.005) model: a SquitBrowser slotName: nil open: false scrollBar: a ScrollBar(3978775) scroller: a TransformMorph(4176857) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #commitListMenu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(825607) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 selectedMorph: nil hoveredMorph: nil getListSelector: nil keystrokeActionSelector: #commitListKey:from: autoDeselect: true columns: {[closure] in SquitBrowser>>buildCommitList: . [closure] in SquitBrowser...etc... columnsCache: #(107 108 nil) sortingSelector: nil getSelectionSelector: #commitSelection setSelectionSelector: #commitSelection: potentialDropMorph: nil lineColor: (Color r: 0.345 g: 0.431 b: 0.458) font: a StrikeFont(Darkmap DejaVu Sans9 14) textColor: (Color r: 0.577 g: 0.631 b: 0.631) rootWrappers: #() selectedWrapper: nil getRootsSelector: #commitList getChildrenSelector: nil hasChildrenSelector: nil getLabelSelector: nil getIconSelector: nil getSelectedPathSelector: nil setSelectedPathSelector: nil setSelectedParentSelector: nil getHelpSelector: nil dropItemSelector: nil wantsDropSelector: nil dragItemSelector: #dragFromCommitList: dragTypeSelector: nil nodeClass: SquitVersionWrapper lastKeystrokeTime: 0 lastKeystrokes: '' dragStartedSelector: nil doubleClickSelector: nil PluggableTreeMorph(Morph)>>processFocusEvent: Receiver: a PluggableTreeMorph(853321) Arguments and temporary variables: anEvent: [971@299 keystroke '<tab>' (9) 102540109] Receiver's instance variables: bounds: 781@179 corner: 1212@379 owner: a PluggablePanelMorph(2744773) submorphs: {a TransformMorph(4176857)} fullBounds: 781@179 corner: 1212@379 color: (Color r: 0.0 g: 0.169 b: 0.212) extension: a MorphExtension (1683625) [eventHandler = an EventHandler recipient...etc... borderWidth: 0 borderColor: (Color r: 0.001 g: 0.004 b: 0.005) model: a SquitBrowser slotName: nil open: false scrollBar: a ScrollBar(3978775) scroller: a TransformMorph(4176857) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #commitListMenu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(825607) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 selectedMorph: nil hoveredMorph: nil getListSelector: nil keystrokeActionSelector: #commitListKey:from: autoDeselect: true columns: {[closure] in SquitBrowser>>buildCommitList: . [closure] in SquitBrowser...etc... columnsCache: #(107 108 nil) sortingSelector: nil getSelectionSelector: #commitSelection setSelectionSelector: #commitSelection: potentialDropMorph: nil lineColor: (Color r: 0.345 g: 0.431 b: 0.458) font: a StrikeFont(Darkmap DejaVu Sans9 14) textColor: (Color r: 0.577 g: 0.631 b: 0.631) rootWrappers: #() selectedWrapper: nil getRootsSelector: #commitList getChildrenSelector: nil hasChildrenSelector: nil getLabelSelector: nil getIconSelector: nil getSelectedPathSelector: nil setSelectedPathSelector: nil setSelectedParentSelector: nil getHelpSelector: nil dropItemSelector: nil wantsDropSelector: nil dragItemSelector: #dragFromCommitList: dragTypeSelector: nil nodeClass: SquitVersionWrapper lastKeystrokeTime: 0 lastKeystrokes: '' dragStartedSelector: nil doubleClickSelector: nil [] in [] in [] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(3499674) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 1079@598 corner: 1095@614 owner: a PasteUpMorph(2465254) [world] submorphs: #() fullBounds: 1079@598 corner: 1095@614 color: Color blue extension: a MorphExtension (1044607) [other: (balloonHelpMorphs -> an Ordered...etc... mouseFocus: nil keyboardFocus: a PluggableListMorphPlus(1886198) eventListeners: nil mouseListeners: nil keyboardListeners: nil eventCaptureFilters: nil mouseCaptureFilters: nil keyboardCaptureFilters: a WeakArray(a HandMorph(3499674)) mouseClickState: nil mouseOverHandler: a MouseOverHandler targetOffset: 75@13 lastMouseEvent: [1079@598 mouseUp ( red ) 102549328] damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 102549328 1079 598 0 0 1 1) genieGestureProcessor: nil keyboardInterpreter: an UTF32InputInterpreter FullBlockClosure(BlockClosure)>>ensure: Receiver: [closure] in [] in [] in HandMorph>>sendFocusEvent:to:clear: Arguments and temporary variables: aBlock: [closure] in KeyboardEvent(MorphicEvent)>>becomeActiveDuring: complete: nil returnValue: nil Receiver's instance variables: outerContext: [] in [] in HandMorph>>sendFocusEvent:to:clear: startpcOrMethod: ([] in HandMorph>>#sendFocusEvent:to:clear: "a CompiledBlock(2...etc... numArgs: 0 receiver: a HandMorph(3499674) KeyboardEvent(MorphicEvent)>>becomeActiveDuring: Receiver: [971@299 keystroke '<tab>' (9) 102540109] Arguments and temporary variables: aBlock: [closure] in [] in [] in HandMorph>>sendFocusEvent:to:clear: priorEvent: [963@285 keystroke '<tab>' (9) 102497593] Receiver's instance variables: timeStamp: 102540109 source: a HandMorph(3499674) type: #keystroke buttons: 0 position: 971@299 handler: nil wasHandled: false wasIgnored: false keyValue: 9 --- The full stack --- SmallInteger>>/ TransformMorph>>numberOfItemsPotentiallyInView PluggableTreeMorph(ScrollPane)>>numSelectionsInView PluggableTreeMorph(SimpleHierarchicalListMorph)>>arrowKey: PluggableTreeMorph(SimpleHierarchicalListMorph)>>specialKeyPressed: PluggableTreeMorph>>specialKeyPressed: PluggableTreeMorph(SimpleHierarchicalListMorph)>>keyStroke: PluggableTreeMorph>>keyStroke: PluggableTreeMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: PluggableTreeMorph(Morph)>>handleEvent: PluggableTreeMorph(Morph)>>handleFocusEvent: MorphicEventDispatcher>>doHandlingForFocusEvent:with: MorphicEventDispatcher>>dispatchFocusEvent:with: PluggableTreeMorph(Morph)>>processFocusEvent:using: PluggableTreeMorph(Morph)>>processFocusEvent: [] in [] in [] in HandMorph>>sendFocusEvent:to:clear: FullBlockClosure(BlockClosure)>>ensure: KeyboardEvent(MorphicEvent)>>becomeActiveDuring: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [] in [] in HandMorph>>sendFocusEvent:to:clear: FullBlockClosure(BlockClosure)>>ensure: HandMorph>>becomeActiveDuring: [] in HandMorph>>sendFocusEvent:to:clear: FullBlockClosure(BlockClosure)>>ensure: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in AnimWorldState(WorldState)>>doOneCycleNowFor: Array(SequenceableCollection)>>do: AnimWorldState(WorldState)>>handsDo: AnimWorldState(WorldState)>>doOneCycleNowFor: AnimWorldState(WorldState)>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in AnimMorphicProject>>spawnNewProcess [] in FullBlockClosure(BlockClosure)>>newProcess

2 2

TrueTypeFont and Unicode Characters
by Eric Gade 05 Aug '20

05 Aug '20

Hello, I am trying to load a particular TrueTypeFont that represents the Cuneiform signs in the Cuneiform Unicode block. You can find some information on this page <https://www.hethport.uni-wuerzburg.de/cuneifont/>. Specifically, I'm attempting to work with the Neo-Assyrian font on that page ('Assurbanipal.ttf' in the zip file). I have also tried the Old Babylonian fonts with similar results. I have "imported" this font using the FileList tool and it does appear as a TextStyle. However, if I attempt to run: ``` m := TextMorph new beAllFont: ((TextStyle named: 'Assurbanipal') fontOfSize: 36); backgroundColor: Color white. signString := (Unicode value: 16r12038) asString. m contents: signString. m openInHand. ``` I get a TextMorph that appears blank. Either I am doing something incorrectly or the system cannot render the glyph at that code point (which should be the sign "AŠ"). Any ideas? -- Eric

5 9

Loading Seaside results in a number of Grease related code issues
by tim Rowledge 31 Jul '20

31 Jul '20

Whilst checking things after installing Seaside and Cryptography I noticed that there are a couple of dangling Undeclareds that lead into some faulty loaded code. 'home' and 'startpc' are referenced in BlockContext>>#tempVarRefs. This is not too much of a problem since there are no senders but since there are also a bunch of methods loaded into the no longer used Context/BlockContext/MethodContext classes it might be an indicator of some updating needed in the Grease package, specifically *grease-squeak5-core. I don't know who looks after this, so if anyone does, please pass it on. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim The next generation of computers will have a "Warranty Expired" interrupt.

4 4

The Trunk: Monticello-cmm.726.mcz
by commits＠source.squeak.org 28 Jul '20

28 Jul '20

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.726.mcz ==================== Summary ==================== Name: Monticello-cmm.726 Author: cmm Time: 30 June 2020, 5:21:11.609668 pm UUID: 1a529d96-0be7-45a8-a65e-b9dcae087b85 Ancestors: Monticello-mt.725 Revert incorrect implementation of sorting repositories, because it broke "demote to bottom" which broke "browse revisions" and "browse origin". =============== Diff against Monticello-mt.725 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>repositories (in category 'morphic ui') ----- repositories + ^ self repositoryGroup repositories! - | repositories | - repositories := self repositoryGroup repositories. - ^{repositories first}, (repositories allButFirst sort: [:r1 :r2| r1 description < r2 description])!

8 12

Support an updated image format number for Sista
by David T. Lewis 19 Jul '20

19 Jul '20

Hi Eliot, This is a belated follow up on earlier private discussion during a Squeak board meeting a few months ago, in which we agreed that identifying "Sista in use" in the image format number would be a useful thing to do. I previously added the documentation for this in ImageFormat-dtl.39.mcz (as well as the updated ckformat.c program to match). Attached here is a change set that can be loaded into a VMMaker image to add VM support for setting and reading the updated image format numbers. Here I used a primitive to initially set or clear the "sista bit". There are other ways this could be done, but this at least gets us started with a working implementation. By way of explanation, I am copying below both the change set preamble and the earlier ImageFormat commit notice: === Change Set: VMM-Sista-bit-dtl Date: 12 January 2020 Author: David T. Lewis Let the image inform the interpreter that alternate bytecodes either are or are not in use, and remember that setting when writing or reading the image format number in a shapshot file header. Provide primitiveMultipleBytecodesActive to allow the setting to be updated from the image. Expected usage is that the image can call this primitive after recompiling with Systa bytecodes, or after reverting back. Note that an alternative implemenation would be to use a VM parameter. The primitive was chosen here because it can perform parameter checking and does not require coordinated update the the VM parameter usage. Expected usage is that this feature will remain unused for some grace period (perhaps a few months) during which an updated VM can be widely circulated. After that period, images using Sista bytecodes may be safely saved with the updated image format number indicating that multiple bytecodes are in use. This change set includes helper methods in SmalltalkImage for testing or setting the multipleBytecodeSetsActive setting in the VM. Note the change set postscript which is necessary for initializing a class variable prior to code generation. === Name: ImageFormat-dtl.37 Author: dtl Time: 20 July 2019, 5:23:59.004 pm UUID: 52b464d5-0bf7-4326-bde3-4f18ad70b239 Ancestors: ImageFormat-dtl.36 Identify extended bytecodes for Sista in the image format number. Bit 10 identifies an image that contains extended bytecodes. Thus a 32 bit Spur image is 6521, with Sista it is 7033, and a 64 bit Spur image is 68021, with Sista it is 68533. It is expected that additional bytecode sets can be identified by an additional field in the image header, probably 32 bits containing two 16 bit fields, if both zero then Sista. Per discussion with Eliot and Bert in a Squeak oversight board meeting 2019-05-15. Dave

1 3

Dual screen?
by Robert Withers 18 Jul '20

18 Jul '20

Is there a way to set Squeak to be dual screen? Kindly, Rabbit

5 12

← Newer
1
...
4
5
6
7
8
9
10
...
35
Older →

Jump to page: