Squeak-dev July 2022

squeak-dev@lists.squeakfoundation.org

33 participants
227 discussions

Installer http vs https
by Eliot Miranda 28 Jul '22

28 Jul '22

Hi All, am I right in thinking that - all uses of Installer monticello http: 'http://url text' should be replaced with Installer monticello http: 'url text' - MonticelloInstaller needs to implement https: & https:user:password: - We should use https: for squeaksource, etc. i.e. Installer class>>squeak ^self monticello http: 'source.squeak.org' => Installer class>>squeak ^self monticello https: 'source.squeak.org' _,,,^..^,,,_ best, Eliot

2 1

Squeak 6 git integration and updating
by Eliot Miranda 27 Jul '22

27 Jul '22

Hi, I'm being told that the only way to keep an in-image version of a github package is to rebuild from scratch (a cruel joke). How does one update? The github-cache directory doesn't appear ot be a proper git clone so one can't try and pull into it. Opening the "repository" from the Montivello browser shows only one version of the package (and indeed in the Monticello browser everything is versioned as tonel.1). Am I seriously expected to rebuild an image every time I want to pull in a new commit? This is sad. _,,,^..^,,,_ best, Eliot

4 3

The Trunk: Sound-eem.90.mcz
by commits＠source.squeak.org 27 Jul '22

27 Jul '22

Eliot Miranda uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-eem.90.mcz ==================== Summary ==================== Name: Sound-eem.90 Author: eem Time: 27 July 2022, 11:04:08.439551 am UUID: d2a3fba6-3061-4ffc-bfcf-125f6bfdbafc Ancestors: Sound-mt.89 Add interfaces for enumerating the sound player and recorder devices and setting the current device. =============== Diff against Sound-mt.89 =============== Item was added: + ----- Method: SoundPlayer class>>defaultPlayer (in category 'accessing') ----- + defaultPlayer + "Answer the deviceName of the default device to be used as the next player (output) device to be opened." + ^self primDefaultPlayer! Item was added: + ----- Method: SoundPlayer class>>defaultPlayer: (in category 'accessing') ----- + defaultPlayer: deviceName + self primDefaultPlayer: deviceName! Item was added: + ----- Method: SoundPlayer class>>numberOfPlayerDevices (in category 'accessing') ----- + numberOfPlayerDevices + "Answer the number of player (output) devices. See #playerDeviceNameOf:." + <primitive: 'primitiveGetNumberOfSoundPlayerDevices' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>playerDeviceNameOfIndex: (in category 'private') ----- + playerDeviceNameOfIndex: deviceNumber + "Answer the name of the nth player (output) device, or nil. + The device number must range from 1 to the #numberOfPlayerDevices." + <primitive: 'primitiveGetSoundPlayerDeviceName' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>playerDevices (in category 'accessing') ----- + playerDevices + "Answer a sortable collection of available values for use with #defaultPlayer:." + ^(1 to: self numberOfPlayerDevices) collect: + [:index | self playerDeviceNameOfIndex: index]! Item was added: + ----- Method: SoundPlayer class>>primDefaultPlayer (in category 'private') ----- + primDefaultPlayer + "Answer the deviceName of the default device to be used as the next player (output) device to be opened." + <primitive: 'primitiveGetDefaultSoundPlayer' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>primDefaultPlayer: (in category 'private') ----- + primDefaultPlayer: deviceName + "Set deviceName as the default device to be used as the next player (output) device to be opened." + <primitive: 'primitiveSetDefaultSoundPlayer' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundRecorder class>>defaultRecorder (in category 'accessing') ----- + defaultRecorder + "Get deviceName of the default device to be used as the next recorder (input) device to be opened." + ^self primDefaultRecorder! Item was added: + ----- Method: SoundRecorder class>>defaultRecorder: (in category 'accessing') ----- + defaultRecorder: deviceName + "Set deviceName as the default device to be used as the next recorder (input) device to be opened. + The initial listing setup (self recorderDevices) should be called prior to doing this; + if it returns NULL, then no devices are to be considered." + self primDefaultRecorder: deviceName! Item was added: + ----- Method: SoundRecorder class>>numberOfRecorderDevices (in category 'accessing') ----- + numberOfRecorderDevices + "Answer the number of recorder (input) devices. See #recorderDeviceNameOf:." + <primitive: 'primitiveGetNumberOfSoundRecorderDevices' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundRecorder class>>primDefaultRecorder (in category 'private') ----- + primDefaultRecorder + "Get deviceName of the default device to be used as the next recorder (input) device to be opened." + <primitive: 'primitiveGetDefaultSoundRecorder' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundRecorder class>>primDefaultRecorder: (in category 'private') ----- + primDefaultRecorder: deviceName + "Set deviceName as the default device to be used as the next recorder (input) device to be opened." + <primitive: 'primitiveSetDefaultSoundRecorder' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundRecorder class>>recorderDeviceNameOfIndex: (in category 'private') ----- + recorderDeviceNameOfIndex: deviceNumber + "Answer the name of the nth recorder (input) device, or nil. + The device number must range from 1 to the #numberOfRecorderDevices." + <primitive: 'primitiveGetSoundRecorderDeviceName' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundRecorder class>>recorderDevices (in category 'accessing') ----- + recorderDevices + "Answer a sortable collection of available values for use with #defaultRecorder:." + ^(1 to: self numberOfRecorderDevices) collect: + [:index | self recorderDeviceNameOfIndex: index]!

1 0

FFI: FFI-Kernel-eem.226.mcz
by commits＠source.squeak.org 27 Jul '22

27 Jul '22

Eliot Miranda uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-eem.226.mcz ==================== Summary ==================== Name: FFI-Kernel-eem.226 Author: eem Time: 27 July 2022, 10:21:22.93735 am UUID: 5c47c335-b61d-40a2-befc-64f62f2f1d34 Ancestors: FFI-Kernel-mt.225 Robustness in the type framework. In at least one case of loading old code an ExternalUnknownType was created whose referentClass is a class, not a class name symbol. =============== Diff against FFI-Kernel-mt.225 =============== Item was changed: ----- Method: ExternalUnknownType>>typeName (in category 'accessing') ----- typeName + referentClass isBehavior ifTrue: + [^referentClass name]. - self assert: [referentClass isSymbol]. ^ referentClass "Usually just the name of the class."!

1 0

Search text bug in Preferences Browser? Bug in SqhMailmanAggregator?
by Eliot Miranda 27 Jul '22

27 Jul '22

Hi All, in a trunk trunk 6.1alpha image with all the extra packages loaded (especially the "Integrate Squeak's mailing lists" option) - Open the Preferences browser (in) - Search for Annot - Select the "Annotation panes - requests" text to get the extended info - Type over Annot in the search text box. Try to type fast. - a dialog pops up saying There is no archive path set to store data. The following default will be used: /Users/eliot/Squeak/Squeak6.0/squeak-history/lists Is this okay for you? This *should not happen* :-) _,,,^..^,,,_ best, Eliot

1 0

The Trunk: Morphic-eem.2021.mcz
by commits＠source.squeak.org 26 Jul '22

26 Jul '22

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.2021.mcz ==================== Summary ==================== Name: Morphic-eem.2021 Author: eem Time: 26 July 2022, 12:01:10.585585 pm UUID: 3cae6374-47d3-49e9-99a8-8c59697058d1 Ancestors: Morphic-eem.2020 Tiny reliability tweak. =============== Diff against Morphic-eem.2020 =============== Item was changed: ----- Method: TextMorph>>minHeight (in category 'layout') ----- minHeight | result | result := (paragraph ifNil: [self minCompositionHeight] + ifNotNil: [:para| para lines first lineHeight]) - ifNotNil: [paragraph lines first lineHeight]) + (self borderWidth*2). margins ifNil: [^ result]. ^ margins isRectangle ifTrue: [result + margins top + margins bottom] ifFalse: [margins isPoint ifTrue: [result + margins y + margins y] ifFalse: [result + (2*margins)]]!

2 1

The Trunk: Kernel-eem.1488.mcz
by commits＠source.squeak.org 26 Jul '22

26 Jul '22

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1488.mcz ==================== Summary ==================== Name: Kernel-eem.1488 Author: eem Time: 26 July 2022, 11:59:44.968962 am UUID: fb63409e-0be1-4ab5-a3e6-98d7313bc5d7 Ancestors: Kernel-ct.1487 Fix the formatting of BlockClosure>>forkAt:named: =============== Diff against Kernel-ct.1487 =============== Item was changed: ----- Method: BlockClosure>>forkAt:named: (in category 'scheduling') ----- forkAt: priority named: name - "Create and schedule a Process running the code in the receiver at the + given priority and having the given name. Answer the newly created + process. was svp 6/23/2003 10:59" - given priority and having the given name. Answer the newly created - - process." - - - | forkedProcess | - forkedProcess := self newProcess. - forkedProcess priority: priority. - forkedProcess name: name. - ^ forkedProcess resume!

1 0

The Trunk: Graphics-eem.529.mcz
by commits＠source.squeak.org 26 Jul '22

26 Jul '22

Eliot Miranda uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-eem.529.mcz ==================== Summary ==================== Name: Graphics-eem.529 Author: eem Time: 26 July 2022, 11:58:24.028857 am UUID: e9d779b9-578e-4eea-9d2a-b68fffc5c366 Ancestors: Graphics-mt.528 Add the new primitivePixelValueAtPut primitive, which is included in 6.x VMs. =============== Diff against Graphics-mt.528 =============== Item was added: + ----- Method: Form>>primPixelValueAtX:y:put: (in category 'pixel access') ----- + primPixelValueAtX: x y: y put: pixelValue + "Set the raw pixel value at the given point. Answer the previous value of the pixel. + This pixel value depends on the receiver's depth. Typical clients use colorAt: to get a Color. Make sure the colorMap is nil for ColorForms " + + <primitive: 'primitivePixelValueAtPut' module:'BitBltPlugin' error: ec> + | oldValue | + oldValue := self primPixelValueAtX: x y: y. + (BitBlt bitPokerToForm: self) pixelAt: x@y put: pixelValue. + ^oldValue!

1 0

The Inbox: Compiler-cmm.480.mcz
by commits＠source.squeak.org 25 Jul '22

25 Jul '22

Chris Muller uploaded a new version of Compiler to project The Inbox: http://source.squeak.org/inbox/Compiler-cmm.480.mcz ==================== Summary ==================== Name: Compiler-cmm.480 Author: cmm Time: 13 July 2022, 3:58:02.487109 pm UUID: 0af0343b-cf23-427a-8bff-1b45941699dc Ancestors: Compiler-eem.479 Preserve hand-crafted formatting of comments. =============== Diff against Compiler-eem.479 =============== Item was changed: ----- Method: ParseNode>>printSingleComment:on:indent: (in category 'private') ----- printSingleComment: aString on: aStream indent: indent + "Preserve hand-crafted formatting of comments." + aStream nextPutAll: aString! - "Print the comment string, assuming it has been indented indent tabs. - Break the string at word breaks, given the widths in the default - font, at 450 points." - - | readStream word position lineBreak font wordWidth tabWidth spaceWidth lastChar | - readStream := ReadStream on: aString. - font := TextStyle default defaultFont. - tabWidth := TextStyle default tabWidth. - spaceWidth := font widthOf: Character space. - position := indent * tabWidth. - lineBreak := 450. - [readStream atEnd] - whileFalse: - [word := self nextWordFrom: readStream setCharacter: [:lc | lastChar := lc]. - wordWidth := word inject: 0 into: [:width :char | width + (font widthOf: char)]. - position := position + wordWidth. - position > lineBreak - ifTrue: - [aStream skip: -1; crtab: indent. - position := indent * tabWidth + wordWidth + spaceWidth. - lastChar = Character cr - ifTrue: [[readStream peekFor: Character tab] whileTrue]. - word isEmpty ifFalse: [aStream nextPutAll: word; space]] - ifFalse: - [aStream nextPutAll: word. - readStream atEnd - ifFalse: - [position := position + spaceWidth. - aStream space]. - lastChar = Character cr - ifTrue: - [aStream skip: -1; crtab: indent. - position := indent * tabWidth. - [readStream peekFor: Character tab] whileTrue]]]!

7 14

The Trunk: Kernel-ct.1487.mcz
by commits＠source.squeak.org 25 Jul '22

25 Jul '22

Christoph Thiede uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1487.mcz ==================== Summary ==================== Name: Kernel-ct.1487 Author: ct Time: 23 July 2022, 5:04:54.100611 pm UUID: 7b5df1b4-09a6-cd43-a466-9984c0bf96fb Ancestors: Kernel-eem.1486 Fixes a bug in simulation of primitive 188. The nested #doPrimitive:... send must be passed the methodArg that was passed along with primitive 188, not the the original method that has called the primitive. This seems to be a regression from Kernel-eem.1205. =============== Diff against Kernel-eem.1486 =============== 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 doPrimitive: methodArg primitive method: meth 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]!

1 0

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

Jump to page: