Squeak-dev November 2021

squeak-dev@lists.squeakfoundation.org

27 participants
277 discussions

The Trunk: Help-Squeak-Project-eem.82.mcz
by commits＠source.squeak.org 11 Nov '21

11 Nov '21

Eliot Miranda uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-eem.82.mcz ==================== Summary ==================== Name: Help-Squeak-Project-eem.82 Author: eem Time: 11 November 2021, 9:15:07.258458 am UUID: 90f3a49e-3c6a-43f1-a885-d4491bb7160b Ancestors: Help-Squeak-Project-eem.81 Include a proper shout out to the Cog Spur VM in the Welcome workspace's introduction. Mention SqueakJS and the Truffle/Grall VMs too. =============== Diff against Help-Squeak-Project-eem.81 =============== Item was changed: ----- Method: SqueakHelp class>>introduction (in category 'pages') ----- introduction "This method was automatically generated. Edit it using:" "SqueakHelp edit: #introduction" + <generated> ^(HelpTopic title: 'Welcome' contents: 'Welcome to Squeak Visit http://www.squeak.org for the lastest information. Squeak is an open-source Smalltalk programming system available for all major platforms. It features the Morphic framework, which promotes low effort graphical, interactive application development and maintenance. Many projects have been successfully created with Squeak in a wide range of domains such as education, multimedia, gaming, research, and commerce. Squeak is fast, flexible and free. It''s Smalltalk!!!! Everything is an object. Objects collaborate by sending messages to achieve the desired application behavior. The Smalltalk programming language has a concise syntax and simple execution semantics. The Smalltalk system is implemented in itself: Compiler, debugger, programming tools, and so on are all Smalltalk code the user can read and modify. Novice programmers can get started easily and experts can engineer elegant solutions at large. Morphic UI Framework All graphical objects are tangible and interactively changeable. This promotes short feedback loops and low-effort application development. Morphic thus leverages the live programming experience of traditional Smalltalk environments from a mainly text-focused domain to a graphical one. Powerful Tooling The dynamic Squeak environment provides a variety of tools for browsing, writing, executing, and versioning Smalltalk code. Multiple debugging sessions can be served concurrently. Thanks to Morphic, tool customization can be achieved with reasonable effort. Fast Virtual Machine + The standard VM for Squeak, Cog Spur, has the most advanced object representation yet devised for Smalltalk. Spur has direct pointers, a compact object header, and efficiently implements become (Smalltalk''s object mutation primitive) via lazy forwarding. Spur provides pinning, and a segmented heap, releasing memory back to the OS after global garbage collection. Cog Spur''s JIT combines aggressive in-line message caching, a register based calling convention, and Spur''s object representation to provide the fastest production Smalltalk VM. Cog Spur is developed in Smalltalk, in a uniquely productive VM development environment. There are other important Squeak VMs, SqueakJS that runs in web browsers, and a research meta-tracing JIT exploring the Truffle/Graal framework. - There are several fast Squeak VMs that also support other languages of the Smalltalk family. Meta-tracing, just-in-time compilation, stack-to-register mapping, and aggressive in-line message caching yield efficiency in executing Smalltalk code. Web Development With frameworks like Seaside and AIDA, Squeak can be a web server. It provides a layered set of abstractions over HTTP and HTML that let you build highly interactive web applications quickly, reusably, and maintainably. Multi-Platform Support Squeak supports Windows, Linux (X86, X64 and ARM), and macOS and is preinstalled on C.H.I.P., Raspberry Pi, and OLPC XO.!! + ]style[(19 5 1 21 29 399 15 18 6 33 8 87 14 80 8 2 8 2 17 161 20 27 8 254 16 64 8 11 9 6 10 152 20 28 1 8 2 741 15 22 7 5 4 18 3 163 22 121)a0b,a0,a0b,Rhttp://www.squeak.org;,a0,,i,,Rcode://Object;,,Rcode://MessageSend;,,Rcode://HelpBrowser openOn: TerseGuideHelp;,,Rcode://Compiler;,,Rcode://Debugger;,,Rcode://Browser;,,i,,Rcode://Morph new openInHand;,,i,,Rcode://ToolSet browse: String selector: #findTokens:;,,Rcode://7/0;,,Rcode://MCWorkingCopyBrowser new show;,,i,,f5,Rhttps://github.com/OpenSmalltalk/opensmalltalk-vm#readme;,f5,…,!!' readStream nextChunkText) - ]style[(19 5 1 21 29 399 15 18 6 33 8 87 14 80 8 2 8 2 17 161 20 27 8 254 16 64 8 11 9 6 10 152 20 247 15 22 7 5 4 18 3 163 22 121)a0b,a0,a0b,Rhttp://www.squeak.org;,a0,,i,,Rcode://Object;,,Rcode://MessageSend;,,Rcode://HelpBrowser openOn: TerseGuideHelp;,,Rcode://Compiler;,,Rcode://Debugger;,,Rcode://Browser;,,i,,Rcode://Morph new openInHand;,,i,,Rcode://ToolSet browse: String selector: #findTokens:;,,Rcode://7/0;,,Rcode://MCWorkingCopyBrowser new show;,,i,,i,,Rhttp://www.seaside.st/;,,Rhttp://www.aidaweb.si/;,,Rcode://WebClient;,,i,!!' readStream nextChunkText) key: #introduction; shouldStyle: false; yourself!

3 2

The Trunk: Help-Squeak-Project-eem.83.mcz
by commits＠source.squeak.org 11 Nov '21

11 Nov '21

Eliot Miranda uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-eem.83.mcz ==================== Summary ==================== Name: Help-Squeak-Project-eem.83 Author: eem Time: 11 November 2021, 11:51:55.261858 am UUID: 0908315b-b98a-48ad-a9cb-3d226e36688b Ancestors: Help-Squeak-Project-eem.82 Add some URLs to the VM shout outs and have the package postscript reopen the heklp browser if it is open and unedited. =============== Diff against Help-Squeak-Project-eem.82 =============== Item was changed: ----- Method: SqueakHelp class>>introduction (in category 'pages') ----- introduction "This method was automatically generated. Edit it using:" "SqueakHelp edit: #introduction" <generated> ^(HelpTopic title: 'Welcome' contents: 'Welcome to Squeak Visit http://www.squeak.org for the lastest information. Squeak is an open-source Smalltalk programming system available for all major platforms. It features the Morphic framework, which promotes low effort graphical, interactive application development and maintenance. Many projects have been successfully created with Squeak in a wide range of domains such as education, multimedia, gaming, research, and commerce. Squeak is fast, flexible and free. It''s Smalltalk!!!! Everything is an object. Objects collaborate by sending messages to achieve the desired application behavior. The Smalltalk programming language has a concise syntax and simple execution semantics. The Smalltalk system is implemented in itself: Compiler, debugger, programming tools, and so on are all Smalltalk code the user can read and modify. Novice programmers can get started easily and experts can engineer elegant solutions at large. Morphic UI Framework All graphical objects are tangible and interactively changeable. This promotes short feedback loops and low-effort application development. Morphic thus leverages the live programming experience of traditional Smalltalk environments from a mainly text-focused domain to a graphical one. Powerful Tooling The dynamic Squeak environment provides a variety of tools for browsing, writing, executing, and versioning Smalltalk code. Multiple debugging sessions can be served concurrently. Thanks to Morphic, tool customization can be achieved with reasonable effort. Fast Virtual Machine + The standard VM for Squeak, Cog Spur, has the most advanced object representation yet devised for Smalltalk. Spur has direct pointers, a compact object header, and efficiently implements become (Smalltalk''s object mutation primitive) via lazy forwarding. Spur provides pinning, and a segmented heap, releasing memory back to the OS after global garbage collection. Cog Spur''s JIT combines context-to-stack mapping, aggressive in-line message caching, a register based calling convention, and Spur''s object representation to provide the fastest production Smalltalk VM. Cog Spur is developed in Smalltalk, in a uniquely productive VM development environment. There are other important Squeak VMs, SqueakJS that runs in web browsers, and the research meta-tracing JIT TruffleSqueak, exploring the Truffle/Graal framework. - The standard VM for Squeak, Cog Spur, has the most advanced object representation yet devised for Smalltalk. Spur has direct pointers, a compact object header, and efficiently implements become (Smalltalk''s object mutation primitive) via lazy forwarding. Spur provides pinning, and a segmented heap, releasing memory back to the OS after global garbage collection. Cog Spur''s JIT combines aggressive in-line message caching, a register based calling convention, and Spur''s object representation to provide the fastest production Smalltalk VM. Cog Spur is developed in Smalltalk, in a uniquely productive VM development environment. There are other important Squeak VMs, SqueakJS that runs in web browsers, and a research meta-tracing JIT exploring the Truffle/Graal framework. Web Development With frameworks like Seaside and AIDA, Squeak can be a web server. It provides a layered set of abstractions over HTTP and HTML that let you build highly interactive web applications quickly, reusably, and maintainably. Multi-Platform Support Squeak supports Windows, Linux (X86, X64 and ARM), and macOS and is preinstalled on C.H.I.P., Raspberry Pi, and OLPC XO.!! + ]style[(19 5 1 21 29 399 15 18 6 33 8 87 14 80 8 2 8 2 17 161 20 27 8 254 16 64 8 11 9 6 10 152 20 28 1 8 2 351 24 13 23 43 28 111 26 40 8 62 13 42 15 22 7 5 4 18 3 163 22 121)a0b,a0,a0b,Rhttp://www.squeak.org;,a0,,i,,Rcode://Object;,,Rcode://MessageSend;,,Rcode://HelpBrowser openOn: TerseGuideHelp;,,Rcode://Compiler;,,Rcode://Debugger;,,Rcode://Browser;,,i,,Rcode://Morph new openInHand;,,i,,Rcode://ToolSet browse: String selector: #findTokens:;,,Rcode://7/0;,,Rcode://MCWorkingCopyBrowser new show;,,i,,f5,Rhttps://github.com/OpenSmalltalk/opensmalltalk-vm#readme;,f5,… /hpi-swa/trufflesqueak/;,,i,,Rhttp://www.seaside.st/;,,Rhttp://www.aidaweb.si/;,,Rcode://WebClient;,,i,!!' readStream nextChunkText) - ]style[(19 5 1 21 29 399 15 18 6 33 8 87 14 80 8 2 8 2 17 161 20 27 8 254 16 64 8 11 9 6 10 152 20 28 1 8 2 741 15 22 7 5 4 18 3 163 22 121)a0b,a0,a0b,Rhttp://www.squeak.org;,a0,,i,,Rcode://Object;,,Rcode://MessageSend;,,Rcode://HelpBrowser openOn: TerseGuideHelp;,,Rcode://Compiler;,,Rcode://Debugger;,,Rcode://Browser;,,i,,Rcode://Morph new openInHand;,,i,,Rcode://ToolSet browse: String selector: #findTokens:;,,Rcode://7/0;,,Rcode://MCWorkingCopyBrowser new show;,,i,,f5,Rhttps://github.com/OpenSmalltalk/opensmalltalk-vm#readme;,f5,…,!!' readStream nextChunkText) key: #introduction; shouldStyle: false; yourself! Item was changed: + (PackageInfo named: 'Help-Squeak-Project') postscript: 'Project current isMorphic ifTrue: - (PackageInfo named: 'Help-Squeak-Project') postscript: '| aForm aSecondForm | (excessive size, no diff calculated)

1 0

The Trunk: HelpSystem-Core-eem.135.mcz
by commits＠source.squeak.org 11 Nov '21

11 Nov '21

Eliot Miranda uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-eem.135.mcz ==================== Summary ==================== Name: HelpSystem-Core-eem.135 Author: eem Time: 11 November 2021, 9:12:59.000828 am UUID: c45f0a57-e4bf-4af4-93ce-1c171b2f8fb2 Ancestors: HelpSystem-Core-mt.134 Fix an MNU when accessing Release Notes in trunk Welcome. =============== Diff against HelpSystem-Core-mt.134 =============== Item was changed: ----- Method: DirectoryBasedHelpTopic>>key (in category 'accessing') ----- key + ^ self directoryEntry ifNil: [title] ifNotNil: [:dirEntry| dirEntry fullName]! - ^ self directoryEntry fullName!

1 0

The Trunk: Morphic-eem.1789.mcz
by commits＠source.squeak.org 11 Nov '21

11 Nov '21

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1789.mcz ==================== Summary ==================== Name: Morphic-eem.1789 Author: eem Time: 11 November 2021, 8:35:27.872742 am UUID: 5216c9e3-3e23-4083-947a-de1f79423905 Ancestors: Morphic-eem.1788 Fix MNU on hitting enter in Window Menu's Find Workspace... item. =============== Diff against Morphic-eem.1788 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>listWindowsOn: (in category 'submenu - windows') ----- listWindowsOn: menu | windows | windows := self allVisibleWindows sorted: [:winA :winB | ((winA model isNil or: [winB model isNil]) or: [winA model name = winB model name]) ifTrue: [winA label < winB label] ifFalse: [winA model name < winB model name]]. windows ifEmpty: [ menu addItem: [ :item | item contents: 'No Windows' translated; isEnabled: false ] ]. windows do: [ :each | | windowColor | windowColor := (each model respondsTo: #windowColorToUse) ifTrue: [each model windowColorToUse] ifFalse: [UserInterfaceTheme current get: #uniformWindowColor for: Model]. menu addItem: [ :item | item contents: (self windowMenuItemLabelFor: each); icon: (self colorIcon: windowColor); target: each; selector: #comeToFront; subMenuUpdater: self selector: #windowMenuFor:on: arguments: { each }; action: [ each beKeyWindow; expand ] ] ]. menu addLine; add: 'Collapse all windows' target: (Project current world) selector: #collapseAllWindows; add: 'Close all windows' target: self selector: #closeAllWindowsUnsafe; addItem: [:item | item contents: 'Close all windows without changes'; target: self; icon: MenuIcons smallBroomIcon; selector: #closeAllWindows]; add: 'Close all windows but workspaces' target: self selector: #closeAllWindowsButWorkspaces; addItem: [ :item | item contents: 'Find Workspace...'; - target: self; - selector: #findWorkspace; subMenuUpdater: self selector: #workspacesMenuFor: arguments: #()]!

1 0

The Trunk: Morphic-eem.1788.mcz
by commits＠source.squeak.org 11 Nov '21

11 Nov '21

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1788.mcz ==================== Summary ==================== Name: Morphic-eem.1788 Author: eem Time: 11 November 2021, 8:30:51.470436 am UUID: e753f115-212a-4e40-92e4-311bc7d73095 Ancestors: Morphic-pre.1787 Fix the Find Workspace... facility when there are no workspaces to be found. Show empty workspaces more gracefully. =============== Diff against Morphic-pre.1787 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>workspacesMenuFor: (in category 'submenu - windows') ----- workspacesMenuFor: anUpdatingMenuMorph | allWorkspaces | allWorkspaces := Set new. Project current topMorphicProject withChildrenDo: [:project| project world submorphs do: [:m| (m model isKindOf: Workspace) ifTrue: [allWorkspaces add: { m model. m. project. m model contents ifEmpty: [(m model dependents detect: [:d| d isTextView] ifNone: nil) textMorph contents] }]]]. + allWorkspaces isEmpty ifTrue: + [^anUpdatingMenuMorph addItem: + [:item | item + contents: 'no workspaces found']]. "Sort workspaces with non-empty ones first..." (allWorkspaces sorted: [:t1 :t2| t1 last isEmpty == t2 last isEmpty ifTrue: [t1 second label <= t2 second label] ifFalse: [t1 last notEmpty]]) do: [:tuple| anUpdatingMenuMorph addItem: [:item | item + contents: tuple second label, ': ', ((tuple last asString contractTo: 128) ifEmpty: ['(empty)']); - contents: tuple second label, ': ', (tuple last asString contractTo: 128); target: self; selector: #selectWorkspace:window:inProject:contents:; arguments: tuple]]!

1 0

The Trunk: Help-Squeak-Project-eem.81.mcz
by commits＠source.squeak.org 11 Nov '21

11 Nov '21

Eliot Miranda uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-eem.81.mcz ==================== Summary ==================== Name: Help-Squeak-Project-eem.81 Author: eem Time: 11 November 2021, 8:29:34.594159 am UUID: c316d08b-ce8b-4e20-9c07-e45311ab1ce5 Ancestors: Help-Squeak-Project-nice.80 Update Help on Command Key Mappings to reflect the addition of the Do menu to the main docking bar menu. =============== Diff against Help-Squeak-Project-nice.80 =============== Item was changed: ----- Method: SqueakTutorialsCommandKey class>>commandKeyMappings (in category 'pages') ----- commandKeyMappings "This method was automatically generated. Edit it using:" "SqueakTutorialsCommandKey edit: #commandKeyMappings" ^(HelpTopic title: 'Command Key Mappings' contents: 'Lower-case command keys (use with Cmd key on Mac and Alt key on other platforms) a Select all b Browse it (selection is a class name or cursor is over a class-list or message-list) c Copy selection d Do it (selection is a valid expression) e Exchange selection with prior selection f Find text with a dialog g Find the current selection again j Repeat the last selection replacement i Inspect it k Set font l Cancel text edit m Implementors of it n Senders of it o Spawn current method p Print it (selection is a valid expression) q Query symbol (toggle all possible completion for a given prefix) s Save (i.e. accept) t Finds a Transcript (when cursor is over the desktop) u Toggle alignment v Paste w Select/Delete preceding word (over text); Close-window (over morphic desktop) x Cut selection y Swap characters z Undo Note: for Do it, Senders of it, etc., a null selection will be expanded to a word or to the current line in an attempt to do what you want. Also note that Senders/Implementors of it will find the outermost keyword selector in a large selection, as when you have selected a bracketed expression or an entire line. Finally note that the same cmd-m and cmd-n (and cmd-v for versions) work in the message pane of most browsers. Upper-case command keys (use with Shift-Cmd, or Ctrl on Mac or Shift-Alt on other platforms; sometimes Ctrl works too) A Advance argument B Browse it in this same browser (in System browsers only) C Compare the selected text to the clipboard contents D Debug-It E Method strings containing it F Insert ''ifFalse:'' G fileIn from it (a file name) H Move cursor to top/home of text I Inspect via Object Explorer J Again many (apply the previous text command repeatedly until the end of the text) K Set style L Opens a FileList, bringing forward on that already exists if appropriate M Select current type-in N References to it (selection is a class name, or cursor is over a class-list or message-list) O Open single-message browser (in message lists) P Make project link R opens a Recent Submissions browser S Pretty-print a method in the current browser T Insert ''ifTrue:'' U Convert linefeeds to carriage returns in selection V Paste author''s initials W Selectors containing it (in text); show-world-menu (when issued with cursor over desktop) X Force selection to lowercase Y Force selection to uppercase Z Redo Other special keys Backspace Backward delete character Shift-Bksp Backward select or delete word Del Forward delete character Shift-Del Forward delete word Esc Pop up the context menu Shift+Esc Pop up the World Menu Cmd+Esc Close the active window Ctrl+Esc Present a list of open windows Cmd+\ Send the active window to the back Tab Insert a tab char in a single-line selection or insert a tab at the beginning of each line in a multi-line selection Shift-Tab Remove a tab from the beginning of each line in the selection Shift-Cmd-_ (underscore) condense selection into one line Cursor keys left, right, up, down Move cursor left, right, up or down Ctrl-left Move cursor left one word Ctrl-right Move cursor right one word Home Move cursor to begin of line or begin of text End Move cursor to end of line or end of text PgUp, Ctrl-up Move cursor up one page PgDown, Ctrl-Dn Move cursor down one page Note all these keys can be used together with Shift to define or enlarge the selection. You cannot however shrink that selection again, as in some other systems. Other Cmd-key combinations (not available on all platforms) Return Insert return followed by as many tabs as the previous line (with a further adjustment for additional brackets in that line) Space Select the current word as with double clicking Enclose the selection in a kind of bracket. Each is a toggle. (not available on all platforms) Ctrl-( Toggle enclosure within parentheses Cmd-[ Toggle enclosure within brackets Crtl-{ Toggle enclosure within curly braces Ctrl-'' Toggle enclosure within double-quotes Cmd-'' Toggle enclosure within single-quotes Note also that you can double-click just inside any of the above delimiters, or at the beginning or end of a line, to select the text enclosed. Text Emphasis (not available on all platforms) Cmd-1 type the first method argument Cmd-2 type the second method argument Cmd-3 type the third method argument Cmd-4 type the fourth method argument Cmd-5 for future use Cmd-6 color, action-on-click, link to class comment, link to method, url Brings up a menu. To remove these properties, select more than the active part and then use command-0. Cmd-7 bold Cmd-8 italic Cmd-9 negative kern (letters 1 pixel closer) Cmd-0 make plain (removes all emphasis and kerning) Cmd-- underlined Cmd-= struck out Docking Bar Ctrl-<n> opens the n-th (where n is between 0 and 7) menu if such exists, otherwise it moves the keyboard focus to the Search Bar. Currently this means: Ctrl-0 Activates Search Bar or Scratch Pad Ctrl-1 Squeak menu Ctrl-2 Projects menu Ctrl-3 Tools menu Ctrl-4 Apps menu + Ctrl-5 Do menu (an editable menu of useful expressions) + Ctrl-6 Extras menu + Ctrl-7 Windows menu + Ctrl-8 Help menu - Ctrl-5 Extras menu - Ctrl-6 Windows menu - Ctrl-7 Help menu !!' readStream nextChunkText) key: #commandKeyMappings; shouldStyle: false!

1 0

The Trunk: Collections-pre.961.mcz
by commits＠source.squeak.org 10 Nov '21

10 Nov '21

Patrick Rein uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-pre.961.mcz ==================== Summary ==================== Name: Collections-pre.961 Author: pre Time: 10 November 2021, 3:22:38.585616 pm UUID: f3d7c967-3623-5f4b-8166-59aeeeee1600 Ancestors: Collections-eem.960 Recategorizes unclassified or misclassified methods. =============== Diff against Collections-eem.960 =============== Item was changed: + ----- Method: Base64MimeConverter class>>decodeInteger: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>decodeInteger: (in category 'as yet unclassified') ----- decodeInteger: mimeString | bytes sum | "Decode the MIME string into an integer of any length" bytes := (Base64MimeConverter mimeDecodeToBytes: (ReadStream on: mimeString)) contents. sum := 0. bytes reverseDo: [:by | sum := sum * 256 + by]. ^ sum! Item was changed: + ----- Method: Base64MimeConverter class>>encodeInteger: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>encodeInteger: (in category 'as yet unclassified') ----- encodeInteger: int | strm | "Encode an integer of any length and return the MIME string" strm := WriteStream on: (ByteArray new: int digitLength). 1 to: int digitLength do: [:ii | strm nextPut: (int digitAt: ii)]. ^ ((self mimeEncode: strm readStream) contents) copyUpTo: $= "remove padding"! Item was changed: + ----- Method: Base64MimeConverter class>>initialize (in category 'class initialization') ----- - ----- Method: Base64MimeConverter class>>initialize (in category 'as yet unclassified') ----- initialize FromCharTable := Array new: 256. "nils" ToCharTable := ($A to: $Z) , ($a to: $z) , ($0 to: $9) , '+/'. ToCharTable keysAndValuesDo: [:ind :char | FromCharTable at: char asciiValue + 1 put: ind - 1].! Item was changed: + ----- Method: Base64MimeConverter class>>mimeDecodeToBytes: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>mimeDecodeToBytes: (in category 'as yet unclassified') ----- mimeDecodeToBytes: aStream "Return a ReadStream of the original ByteArray. aStream has only 65 innocuous character values. aStream is not binary. (See class comment). 4 bytes in aStream goes to 3 bytes in output." | me | aStream position: 0. me := self new mimeStream: aStream. me dataStream: (WriteStream on: (ByteArray new: aStream size * 3 // 4)). me mimeDecodeToByteArray. ^ me dataStream readStream! Item was changed: + ----- Method: Base64MimeConverter class>>mimeDecodeToChars: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>mimeDecodeToChars: (in category 'as yet unclassified') ----- mimeDecodeToChars: aStream "Return a ReadWriteStream of the original String. aStream has only 65 innocuous character values. It is not binary. (See class comment). 4 bytes in aStream goes to 3 bytes in output." | me | aStream position: 0. me := self new mimeStream: aStream. me dataStream: (WriteStream on: (String new: aStream size * 3 // 4)). me mimeDecode. ^ me dataStream readStream! Item was changed: + ----- Method: Base64MimeConverter class>>mimeEncode: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>mimeEncode: (in category 'as yet unclassified') ----- mimeEncode: aStream "Return a ReadWriteStream of characters. The data of aStream is encoded as 65 innocuous characters. (See class comment). 3 bytes in aStream goes to 4 bytes in output." ^self mimeEncode: aStream multiLine: true atStart: true! Item was changed: + ----- Method: Base64MimeConverter class>>mimeEncode:multiLine: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>mimeEncode:multiLine: (in category 'as yet unclassified') ----- mimeEncode: aStream multiLine: aBool "Return a ReadWriteStream of characters. The data of aStream is encoded as 65 innocuous characters. (See class comment). 3 bytes in aStream goes to 4 bytes in output." ^self mimeEncode: aStream multiLine: aBool atStart: true! Item was changed: + ----- Method: Base64MimeConverter class>>mimeEncode:multiLine:atStart: (in category 'private - convenience') ----- - ----- Method: Base64MimeConverter class>>mimeEncode:multiLine:atStart: (in category 'as yet unclassified') ----- mimeEncode: aStream multiLine: aBool atStart: resetInput "Return a ReadStream of characters. The data of aStream is encoded as 65 innocuous characters. (See class comment). 3 bytes in aStream goes to 4 bytes in output." | me | resetInput ifTrue:[aStream position: 0]. me := self new dataStream: aStream. me multiLine: aBool. me mimeStream: (WriteStream on: (String new: aStream size + 20 * 4 // 3)). me mimeEncode. ^ me mimeStream readStream! Item was changed: + ----- Method: Base64MimeConverter class>>mimeEncodeContinue: (in category 'private - convenience') ----- - ----- Method: Base64MimeConverter class>>mimeEncodeContinue: (in category 'as yet unclassified') ----- mimeEncodeContinue: aStream "Return a ReadWriteStream of characters. The data of aStream is encoded as 65 innocuous characters. (See class comment). 3 bytes in aStream goes to 4 bytes in output." ^self mimeEncode: aStream multiLine: true atStart: false! Item was changed: + ----- Method: Bit7MimeConverter>>mimeDecode (in category 'conversion') ----- - ----- Method: Bit7MimeConverter>>mimeDecode (in category 'as yet unclassified') ----- mimeDecode dataStream nextPutAll: mimeStream upToEnd. ^ dataStream! Item was changed: + ----- Method: Bit7MimeConverter>>mimeEncode (in category 'conversion') ----- - ----- Method: Bit7MimeConverter>>mimeEncode (in category 'as yet unclassified') ----- mimeEncode | character | [dataStream atEnd] whileFalse: [ character := dataStream next. self assert: character asciiValue < 128. mimeStream nextPut: character]. ^ mimeStream! Item was changed: + ----- Method: Generator class>>on: (in category 'instance creation') ----- - ----- Method: Generator class>>on: (in category 'instance-creation') ----- on: aBlock ^ self basicNew initializeOn: aBlock! Item was changed: + ----- Method: NullMimeConverter>>mimeDecode (in category 'conversion') ----- - ----- Method: NullMimeConverter>>mimeDecode (in category 'as yet unclassified') ----- mimeDecode dataStream nextPutAll: mimeStream upToEnd. ^ dataStream! Item was changed: + ----- Method: NullMimeConverter>>mimeEncode (in category 'conversion') ----- - ----- Method: NullMimeConverter>>mimeEncode (in category 'as yet unclassified') ----- mimeEncode mimeStream nextPutAll: dataStream upToEnd. ^ mimeStream ! Item was changed: + ----- Method: QuotedPrintableMimeConverter>>encodeChar:to: (in category 'private - encoding') ----- - ----- Method: QuotedPrintableMimeConverter>>encodeChar:to: (in category 'as yet unclassified') ----- encodeChar: aChar to: aStream (self conversionNeededFor: aChar) ifFalse: [aStream nextPut: aChar] ifTrue: [aStream nextPut: $=; nextPut: (Character digitValue: aChar asciiValue // 16); nextPut: (Character digitValue: aChar asciiValue \\ 16)]. ! Item was changed: + ----- Method: QuotedPrintableMimeConverter>>reservedCharacters (in category 'private - encoding') ----- - ----- Method: QuotedPrintableMimeConverter>>reservedCharacters (in category 'as yet unclassified') ----- reservedCharacters ^ '=' ! Item was changed: + ----- Method: Stream>>sleep (in category 'file directory') ----- - ----- Method: Stream>>sleep (in category 'as yet unclassified') ----- sleep "an FTP-based stream might close the connection here"!

2 1

Cannot store into-> (Is this related to changes in Spur)?
by gettimothy 10 Nov '21

10 Nov '21

Hi Folks, I am migrating a package from Cog to Spur and I am getting errors that I suspect are related to it. Here is an example: |result| result := pairs inject: first into: [ :base :pair | (pair first = 'round') ifTrue: [ (pair last >= 0) ifTrue:[ (base >=0) ifTrue:["Cannot store into ->"base := base roundUpTo: ((1/10) raisedTo:(pair last truncated)) asFloat] ifFalse:[base := base roundDownTo: ((1/10) raisedTo:(pair last truncated)) asFloat]] ifFalse:[ (base >=0) ifTrue:[ base := base roundDownTo: ((1/10) raisedTo:(pair last truncated)) asFloat] ifFalse:[base := base roundUpTo: ((1/10) raisedTo:(pair last truncated)) asFloat]]]]. transcripton ifTrue:[Transcript show:'PHPRoundSimple ' , (result asFloat); cr. ]. ^ result Is this related to changes in Spur? thx t

2 2

The Trunk: MorphicTests-pre.81.mcz
by commits＠source.squeak.org 10 Nov '21

10 Nov '21

Patrick Rein uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-pre.81.mcz ==================== Summary ==================== Name: MorphicTests-pre.81 Author: pre Time: 10 November 2021, 3:17:01.256616 pm UUID: f6cba33e-ac48-bf49-aa5a-6af8da18f92d Ancestors: MorphicTests-mt.80 Recategorizes uncategorized or miscategorized methods. =============== Diff against MorphicTests-mt.80 =============== Item was changed: + ----- Method: CircleMorphTest>>setUp (in category 'running') ----- - ----- Method: CircleMorphTest>>setUp (in category 'initialize-release') ----- setUp morph := CircleMorph new! Item was changed: + ----- Method: SystemWindowTest>>setUp (in category 'running') ----- - ----- Method: SystemWindowTest>>setUp (in category 'as yet unclassified') ----- setUp super setUp. sut := SystemWindow new.! Item was changed: + ----- Method: SystemWindowTest>>test01Culling (in category 'tests') ----- - ----- Method: SystemWindowTest>>test01Culling (in category 'as yet unclassified') ----- test01Culling "Check whether system windows follow the specs for occlusion culling. See WorldState >> #drawWorld:submorphs:invalidAreasOn: and Morph >> #areasRemainingToFill:." sut extent: 500@500; fullBounds. sut cornerStyle: #square. self assert: (sut areasRemainingToFill: (20@20 center: sut center)) isEmpty. self assert: (sut areasRemainingToFill: sut bounds) isEmpty. self assert: (sut areasRemainingToFill: sut outerBounds) isEmpty. self assert: (sut areasRemainingToFill: sut fullBounds) isEmpty.! Item was changed: + ----- Method: TextLineTest>>setUp (in category 'running') ----- - ----- Method: TextLineTest>>setUp (in category 'initialize-release') ----- setUp super setUp. prototypes add: (TextLine start: 1 stop: 50 internalSpaces: 2 paddingWidth: 1) ! Item was changed: + ----- Method: TextMorphTest>>testInitialize (in category 'tests') ----- - ----- Method: TextMorphTest>>testInitialize (in category 'testing') ----- testInitialize "For now, just make sure initialization doesn't throw exception" TextMorph initialize.!

1 0

The Trunk: Morphic-pre.1787.mcz
by commits＠source.squeak.org 10 Nov '21

10 Nov '21

Patrick Rein uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-pre.1787.mcz ==================== Summary ==================== Name: Morphic-pre.1787 Author: pre Time: 10 November 2021, 3:14:54.221616 pm UUID: 47110e44-c26f-8444-bc66-849696a5bc9b Ancestors: Morphic-eem.1786 Recategorizes unclassified methods. =============== Diff against Morphic-eem.1786 =============== Item was changed: + ----- Method: ComplexProgressIndicator>>addProgressDecoration: (in category 'private') ----- - ----- Method: ComplexProgressIndicator>>addProgressDecoration: (in category 'as yet unclassified') ----- addProgressDecoration: extraParam | f m | targetMorph ifNil: [^self]. (extraParam isForm) ifTrue: [targetMorph submorphsDo: [:mm | (mm isSketchMorph) ifTrue: [mm delete]]. f := Form extent: extraParam extent depth: extraParam depth. extraParam displayOn: f. m := SketchMorph withForm: f. m align: m fullBounds leftCenter with: targetMorph fullBounds leftCenter + (2 @ 0). targetMorph addMorph: m. ^self]. (extraParam isString) ifTrue: [targetMorph submorphsDo: [:mm | (mm isKindOf: StringMorph) ifTrue: [mm delete]]. m := StringMorph contents: extraParam translated. m align: m fullBounds bottomCenter + (0 @ 8) with: targetMorph bounds bottomCenter. targetMorph addMorph: m. ^self]! Item was changed: + ----- Method: ComplexProgressIndicator>>backgroundWorldDisplay (in category 'private') ----- - ----- Method: ComplexProgressIndicator>>backgroundWorldDisplay (in category 'as yet unclassified') ----- backgroundWorldDisplay | world | self flag: #bob. "really need a better way to do this" "World displayWorldSafely." "ugliness to try to track down a possible error" world := Project current world. [world displayWorld] ifError: [ :a :b | | f | stageCompleted := 999. f := FileDirectory default fileNamed: 'bob.errors'. f nextPutAll: a printString,' ',b printString; cr; cr. f nextPutAll: 'worlds equal ',(formerWorld == world) printString; cr; cr. f nextPutAll: thisContext longStack; cr; cr. f nextPutAll: formerProcess suspendedContext longStack; cr; cr. f close. Beeper beep. ]. ! Item was changed: + ----- Method: ComplexProgressIndicator>>forkProgressWatcher (in category 'private - background process') ----- - ----- Method: ComplexProgressIndicator>>forkProgressWatcher (in category 'as yet unclassified') ----- forkProgressWatcher [ | currentWorld killTarget | currentWorld := Project current world. [stageCompleted < 999 and: [formerProject == Project current and: [formerWorld == currentWorld and: [translucentMorph world notNil and: [formerProcess suspendedContext notNil and: [Project uiProcess == formerProcess]]]]]] whileTrue: [ translucentMorph setProperty: #revealTimes toValue: {(Time millisecondClockValue - start max: 1). (estimate * newRatio max: 1)}. translucentMorph changed. translucentMorph owner addMorphInLayer: translucentMorph. (Time millisecondClockValue - WorldState lastCycleTime) abs > 500 ifTrue: [ self backgroundWorldDisplay ]. (Delay forMilliseconds: 100) wait. ]. translucentMorph removeProperty: #revealTimes. self loadingHistoryAt: 'total' add: (Time millisecondClockValue - start max: 1). killTarget := targetMorph ifNotNil: [ targetMorph valueOfProperty: #deleteOnProgressCompletion ]. formerWorld == currentWorld ifTrue: [ translucentMorph delete. killTarget ifNotNil: [killTarget delete]. ] ifFalse: [ translucentMorph privateDeleteWithAbsolutelyNoSideEffects. killTarget ifNotNil: [killTarget privateDeleteWithAbsolutelyNoSideEffects]. ]. ] forkAt: Processor lowIOPriority.! Item was changed: + ----- Method: ComplexProgressIndicator>>historyCategory: (in category 'configuration') ----- - ----- Method: ComplexProgressIndicator>>historyCategory: (in category 'as yet unclassified') ----- historyCategory: aKey History ifNil: [History := Dictionary new]. specificHistory := History at: aKey ifAbsentPut: [Dictionary new]. ^specificHistory ! Item was changed: + ----- Method: ComplexProgressIndicator>>loadingHistoryAt:add: (in category 'private') ----- - ----- Method: ComplexProgressIndicator>>loadingHistoryAt:add: (in category 'as yet unclassified') ----- loadingHistoryAt: aKey add: aNumber (self loadingHistoryDataForKey: aKey) add: aNumber. ! Item was changed: + ----- Method: ComplexProgressIndicator>>loadingHistoryDataForKey: (in category 'private') ----- - ----- Method: ComplexProgressIndicator>>loadingHistoryDataForKey: (in category 'as yet unclassified') ----- loadingHistoryDataForKey: anObject | answer | answer := specificHistory at: anObject ifAbsentPut: [OrderedCollection new]. answer size > 50 ifTrue: [ answer := answer copyFrom: 25 to: answer size. specificHistory at: anObject put: answer. ]. ^answer ! Item was changed: + ----- Method: ComplexProgressIndicator>>targetMorph: (in category 'configuration') ----- - ----- Method: ComplexProgressIndicator>>targetMorph: (in category 'as yet unclassified') ----- targetMorph: aMorph targetMorph := aMorph! Item was changed: + ----- Method: ComplexProgressIndicator>>withProgressDo: (in category 'configuration') ----- - ----- Method: ComplexProgressIndicator>>withProgressDo: (in category 'as yet unclassified') ----- withProgressDo: aBlock | safetyFactor totals trialRect delta | Smalltalk isMorphic ifFalse: [^aBlock value]. formerProject := Project current. formerWorld := formerProject world. formerProcess := Processor activeProcess. targetMorph ifNil: [targetMorph := ProgressTargetRequestNotification signal]. targetMorph ifNil: [ trialRect := Rectangle center: Sensor cursorPoint extent: 80@80. delta := trialRect amountToTranslateWithin: formerWorld bounds. trialRect := trialRect translateBy: delta. translucentMorph := TranslucentProgessMorph new opaqueBackgroundColor: Color white; bounds: trialRect; openInWorld: formerWorld. ] ifNotNil: [ translucentMorph := TranslucentProgessMorph new morphicLayerNumber: targetMorph morphicLayerNumber - 0.1; bounds: targetMorph boundsInWorld; openInWorld: targetMorph world. ]. stageCompleted := 0. safetyFactor := 1.1. "better to guess high than low" translucentMorph setProperty: #progressStageNumber toValue: 1. translucentMorph hide. totals := self loadingHistoryDataForKey: 'total'. newRatio := 1.0. estimate := totals size < 2 ifTrue: [ 15000 "be a pessimist" ] ifFalse: [ (totals sum - totals max) / (totals size - 1 max: 1) * safetyFactor. ]. start := Time millisecondClockValue. self forkProgressWatcher. [ aBlock on: ProgressInitiationException do: [ :ex | ex sendNotificationsTo: [ :min :max :curr | "ignore this as it is inaccurate" ]. ]. ] on: ProgressNotification do: [ :note | | stageCompletedString | translucentMorph show. note extraParam ifNotNil:[self addProgressDecoration: note extraParam]. stageCompletedString := (note messageText findTokens: ' ') first. stageCompleted := (stageCompletedString copyUpTo: $:) asNumber. cumulativeStageTime := Time millisecondClockValue - start max: 1. prevData := self loadingHistoryDataForKey: stageCompletedString. prevData isEmpty ifFalse: [ newRatio := (cumulativeStageTime / (prevData average max: 1)) asFloat. ]. self loadingHistoryAt: stageCompletedString add: cumulativeStageTime. translucentMorph setProperty: #progressStageNumber toValue: stageCompleted + 1. note resume. ]. stageCompleted := 999. "we may or may not get here" ! Item was changed: + ----- Method: IconicButton>>darken (in category 'ui') ----- - ----- Method: IconicButton>>darken (in category 'as yet unclassified') ----- darken self firstSubmorph form: self darkenedForm! Item was changed: + ----- Method: KeyboardBuffer>>flushKeyboard (in category 'keyboard control') ----- - ----- Method: KeyboardBuffer>>flushKeyboard (in category 'as yet unclassified') ----- flushKeyboard eventUsed ifFalse: [^ eventUsed := true].! Item was changed: + ----- Method: KeyboardBuffer>>keyboard (in category 'keyboard control') ----- - ----- Method: KeyboardBuffer>>keyboard (in category 'as yet unclassified') ----- keyboard eventUsed ifFalse: [eventUsed := true. ^ event keyCharacter]. ^ nil! Item was changed: + ----- Method: KeyboardBuffer>>keyboardPeek (in category 'keyboard control') ----- - ----- Method: KeyboardBuffer>>keyboardPeek (in category 'as yet unclassified') ----- keyboardPeek eventUsed ifFalse: [^ event keyCharacter]. ^ nil! Item was changed: + ----- Method: KeyboardBuffer>>startingEvent: (in category 'private') ----- - ----- Method: KeyboardBuffer>>startingEvent: (in category 'as yet unclassified') ----- startingEvent: evt event := evt. eventUsed := false! Item was changed: + ----- Method: SVColorSelectorMorph>>extent: (in category 'geometry') ----- - ----- Method: SVColorSelectorMorph>>extent: (in category 'as yet unclassified') ----- extent: p "Update the gradient directions." super extent: p. self updateGradients! Item was removed: - ----- Method: TextEditor>>systemNavigation (in category 'as yet unclassified') ----- - systemNavigation - ^ SystemNavigation for: model environment!

1 0

Jump to page: