Squeak-dev February 2017

squeak-dev@lists.squeakfoundation.org

40 participants
201 discussions

The Inbox: Environments-jr.69.mcz
by commits＠source.squeak.org 23 Feb '17

23 Feb '17

A new version of Environments was added to project The Inbox: http://source.squeak.org/inbox/Environments-jr.69.mcz ==================== Summary ==================== Name: Environments-jr.69 Author: jr Time: 22 January 2017, 1:58:32.760832 am UUID: bef4785f-f66c-1246-bae6-6a15be9aaf33 Ancestors: Environments-jr.68 prevent the removal of third-party imported bindings Previously, when environment T imported from A and B, which both had a binding for #x, unbinding #x from either A or B would remove the binding from T. Now if the binding of #x is removed from A it will only be removed from T if T actually uses the binding from A, but not if T uses the binding from B. It also prevents an environment A from unbinding something in an imported environment B when A imports itself and A and B both have a declaration with the same key. =============== Diff against Environments-jr.68 =============== Item was changed: ----- Method: Environment>>hideBinding: (in category 'binding') ----- hideBinding: aBinding + (bindings bindingOf: aBinding key) == aBinding ifFalse: [^ self]. self undeclare: aBinding key from: bindings!

2 1

The Trunk: Environments-jr.68.mcz
by commits＠source.squeak.org 23 Feb '17

23 Feb '17

Marcel Taeumel uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-jr.68.mcz ==================== Summary ==================== Name: Environments-jr.68 Author: jr Time: 22 January 2017, 1:28:18.011832 am UUID: 41256adf-d98a-4c4f-8bb6-6e5d800a4014 Ancestors: Environments-nice.67 add a convenience method to activate an environment during a block =============== Diff against Environments-nice.67 =============== Item was added: + ----- Method: Environment>>beCurrentDuring: (in category 'as yet unclassified') ----- + beCurrentDuring: aBlock + "Evaluate aBlock with me as the current dynamic Environment" + ^ aBlock on: CurrentEnvironment do: [:e | e resume: self]!

2 1

Re: [squeak-dev] Nasty side effect
by Jakob Reschke 23 Feb '17

23 Feb '17

2017-02-23 10:08 GMT+01:00 Tobias Pape <Das.Linux(a)gmx.de>: > I'm onto (2), and frankly, I was surprised to learn that: > > squeak-dir$ mkdir foo > squeak-dir$ chmod -w foo > > and then > (FileDirectory default / 'foo') newFileNamed: 'bar'. "==> nil" > > this Must Not happen. What do you expect instead, an Exception? In StandardFileStream open:forWrite: it reads fileID ifNil: [^ nil]. "allows sender to detect failure" which means some indirect senders do not seem to pay attention properly.

2 1

[ANN] Squeak 5.1 now with support for macOS Sierra
by Fabio Niephaus 23 Feb '17

23 Feb '17

Hi all, We have rebundled the original Squeak 5.1 release with a newer OpenSmalltalkVM that supports macOS Sierra [1]. The new Squeak5.1-1654*9*-* bundles are available on http://squeak.org and on http://files.squeak.org/5.1/. Please let us know if there are any problems with these bundles. Sorry for any inconvenience this has caused. Best, Fabio [1] https://github.com/OpenSmalltalk/opensmalltalk-vm/releases/tag/201701281910

2 1

Etoys in 2017?
by H. Hirzel 22 Feb '17

22 Feb '17

Hello In 2016 Etoys was merged back into the trunk image. http://wiki.squeak.org/squeak/6419 How do I open an Etoys project in the current 6.0a development image? What is the status of it currently? Is it ready for limited use? Regards Hannes

2 2

SugarMiniatures? Mirror / Copy / Backup?
by H. Hirzel 22 Feb '17

22 Feb '17

Hello The page http://wiki.squeak.org/squeak/313 mentions 'SugarMiniatures'. <citation> SUGAR encourages the development of Miniatures. These are developed in Smalltalk with some common characteristics. They are not very long. They are documented: comments, examples, etc. They work: you guessed it. They can be extended. They can be included in a any Project or Product. </citation> Unfortunately the link http://sugar.swiki.net/10 is dead. Is there a mirror / a copy / a backup of this? Regards --Hannes Note: The web archive claims to have a copy https://web.archive.org/web/20050408193313/http://sugar.swiki.net/10 but leads to no result.

1 0

The Trunk: KernelTests-tonyg.318.mcz
by commits＠source.squeak.org 20 Feb '17

20 Feb '17

Tobias Pape uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-tonyg.318.mcz ==================== Summary ==================== Name: KernelTests-tonyg.318 Author: tonyg Time: 17 February 2017, 2:10:54.13995 pm UUID: 550fed38-fe11-4cea-bccb-2e3c13b421d0 Ancestors: KernelTests-nice.317 Add tests for Promise>>wait (including proposed change from Kernel-tonyg.1059) =============== Diff against KernelTests-nice.317 =============== Item was added: + ----- Method: PromiseTest>>testWaitForRejection (in category 'testing - monad') ----- + testWaitForRejection + | p | + p := Promise new. + [ (Delay forMilliseconds: 1) wait. p rejectWith: Error new ] fork. + self should: [ p wait ] raise: BrokenPromise.! Item was added: + ----- Method: PromiseTest>>testWaitForResolution (in category 'testing - monad') ----- + testWaitForResolution + | p | + p := Promise new. + [ (Delay forMilliseconds: 1) wait. p resolveWith: #ok ] fork. + self assert: [ p wait = #ok ]! Item was added: + ----- Method: PromiseTest>>testWaitRejectionYieldsCorrectBrokenPromise (in category 'testing - monad') ----- + testWaitRejectionYieldsCorrectBrokenPromise + | p | + p := Promise new. + [ (Delay forMilliseconds: 1) wait. p rejectWith: Error new ] fork. + [ p wait ] on: BrokenPromise do: [ :bp | ^ self assert: [ bp promise == p ] ]. + self fail: 'Should not reach this point'!

4 5

The Inbox: NetworkTests-tonyg.44.mcz
by commits＠source.squeak.org 19 Feb '17

19 Feb '17

A new version of NetworkTests was added to project The Inbox: http://source.squeak.org/inbox/NetworkTests-tonyg.44.mcz ==================== Summary ==================== Name: NetworkTests-tonyg.44 Author: tonyg Time: 19 February 2017, 11:58:49.983661 am UUID: 1828cc1e-30e3-42f8-9161-e41bb29579a6 Ancestors: NetworkTests-mt.43 Add tests for SocketStream>>upToAll: with varying delimiter lengths, in binary mode in particular. As of Network-tfel.185, ascii mode works fine because ('abc' indexOfSubCollection: 'b' startingAt: -999) is acceptable, but binary mode doesn't work because out-of-range start positions are rejected there. =============== Diff against NetworkTests-mt.43 =============== Item was added: + ----- Method: SocketStreamTest>>testUpToAllCrlfAscii (in category 'stream protocol') ----- + testUpToAllCrlfAscii + "Tests correct behavior of #upToAll with a two-byte delimiter in ascii mode" + self testUpToAllDelimiter: String crlf + input: 'A header', String crlf, 'and a body' + expected: {'A header'. 'and a body'} + binary: false. + ! Item was added: + ----- Method: SocketStreamTest>>testUpToAllCrlfBinary (in category 'stream protocol') ----- + testUpToAllCrlfBinary + "Tests correct behavior of #upToAll with a two-byte delimiter in binary mode" + self testUpToAllDelimiter: String crlf + input: 'A header', String crlf, 'and a body' + expected: {'A header'. 'and a body'} + binary: true. + ! Item was added: + ----- Method: SocketStreamTest>>testUpToAllCrlfCrlfAscii (in category 'stream protocol') ----- + testUpToAllCrlfCrlfAscii + "Tests correct behavior of #upToAll with a four-byte delimiter in ascii mode" + self testUpToAllDelimiter: String crlfcrlf + input: 'A header', String crlfcrlf, 'and a body' + expected: {'A header'. 'and a body'} + binary: false. + ! Item was added: + ----- Method: SocketStreamTest>>testUpToAllCrlfCrlfBinary (in category 'stream protocol') ----- + testUpToAllCrlfCrlfBinary + "Tests correct behavior of #upToAll with a four-byte delimiter in binary mode" + self testUpToAllDelimiter: String crlfcrlf + input: 'A header', String crlfcrlf, 'and a body' + expected: {'A header'. 'and a body'} + binary: true. + ! Item was added: + ----- Method: SocketStreamTest>>testUpToAllDelimiter:input:expected:binary: (in category 'stream protocol') ----- + testUpToAllDelimiter: delimiter input: input expected: aCollection binary: useBinary + "General test of #upToAll." + clientStream nextPutAll: input; close. + serverStream shouldSignal: false. + useBinary ifTrue: [serverStream binary] ifFalse: [serverStream ascii]. + aCollection do: [:expected | | actual | + actual := (serverStream upToAll: delimiter) asString. + self assert: actual = expected]. + ! Item was added: + ----- Method: SocketStreamTest>>testUpToAllEmptyPatternAscii (in category 'stream protocol') ----- + testUpToAllEmptyPatternAscii + "Tests correct behavior of #upToAll with an empty delimiter string, in ascii mode" + self testUpToAllDelimiter: '' + input: 'xaxbxc' + expected: {'xaxbxc'} + binary: false. + ! Item was added: + ----- Method: SocketStreamTest>>testUpToAllEmptyPatternBinary (in category 'stream protocol') ----- + testUpToAllEmptyPatternBinary + "Tests correct behavior of #upToAll with an empty delimiter string, in binary mode" + self testUpToAllDelimiter: '' + input: 'xaxbxc' + expected: {'xaxbxc'} + binary: true. + ! Item was added: + ----- Method: SocketStreamTest>>testUpToAllLongPatternAscii (in category 'stream protocol') ----- + testUpToAllLongPatternAscii + "Tests correct behavior of #upToAll with a long delimiter string, in ascii mode" + self testUpToAllDelimiter: 'xxxxx' + input: 'xxxxxaxxxxbxxxxxc' + expected: {''. 'axxxxb'. 'c'} + binary: false. + ! Item was added: + ----- Method: SocketStreamTest>>testUpToAllLongPatternBinary (in category 'stream protocol') ----- + testUpToAllLongPatternBinary + "Tests correct behavior of #upToAll with a long delimiter string, in binary mode" + self testUpToAllDelimiter: 'xxxxx' + input: 'xxxxxaxxxxbxxxxxc' + expected: {''. 'axxxxb'. 'c'} + binary: true. + ! Item was added: + ----- Method: SocketStreamTest>>testUpToAllMediumPatternAscii (in category 'stream protocol') ----- + testUpToAllMediumPatternAscii + "Tests correct behavior of #upToAll with a two-character delimiter string, in ascii mode" + self testUpToAllDelimiter: 'xx' + input: 'xxaxbxxc' + expected: {''. 'axb'. 'c'} + binary: false. + ! Item was added: + ----- Method: SocketStreamTest>>testUpToAllMediumPatternBinary (in category 'stream protocol') ----- + testUpToAllMediumPatternBinary + "Tests correct behavior of #upToAll with a two-character delimiter string, in binary mode" + self testUpToAllDelimiter: 'xx' + input: 'xxaxbxxc' + expected: {''. 'axb'. 'c'} + binary: true. + ! Item was added: + ----- Method: SocketStreamTest>>testUpToAllShortPatternAscii (in category 'stream protocol') ----- + testUpToAllShortPatternAscii + "Tests correct behavior of #upToAll with a short delimiter string, in ascii mode" + self testUpToAllDelimiter: 'x' + input: 'xaxbxc' + expected: {''. 'a'. 'b'. 'c'} + binary: false. + ! Item was added: + ----- Method: SocketStreamTest>>testUpToAllShortPatternAscii2 (in category 'stream protocol') ----- + testUpToAllShortPatternAscii2 + "Tests correct behavior of #upToAll with a short delimiter string, in ascii mode" + self testUpToAllDelimiter: 'x' + input: 'axbxcx' + expected: {'a'. 'b'. 'c'. ''} + binary: false. + ! Item was added: + ----- Method: SocketStreamTest>>testUpToAllShortPatternBinary (in category 'stream protocol') ----- + testUpToAllShortPatternBinary + "Tests correct behavior of #upToAll with a short delimiter string, in binary mode" + self testUpToAllDelimiter: 'x' + input: 'xaxbxc' + expected: {''. 'a'. 'b'. 'c'} + binary: true. + ! Item was added: + ----- Method: SocketStreamTest>>testUpToAllShortPatternBinary2 (in category 'stream protocol') ----- + testUpToAllShortPatternBinary2 + "Tests correct behavior of #upToAll with a short delimiter string, in binary mode" + self testUpToAllDelimiter: 'x' + input: 'axbxcx' + expected: {'a'. 'b'. 'c'. ''} + binary: true. + !

1 0

The Inbox: ConfigBrowser-topa.5.mcz
by commits＠source.squeak.org 18 Feb '17

18 Feb '17

A new version of ConfigBrowser was added to project The Inbox: http://source.squeak.org/inbox/ConfigBrowser-topa.5.mcz ==================== Summary ==================== Name: ConfigBrowser-topa.5 Author: topa Time: 18 February 2017, 9:06:32.806 am UUID: 885aa44d-ac83-4ab2-b1e7-5538e2fe7775 Ancestors: ConfigBrowser-tbn.4 Make loadable with new Metacello =============== Diff against ConfigBrowser-tbn.4 =============== Item was added: + ----- Method: ConfigBrowser>>packagesMenu: (in category 'model access') ----- + packagesMenu: aMenu + + ^ aMenu! Item was changed: ----- Method: ConfigCategory>>items (in category 'accessing') ----- items "Collect the config classes in this category" | list | + list := MetacelloToolBox configurationClasses select:[:aClass| aClass category = item]. + ^(list asArray sort:[:c1 :c2| c1 name <= c2 name]) collect:[:each| ConfigClass on: each in: self] - list := MetacelloConfiguration allSubclasses select:[:aClass| aClass category = item]. - ^(list sort:[:c1 :c2| c1 name <= c2 name]) collect:[:each| ConfigClass on: each in: self] ! Item was changed: ----- Method: ConfigClass>>name (in category 'accessing') ----- name "Strip off the ConfigurationOf from the class name" + (item name beginsWith: 'ConfigurationOf') + ifTrue:[^ item name allButFirst: 'ConfigurationOf' size]. + (item name beginsWith: 'BaselineOf') + ifTrue:[^ item name allButFirst: 'BaselineOf' size]. + ^ item name! - ^(item name beginsWith: 'ConfigurationOf') - ifTrue:[item name allButFirst: 'ConfigurationOf' size] - ifFalse:[item name]! Item was added: + ----- Method: ConfigProxy>>baseline:with: (in category 'api') ----- + baseline: aString with: aBlock + + "Defines a new basline (external target) with settings in aBlock. + Baseline target = BaselineOfXXX + package" + aBlock value.! Item was added: + ----- Method: ConfigProxy>>import: (in category 'api') ----- + import: aString + + ! Item was changed: ----- Method: ConfigRoot>>items (in category 'accessing') ----- items | classes categories | + classes := MetacelloToolBox configurationClasses. - classes := MetacelloConfiguration allSubclasses. categories := classes collect:[:each| each category] as: Set. ^(categories asArray sort) collect:[:cat| ConfigCategory on: cat in: self].!

1 0

The Trunk: Kernel-tonyg.1059.mcz
by commits＠source.squeak.org 18 Feb '17

18 Feb '17

Tobias Pape uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-tonyg.1059.mcz ==================== Summary ==================== Name: Kernel-tonyg.1059 Author: tonyg Time: 17 February 2017, 2:10:00.316749 pm UUID: 75619647-2c74-47e9-bbd4-adb402acfd2d Ancestors: Kernel-ul.1058 Change Promise>>wait to signal BrokenPromise if the promise is rejected. =============== Diff against Kernel-ul.1058 =============== Item was added: + Error subclass: #BrokenPromise + instanceVariableNames: 'promise' + classVariableNames: '' + poolDictionaries: '' + category: 'Kernel-Exceptions'! + + !BrokenPromise commentStamp: 'tonyg 2/17/2017 13:53' prior: 0! + I am signalled when, during a Promise>>wait, the promise is rejected. + promise: the promise itself. + ! Item was added: + ----- Method: BrokenPromise>>defaultAction (in category 'as yet unclassified') ----- + defaultAction + self messageText: 'Promise was rejected'. + ^super defaultAction! Item was added: + ----- Method: BrokenPromise>>isResumable (in category 'as yet unclassified') ----- + isResumable + ^ true! Item was added: + ----- Method: BrokenPromise>>promise (in category 'as yet unclassified') ----- + promise + ^ promise! Item was added: + ----- Method: BrokenPromise>>promise: (in category 'as yet unclassified') ----- + promise: aPromise + promise := aPromise! Item was changed: ----- Method: Promise>>wait (in category 'waiting') ----- wait + "Wait unconditionally for this promise to become fulfilled or rejected." - "Wait unconditionally for this promise to resolve." | sema | sema := Semaphore new. self whenResolved:[sema signal]. + self whenRejected:[sema signal]. sema wait. + ^ self isResolved + ifTrue: [ value ] + ifFalse: [ BrokenPromise new promise: self; signal ]! - ^value!

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
21
Older →

Jump to page: