Squeak-dev September 2022

squeak-dev@lists.squeakfoundation.org

29 participants
157 discussions

The Trunk: Morphic-ct.2046.mcz
by commits＠source.squeak.org 27 Sep '22

27 Sep '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2046.mcz ==================== Summary ==================== Name: Morphic-ct.2046 Author: ct Time: 27 September 2022, 11:40:56.192156 am UUID: 379a8f96-7a4b-4a49-8bf2-da3a785d58ad Ancestors: Morphic-ct.2045 Complements Help-Squeak-Project-ct.96. Reorder items in help menu in the docking bar, adds link to new help on how to contribute to Squeak, adds missing help icons. Adds accessors on UpdatingMenuItemMorph et al. that are required by senders of SqueakContributionHelp class>>#openDockingBarMenuThat:filterItem:. =============== Diff against Morphic-ct.2045 =============== Item was added: + ----- Method: TheWorldMainDockingBar>>contributingToSqueak (in category 'submenu - help') ----- + contributingToSqueak + + self + openHelp: #SqueakProjectHelp + topic: #SqueakContributionHelp! Item was changed: ----- Method: TheWorldMainDockingBar>>helpMenuOn: (in category 'submenu - help') ----- helpMenuOn: aDockingBar aDockingBar addItem: [ :it | it contents: 'Help' translated; addSubMenu: [ :menu | menu addItem: [:item | item contents: 'Squeak Help' translated; help: 'Integrated Help System' translated; target: self; selector: #squeakHelp]. self feedbackMenuItemOn: menu. menu addLine. menu addItem:[:item| item contents: 'Online Resources' translated; help: 'Online resources for Squeak' translated; target: self; icon: MenuIcons smallHelpIcon; selector: #squeakOnlineResources]. menu addItem:[:item| item contents: 'Squeak Swiki' translated; help: 'A very simple way to access Squeak Swiki resources in the image' translated; target: self; + icon: MenuIcons smallHelpIcon; selector: #swiki]. menu addItem:[:item| item contents: 'Keyboard Shortcuts' translated; help: 'Keyboard bindings used in Squeak' translated; target: self; + icon: MenuIcons smallHelpIcon; selector: #commandKeyHelp ]. menu addItem:[:item| item contents: 'Font Size Summary' translated; help: 'Font size summary.' translated; target: self; + icon: MenuIcons smallHelpIcon; selector: #fontSizeSummary ]. menu addItem:[:item| item contents: 'Useful Expressions' translated; help: 'Useful expressions' translated; target: self; + icon: MenuIcons smallHelpIcon; selector: #usefulExpressions ]. menu addLine. menu addItem:[:item| item contents: 'Terse Guide to Squeak' translated; help: 'Concise information about language and environment' translated; target: self; + icon: MenuIcons smallHelpIcon; selector: #terseGuideToSqueak]. menu addItem:[:item| item + contents: 'Working With Squeak' translated; + help: 'Information for new users' ; + target: self; + icon: MenuIcons smallHelpIcon; + selector: #workingWithSqueak]. + menu addItem:[:item| + item + contents: 'The Squeak User Interface' translated; + help: 'Descriptions of some of the more-unusual UI elements in Squeak' ; + target: self; + icon: MenuIcons smallHelpIcon; + selector: #squeakUserInterface]. + menu addItem:[:item| + item + contents: 'Extending The System' translated; - contents: 'Extending the system' translated; help: 'Includes code snippets to evaluate for extending the system' translated; target: self; icon: MenuIcons smallHelpIcon; selector: #extendingTheSystem]. + menu addItem: [:item| + item + contents: 'Contributing to Squeak' translated; + help: 'Some information and a short tutorial on how you can participate in the community' translated; + target: self; + icon: MenuIcons smallHelpIcon; + selector: #contributingToSqueak]. menu addLine. menu addItem:[:item| item contents: 'Release Notes' translated; help: 'Changes in this release' translated ; target: self; selector: #releaseNotes]. menu addItem:[:item| item - contents: 'Working With Squeak' translated; - help: 'Information for new users' ; - target: self; - selector: #workingWithSqueak]. - menu addItem:[:item| - item - contents: 'The Squeak User Interface' translated; - help: 'Descriptions of some of the more-unusual UI elements in Squeak' ; - target: self; - selector: #squeakUserInterface]. - menu addItem:[:item| - item contents: 'License Information' translated; help: String empty ; target: self; selector: #licenseInformation]. menu addLine. self aboutMenuItemOn: menu. ]]! Item was added: + ----- Method: UpdatingMenuItemMorph>>wordingArgument (in category 'wording') ----- + wordingArgument + + ^ wordingArgument! Item was added: + ----- Method: UpdatingMenuItemMorph>>wordingProvider (in category 'wording') ----- + wordingProvider + + ^ wordingProvider! Item was added: + ----- Method: UpdatingMenuItemMorph>>wordingSelector (in category 'wording') ----- + wordingSelector + + ^ wordingSelector! Item was added: + ----- Method: UpdatingSimpleButtonMorph>>wordingSelector (in category 'accessing') ----- + wordingSelector + + ^ wordingSelector! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "Updates menu for Help > Contributing to Squeak"'! - (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "Updates menu for Windows > Find Workspace ..."'!

1 0

The Trunk: Help-Squeak-Project-ct.96.mcz
by commits＠source.squeak.org 27 Sep '22

27 Sep '22

Christoph Thiede uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-ct.96.mcz ==================== Summary ==================== Name: Help-Squeak-Project-ct.96 Author: ct Time: 27 September 2022, 11:33:17.408156 am UUID: 1a0702c7-7a57-894a-9e75-e62599ca7b9b Ancestors: Help-Squeak-Project-ct.95, Help-Squeak-Project-ct.94 Adds help on how to contribute to Squeak. Short description of the community model, the development process, and some required/recommended tools. Reformats the page 'Squeak Resources Online' and adds a link to the new tutorial. Reorders project pages. Adds a very simple way to include figures to the new help book. Revised version. Thanks to Robert (rhi), Jakob (jr), Tim (tpr), and Jaromir (jar) for their reviews and edits! =============== Diff against Help-Squeak-Project-ct.95 =============== Item was added: + SqueakProjectHelp subclass: #SqueakContributionHelp + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Help-Squeak-Project'! Item was added: + ----- Method: SqueakContributionHelp class>>advanced (in category 'pages') ----- + advanced + "This method was automatically generated. Edit it using:" + "SqueakContributionHelp edit: #advanced" + <generated> + ^(HelpTopic + title: 'Advanced' + contents: + 'Advanced Concepts + + Change sets: Usually, new proposals are best submitted to the inbox as a new package version. However, when some ideas consist of changes to multiple packages, it becomes tricky to work with multiple versions from the inbox. In this case, a change set is a good alternative. Change sets are collections of methods and class definitions, plus some extras. You can open a dual change sorter from the Tools and Changes menus in the docking bar and open a menu on the change set list on the left. Create a new change set and copy or move all relevant changes to it. Add a preamble to the change set to add an explaining message and finally file out or mail to list it directly. To install a change set, you can file in it from the file list, or you can drag and drop it into Squeak from the outside. + + Preambles and postscripts: Some changes make it necessary to run some scripts before or after loading the new code to perform any migrations or changes to the global object graph. This is possible through preambles and postscripts. To add or edit a script for a Monticello package, select it in the Monticello browser and press the Scripts button. Add your logic to the code, test it, save it, and include it in your next inbox version. Note that preambles and postscripts in Trunk packages are required to be idempotent and may be evaluated multiple times. For change sets, you can add a preamble and a postscript as well from the context menu of the change set list in the change sorter. + + --- + If you identify any other contribution-related concepts that should be mentioned or explained in greater detail here, please feel free to add them here. This could even be your first contribution!!!! :-)!! + ]style[(17 2 12 263 80 15 18 10 5 5 7 78 23 5 4 4 4 29 14 60 8 4 12 47 7 13 9 1 60 26 273 18 15 7 556)a0b,a0,a0b,a0,,a0,a0i,a0,Rcode:// + SqueakContributionHelp + openDockingBarMenuThat: [:m | m contents = ''Tools''] + filterItem: ''Dual Change Sorter'';,a0,Rcode:// + SqueakContributionHelp + openDockingBarMenuThat: [:m | (m respondsTo: #wordingSelector) and: [m wordingSelector = #browseChangesLabel]] + filterItem: ''Dual Change Sorter'';,a0,a0i,a0,a0i,a0,a0i,a0,a0i,a0,a0i,a0,a0i,a0,a0i,a0,Rcode:// + SqueakContributionHelp + openDockingBarMenuThat: [:m | m contents = ''Tools''] + filterItem: ''File List'';,,a0,a0b,a0,Rcode:// + SqueakContributionHelp + openDockingBarMenuThat: [:m | m contents = ''Tools''] + filterItem: ''Monticello Browser'';,a0,a0i,a0!!' readStream nextChunkText) + key: #advanced; + shouldStyle: false; + yourself! Item was added: + ----- Method: SqueakContributionHelp class>>bookBlurb (in category 'accessing') ----- + bookBlurb + + self flag: #moveUpstream. + ^ (self perform: self defaultPage) contents! Item was added: + ----- Method: SqueakContributionHelp class>>bookName (in category 'accessing') ----- + bookName + + ^ 'Contributing to Squeak'! Item was added: + ----- Method: SqueakContributionHelp class>>communityModel (in category 'pages') ----- (excessive size, no diff calculated) Item was added: + ----- Method: SqueakContributionHelp class>>contributingToSqueak (in category 'pages') ----- + contributingToSqueak + "This method was automatically generated. Edit it using:" + "SqueakContributionHelp edit: #contributingToSqueak" + <generated> + ^(HelpTopic + title: 'Contributing' + contents: + 'Contributing to Squeak + + Squeak is a highly open system, which makes it very easy not only to explore every interesting detail in the image but also to customize everything at your will. Whether you would like to adjust some colors, fix a bug you have stumbled upon, or add a new feature, (almost) everything is flexible and under your control. + + Squeak lives from your contributions!!!! Squeak is powered by volunteer open-source contributions. Whenever you make an adjustment to the base system, you might ask yourself: "could others benefit from this change, too?". If the answer is yes, we invite you to consider contributing back to the community. Or if you just discovered a bug, have a question, or would like to discuss an idea, our forums are open!!!!!! + ]style[(24 12 18 158 18 8 3 28 17 59 37 136 43 191)a0b,a0,a0i,a0,Rcode:// SqueakTheme class>>#addSyntaxHighlighting:;,a0,Rcode:// + self systemNavigation browseAllImplementorsOf: #expectedFailures;,a0,,a0,a0i,a0,a0i,a0!!' readStream nextChunkText) + key: #contributingToSqueak; + shouldStyle: false; + yourself! Item was added: + ----- Method: SqueakContributionHelp class>>defaultPage (in category 'accessing') ----- + defaultPage + + ^ #contributingToSqueak! Item was added: + ----- Method: SqueakContributionHelp class>>firstContribution (in category 'pages') ----- + firstContribution + "This method was automatically generated. Edit it using:" + "SqueakContributionHelp edit: #firstContribution" + <generated> + ^(HelpTopic + title: 'First Contribution' + contents: + 'Making Your First Contribution + + * Install the latest Trunk updates. + * Make your change, preferably starting from a clean image (to avoid configuration drift). + * Open the Monticello Browser: + * On the left, select the package you have changed (changed packages are marked with an *asterisk). + * On the right, select the inbox repository. + * On the top, press save. + * Review your changes, enter a meaningful version message that explains what the changes are for (e.g., which bug they address, what they are aimed at improving), and accept the new version to upload it. + * That''s it!!!! Your contribution has arrived in the Inbox and soon you will receive feedback from the community through the mailing list. Keep an eye on your mailbox!!!!!! + ]style[(30 4 33 94 27 5 12 12 7 19 27 9 9 6 13 12 5 34 5 59 103 6 6 33 10 152)a0b,a0,Rcode:// + SqueakContributionHelp + openDockingBarMenuThat: [:m | (m owner submorphIndexOf: m) = 1] + filterItem: ''Update'';,a0,Rcode:// + SqueakContributionHelp + openDockingBarMenuThat: [:m | m contents = ''Tools''] + filterItem: ''Monticello Browser'';,,a0b,a0,a0b,a0,,a0,a0i,a0,a0b,a0,a0b,a0,a0b,a0,,a0,a0b,a0,a0i,a0!!' readStream nextChunkText) + key: #firstContribution; + shouldStyle: false; + yourself! Item was added: + ----- Method: SqueakContributionHelp class>>openDockingBarMenuThat:filterItem: (in category 'support') ----- + openDockingBarMenuThat: menuBlock filterItem: filterString + "Example: + SqueakContributionHelp + openDockingBarMenuThat: [:m | m contents = 'Tools'] + filterItem: 'Squeak Inbox Talk' + Don't delete, this has indeed senders in some TextURL attributes within the pages of this help. + " + + | dockingBar menu | + dockingBar := (self currentWorld mainDockingBars ifEmpty: [^ self]) first. + menu := (dockingBar submorphs select: #isMenuItemMorph) detect: menuBlock ifNone: [^ self]. + dockingBar selectItem: menu event: self currentEvent. + menu subMenu setProperty: #matchString toValue: filterString. + menu subMenu displayFiltered: self currentEvent. + ^ nil "do not answer a Behavior here, which would trigger another browser when sending this message from a TextURL"! Item was added: + ----- Method: SqueakContributionHelp class>>pages (in category 'accessing') ----- + pages + + ^ #(contributingToSqueak communityModel firstContribution squeakInboxTalk advanced)! Item was added: + ----- Method: SqueakContributionHelp class>>squeakInboxTalk (in category 'pages') ----- (excessive size, no diff calculated) Item was added: + TextAnchor subclass: #SqueakHelpTextImage + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Help-Squeak-Project'! Item was added: + ----- Method: SqueakHelpTextImage class>>forForm: (in category 'instance creation') ----- + forForm: aForm + + ^ self new + form: aForm; + yourself! Item was added: + ----- Method: SqueakHelpTextImage class>>scanCharacter (in category 'fileIn/Out') ----- + scanCharacter + + ^ $m! Item was added: + ----- Method: SqueakHelpTextImage class>>scanFrom: (in category 'fileIn/Out') ----- + scanFrom: aStream + + | base64 data form | + base64 := aStream upTo: $;. + data := Base64MimeConverter mimeDecodeToBytes: base64 readStream. + form := ImageReadWriter formFromStream: data. + ^ self forForm: form! Item was added: + ----- Method: SqueakHelpTextImage>>exportBase64 (in category 'fileIn/fileOut') ----- + exportBase64 + + ^ (ByteArray streamContents: [:stream | + PNGReadWriter putForm: self form onStream: stream]) + base64Encoded + ! Item was added: + ----- Method: SqueakHelpTextImage>>form (in category 'accessing') ----- + form + + ^ self anchoredMorph image! Item was added: + ----- Method: SqueakHelpTextImage>>form: (in category 'accessing') ----- + form: aForm + + self anchoredMorph: aForm asMorph.! Item was added: + ----- Method: SqueakHelpTextImage>>writeScanOn: (in category 'fileIn/fileOut') ----- + writeScanOn: aStream + + aStream + nextPut: self class scanCharacter; + nextPutAll: self exportBase64; + nextPut: $;.! Item was changed: ----- Method: SqueakProjectHelp class>>pages (in category 'accessing') ----- pages + ^#(workingWithSqueak squeakUserInterface extendingTheSystem squeakResourcesOnline)! - ^#(extendingTheSystem squeakResourcesOnline squeakUserInterface workingWithSqueak)! Item was changed: ----- Method: SqueakProjectHelp class>>squeakResourcesOnline (in category 'pages') ----- squeakResourcesOnline "This method was automatically generated. Edit it using:" "SqueakProjectHelp edit: #squeakResourcesOnline" <generated> ^(HelpTopic title: 'Squeak Resources Online' contents: 'Web sites Main site of Squeak + https://www.squeak.org - https://www.squeak.org Issue Tracker for bug reports and other feedback + https://bugs.squeak.org - https://bugs.squeak.org Weekly Squeak + https://news.squeak.org - https://news.squeak.org Downloads for many versions + https://www.squeak.org/downloads - https://www.squeak.org/downloads Main site of OpenSmalltalk VM + https://github.com/OpenSmalltalk/opensmalltalk-vm - https://github.com/OpenSmalltalk/opensmalltalk-vm Mailing lists beginners + This is the place to ask even the most basic questions. Don''t be afraid. Just ask. The community will help you get started with Squeak. + https://lists.squeakfoundation.org/mailman/listinfo/beginners - This is the place to ask even the most basic questions. Don''t be afraid. Just ask. The community will help you get started with Squeak. - https://lists.squeakfoundation.org/mailman/listinfo/beginners squeak-dev + This is the main Squeak mailing list. Join that list to be part in the community. Subscribe to the mail server or read on a forum. + https://lists.squeakfoundation.org/mailman/listinfo/squeak-dev + For more information on the community and the contribution process, check out the tutorial Contributing to Squeak in the following pages. - This is the main Squeak mailing list. Join that list to be part in the community. Subscribe to the mail server or read on a forum. - https://lists.squeakfoundation.org/mailman/listinfo/squeak-dev vm-beginners + This is the entry point for people who want to learn more about how Squeak runs on your operating system. You may ask even basic questions. :-) + https://lists.squeakfoundation.org/mailman/listinfo/vm-beginners - This is the entry point for people who want to learn more about how Squeak runs on your operating system. You may ask even basic questions. :-) - https://lists.squeakfoundation.org/mailman/listinfo/vm-beginners vm-dev + This is the place where discussions about the OpenSmalltalk virtual machine happen. Join that list the be a part of the community. + https://lists.squeakfoundation.org/mailman/listinfo/vm-dev - This is the place where discussions about the OpenSmalltalk virtual machine happen. Join that list the be a part of the community. - https://lists.squeakfoundation.org/mailman/listinfo/vm-dev Books Squeak By Example + A beginners textbook, currently based on Squeak 5.3 and so a little out of date in some visual aspects and some details. Still a valuable resource. The content is maintained in GitHub at + https://github.com/hpi-swa-lab/SqueakByExample-english - A beginners textbook, currently based on Squeak 5.3 and so a little out of date in some visual aspects and some details. Still a valuable resource. The content is maintained in github at - https://github.com/hpi-swa-lab/SqueakByExample-english but a prepared and ready to read pdf version can be found at + https://github.com/hpi-swa-lab/SqueakByExample-english/releases - https://github.com/hpi-swa-lab/SqueakByExample-english/releases Other books + Many books about Squeak and Smalltalk in general have been made available: + https://squeak.org/documentation/#books!! + ]style[(11 19 1 23 48 1 23 1 14 23 1 27 1 32 1 29 1 49 1 1 13 1 1 10 135 1 61 1 1 10 1 131 62 92 22 25 1 13 144 64 1 1 6 1 131 58 1 1 5 2 17 1 187 54 62 63 1 1 11 1 75 39)b,I0i,I0,Rhttps://www.squeak.org;I1,I0i,I0,Rhttps://bugs.squeak.org;I1,I…!!' readStream nextChunkText) - Many books about Squeak and Smalltalk in general have been made available: - https://squeak.org/documentation/#books!! - ]style[(11 19 2 23 50 23 1 15 23 1 27 2 32 32 49 2 13 1 1 11 135 2 61 2 10 2 132 62 2 14 145 64 2 6 134 58 2 5 2 17 2 188 54 63 63 2 11 78 39)b,I0i,I0,Rhttps://www.squeak.org;,I0,Rhttps://bugs.squeak.org;,I0,I0i,Rh…;!!' readStream nextChunkText) key: #squeakResourcesOnline; shouldStyle: false; yourself! Item was changed: ----- Method: SqueakToolsTranscriptHelp class>>transcript (in category 'pages') ----- transcript "This method was automatically generated. Edit it using:" "SqueakToolsTranscriptHelp edit: #transcript" <generated> ^(HelpTopic title: 'The Transcript window' contents: 'The Transcript window is often used for logging or printing results from text only code. To open the Transcript use TheWorldMenu and choose ''open...''. Then choose ''Transcript''. You can also type Transcript open in a Workspace and doIt. + To write anything into the Transcript, send #show: or #showln: to it: - To write anything into the Transcript, send it #show: or #showln:: Transcript showln: ''Hello world!!!!''. Transcript show: '' :-)''.!! + ]style[(197 16 6 9 56 6 4 8 9 59),I1,,Rcode://Workspace open;,,LTranscriptStream show:;,,LTranscriptStream showln:;,,I1!!' readStream nextChunkText) - ]style[(197 16 6 9 59 6 4 8 3 59),I1,,Rcode://Workspace open;,,LTranscriptStream show:;,,LTranscriptStream showln:;,,I1!!' readStream nextChunkText) key: #transcript; shouldStyle: false; yourself!

1 0

Happy Birthday Squeak!
by christoph.thiede＠student.hpi.uni-potsdam.de 27 Sep '22

27 Sep '22

Dear Squeak, today(*) you are celebrating your 26th birthday! You have been sweetening many lives and receiving a lot of care from an amazing community. I'm looking forward to the next years and adventures together with all of you! PS: Please find a little gift for your special day attached (just file in). Best, Christoph (*) I'm sure that there is any timezone in which it's still Date year: 2022 month: 09 day: 24. ;-) --- Sent from Squeak Inbox Talk ["HappyBirthdaySqueak.st"]

6 5

The Inbox: Graphics-kfr.537.mcz
by commits＠source.squeak.org 26 Sep '22

26 Sep '22

A new version of Graphics was added to project The Inbox: http://source.squeak.org/inbox/Graphics-kfr.537.mcz ==================== Summary ==================== Name: Graphics-kfr.537 Author: kfr Time: 26 September 2022, 9:58:35.27649 pm UUID: c934ad0f-ad3d-0b4d-a0f8-10af5613d3b3 Ancestors: Graphics-nice.536 Give Point same methods for printing limited decimal places as Number =============== Diff against Graphics-nice.536 =============== Item was added: + ----- Method: Point>>printOn:showingDecimalPlaces: (in category 'printing') ----- + printOn: aStream showingDecimalPlaces: placesDesired + "The receiver prints on aStream in terms of infix notation." + + x printOn: aStream showingDecimalPlaces: placesDesired. + aStream nextPut: $@. + (y isNumber and: [y negative]) ifTrue: + "Avoid ambiguous @- construct" + [aStream space]. + y printOn: aStream showingDecimalPlaces: placesDesired.! Item was added: + ----- Method: Point>>printShowingDecimalPlaces: (in category 'printing') ----- + printShowingDecimalPlaces: placesDesired + "Print the receiver showing precisely the given number of places desired. If placesDesired is positive, a decimal point and that many digits after the decimal point will always be shown. If placesDesired is zero, a whole number will be shown, without a decimal point." + + ^String new: placesDesired + 10 streamContents: [:aStream | + self printOn: aStream showingDecimalPlaces: placesDesired]!

1 0

UK Smalltalk User Group meeting - Wednesday, 28 September 2022
by Giovanni Corriga 26 Sep '22

26 Sep '22

After a two year pause, the ESUG conference returned this past summer when Smalltalkers from all over the world met in Novi Sad, Serbia for a week of presentations, and socials ( https://esug.github.io/2022-Conference/conf2022.html ). For this month's UKSTUG meeting, we'll have an open discussion about what was presented at the conference. If you've been there, join us to tell us what you liked, and why. If you could not go, join us and discover what went down in Novi Sad! This will be an online meeting from home. If you'd like to join us, please sign up in advance on the meeting's Meetup page ( https://www.meetup.com/ukstug/events/288718350/ ) to receive the meeting details. Don’t forget to bring your laptop and drinks!

1 0

PSA | Slow .changes access | Real-time protection in Windows Defender
by Marcel Taeumel 25 Sep '22

25 Sep '22

Hi all -- Provided that you have a .changes file that is bigger than a couple of bytes (here: ~200 MiB), you might experience a serious lag (here: ~5 seconds) when: - Starting the .image - Evaluating some do-its (or print-its) - Saving a method All operations that typically read from or write to the .changes file. The Windows Defender's "real-time protection service" seems to monitor file access. Whatever triggers it, the defender might try to get exclusive read access to a file. Then it scans the last bytes and if it finds something strange, it will continue, eventually scanning THE ENTIRE FILE! So, what is "something strange"? Well, try to evaluate this: '<a href="https://www.microsoft.com"></a>' size. Now, depending on the size of your .changes file, the Windows Defender will begin to scan the entire file for more such patterns. Note that the Defender will never complain or blacklist that file. It is just curious for the moment. Why is the Defender able to get exclusive read access on a do-it? Take a look at SmalltalkImage >> #forceChangesToDisk. There, you can see that we close and re-open the .changes file. That's exactly the time when the Windows Defender kicks in. Avoid closing that file, and you will not experience any lag. Try to save a method with such contents. You will be able to observe the same amount of extra lag. Why is regular read access during code browsing not affected? Because we already have the open file handle to the .changes and .sources files. The Defender seems to need exclusive read access. In my experience, this happened, for example, during VM/image startup. (Note that this has nothing to do with the Defender sending stuff to Microsoft via Internet. I did all the tests offline. No Ethernet connection. No WiFi.) *** What can we do about it? Different approaches work: - Save a method (or do-it sth.) to add about 1000 bytes of uninteresting content to the .changes file; then everything is fast again - Shrink your .changes file via #condenseChanges (and don't forget to save your image afterwards!!) to speed up the Defender's scan - Disable the "real-time protection service" in the Windows settings (not recommended) - Avoid strange content in your source code (or do-its) - Do not close the file so often. #primFlush: is not affected. Best, Marcel

4 5

The Inbox: Kernel-eem.1489.mcz
by commits＠source.squeak.org 22 Sep '22

22 Sep '22

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-eem.1489.mcz ==================== Summary ==================== Name: Kernel-eem.1489 Author: eem Time: 18 September 2022, 4:29:27.672168 pm UUID: 825872cd-7b3f-48cb-b765-0fa7bb4b4f21 Ancestors: Kernel-eem.1488 Ensure that a Context can only be instantiated via newForMethod:, and that the resulting Context has its method inst var initiialized. =============== Diff against Kernel-eem.1488 =============== Item was changed: ----- Method: BlockClosure>>asContextWithSender: (in category 'private') ----- asContextWithSender: aContext "Inner private support method for evaluation. Do not use unless you know what you're doing." ^(Context newForMethod: outerContext method) setSender: aContext receiver: outerContext receiver - method: outerContext method closure: self startpc: startpcOrMethod; privRefresh! Item was changed: ----- Method: BlockClosure>>simulateValueWithArguments:caller: (in category 'system simulation') ----- simulateValueWithArguments: anArray caller: aContext "Simulate the valueWithArguments: primitive. Fail if anArray is not an array of the right arity." | newContext sz | newContext := (Context newForMethod: outerContext method) setSender: aContext receiver: outerContext receiver - method: outerContext method closure: self startpc: startpcOrMethod. ((newContext objectClass: anArray) ~~ Array or: [numArgs ~= anArray size]) ifTrue: [^Context primitiveFailTokenFor: nil]. sz := self basicSize. newContext stackp: sz + numArgs. 1 to: numArgs do: [:i| newContext at: i put: (anArray at: i)]. 1 to: sz do: [:i| newContext at: i + numArgs put: (self at: i)]. ^newContext! Item was changed: ----- Method: Context class>>basicNew: (in category 'instance creation') ----- basicNew: size + self instanceCreationError! - ^ (size = CompiledMethod smallFrameSize or: [ size = CompiledMethod fullFrameSize ]) - ifTrue: [ super basicNew: size ] - ifFalse: [ self error: 'Contexts must be ' , CompiledMethod smallFrameSize , ' or ' , CompiledMethod fullFrameSize , ' bytes.' ]! Item was added: + ----- Method: Context class>>instanceCreationError (in category 'private') ----- + instanceCreationError + self error: 'Contexts must only be created with newForMethod:'! Item was changed: ----- Method: Context class>>new (in category 'instance creation') ----- new + self instanceCreationError! - - self error: 'Contexts must only be created with newForMethod:'! Item was changed: ----- Method: Context class>>new: (in category 'instance creation') ----- new: size + self instanceCreationError! - - self error: 'Contexts must only be created with newForMethod:'! Item was changed: ----- Method: Context class>>newForMethod: (in category 'instance creation') ----- + newForMethod: aCompiledCode - newForMethod: aMethod "This is the only method for creating new contexts, other than primitive cloning. Any other attempts, such as inherited methods like shallowCopy, should be avoided or must at least be rewritten to determine the proper size from the method being activated. This is because asking a context its size (even basicSize!!) will not return the real object size but only the number of fields currently accessible, as determined by stackp." + ^(super basicNew: aCompiledCode frameSize) + privMethod: aCompiledCode! - ^ super basicNew: aMethod frameSize! Item was changed: ----- Method: Context class>>sender:receiver:method:arguments: (in category 'instance creation') ----- sender: s receiver: r method: m arguments: args "Answer an instance of me with attributes set to the arguments." + ^(self newForMethod: m) setSender: s receiver: r arguments: args! - ^(self newForMethod: m) setSender: s receiver: r method: m arguments: args! Item was added: + ----- Method: Context>>privMethod: (in category 'private') ----- + privMethod: aCompiledCode + + method := aCompiledCode! Item was added: + ----- Method: Context>>setSender:receiver:arguments: (in category 'private') ----- + setSender: s receiver: r arguments: args + "Initialize the receiver's initial state." + + pc := method initialPC. + self stackp: method numTemps. + sender := s. + receiver := r. + closureOrNil := nil. + 1 to: args size do: [:i | self at: i put: (args at: i)]! Item was added: + ----- Method: Context>>setSender:receiver:closure:startpc: (in category 'private') ----- + setSender: s receiver: r closure: c startpc: startpc + "Create the receiver's initial state." + + sender := s. + receiver := r. + closureOrNil := c. + pc := startpc. + stackp := 0! Item was removed: - ----- Method: Context>>setSender:receiver:method:arguments: (in category 'private') ----- - setSender: s receiver: r method: m arguments: args - "Create the receiver's initial state." - - sender := s. - receiver := r. - method := m. - closureOrNil := nil. - pc := method initialPC. - self stackp: method numTemps. - 1 to: args size do: [:i | self at: i put: (args at: i)]! Item was removed: - ----- Method: Context>>setSender:receiver:method:closure:startpc: (in category 'private') ----- - setSender: s receiver: r method: m closure: c startpc: startpc - "Create the receiver's initial state." - - sender := s. - receiver := r. - method := m. - closureOrNil := c. - pc := startpc. - stackp := 0! Item was changed: ----- Method: FullBlockClosure>>asContextWithSender: (in category 'private') ----- asContextWithSender: aContext "Inner private support method for evaluation. Do not use unless you know what you're doing." ^(Context newForMethod: startpcOrMethod) setSender: aContext receiver: self receiver - method: startpcOrMethod closure: self startpc: startpcOrMethod initialPC; privRefresh! Item was changed: ----- Method: FullBlockClosure>>simulateValueWithArguments:caller: (in category 'simulation') ----- simulateValueWithArguments: anArray caller: aContext "Simulate the valueWithArguments: primitive. Fail if anArray is not an array of the right arity." | newContext | newContext := (Context newForMethod: startpcOrMethod) setSender: aContext receiver: receiver - method: startpcOrMethod closure: self startpc: startpcOrMethod initialPC. ((newContext objectClass: anArray) ~~ Array or: [numArgs ~= anArray size]) ifTrue: [^Context primitiveFailTokenFor: nil]. newContext stackp: startpcOrMethod numTemps. 1 to: numArgs do: [:i| newContext at: i put: (anArray at: i)]. 1 to: self basicSize do: [:i| newContext at: i + numArgs put: (self at: i)]. ^newContext!

5 6

The Trunk: Kernel-ct.1489.mcz
by commits＠source.squeak.org 22 Sep '22

22 Sep '22

Christoph Thiede uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1489.mcz ==================== Summary ==================== Name: Kernel-ct.1489 Author: ct Time: 20 September 2022, 7:37:02.446047 pm UUID: 3802342b-ecab-394f-9719-376ed6f8dd9a Ancestors: Kernel-eem.1488 Fixes a slip in simulation of primitive 83 (primitivePerform). If the selector is not a symbol, do not attempt to check its arity like the VM does, so an invalid message is sent, but the simulator does not crash. =============== Diff against Kernel-eem.1488 =============== Item was changed: ----- Method: Context>>doPrimitive:method:receiver:args: (in category 'private') ----- doPrimitive: primitiveIndex method: meth receiver: receiver args: arguments "Simulate a primitive method whose index is primitiveIndex. The simulated receiver and arguments are given as arguments to this message. If successful, push result and return resuming context, else ^ {errCode, PrimitiveFailToken}. Any primitive which provokes execution needs to be intercepted and simulated to avoid execution running away." | value | "Judicious use of primitive 19 (a null primitive that doesn't do anything) prevents the debugger from entering various run-away activities such as spawning a new process, etc. Injudicious use results in the debugger not being able to debug interesting code, such as the debugger itself. Hence use primitive 19 with care :-)" "SystemNavigation new browseAllSelect: [:m| m primitive = 19]" primitiveIndex = 19 ifTrue: [ [self notify: ('The code being simulated is trying to control a process ({1}). Process controlling cannot be simulated. If you proceed, things may happen outside the observable area of the simulator.' translated format: {meth reference})] ifCurtailed: [self push: nil "Cheap fix of the context's internal state"]]. ((primitiveIndex between: 201 and: 222) and: [(self objectClass: receiver) includesBehavior: BlockClosure]) ifTrue: [(primitiveIndex = 206 or: [primitiveIndex = 208]) ifTrue: "[Full]BlockClosure>>valueWithArguments:" [^receiver simulateValueWithArguments: arguments first caller: self]. ((primitiveIndex between: 201 and: 209) "[Full]BlockClosure>>value[:value:...]" or: [primitiveIndex between: 221 and: 222]) ifTrue: "[Full]BlockClosure>>valueNoContextSwitch[:]" [^receiver simulateValueWithArguments: arguments caller: self]]. primitiveIndex = 83 ifTrue: "afr 9/11/1998 19:50" "Object>>perform:[with:...]" [| selector | selector := arguments at: 1 ifAbsent: [^ self class primitiveFailTokenFor: #'bad argument']. + (selector isSymbol and: [arguments size - 1 ~= selector numArgs]) ifTrue: - arguments size - 1 = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ^self send: selector to: receiver with: arguments allButFirst]. primitiveIndex = 84 ifTrue: "afr 9/11/1998 19:50 & eem 8/18/2009 17:04" "Object>>perform:withArguments:" [| selector args | arguments size = 2 ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. selector := arguments first. args := arguments second. args isArray ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. args size = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ^self send: selector to: receiver with: args]. primitiveIndex = 100 ifTrue: "eem 8/18/2009 16:57" "Object>>perform:withArguments:inSuperclass:" [| rcvr selector args superclass | arguments size caseOf: { [3] -> [ rcvr := receiver. selector := arguments first. args := arguments second. superclass := arguments third]. [4] -> ["mirror primitive" rcvr := arguments first. selector := arguments second. args := arguments third. superclass := arguments fourth] } otherwise: [^ self class primitiveFailTokenFor: #'bad number of arguments']. args isArray ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. args size = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ((self objectClass: rcvr) includesBehavior: superclass) ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. ^self send: selector to: rcvr with: args lookupIn: superclass]. "Mutex>>primitiveEnterCriticalSection Mutex>>primitiveTestAndSetOwnershipOfCriticalSection" (primitiveIndex = 186 or: [primitiveIndex = 187]) ifTrue: [| effective | effective := Processor activeProcess effectiveProcess. "active == effective" value := primitiveIndex = 186 ifTrue: [receiver primitiveEnterCriticalSectionOnBehalfOf: effective] ifFalse: [receiver primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: effective]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]]. primitiveIndex = 188 ifTrue: "Object>>withArgs:executeMethod: CompiledMethod class>>receiver:withArguments:executeMethod: VMMirror>>ifFail:object:with:executeMethod: et al" [| n args methodArg thisReceiver | ((n := arguments size) between: 2 and: 4) ifFalse: [^self class primitiveFailTokenFor: #'unsupported operation']. ((self objectClass: (args := arguments at: n - 1)) == Array and: [(self objectClass: (methodArg := arguments at: n)) includesBehavior: CompiledMethod]) ifFalse: [^self class primitiveFailTokenFor: #'bad argument']. methodArg numArgs = args size ifFalse: [^self class primitiveFailTokenFor: #'bad number of arguments']. thisReceiver := arguments at: n - 2 ifAbsent: [receiver]. methodArg primitive > 0 ifTrue: [methodArg isQuick ifTrue: [^self push: (methodArg valueWithReceiver: thisReceiver arguments: args)]. ^self doPrimitive: methodArg primitive method: methodArg receiver: thisReceiver args: args]. ^self activateMethod: methodArg withArgs: args receiver: thisReceiver]. primitiveIndex = 118 ifTrue: "[receiver:]tryPrimitive:withArgs:; avoid recursing in the VM" [(arguments size = 3 and: [(self objectClass: arguments second) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifTrue: [^self doPrimitive: arguments second method: meth receiver: arguments first args: arguments last]. (arguments size = 2 and: [(self objectClass: arguments first) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifFalse: [^self class primitiveFailTokenFor: nil]. ^self doPrimitive: arguments first method: meth receiver: receiver args: arguments last]. value := primitiveIndex = 120 "FFI method" ifTrue: [(meth literalAt: 1) tryInvokeWithArguments: arguments] ifFalse: [primitiveIndex = 117 "named primitives" ifTrue: [self tryNamedPrimitiveIn: meth for: receiver withArgs: arguments] ifFalse: "should use self receiver: receiver tryPrimitive: primitiveIndex withArgs: arguments but this is only in later VMs (and appears to be broken)" [receiver tryPrimitive: primitiveIndex withArgs: arguments]]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]!

4 3

The Inbox: Kernel-ct.1490.mcz
by commits＠source.squeak.org 22 Sep '22

22 Sep '22

Christoph Thiede uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-ct.1490.mcz ==================== Summary ==================== Name: Kernel-ct.1490 Author: ct Time: 22 September 2022, 12:33:25.251935 pm UUID: abcadab7-53c3-f840-a63b-f90658e6a190 Ancestors: Kernel-eem.1488 code simulation: Do not check numArgs in perform primitives. Instead, answer a primitive fail token from Context>>#send:to:with:lookupIn: if the numbers mismatch. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-September/22224…. Pros of this advantage: - semantic correctness: Prior to the final method lookup, the VM should not know anything about the type of a selector. - optimization: Avoid redundant method lookup. Cons of this advantage: - When simulating an invalid message send instruction, the simulator will no longer signal a clear 'Wrong number of arguments in simulated message' error but instead prolong the infection chain until a 'MessageNotUnderstood: Array>>' exception is signaled by the InstructionStream eventually. Note that such an invalidation would cause the VM to crash, though, so I don't know how important this is. (Example - BEWARE! Only simulate it! block := Compiler evaluate: '[false ifTrue: 2 ifFalse: 3]'. block method literalAt: 1 put: #itest:fTrue:ifFalse:. block value) =============== Diff against Kernel-eem.1488 =============== Item was changed: ----- Method: Context>>doPrimitive:method:receiver:args: (in category 'private') ----- doPrimitive: primitiveIndex method: meth receiver: receiver args: arguments "Simulate a primitive method whose index is primitiveIndex. The simulated receiver and arguments are given as arguments to this message. If successful, push result and return resuming context, else ^ {errCode, PrimitiveFailToken}. Any primitive which provokes execution needs to be intercepted and simulated to avoid execution running away." | value | "Judicious use of primitive 19 (a null primitive that doesn't do anything) prevents the debugger from entering various run-away activities such as spawning a new process, etc. Injudicious use results in the debugger not being able to debug interesting code, such as the debugger itself. Hence use primitive 19 with care :-)" "SystemNavigation new browseAllSelect: [:m| m primitive = 19]" primitiveIndex = 19 ifTrue: [ [self notify: ('The code being simulated is trying to control a process ({1}). Process controlling cannot be simulated. If you proceed, things may happen outside the observable area of the simulator.' translated format: {meth reference})] ifCurtailed: [self push: nil "Cheap fix of the context's internal state"]]. ((primitiveIndex between: 201 and: 222) and: [(self objectClass: receiver) includesBehavior: BlockClosure]) ifTrue: [(primitiveIndex = 206 or: [primitiveIndex = 208]) ifTrue: "[Full]BlockClosure>>valueWithArguments:" [^receiver simulateValueWithArguments: arguments first caller: self]. ((primitiveIndex between: 201 and: 209) "[Full]BlockClosure>>value[:value:...]" or: [primitiveIndex between: 221 and: 222]) ifTrue: "[Full]BlockClosure>>valueNoContextSwitch[:]" [^receiver simulateValueWithArguments: arguments caller: self]]. primitiveIndex = 83 ifTrue: "afr 9/11/1998 19:50" "Object>>perform:[with:...]" [| selector | selector := arguments at: 1 ifAbsent: [^ self class primitiveFailTokenFor: #'bad argument']. - arguments size - 1 = selector numArgs ifFalse: - [^ self class primitiveFailTokenFor: #'bad number of arguments']. ^self send: selector to: receiver with: arguments allButFirst]. primitiveIndex = 84 ifTrue: "afr 9/11/1998 19:50 & eem 8/18/2009 17:04" "Object>>perform:withArguments:" [| selector args | arguments size = 2 ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. selector := arguments first. args := arguments second. args isArray ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. - args size = selector numArgs ifFalse: - [^ self class primitiveFailTokenFor: #'bad number of arguments']. ^self send: selector to: receiver with: args]. primitiveIndex = 100 ifTrue: "eem 8/18/2009 16:57" "Object>>perform:withArguments:inSuperclass:" [| rcvr selector args superclass | arguments size caseOf: { [3] -> [ rcvr := receiver. selector := arguments first. args := arguments second. superclass := arguments third]. [4] -> ["mirror primitive" rcvr := arguments first. selector := arguments second. args := arguments third. superclass := arguments fourth] } otherwise: [^ self class primitiveFailTokenFor: #'bad number of arguments']. args isArray ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. - args size = selector numArgs ifFalse: - [^ self class primitiveFailTokenFor: #'bad number of arguments']. ((self objectClass: rcvr) includesBehavior: superclass) ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. ^self send: selector to: rcvr with: args lookupIn: superclass]. "Mutex>>primitiveEnterCriticalSection Mutex>>primitiveTestAndSetOwnershipOfCriticalSection" (primitiveIndex = 186 or: [primitiveIndex = 187]) ifTrue: [| effective | effective := Processor activeProcess effectiveProcess. "active == effective" value := primitiveIndex = 186 ifTrue: [receiver primitiveEnterCriticalSectionOnBehalfOf: effective] ifFalse: [receiver primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: effective]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]]. primitiveIndex = 188 ifTrue: "Object>>withArgs:executeMethod: CompiledMethod class>>receiver:withArguments:executeMethod: VMMirror>>ifFail:object:with:executeMethod: et al" [| n args methodArg thisReceiver | ((n := arguments size) between: 2 and: 4) ifFalse: [^self class primitiveFailTokenFor: #'unsupported operation']. ((self objectClass: (args := arguments at: n - 1)) == Array and: [(self objectClass: (methodArg := arguments at: n)) includesBehavior: CompiledMethod]) ifFalse: [^self class primitiveFailTokenFor: #'bad argument']. methodArg numArgs = args size ifFalse: [^self class primitiveFailTokenFor: #'bad number of arguments']. thisReceiver := arguments at: n - 2 ifAbsent: [receiver]. methodArg primitive > 0 ifTrue: [methodArg isQuick ifTrue: [^self push: (methodArg valueWithReceiver: thisReceiver arguments: args)]. ^self doPrimitive: methodArg primitive method: methodArg receiver: thisReceiver args: args]. ^self activateMethod: methodArg withArgs: args receiver: thisReceiver]. primitiveIndex = 118 ifTrue: "[receiver:]tryPrimitive:withArgs:; avoid recursing in the VM" [(arguments size = 3 and: [(self objectClass: arguments second) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifTrue: [^self doPrimitive: arguments second method: meth receiver: arguments first args: arguments last]. (arguments size = 2 and: [(self objectClass: arguments first) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifFalse: [^self class primitiveFailTokenFor: nil]. ^self doPrimitive: arguments first method: meth receiver: receiver args: arguments last]. value := primitiveIndex = 120 "FFI method" ifTrue: [(meth literalAt: 1) tryInvokeWithArguments: arguments] ifFalse: [primitiveIndex = 117 "named primitives" ifTrue: [self tryNamedPrimitiveIn: meth for: receiver withArgs: arguments] ifFalse: "should use self receiver: receiver tryPrimitive: primitiveIndex withArgs: arguments but this is only in later VMs (and appears to be broken)" [receiver tryPrimitive: primitiveIndex withArgs: arguments]]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]! Item was changed: ----- Method: Context>>send:to:with:lookupIn: (in category 'controlling') ----- send: selector to: rcvr with: arguments lookupIn: lookupClass "Simulate the action of sending a message with selector and arguments to rcvr. The argument, lookupClass, is the class in which to lookup the message. This is the receiver's class for normal messages, but for super messages it will be some specific class related to the source method." | meth primIndex val ctxt | (meth := lookupClass lookupSelector: selector) ifNil: [selector == #doesNotUnderstand: ifTrue: [self error: 'Recursive message not understood!!' translated]. ^self send: #doesNotUnderstand: to: rcvr with: {(Message selector: selector arguments: arguments) lookupClass: lookupClass} lookupIn: lookupClass]. (self objectClass: meth) isCompiledCodeClass ifFalse: ["Object as Methods (OaM) protocol: 'The contract is that, when the VM encounters an ordinary object (rather than a compiled method) in the method dictionary during lookup, it sends it the special selector #run:with:in: providing the original selector, arguments, and receiver.'. DOI: 10.1145/2991041.2991062." ^self send: #run:with:in: to: meth with: {selector. arguments. rcvr}]. meth numArgs = arguments size ifFalse: + [^ self class primitiveFailTokenFor: #'bad number of arguments']. - [^ self error: ('Wrong number of arguments in simulated message {1}' translated format: {selector})]. (primIndex := meth primitive) > 0 ifTrue: [val := self doPrimitive: primIndex method: meth receiver: rcvr args: arguments. (self isPrimFailToken: val) ifFalse: [^val]]. ctxt := self activateMethod: meth withArgs: arguments receiver: rcvr. (primIndex isInteger and: [primIndex > 0]) ifTrue: [ctxt failPrimitiveWith: val]. ^ctxt!

1 0

[ANN] News from SimulationStudio: Method Finder 2
by christoph.thiede＠student.hpi.uni-potsdam.de 20 Sep '22

20 Sep '22

Hi all, I've got a quick update from SimulationStudio for you: I have just published the SimulationMethodFinder, which is a kind of advancement from the original MethodFinder/SelectorBrowser in Squeak/ST80. The original idea remains the same: You tell the tool a set of input arguments and an expected output, and the tool will find all selectors for you that can be used to compute the output from the inputs. However, the original MethodFinder has a major limitation: It can only find a handcrafted allow-list of selectors from known domains, since sending arbitrary messages to objects might do severe harm to the image (imagine dozens of automated #halt and #error sends, or even #quitPrimitive ...). SimulationMethodFinder overcomes this limitation by executing each message send in an isolated Sandbox [1]. In addition, it offers several new convenience features: automatic reordering of receiver and arguments; you can specify a predicate or a block instead of a constant value to match the outputs; asynchronous searching in the background for longer operations; and even a recursive mode that will automatically construct an entire expression tree of multiple message sends. Please find some example screenshots in the attachment. You can try it out by installing in an up-to-date Trunk image: Metacello new baseline: 'SimulationStudio'; githubUser: 'LinqLover' project: 'SimulationStudio' path: 'packages'; get; load. ... and then opening a SimulationMethodFinder from the Apps menu in the docking bar. Further information is on GitHub [2]. Hope you like it! As always, I'm very excited to hear your ideas, apply your feedback, or receive your contributions. :-) Happy Squeaking, everyone! Best, Christoph [1] http://forum.world.st/ANN-SimulationStudio-and-sandboxed-execution-for-Sque… [2] https://github.com/LinqLover/SimulationStudio --- Sent from Squeak Inbox Talk

1 0

← Newer
1
2
3
4
5
6
7
8
...
16
Older →

Jump to page: