Squeak-dev June 2020

squeak-dev@lists.squeakfoundation.org

43 participants
346 discussions

We need to talk about graphics
by tim Rowledge 14 Jul '20

14 Jul '20

Seriously. We've been sitting around twiddling thumbs about better graphics for decades now. We had Balloon2D & 3D. We had 'Pooh graphics' to do vector forms. We have some excellent stuff being done by the Cuis crew. We have some amazing ideas from Nile/Gezira. We have a number of potential 3rd party graphics libraries we might adopt. We have an advanced JIT that could be used to make on-demand graphics routines either on their own or working with pretty much any of the above. We probably have other options I've not even heard of. Maybe we should actually do something? Can we at least talk about it? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: SVE: Skip on Vernal Equinox

15 29

Installer loading cryptography mcm files: used to work (I think) and doesn't now
by tim Rowledge 12 Jul '20

12 Jul '20

A little while back - late May (or as we refer to it around here, very late March) - we had a thread about loading the Cryptography package etc. I'd swear that (Installer ss) project: 'Cryptography'; install: 'ProCrypto-1-1-1'. worked to load it. There are multiple emails referring to that; it's what rww sugested. Today it fails because the two repositories that the read-in MCConfiguration has are set with a location of #nil (not nil, #nil). This is a *plain 5.3-19435 release image, freshly started* and just run the incantation in a workspace. I've tried several older configurations from the Cryptography repository in case I screwed up the mcm file, but no change. When I examine the mcm files they clearly don't have any repository names in there. I'm baffled how using that install command could have loaded anything. Somewhere I must have done some prior required thing in those earlier tests and failed to note it, surely? Right now I'm just assuming this is 2020 having fun with me... tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: RCS: Read Card Sideways

6 19

Webminar about VA Smalltalk new OS Process Framework
by Mariano Martinez Peck 10 Jul '20

10 Jul '20

Greetings all, Some time ago, I had the pleasure and privilege of being sponsored by the Pharo Consortium to implement OSSubprocess. Because of that work, I quickly realized that a new OS process framework created by Instantiations was quite advanced and unlike anything I had seen before. If you are able, I would highly recommend that you attend the technology preview of this framework coming to VAST 2021: Seth Berman will be presenting, registration here: https://attendee.gotowebinar.com/register/7491754880594201356 We hope the community can attend and we look forward to your feedback and questions during the event's Q&A session. Best regards, -- Mariano Martinez Peck Email: marianopeck(a)gmail.com Twitter: @MartinezPeck LinkedIn: www.linkedin.com/in/mariano-martinez-peck <https://www.linkedin.com/in/mariano-mart%C3%ADnez-peck/> Blog: https://marianopeck.wordpress.com/

3 6

SqueakSSL Error when updating my image
by Thiede, Christoph 06 Jul '20

06 Jul '20

Hi all, maybe someone is interested in this error I received when updating my image this week in the debug console: LoadLibrary(SqueakSSL) (998: Unzuläÿssiger Zugriff auf einen Speicherbereich. ) LoadLibrary(SqueakSSL.dll) (998: Unzuläÿssiger Zugriff auf einen Speicherbereich. ) Translated to English: SqueakSSL complains about an access violation twice. And by the way, at some point, there happens an interesting encoding error. Everything else seems to work, I just wanted to mention this warning. Is this an error in the plugin? Best, Christoph

4 4

VW font setting
by tim Rowledge 03 Jul '20

03 Jul '20

If there's anyone in the list that has recently used VW and knows how to get fonts set up to be actually readable in a VW8.3 system running on Ubuntu lite with the xfce4 window manager.... I'd appreciate any pointers to helpful info. So far googling and digging into the colossal pile of code that appears to be font related has secured no effects whatsoever in getting anything better than almost utterly unreadable fonts for menus, buttons etc. My eyes hurt! tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim A)bort, R)etry or S)elf-destruct?

2 3

[ANN] My bag of tricks
by Stéphane Rollandin 02 Jul '20

02 Jul '20

Hello all, After Karl manifested some interest for my L-system implementation, I figured I should make some hidden stuff I have been doing for ages available to all. So, from the following page: http://www.zogotounga.net/comp/squeak/rogue.htm you will be able to download a (32 bit) 5.3-based image with most of my code in its current state, with a list of entry points to some notable features. Stef

2 1

The Inbox: Monticello-ul.726.mcz
by commits＠source.squeak.org 01 Jul '20

01 Jul '20

Levente Uzonyi uploaded a new version of Monticello to project The Inbox: http://source.squeak.org/inbox/Monticello-ul.726.mcz ==================== Summary ==================== Name: Monticello-ul.726 Author: ul Time: 29 June 2020, 1:39:36.986367 am UUID: b64f6b16-96de-40ed-aa9a-2c0f625bfcb1 Ancestors: Monticello-mt.725 - potentially speed up MCDirectoryRepository >> #includesVersionNamed: when the repository doesn't have version names cached - cache self size in MCVersionName >> #versionName =============== Diff against Monticello-mt.725 =============== Item was added: + ----- Method: MCDirectoryRepository>>includesVersionNamed: (in category 'versions') ----- + includesVersionNamed: aString + + | comparable | + comparable := ((aString endsWith: '.mcz') and: [ aString size > 4 ]) + ifTrue: [ aString allButLast: 4 ] + ifFalse: [ aString ]. + allVersionNamesCache ifNil: [ + "Instead of reading the contents of the entire directory in #allVersionNames, look up a single .mcz file. + This is just an optimization. If the file does not exist, the version may still be there as an mcd." + (directory fileExists: comparable, '.mcz') ifTrue: [ ^true ] ]. + ^ self allVersionNames includes: comparable! Item was changed: ----- Method: MCVersionName>>versionName (in category 'accessing') ----- versionName "Answer my version name as a ByteString, without the file suffix or any ancestor-attributes." | end | self isEmpty ifTrue: [^ String empty]. end := self indexOf: $( ifAbsent: [ + | size | + size := self size. + (size > 4 + and: [ (self at: size - 3) == $. + and: [ (self at: size - 2) == $m + and: [ (self at: size - 1) == $c ] ] ]) + ifTrue: [size - 3] + ifFalse: [size + 1]]. - (self size > 4 - and: [ (self at: self size - 3) == $. - and: [ (self at: self size - 2) == $m - and: [ (self at: self size - 1) == $c ] ] ]) - ifTrue: [self size - 3] - ifFalse: [self size + 1]]. ^self first: end - 1!

4 4

The Inbox: WebClient-Core-ul.123.mcz
by commits＠source.squeak.org 30 Jun '20

30 Jun '20

Levente Uzonyi uploaded a new version of WebClient-Core to project The Inbox: http://source.squeak.org/inbox/WebClient-Core-ul.123.mcz ==================== Summary ==================== Name: WebClient-Core-ul.123 Author: ul Time: 23 June 2020, 2:18:02.417391 pm UUID: ddad9c69-fa09-4c2e-bb38-156425f9baa0 Ancestors: WebClient-Core-tobe.121 WebMessage >> #streamDirectlyFrom:to:size:progress: - avoid infinite loop when there are fewer bytes available than specified - fix progress notifications - avoid unnecessary buffer copying WebMessage: - use #contentType: and #contentLength: methods to set the corresponding headers to avoid string duplication =============== Diff against WebClient-Core-tobe.121 =============== Item was changed: ----- Method: WebClient>>httpPost:content:type:do: (in category 'methods') ----- httpPost: urlString content: postData type: contentType do: aBlock "POST the data to the given url" | request | self initializeFromUrl: urlString. request := self requestWithUrl: urlString. request method: 'POST'. + contentType ifNotNil:[request contentType: contentType]. + request contentLength: postData size. - contentType ifNotNil:[request headerAt: 'Content-Type' put: contentType]. - request headerAt: 'Content-Length' put: postData size. userAgent ifNotNil:[request headerAt: 'User-Agent' put: userAgent]. aBlock value: request. ^self sendRequest: request content: postData readStream size: postData size! Item was changed: ----- Method: WebClient>>httpPostChunked:content:type:do: (in category 'methods') ----- httpPostChunked: urlString content: chunkBlock type: contentType do: aBlock "POST the data to the given url using chunked transfer-encoding. The chunkBlock takes a request and can be fed using #nextChunkPut: until all the data has been sent. Chunked encoding can be used for long-lasting connections to a server, but care must be taken to ensure that the client isn't running afoul of the server expecting to read the full response (i.e., you should use this only if you have control over both ends). However, it is a great way to send output from commands that take awhile and other time-consuming operations if authentication has been handled." | request | self initializeFromUrl: urlString. request := self requestWithUrl: urlString. request method: 'POST'. + contentType ifNotNil:[request contentType: contentType]. - contentType ifNotNil:[request headerAt: 'Content-Type' put: contentType]. request headerAt: 'Transfer-Encoding' put: 'chunked'. userAgent ifNotNil:[request headerAt: 'User-Agent' put: userAgent]. aBlock value: request. "Send the chunked data" ^self sendRequest: request contentBlock:[:aStream| "Set the stream in the request and pass it in the chunk block" request stream: aStream. chunkBlock value: request. "send termination chunk" aStream nextPutAll: '0'; crlf; crlf; flush. ]. ! Item was changed: ----- Method: WebClient>>httpPut:content:type:do: (in category 'methods') ----- httpPut: urlString content: postData type: contentType do: aBlock "PUT the data to the given url" | request | self initializeFromUrl: urlString. request := self requestWithUrl: urlString. request method: 'PUT'. + contentType ifNotNil:[request contentType: contentType]. + request contentLength: postData size. - contentType ifNotNil:[request headerAt: 'Content-Type' put: contentType]. - request headerAt: 'Content-Length' put: postData size. userAgent ifNotNil:[request headerAt: 'User-Agent' put: userAgent]. aBlock value: request. ^self sendRequest: request content: postData readStream size: postData size! Item was changed: ----- Method: WebMessage>>streamDirectlyFrom:to:size:progress: (in category 'streaming') ----- streamDirectlyFrom: srcStream to: dstStream size: sizeOrNil progress: progressBlock "Stream the content of srcStream to dstStream. + If a size is given, try to stream that many elements. It's the senders responsibility to verify that enough bytes were read. If no size is given, stream all available data." - If a size is given, stream that many elements, otherwise stream up to the end." + | buffer bufferSize totalBytesRead bytesInBuffer | - | buffer remaining size totalRead | sizeOrNil = 0 ifTrue:[^self]. + bufferSize := 4096. + buffer := (srcStream isBinary ifTrue:[ByteArray] ifFalse:[String]) new: bufferSize. + totalBytesRead := 0. + [ + progressBlock ifNotNil:[ progressBlock value: sizeOrNil value: totalBytesRead ]. + srcStream atEnd or: [ sizeOrNil notNil and: [ totalBytesRead >= sizeOrNil ]] ] + whileFalse: [ + bytesInBuffer := srcStream + readInto: buffer + startingAt: 1 + count: (sizeOrNil + ifNil: [ bufferSize ] + ifNotNil: [ sizeOrNil - totalBytesRead min: bufferSize ]). + dstStream next: bytesInBuffer putAll: buffer startingAt: 1. + totalBytesRead := totalBytesRead + bytesInBuffer ]. + dstStream flush! - - buffer := (srcStream isBinary ifTrue:[ByteArray] ifFalse:[String]) new: 4096. - totalRead := 0. - size := sizeOrNil ifNil:[0]. - [(sizeOrNil == nil and:[srcStream atEnd not]) or:[totalRead < size]] whileTrue:[ - progressBlock ifNotNil:[progressBlock value: sizeOrNil value: totalRead]. - remaining := sizeOrNil ifNil:[99999] ifNotNil:[sizeOrNil - totalRead]. - remaining > buffer size ifTrue:[remaining := buffer size]. - buffer := srcStream next: remaining into: buffer startingAt: 1. - dstStream nextPutAll: (remaining < buffer size - ifTrue:[(buffer copyFrom: 1 to: remaining)] - ifFalse:[buffer]). - totalRead := totalRead + buffer size. - ]. - dstStream flush. - progressBlock ifNotNil:[progressBlock value: sizeOrNil value: totalRead].! Item was changed: ----- Method: WebRequest>>send200Response:contentType:do: (in category 'responses') ----- send200Response: aString contentType: contentType do: aBlock "Send a 200 OK response" | resp | resp := self newResponse protocol: 'HTTP/1.1' code: 200. + resp contentType: contentType. - resp headerAt: 'Content-Type' put: contentType. aBlock value: resp. ^self sendResponse: resp content: aString.! Item was changed: ----- Method: WebRequest>>send404Response: (in category 'responses') ----- send404Response: body "Send a 404 not found response" ^self send404Response: (body convertToWithConverter: UTF8TextConverter new) + do: [ :resp | resp contentType: 'text/html; charset=utf-8' ]! - do: [ :resp | resp headerAt: 'Content-Type' put: 'text/html; charset=utf-8' ]! Item was changed: ----- Method: WebRequest>>send404Response:do: (in category 'responses') ----- send404Response: body do: aBlock "Send a 404 not found response" | resp | resp := self newResponse protocol: 'HTTP/1.1' code: 404. + resp contentType: 'text/html; charset=utf-8'. - resp headerAt: 'Content-Type' put: 'text/html; charset=utf-8'. aBlock value: resp. ^self sendResponse: resp content: body. ! Item was changed: ----- Method: WebRequest>>send405Response:content: (in category 'responses') ----- send405Response: allowed content: body "Send a 405 method not allowed response" | resp | resp := self newResponse protocol: 'HTTP/1.1' code: 405. + resp contentType: 'text/html; charset=utf-8'. - resp headerAt: 'Content-Type' put: 'text/html; charset=utf-8'. resp headerAt: 'allow' put: (String streamContents:[:s| allowed do:[:m| s nextPutAll: m] separatedBy:[s nextPut: $,] ]). ^self sendResponse: resp content: body.! Item was changed: ----- Method: WebRequest>>sendResponse:contentStream:size: (in category 'sending') ----- sendResponse: resp contentStream: aStream size: streamSize "Sends a WebResponse, streaming its contents from aStream. If a size is provided, insert a Content-Length header, otherwise ensure that the connection is transient." streamSize ifNil:[self headerAt: 'Connection' put: 'close'] "mark transient" + ifNotNil:[resp contentLength: streamSize]. - ifNotNil:[resp headerAt: 'Content-Length' put: streamSize]. ^self sendResponse: resp contentBlock:[:sockStream| resp streamFrom: aStream to: sockStream size: streamSize progress: nil ]! Item was changed: ----- Method: WebRequest>>sendResponseCode:content:type:do: (in category 'responses') ----- sendResponseCode: code content: aString type: contentType do: aBlock "Send a 500 Internal server error response" | resp | resp := self newResponse protocol: 'HTTP/1.1' code: code. + contentType ifNotNil:[resp contentType: contentType]. - contentType ifNotNil:[resp headerAt: 'Content-Type' put: contentType]. aBlock value: resp. ^self sendResponse: resp content: aString.! Item was changed: ----- Method: WebRequest>>stream200Response:size:type:do: (in category 'responses') ----- stream200Response: aStream size: streamSize type: contentType do: aBlock "Stream a 200 OK response" | resp | resp := self newResponse protocol: 'HTTP/1.1' code: 200. + resp contentType: contentType. - resp headerAt: 'Content-Type' put: contentType. aBlock value: resp. ^self sendResponse: resp contentStream: aStream size: streamSize.! Item was changed: ----- Method: WebServer class>>browseFile:request: (in category 'examples') ----- browseFile: file request: request "Responds with a file back to the original request" | fileSize mimeTypes resp | file binary. fileSize := file size. mimeTypes := file mimeTypes ifNil:[#('application/octet-stream')]. resp := request newResponse protocol: 'HTTP/1.1' code: 200. + resp contentType: mimeTypes first. - resp headerAt: 'Content-Type' put: mimeTypes first. request sendResponse: resp contentStream: file size: fileSize.! Item was changed: ----- Method: WebServer>>authenticate:realm:methods:do: (in category 'authentication') ----- authenticate: request realm: realm methods: accepted do: aBlock "Authenticates an incoming request using one of the accepted methods. Evaluates aBlock upon successful authentication. Responds with a 401 (Unauthorized) if the authentication fails." | method resp | request headersAt: 'Authorization' do:[:authHeader| method := authHeader copyUpTo: Character space. (accepted anySatisfy:[:auth| auth sameAs: method]) ifTrue:[ (self authAccept: method request: request realm: realm header: authHeader) ifTrue:[^aBlock value]. ]. ]. "Send a 401 (unauthorized) response" resp := request newResponse protocol: 'HTTP/1.1' code: 401. + resp contentType: 'text/html; charset=utf-8'. - resp headerAt: 'Content-Type' put: 'text/html; charset=utf-8'. accepted do:[:auth| | hdr | hdr := self authHeader: auth request: request realm: realm. hdr ifNotNil:[resp addHeader: 'WWW-Authenticate' value: hdr]. ]. request sendResponse: resp content: '<html><head><title>401 Unauthorized</title></head><body><h1>401 Unauthorized</h1><p>You are not authorized to access the requested URL</p></body></html>'. !

3 3

The Inbox: KernelTests-jr.383.mcz
by commits＠source.squeak.org 30 Jun '20

30 Jun '20

A new version of KernelTests was added to project The Inbox: http://source.squeak.org/inbox/KernelTests-jr.383.mcz ==================== Summary ==================== Name: KernelTests-jr.383 Author: jr Time: 21 June 2020, 7:27:47.560506 pm UUID: ecddb3cb-25c9-6c43-a879-59e527a3a9ee Ancestors: KernelTests-tonyg.382 Test whether Notifications reject the promises of future sends In my opinion, they should not. =============== Diff against KernelTests-tonyg.382 =============== Item was added: + ----- Method: PromiseTest>>testFutureResolutionWithNotification (in category 'tests - future') ----- + testFutureResolutionWithNotification + | p | + p := [Notification signal: 'should not reject'. 3 + 4] future value. + self assert: (self waitUntil: [p isResolved or: [p isRejected]] orCycleCount: 100). + self assert: p isResolved. + self assert: 7 equals: p value.!

4 4

The Trunk: System-mt.1166.mcz
by commits＠source.squeak.org 29 Jun '20

29 Jun '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1166.mcz ==================== Summary ==================== Name: System-mt.1166 Author: mt Time: 29 June 2020, 9:01:56.145853 am UUID: 6ec090d8-b6b4-0442-b6d9-ad7cb1e05983 Ancestors: System-dtl.1165 Adds Tim Johnson (tcj) to the in-image list of contributors. =============== Diff against System-dtl.1165 =============== Item was changed: ----- Method: SystemNavigation class>>privateAuthorsRaw (in category 'class initialization') ----- (excessive size, no diff calculated) Item was changed: + (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors. "new: Tim Johnson (tcj)"'! - (PackageInfo named: 'System') postscript: 'Preferences removePreference: #bigDisplay.'!

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
35
Older →

Jump to page: