Squeak-dev

squeak-dev@lists.squeakfoundation.org

22 participants
79877 discussions

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: Kernel-cmm.1563.mcz
by commits＠source.squeak.org 26 Mar '24

26 Mar '24

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.1563.mcz ==================== Summary ==================== Name: Kernel-cmm.1563 Author: cmm Time: 25 March 2024, 7:38:47.237222 pm UUID: 6986b006-23f1-4c46-b47a-7417539e6902 Ancestors: Kernel-cmm.1562 - Preserve "Map CONTROL keys to COMMAND keys" preference across image restarts. - With Tim's permission, removed LargePositiveInteger>>#asByteArray. =============== Diff against Kernel-cmm.1562 =============== Item was changed: ----- Method: EventSensor class>>startUp: (in category 'system startup') ----- startUp: resuming + resuming ifTrue: + [ Smalltalk platformName ~= Smalltalk previousPlatformName + ifTrue: + [Smalltalk platformName = 'Mac OS' + ifTrue: [ + self mapAltKeysToOptionKeys: false. + self mapControlKeysToCommandKeys: false] + ifFalse: [ + self mapAltKeysToOptionKeys: true. + self mapControlKeysToCommandKeys: true]. + self installVirtualKeyTable] ]. - resuming ifTrue: [ - Smalltalk platformName = 'Mac OS' - ifTrue: [ - self mapAltKeysToOptionKeys: false. - self mapControlKeysToCommandKeys: false] - ifFalse: [ - self mapAltKeysToOptionKeys: true. - self mapControlKeysToCommandKeys: true]. - self installVirtualKeyTable ]. + self default startUp! - self default startUp.! Item was removed: - ----- Method: LargePositiveInteger>>asByteArray (in category 'converting') ----- - asByteArray - - ^self as: ByteArray!

2 1

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

Re: RFBSocket waitForSendDoneFor: question
by lewis＠mail.msen.com 24 Mar '24

24 Mar '24

Thank you Levente! On 2024-03-23 21:10, leves wrote: > Hi David, > > RFBSocket >> #waitForSendDoneFor: is present even in RFB-ikp.2, which > is from 2004. > I removed it back in 2016 with RFB-klub.15 (see the commit message in > history as the version is not in the repository), because Socket's > #waitForSendDoneFor: just works. The bugs mentioned in the comment must > have been fixed in the 2000s. > > Best, > Levente > > On 2024. 03. 23. 17:27, lewis(a)mail.msen.com wrote: > >> SqueakSource servers use the RFB package in the source.squeak.org/ss >> repository. The RFBSocket>>waitForSendDoneFor: method was removed in >> merge (RFB-cmm.20). Was this a mistake in the merge? >> >> RFBSocket>>waitForSendDoneFor: was introduced by Levente in 2012 >> (RFB-ul.7 probably) and was present in the package until 2021 >> (RFB-cmm.20). It is documented as follows: >> >> waitForSendDoneFor: timeout >> "This is a (dual) bug-fix implementation only. Broken VMs (like the >> Windoze one) confuse the read and write Semaphores (bug #1), and the >> new Socket implementation fails utterly to deal properly with the >> situation (bug #2)." >> >> Thanks, >> Dave

1 0

RFBSocket waitForSendDoneFor: question
by lewis＠mail.msen.com 23 Mar '24

23 Mar '24

SqueakSource servers use the RFB package in the source.squeak.org/ss repository. The RFBSocket>>waitForSendDoneFor: method was removed in merge (RFB-cmm.20). Was this a mistake in the merge? RFBSocket>>waitForSendDoneFor: was introduced by Levente in 2012 (RFB-ul.7 probably) and was present in the package until 2021 (RFB-cmm.20). It is documented as follows: waitForSendDoneFor: timeout "This is a (dual) bug-fix implementation only. Broken VMs (like the Windoze one) confuse the read and write Semaphores (bug #1), and the new Socket implementation fails utterly to deal properly with the situation (bug #2)." Thanks, Dave

1 0

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

Jump to page: