Squeak-dev

squeak-dev@lists.squeakfoundation.org

15 participants
79909 discussions

The Trunk: Kernel-cmm.1562.mcz
by commits＠source.squeak.org 02 Apr '24

02 Apr '24

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.1562.mcz ==================== Summary ==================== Name: Kernel-cmm.1562 Author: cmm Time: 24 March 2024, 6:27:34.572036 pm UUID: 886bf6b9-a56b-4131-accf-3867a3836658 Ancestors: Kernel-ct.1561 Allow processPreemptionYields: to persist across image saves, as purported by its comment. =============== Diff against Kernel-ct.1561 =============== Item was changed: ----- Method: ProcessorScheduler class>>startUp: (in category 'background process') ----- startUp: resuming - Smalltalk processPreemptionYields ifTrue: [ - Smalltalk processPreemptionYields: false]. - resuming ifTrue: [ Smalltalk installLowSpaceWatcher. self installIdleProcess].!

10 36

Re: [squeak-smalltalk/squeak-object-memory] `Json` produces invalid JSON output for integer keys (Issue #109)
by Vanessa Freudenberg 01 Apr '24

01 Apr '24

The second should raise an error. Our dictionaries do not preserve insertion order so we don't even know which one is the duplicate. For the first case where it's unambiguous I'd find it more convenient to allow this and automatically convert the key to a string, just like `Association>> jsonWriteOn:` does (there is an argument for removing this method though, because unlike all other methods it does not by itself produce valid JSON) -- Reply to this email directly or view it on GitHub: https://github.com/squeak-smalltalk/squeak-object-memory/issues/109#issueco… You are receiving this because you are subscribed to this thread. Message ID: <squeak-smalltalk/squeak-object-memory/issues/109/2030342763(a)github.com>

1 0

Re: [squeak-smalltalk/squeak-object-memory] `Json` produces invalid JSON output for integer keys (Issue #109)
by tim Rowledge 01 Apr '24

01 Apr '24

Looking at https://www.json.org/json-en.html & https://jsonlint.com/ I think the expectation is that the key must be a string and the value must be the json-ised value, so ``` Dictionary new at: 1 put: 2; asJsonString ``` should result in an error. Consider the first EBNF diagram on https://www.json.org/json-en.html - it can be simplified for this case to { string : jsonised-value}. Since we're exceptionally clever we could consider doing "make the key be a string of whatever we have" _except_ that trying to reliably convert non-string keys might open up entire pallet-loads of worms. What if somebody is making dictionaries where the keys are complex objects? Might also want to check on STON as well (https://wiki.squeak.org/squeak/6504). If we're attempting to produce sometihng that meets a standard we should probably actually meet the standard... -- Reply to this email directly or view it on GitHub: https://github.com/squeak-smalltalk/squeak-object-memory/issues/109#issueco… You are receiving this because you are subscribed to this thread. Message ID: <squeak-smalltalk/squeak-object-memory/issues/109/2030230144(a)github.com>

1 0

drawing on morphs, damage recording, and canvas origin
by Lauren Pullen 30 Mar '24

30 Mar '24

Hi List, Easy question first. #refreshWorld warns not to use it often because of damage recording... but it doesn't say what to use instead. What is the correct method to mark a morph damaged? (I'm rendering a static 3D scene with a movable camera, so I only need to redraw it on demand by the camera.) Whenever I draw on a morph I always forget I need to offset coordinates by the morph's origin, so things end up getting drawn in the top left. I tend to open morphs in hand, so it draws correctly until I drop it back into the world. Why does the canvas in #drawOn: have a different origin depending on if you're holding the morph or not?

2 2

The Trunk: System-mt.1452.mcz
by commits＠source.squeak.org 28 Mar '24

28 Mar '24

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1452.mcz ==================== Summary ==================== Name: System-mt.1452 Author: mt Time: 28 March 2024, 9:59:08.460064 am UUID: c4dd53f6-cf69-7b42-b554-f4e6320216cf Ancestors: System-cmm.1451 When using high-DPI screens, make enough room for the emergency evaluator. =============== Diff against System-cmm.1451 =============== Item was changed: ----- Method: Transcripter class>>emergencyEvaluator (in category 'utilities') ----- emergencyEvaluator + (Transcripter newInFrame: (0@0 corner: 320 px @ 200 px)) - (Transcripter newInFrame: (0@0 corner: 320@200)) show: 'Type ''revert'' to revert your last method change. Type ''exit'' to exit the emergency evaluator.'; readEvalPrint!

1 0

Re: [Vm-dev] Re: MIDI on Mac VM
by Vanessa Freudenberg 26 Mar '24

26 Mar '24

Of course I couldn't let this sit there. As of just now, SqueakJS supports actual MIDI 🥳 At least in Chrome: https://squeak.js.org/ You can run an image, drop in a MIDI file, and play it. I don't have a hardware synth so I tested MIDI output via GarageBand. The Steinway Grand sounds great playing the Moonlight sonata. Here's a video with sound: https://freudenbergs.de/vanessa/squeakjs/SqueakJS-MIDI.mp4 Should work in pretty much any Squeak version (I tried in 6.2, too). I tested MIDI input using the MidiKeys app since I don't have a real keyboard. It's implemented and the data coming into the image looks right, but the MidiSynth class's playback does not sound quite right. Also, it's not entirely clear what epoch/units the midi clock is supposed to be in – possibly because Squeak changed millisecondClockValue to not start at 0 anymore, whereas older images (or at least the MIDI code in it) expects that. If anyone wants to hack it, my WebMIDI plugin code is in: https://github.com/codefrau/SqueakJS/blob/main/plugins/MIDIPlugin.js Have fun 💜 Vanessa On Thu, Mar 21, 2024 at 9:44 AM Tobias Pape via Vm-dev < vm-dev(a)lists.squeakfoundation.org> wrote: > > Hi > > > On 21. Mar 2024, at 17:37, Vanessa Freudenberg <vanessa(a)codefrau.net> > wrote: > > > > A friend is trying to get this to work – is it supposed to work? > > > > > "SimpleMIDIPort primPortCount" evaluates to 0, even when I have a MIDI > controller plugged in. > > And "SimpleMIDIPort openDefault" gives me a primitive failed error. > > It could™ work, yet, I noticed that the API used is outdated since 10 > years, so there's that. > So, it might depend on the macOS used. > I wanted to fix that since forever > > Best regards > -Tobias

5 4

The Trunk: ReleaseBuilder-mt.247.mcz
by commits＠source.squeak.org 26 Mar '24

26 Mar '24

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.247.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.247 Author: mt Time: 26 March 2024, 10:15:40.484051 am UUID: 6b05e554-d6ae-1046-adab-318f230b240a Ancestors: ReleaseBuilder-mt.246 Fix comment. Both mt.247 and mt.246 complement Kernel-cmm.1562 =============== Diff against ReleaseBuilder-mt.246 =============== Item was changed: ----- Method: ReleaseBuilder class>>prepareProcesses (in category 'preparing') ----- prepareProcesses "Re-start running processes if necessary. Call this at late as possible in the release process. Only required to processes that are not reset at image #startUp." Delay startTimerEventLoop. + Smalltalk processPreemptionYields: false. "avoid accidental round-robin; make users' Morphic-related workspace scripts/code more robust if forked at UI priority"! - Smalltalk processPreemptionYields: false. "avoid accidental round-robin; make users' Morphic-related workspace scripts/code more robust if forked at lower priority"!

1 0

The Trunk: ReleaseBuilder-mt.246.mcz
by commits＠source.squeak.org 26 Mar '24

26 Mar '24

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.246.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.246 Author: mt Time: 26 March 2024, 10:11:12.181433 am UUID: 0b3b4f34-11f3-f34f-a0a4-72ec011dbfe0 Ancestors: ReleaseBuilder-dtl.245 For new images, by default, ensure inadvertent yield outside a process' own control. =============== Diff against ReleaseBuilder-dtl.245 =============== Item was changed: ----- Method: ReleaseBuilder class>>prepareProcesses (in category 'preparing') ----- prepareProcesses "Re-start running processes if necessary. Call this at late as possible in the release process. Only required to processes that are not reset at image #startUp." + Delay startTimerEventLoop. + Smalltalk processPreemptionYields: false. "avoid accidental round-robin; make users' Morphic-related workspace scripts/code more robust if forked at lower priority"! - Delay startTimerEventLoop.!

1 0

The Trunk: System-cmm.1451.mcz
by commits＠source.squeak.org 26 Mar '24

26 Mar '24

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.1451.mcz ==================== Summary ==================== Name: System-cmm.1451 Author: cmm Time: 25 March 2024, 7:37:55.127523 pm UUID: 29d336c2-1aa8-40f1-914f-7b2b23873523 Ancestors: System-eem.1450 Added Smalltalk>>#previousPlatformName to support detecting and responding to platform changes between image restarts. =============== Diff against System-eem.1450 =============== Item was changed: Object subclass: #SmalltalkImage instanceVariableNames: 'globals' + classVariableNames: 'EndianCache LastImageName LastQuitLogPosition LastStats PlatformNameCache PreviousPlatformName ShutDownList SourceFileVersionString StartUpList StartupStamp VMMakerVersion WordSize' - classVariableNames: 'EndianCache LastImageName LastQuitLogPosition LastStats PlatformNameCache ShutDownList SourceFileVersionString StartUpList StartupStamp VMMakerVersion WordSize' poolDictionaries: '' category: 'System-Support'! !SmalltalkImage commentStamp: 'dtl 3/6/2010 14:00' prior: 0! I represent the current image and runtime environment, including system organization, the virtual machine, object memory, plugins and source files. My instance variable #globals is a reference to the system dictionary of global variables and class names. My singleton instance is called Smalltalk.! Item was changed: ----- Method: SmalltalkImage>>cleanUpSystemAttributeCaches (in category 'housekeeping') ----- cleanUpSystemAttributeCaches "Reset platform-specific values. This MUST BE called directly before the image is snapshotted. Note that this can't safely be done on start-up because Smalltalk is too late in the start-up sequence. See commentary in #getSystemAttribute:." self flag: #discuss. "mt: Such caches might better be managed by the VM itself. A primitive-based cache protocol could help. On a fresh (VM) start-up, those values would then be nil (or uninitialized) automatically." + PreviousPlatformName := PlatformNameCache. - EndianCache := WordSize := PlatformNameCache := nil.! Item was added: + ----- Method: SmalltalkImage>>previousPlatformName (in category 'os') ----- + previousPlatformName + "Answer the name of the previous OS platform that ran this image, useful for detecting and responding to platform changes." + ^ PreviousPlatformName ifNil: [ 'unknown' ]! Item was changed: ----- Method: SmalltalkImage>>snapshot:andQuit:withExitCode:embedded: (in category 'snapshot and quit') ----- snapshot: save andQuit: quit withExitCode: exitCode embedded: embeddedFlag "Mark the changes file and close all files as part of #processShutdownList. If save is true, save the current state of this Smalltalk in the image file. If quit is true, then exit to the outer OS shell. If exitCode is not nil, then use it as exit code. The latter part of this method runs when resuming a previously saved image. This resume logic checks for a document file to process when starting up." | resuming msg | Object flushDependents. Object flushEvents. (SourceFiles at: 2) ifNotNil:[ msg := String streamContents: [ :s | s nextPutAll: '----'; nextPutAll: (save ifTrue: [ quit ifTrue: [ 'QUIT' ] ifFalse: [ 'SNAPSHOT' ] ] ifFalse: [quit ifTrue: [ 'QUIT/NOSAVE' ] ifFalse: [ 'NOP' ]]); nextPutAll: '----'; print: Date dateAndTimeNow; space; nextPutAll: (FileDirectory default localNameFor: self imageName); nextPutAll: ' priorSource: '; print: LastQuitLogPosition ]. self assureStartupStampLogged. save ifTrue: [ LastQuitLogPosition := (SourceFiles at: 2) setToEnd; position ]. self logChange: msg. Transcript cr; show: msg]. self processShutDownList: quit. Cursor write show. + save ifTrue: + [self cleanUpSystemAttributeCaches. - save ifTrue: [ - self cleanUpSystemAttributeCaches. resuming := embeddedFlag ifTrue: [self snapshotEmbeddedPrimitive] + ifFalse: + [PlatformNameCache := nil. + self snapshotPrimitive]] "<-- PC frozen here on image file" - ifFalse: [self snapshotPrimitive]] "<-- PC frozen here on image file" ifFalse: [resuming := false]. (quit and: [resuming == false]) ifTrue: [exitCode ifNil: [ self quitPrimitive ] ifNotNil: [ self quitPrimitive: exitCode ] ]. Cursor normal show. self startUpPostSnapshot: resuming == true. Project current wakeUpTopWindow. "Now it's time to raise an error" resuming == nil ifTrue: [self error:'Failed to write image file (disk full?)']. ^ resuming!

1 0

The Trunk: System-ct.1257.mcz
by commits＠source.squeak.org 25 Mar '24

25 Mar '24

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1257.mcz ==================== Summary ==================== Name: System-ct.1257 Author: ct Time: 27 November 2021, 10:01:11.385431 pm UUID: 5df16e76-2520-984a-8fc6-37ca1b36b76c Ancestors: System-ct.1256 Complements Kernel-ct.1426 (removal of #automaticPlatformSettings preference). Step 2/2. =============== Diff against System-ct.1256 =============== Item was removed: - ----- Method: Preferences class>>automaticPlatformSettings (in category 'standard queries') ----- - automaticPlatformSettings - ^ self - valueOfFlag: #automaticPlatformSettings - ifAbsent: [ true ]! Item was changed: ----- Method: Preferences class>>defaultValueTableForCurrentRelease (in category 'defaults') ----- defaultValueTableForCurrentRelease "Answer a table defining default values for all the preferences in the release. Returns a list of (pref-symbol, boolean-symbol) pairs" ^ #( (abbreviatedBrowserButtons false) (alternativeBrowseIt false) (annotationPanes false) (areaFillsAreTolerant false) (areaFillsAreVeryTolerant false) (automaticFlapLayout true) (automaticKeyGeneration false) - (automaticPlatformSettings true) (automaticViewerPlacement true) (balloonHelpEnabled true) (balloonHelpInMessageLists false) (batchPenTrails false) (capitalizedReferences true) (caseSensitiveFinds false) (cautionBeforeClosing false) (changeSetVersionNumbers true) (checkForSlips true) (checkForUnsavedProjects true) (classicNavigatorEnabled false) (cmdDotEnabled true) (collapseWindowsInPlace false) (compactViewerFlaps false) (compressFlashImages false) (confirmFirstUseOfStyle true) (conversionMethodsAtFileOut false) (debugHaloHandle true) (debugPrintSpaceLog false) (debugShowDamage false) (decorateBrowserButtons true) (diffsInChangeList true) (diffsWithPrettyPrint false) (dismissAllOnOptionClose false) (dragNDropWithAnimation false) (eToyFriendly false) (eToyLoginEnabled false) (enableLocalSave true) (extractFlashInHighQuality true) (extractFlashInHighestQuality false) (fastDragWindowForMorphic true) (fenceEnabled true) (fullScreenLeavesDeskMargins true) (haloTransitions false) (higherPerformance false) (honorDesktopCmdKeys true) (includeSoundControlInNavigator false) (infiniteUndo false) (logDebuggerStackToFile true) (magicHalos false) (menuButtonInToolPane false) (menuColorFromWorld false) (menuKeyboardControl false) (modalColorPickers true) (mouseOverForKeyboardFocus false) (mouseOverHalos false) (mvcProjectsAllowed true) (navigatorOnLeftEdge true) (noviceMode false) (okToReinitializeFlaps true) (optionalButtons true) (passwordsOnPublish false) (personalizedWorldMenu true) (postscriptStoredAsEPS false) (projectViewsInWindows true) (projectZoom true) (projectsSentToDisk false) (propertySheetFromHalo false) (readDocumentAtStartup true) (restartAlsoProceeds false) (reverseWindowStagger true) (roundedMenuCorners true) (scrollBarsNarrow false) (scrollBarsOnRight true) (securityChecksEnabled false) (selectiveHalos false) (showBoundsInHalo false) (showDirectionForSketches false) (showDirectionHandles false) (showFlapsWhenPublishing false) (showProjectNavigator false) (showSecurityStatus true) (showSharedFlaps true) (signProjectFiles true) (simpleMenus false) (smartUpdating true) (startInUntrustedDirectory false) (systemWindowEmbedOK false) (tileTranslucentDrag true) (timeStampsInMenuTitles true) (turnOffPowerManager false) (twentyFourHourFileStamps true) (typeCheckingInTileScripting true) (uniTilesClassic true) (uniqueNamesInHalos false) (universalTiles false) (unlimitedPaintArea false) (useButtonPropertiesToFire false) (useUndo true) (viewersInFlaps true) (warnAboutInsecureContent true) (warnIfNoChangesFile true) (warnIfNoSourcesFile true)) " Preferences defaultValueTableForCurrentRelease do: [:pair | (Preferences preferenceAt: pair first ifAbsent: [nil]) ifNotNilDo: [:pref | pref defaultValue: (pair last == true)]]. Preferences chooseInitialSettings. "! Item was changed: ----- Method: SmalltalkImage>>setPlatformPreferences (in category 'snapshot and quit') ----- setPlatformPreferences "Set some platform specific preferences on system startup" | platform specs | - Preferences automaticPlatformSettings ifFalse:[^self]. platform := self platformName. + specs := #(). - specs := #(). platform = 'Win32' ifTrue:[ specs := #()]. platform = 'Mac OS' ifTrue:[ specs := #()]. specs do:[:tuple| Preferences setPreference: tuple first toValue: (tuple last == true). + ].! - ]. - ! Item was changed: (PackageInfo named: 'System') postscript: '"Add the new primitive error codes to the specialObjectsArray if they are not there yet." Smalltalk primitiveErrorTable size < 26 ifTrue: [Smalltalk recreateSpecialObjectsArray]. + (Preferences preferenceAt: #debugLogTimestamp) categoryList: #(''debug''). + + Preferences removePreference: #automaticPlatformSettings.'! - (Preferences preferenceAt: #debugLogTimestamp) categoryList: #(''debug'').'!

3 5

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

Jump to page: