Squeak-dev

squeak-dev@lists.squeakfoundation.org

15 participants
79897 discussions

The Inbox: Files-cmm.207.mcz
by commits＠source.squeak.org 08 May '24

08 May '24

Chris Muller uploaded a new version of Files to project The Inbox: http://source.squeak.org/inbox/Files-cmm.207.mcz ==================== Summary ==================== Name: Files-cmm.207 Author: cmm Time: 28 April 2024, 7:24:18.020282 pm UUID: 7f3afa72-a69e-48be-aae7-a50900bfd4a3 Ancestors: Files-ul.206 - Support #currentDirectoryNickname from FileDirectory class>>#on:. - Don't allow FileStream class>>#newFileNamed:do: and #forceNewFileNamed:do: to fail silently. =============== Diff against Files-ul.206 =============== Item was changed: ----- Method: FileDirectory class>>on: (in category 'instance creation') ----- on: pathString "Return a new file directory for the given path, of the appropriate FileDirectory subclass for the current OS platform." | pathName | DirectoryClass ifNil: [self setDefaultDirectoryClass]. "If path ends with a delimiter (: or /) then remove it" pathName := pathString. (pathName at: pathName size ifAbsent: nil) = self pathNameDelimiter ifTrue: [pathName := pathName allButLast]. DirectoryClass parentDirectoryNickname ifNotNil: [:parentName| (pathName beginsWith: parentName) ifTrue: [pathName = parentName ifTrue: [^self default containingDirectory]. (pathName at: parentName size + 1 ifAbsent: nil) = self pathNameDelimiter ifTrue: [^self default containingDirectory on: (pathName allButFirst: parentName size + 1)]]]. + DirectoryClass currentDirectoryNickname ifNotNil: + [: currentName| + (pathName beginsWith: currentName) ifTrue: + [pathName = currentName ifTrue: + [^self default]. + (pathName at: currentName size + 1 ifAbsent: nil) = self pathNameDelimiter ifTrue: + [^self default on: (pathName allButFirst: currentName size + 1)]]]. + ^DirectoryClass new setPathName: pathName! Item was changed: ----- Method: FileStream class>>forceNewFileNamed:do: (in category 'instance creation') ----- + forceNewFileNamed: fileName do: aBlock + "Create a file named fileName and value aBlock with a ReadWriteStream on its contents, which is closed automatically upon completion of aBlock. If the file identified by fileName already exists, it will be replaced. If the file can't be created for any reason, signal an error." + ^ (self forceNewFileNamed: fileName) + ifNil: [ self error: 'file not created' ] + ifNotNil: [ : fileStream | self detectFile: fileStream do: aBlock ]! - forceNewFileNamed: fileName do: aBlock - "Avi Bryant says, ''This idiom is quite common in other languages that make heavy use of closures (i.e. Lisp (with-file 'foo' (f) ...) and Ruby (File.open('foo'){|f|...})). It's time Squeak had it, too.'' - - Returns the result of aBlock." - - ^self detectFile: (self forceNewFileNamed: fileName) do: aBlock! Item was changed: ----- Method: FileStream class>>newFileNamed:do: (in category 'instance creation') ----- + newFileNamed: fileName do: aBlock + "Create a file named fileName and value aBlock with a ReadWriteStream on its contents, which is closed automatically upon completion of aBlock. If the file identified by fileName already exists, signal an error. If the file can't be created for any reason, signal an error." + ^ (self newFileNamed: fileName) + ifNil: [ self error: 'file not created' ] + ifNotNil: [ : fileStream | self detectFile: fileStream do: aBlock ]! - newFileNamed: fileName do: aBlock - "Avi Bryant says, ''This idiom is quite common in other languages that make heavy use of closures (i.e. Lisp (with-file 'foo' (f) ...) and Ruby (File.open('foo'){|f|...})). It's time Squeak had it, too.'' - - Returns the result of aBlock." - - ^self detectFile: (self newFileNamed: fileName) do: aBlock!

7 7

raycasting in Squeak
by Lauren Pullen 07 May '24

07 May '24

Hi List, I have been working on a rendering engine for a 1st person maze game, like the kind that powered the old Wolfenstein 3D, and I thought I'd share my experience. In the BitBlt Renderer image, I've done all the rendering by hand, in Squeak. It's being rendered in Standard Definition PAL. In standard it was hard to see where to go, so I changed it to widescreen, but that cost a couple frames per second. There are rough edges on the texture coming from cosine for fisheye correction, as well as a curve. I ran out of wall time to do anything else with the renderer... it ran at 4 frames per second after scaling by the UI scale... and to make it not look like it runs like molasses I didn't tween walking and turning. And then I tried to texture the floor and ceiling and my wall time went from 4 frames per second to 4 seconds per frame because I had to paint a pixel at a time. I'm sure it could have been done faster with WarpBlt, but I had only been able to optimize drawing trapezoids for 0, 90, 180, and 270 degrees and didn't want to lose turning animations. In the GPU Renderer image, I've offloaded rendering onto the graphics card. It was certainly an adventure, because when I started I knew absolutely nothing about hardware rendering except it involves telling the GPU how to paint triangles. While I am upset that it is rendering at a high resolution instead of the chunky, 1990s look I was hoping for, I'll take the gained performance over it. Actually, it runs so fast I can both convert the entire stage to a mesh and upload it every frame and still have wall time left over to do movement animations at 12 frames per second. I'm going to optimize stage loading next using the raycaster, but it performs well enough to use for debugging and as a demo for people at home. So, yes, you can make a 3D game in Squeak. If it runs on my 10 year old laptop where only the onboard graphics card works, I'd say it can be done. Which is great, because I've really been excited about learning Smalltalk and using it to make graphical programs, and what better than writing a game?

6 13

The Trunk: Files-cmm.207.mcz
by commits＠source.squeak.org 06 May '24

06 May '24

Chris Muller uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-cmm.207.mcz ==================== Summary ==================== Name: Files-cmm.207 Author: cmm Time: 28 April 2024, 7:24:18.020282 pm UUID: 7f3afa72-a69e-48be-aae7-a50900bfd4a3 Ancestors: Files-ul.206 - Support #currentDirectoryNickname from FileDirectory class>>#on:. - Don't allow FileStream class>>#newFileNamed:do: and #forceNewFileNamed:do: to fail silently. =============== Diff against Files-ul.206 =============== Item was changed: ----- Method: FileDirectory class>>on: (in category 'instance creation') ----- on: pathString "Return a new file directory for the given path, of the appropriate FileDirectory subclass for the current OS platform." | pathName | DirectoryClass ifNil: [self setDefaultDirectoryClass]. "If path ends with a delimiter (: or /) then remove it" pathName := pathString. (pathName at: pathName size ifAbsent: nil) = self pathNameDelimiter ifTrue: [pathName := pathName allButLast]. DirectoryClass parentDirectoryNickname ifNotNil: [:parentName| (pathName beginsWith: parentName) ifTrue: [pathName = parentName ifTrue: [^self default containingDirectory]. (pathName at: parentName size + 1 ifAbsent: nil) = self pathNameDelimiter ifTrue: [^self default containingDirectory on: (pathName allButFirst: parentName size + 1)]]]. + DirectoryClass currentDirectoryNickname ifNotNil: + [: currentName| + (pathName beginsWith: currentName) ifTrue: + [pathName = currentName ifTrue: + [^self default]. + (pathName at: currentName size + 1 ifAbsent: nil) = self pathNameDelimiter ifTrue: + [^self default on: (pathName allButFirst: currentName size + 1)]]]. + ^DirectoryClass new setPathName: pathName! Item was changed: ----- Method: FileStream class>>forceNewFileNamed:do: (in category 'instance creation') ----- + forceNewFileNamed: fileName do: aBlock + "Create a file named fileName and value aBlock with a ReadWriteStream on its contents, which is closed automatically upon completion of aBlock. If the file identified by fileName already exists, it will be replaced. If the file can't be created for any reason, signal an error." + ^ (self forceNewFileNamed: fileName) + ifNil: [ self error: 'file not created' ] + ifNotNil: [ : fileStream | self detectFile: fileStream do: aBlock ]! - forceNewFileNamed: fileName do: aBlock - "Avi Bryant says, ''This idiom is quite common in other languages that make heavy use of closures (i.e. Lisp (with-file 'foo' (f) ...) and Ruby (File.open('foo'){|f|...})). It's time Squeak had it, too.'' - - Returns the result of aBlock." - - ^self detectFile: (self forceNewFileNamed: fileName) do: aBlock! Item was changed: ----- Method: FileStream class>>newFileNamed:do: (in category 'instance creation') ----- + newFileNamed: fileName do: aBlock + "Create a file named fileName and value aBlock with a ReadWriteStream on its contents, which is closed automatically upon completion of aBlock. If the file identified by fileName already exists, signal an error. If the file can't be created for any reason, signal an error." + ^ (self newFileNamed: fileName) + ifNil: [ self error: 'file not created' ] + ifNotNil: [ : fileStream | self detectFile: fileStream do: aBlock ]! - newFileNamed: fileName do: aBlock - "Avi Bryant says, ''This idiom is quite common in other languages that make heavy use of closures (i.e. Lisp (with-file 'foo' (f) ...) and Ruby (File.open('foo'){|f|...})). It's time Squeak had it, too.'' - - Returns the result of aBlock." - - ^self detectFile: (self newFileNamed: fileName) do: aBlock!

1 0

The Trunk: Kernel-cmm.1563.mcz
by commits＠source.squeak.org 06 May '24

06 May '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!

5 4

[squeak-smalltalk/squeak-object-memory] Dead key inputs not working properly on Ubuntu (Issue #120)
by Christoph Thiede 05 May '24

05 May '24

Ubuntu 20 or 22 (tested on both), Qwertz keyboard layout, trying to enter different characters into a Workspace using dead keys: - <kbd>^</kbd> (circumflex) + <kbd>^</kbd> (circumflex): `^` (as expected) - <kbd>^</kbd> (circumflex) + <kbd>Space</kbd>: expected `^`, got ` ̂` (space + U+0302 COMBINING CIRCUMFLEX ACCENT, rendered as question mark in Squeak) - <kbd>´</kbd> (acute accent) + <kbd>´</kbd> ´</kbd> (acute accent): expected `´`, got `'` (single apostroph, depending on your editor preferences, this character might be duplicated automatically) - <kbd>´</kbd> (acute accent) + <kbd>Space</kbd>: expected `'`, got ` ́` (space + U+0301 COMBINING ACUTE ACCENT, rendered as question mark in Squeak) - <kbd>\`</kbd> (grave accent) + <kbd>\`</kbd> (grave accent): `` ` `` (as expected) - <kbd>\`</kbd> (grave accent) + <kbd>Space</kbd>: expected `'`, got ` ̀` (space + U+0300 COMBINING GRAVE ACCENT, rendered as question mark in Squeak) When typing the "mixed dead keys" (ending in Space) into a keyboard exerciser morph, an error is raised because the combining accent keycodes are not known by `EventSensor class>>#virtualKeyTable`. The expected inputs are what most other applications such as the gnome desktop environment or Chromium on the same machine behave like. I don't know enough about this domain to even say whether this should be fixed in the image or the VM. Probably other keyboard layouts are affected as well. -- Reply to this email directly or view it on GitHub: https://github.com/squeak-smalltalk/squeak-object-memory/issues/120 You are receiving this because you are subscribed to this thread. Message ID: <squeak-smalltalk/squeak-object-memory/issues/120(a)github.com>

5 9

Discuss & Review | Faster ProcessExplorer through AllProcesses list
by Taeumel, Marcel 05 May '24

05 May '24

...instead of "Process allSubInstances". The caveat is this: process creation gets a little bit slower while accessing the list of runnable *and* waiting processes gets about 40x faster: [ [] newProcess terminate ] bench. AFTER: '140,000 per second. 7.13 microseconds per run. 35.02 % GC time.' BEFORE: '224,000 per second. 4.47 microseconds per run. 4.38 % GC time.' [ aProcessBrowser updateProcessList ] bench. -- allow quick updates AFTER: '4,410 per second. 227 microseconds per run. 77.34453 % GC time.' BEFORE: '118 per second. 8.47 milliseconds per run. 2.59792 % GC time.' Why do we need this? If you have an auto-updating ProcessBrowser running in the background while doing time-sensitive benchmarks, you want a fast ProcessBrowser :-) Please see the attached change set. Thanks to Leon and Eliot for the hint! Best, Marcel

3 3

The Trunk: Tools-eem.1251.mcz
by commits＠source.squeak.org 04 May '24

04 May '24

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.1251.mcz ==================== Summary ==================== Name: Tools-eem.1251 Author: eem Time: 29 April 2024, 2:53:17.573251 pm UUID: f493712c-4f55-4c9e-96f9-394e45e29b32 Ancestors: Tools-eem.1250 For the TreeBrowser, if a system category is already selected, use it as teh stem of the prompt to add a new category, so that it is easier to add a subcategory. Guard against empty categories in answering the class list of a PackagePaneBrowser. =============== Diff against Tools-eem.1250 =============== Item was changed: ----- Method: Browser>>addSystemCategory (in category 'system category functions') ----- addSystemCategory "Prompt for a new category name and add it before the current selection, or at the end if no current selection" | oldSelection newName | self okToChange ifFalse: [^ self]. oldSelection := self selectedSystemCategory. newName := self request: 'Please type new category name' + initialAnswer: (oldSelection ifNil: ['Category-Name'] ifNotNil: [oldSelection, '-Name']). + newName isEmpty ifTrue: [^ self]. - initialAnswer: 'Category-Name'. - newName isEmpty - ifTrue: [^ self] - ifFalse: [newName := newName asSymbol]. systemOrganizer + addCategory: (newName := newName asSymbol) - addCategory: newName before: self selectedSystemCategory. + self selectSystemCategory: newName. - self selectSystemCategory: - (oldSelection isNil - ifTrue: [ self systemCategoryList last ] - ifFalse: [ oldSelection ]). self changed: #systemCategoryList.! Item was changed: ----- Method: PackagePaneBrowser>>classList (in category 'class list') ----- classList self hasSystemCategorySelected ifTrue: [| thisPackage thisCatSufix categories | thisPackage := self package. thisCatSufix := self selectedSystemCategoryWithoutPackage. categories := systemOrganizer categories select: [:eachCat | eachCat size >= thisPackage size and: ["package prefix may occur in different cases, because they are assembled in the same package" ((eachCat first: thisPackage size) compare: thisPackage caseSensitive: false) = 2] and: ["rest of system category must have exact case, because it is discrimnated by the system category list" (eachCat allButFirst: thisPackage size) = thisCatSufix]]. + categories ifNotEmpty: + [^categories gather: [:eachCat | systemOrganizer listAtCategoryNamed: eachCat]]]. - ^ categories gather: [:eachCat | - systemOrganizer listAtCategoryNamed: eachCat]]. self hasPackageSelected ifTrue: [^ self packageClasses]. ^ systemOrganizer allElements!

2 1

Re: [squeak-smalltalk/squeak-object-memory] `Json` produces invalid JSON output for integer keys (Issue #109)
by Christoph Thiede 04 May '24

04 May '24

I'm personally rather with Tim on that. Let's not bring the joy of `[object Object]` to Squeak. :D I'm personally more a fan of EAFP than LBYL, but silent invalidation of data just makes debugging harder IMO. I even wonder whether `JsonObject` should reject any non-string keys during construction and manipulation (e.g., `add:`) in the first place. However, the latter idea might impact compatibility (but seriously, the name `JsonObject` conveys a pretty clear idea what types of keys might be allowed there.) > 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) Oh yes indeed. I placed an #isThisEverCalled in this method in my image and if we do not identify any surprising usages, I support removing this method (or deprecating it at least). -- 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/2094299869(a)github.com>

1 0

System Browser change title->rename a category->title reverts to original
by gettimothy 04 May '24

04 May '24

Hi Folks, Squeak6.1alpha-22713-64bit.image I keep several browsers handy with custom names so I can switch context quickly. When I change the title, I found that it sometimes reverts to the default title. I found this happens when I rename a method category. cordially, tty

2 1

The Weekly Squeak news: Squeak-SemanticText
by Scott Gibson 03 May '24

03 May '24

Do you ever wonder what ChatGPT has to say about Squeak? Check out the latest Weekly Squeak news article to find out. The work that Christoph is doing with Squeak-SemanticText provides ChatGPT, embedding search, and retrieval-augmented generation for Squeak/Smalltalk Read the article at https://news.squeak.org/2024/05/03/squeak-semantictext/. Cheers, Scott

1 0

Jump to page: