Squeak-dev June 2020

squeak-dev@lists.squeakfoundation.org

43 participants
346 discussions

PROPOSAL: UN-St (United Nations of Smalltalk)
by Sean DeNigris 05 Jun '20

05 Jun '20

I believe that the Squeak/Pharo/Cuis communit(ies) share one very special thing, which most of the world has completely missed, and which the world sorely needs if the true power of computing to unleash and evolve the human mind is ever to be realized: a love and appreciation for personal technological augmentation/amplification available to all as represented by the Dynabook and/or its prototype software (Smalltalk as a concept, not any version/implementation e.g. Smalltalk-80). Like a few survivors after the sinking of Atlantis, we can pick up the remnants of this dream and resume marching toward the objective (or at least keep its memory alive until an auspicious time when it can be realized)… or, like most groups of human beings throughout history who start with a common aim, we can bicker among ourselves about e.g. historical discrepancies, personal slights, and conflicting subgoals, and allow those squabbles to distract us and derail our primary mission. This would be disappointing but not surprising: it is how every war is started. I have contributed, hacked, conferenced, and visited with many members of our wider community for over a decade now and, maybe because I had the “luxury” of finding Smalltalk after some of the political lines had been well-drawn, I can clearly see that we are fundamentally united. I cringe every time I see cynical, caustic exchanges - both for my participating colleagues who are obviously in pain - probably exacerbated by their passion for our shared endevour - and for the counterproductive effect the antagonism is sure to have on our common goal. Virtually every exchange is between two people who I personally know to be good and competent. Here is my proposal: Let’s form an informal committee - a United Nations of Smalltalk if you will - including at least one member of each community, who will collaborate on cooperation between the dialects and mediate any friction before it boils over. I’d be happy to participate, I guess as a representative of the Pharo community. Although I have no official role in the Pharo leadership, I have much of my professional life invested there. I often wish I had the time to keep all my projects compatible with Squeak, but I usually feel like I’m barely keeping up as it is! I hope I’m not alone in these feelings and look forward to the response of our community (most emphatically singular). This message is being cross-posted to Pharo-Dev, Squeak-Dev, and Cuis MLs (I think I’m still a member of all three - fingers crossed…) - Sean (DeNigris)

5 5

Object>>printOn: refined.
by Trygve Reenskaug 05 Jun '20

05 Jun '20

I find it frustrating to open 3 inspectors on different objects, all of them titled 'aString' (or whatever), IMO, it is much better to open them on the 3 objects: [1234] aString, [3456] a String, [4567 a String. The numbers in square brackets stand for the objects /oop/, actually its /identityHash/. They can be a 7-digit numbers; much too long for my short-time memory to hold many of them. I therefore truncate the number to 4 digits, accepting that I may, in rare cases, get 2 objects with the same identifier. I'm running 'Squeak5.3'. *Object>>printOn: aStream* "Append to the argument, aStream, a sequence of characters that identifies the receiver." " The previous version identified the class, not the instance " " This new version identifies the instance with its oop. " " I arbitrarily truncate the oop to 4 digits to simplify reading. " | title | title := self class name. aStream nextPutAll: '[' , (self asOop printString truncateTo: 4) , ']' ; nextPutAll: (title first isVowel ifTrue: ['an '] ifFalse: ['a ']); nextPutAll: title Enjoy --Trygve -- /The essence of object orientation is that objects collaborateto achieve a goal. / Trygve Reenskaug mailto: trygver(a)ifi.uio.no <mailto:%20trygver@ifi.uio.no> Morgedalsvn. 5A http://folk.uio.no/trygver/ N-0378 Oslo http://fullOO.info Norway Tel: (+47) 468 58 625

10 30

[CRON] Errored: squeak-smalltalk/squeak-app#1716 (squeak-trunk - 25ebaf1)
by Travis CI 05 Jun '20

05 Jun '20

Build Update for squeak-smalltalk/squeak-app ------------------------------------- Build: #1716 Status: Errored Duration: 16 mins and 1 sec Commit: 25ebaf1 (squeak-trunk) Author: Marcel Taeumel Message: Hi all! The project "squeak-app" is part of the continuous build infrastructure (short: CI) for Squeak's bundles, which you can download at https://files.squeak.org/, followed by the version tag you are looking for. All bundles are updated on a regular basis, which is daily for Trunk (i.e. the current alpha version) and monthly for release versions. Note that there won't be new bundles if Squeak's build number, which reflects in-image code updates, did not change between CI jobs. -- The Squeak Oversight Board [ci skip] View the changeset: https://github.com/squeak-smalltalk/squeak-app/compare/fb55517f583fe544f922… View the full build log and details: https://travis-ci.org/github/squeak-smalltalk/squeak-app/builds/695033349?u… -- You can unsubscribe from build emails from the squeak-smalltalk/squeak-app repository going to https://travis-ci.org/account/preferences/unsubscribe?repository=8901856&ut…. Or unsubscribe from *all* email updating your settings at https://travis-ci.org/account/preferences/unsubscribe?utm_medium=notificati…. Or configure specific recipients for build notifications in your .travis.yml file. See https://docs.travis-ci.com/user/notifications.

1 0

Re: [squeak-dev] [Cuis-dev] Is there a pull-right hierarchical menu in Cuis?
by stephen＠heaveneverywhere.com 05 Jun '20

05 Jun '20

Thanks to all those who responded to my query about hierarchical menus; the answer was indeed “RTFM.” Here’s a screen shot of my new (smaller & faster) world menu. I’ll send the code out after I’ve tested it a bit more. stp -- Stephen Travis Pope Santa Barbara, California, USA http://HeavenEverywhere.com <http://heaveneverywhere.com/> http://FASTLabInc.com <http://fastlabinc.com/> https://vimeo.com/user19434036/videos <https://vimeo.com/user19434036/videos> http://heaveneverywhere.com/Reflections -- > On May 31, 2020, at 3:34 PM, Juan Vuletich <juan(a)jvuletich.org> wrote: > > Hi Stephen. > > Welcome to Cuis! > > Check World / New morph... This opens the 'Add a new morph' menu that has several levels of submenus. Would this work for you? > > Cheers, > -- > Juan Vuletich > www.cuis-smalltalk.org <http://www.cuis-smalltalk.org/> > https://github.com/Cuis-Smalltalk/Cuis-Smalltalk-Dev <https://github.com/Cuis-Smalltalk/Cuis-Smalltalk-Dev> > https://github.com/jvuletich <https://github.com/jvuletich> > https://www.linkedin.com/in/juan-vuletich-75611b3 <https://www.linkedin.com/in/juan-vuletich-75611b3> > @JuanVuletich > > On 5/31/2020 7:06 PM, stephen--- via Cuis-dev wrote: >> >> >> Hi all, >> >> The title says it all; my app (Siren) uses hierarchical menus extensively >> (see the attached screen shot for an example), and I'd rather not have them >> be many-click menus as in Squeak. >> >> Is there an implementation of true hierarchical/pull-right menus in Squeak >> or any of its descendants. >> >> stp >> >> <Mail Attachment.jpeg> >> >> >> -- >> >> Stephen Travis Pope Santa Barbara, California, USA >> http://HeavenEverywhere.com <http://heaveneverywhere.com/> http://FASTLabInc.com <http://fastlabinc.com/> >> https://vimeo.com/user19434036/videos <https://vimeo.com/user19434036/videos> http://heaveneverywhere.com/Reflections <http://heaveneverywhere.com/Reflections> >> >> >> >> _______________________________________________ >> Cuis-dev mailing list >> Cuis-dev(a)cuis-smalltalk.org <mailto:Cuis-dev@cuis-smalltalk.org> >> http://cuis-smalltalk.org/mailman/listinfo/cuis-dev_cuis-smalltalk.org <http://cuis-smalltalk.org/mailman/listinfo/cuis-dev_cuis-smalltalk.org> >

5 5

Is there a pull-right hierarchical menu in Squeak?
by Stephen Pope 05 Jun '20

05 Jun '20

Hi all, The title says it all; my app (Siren) uses hierarchical menus extensively (see the attached screen shot for an example), and I'd rather not have them be many-click menus as in Squeak. Is there an implementation of true hierarchical/pull-right menus in Squeak or any of its descendants (I'm using Cuis). stp <http://forum.world.st/file/t9553/h-menu.jpg> -- Sent from: http://forum.world.st/Squeak-Dev-f45488.html

4 4

The Trunk: Kernel-tonyg.1331.mcz
by commits＠source.squeak.org 05 Jun '20

05 Jun '20

Tony Garnock-Jones uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-tonyg.1331.mcz ==================== Summary ==================== Name: Kernel-tonyg.1331 Author: tonyg Time: 4 June 2020, 7:51:24.268037 pm UUID: b7790e35-7fff-4def-89ef-2a6f8534ca20 Ancestors: Kernel-tonyg.1330 More repairs to Promise to bring it closer to Promise/A+ behaviour. =============== Diff against Kernel-tonyg.1330 =============== Item was changed: ----- Method: Promise>>ifRejected: (in category 'monad') ----- ifRejected: errBlock + ^ self then: nil ifRejected: errBlock! - ^ self then: [:ignored | "Do nothing"] ifRejected: errBlock.! Item was changed: ----- Method: Promise>>then: (in category 'monad') ----- then: resolvedBlock + ^ self then: resolvedBlock ifRejected: nil! - ^ self then: resolvedBlock ifRejected: [:e | "Pass rejection reason along" e].! Item was changed: ----- Method: Promise>>then:ifRejected: (in category 'monad') ----- then: resolvedBlock ifRejected: errBlock "Return a Promise that, if it resolves, runs the resolvedBlock. If resolution throws an Exception, it runs the errBlock." | p | p := Promise new. + resolvedBlock + ifNil: [self whenResolved: [:v | p resolveWith: v]] + ifNotNil: [ + self whenResolved: [:v | + [p resolveWith: (resolvedBlock value: v)] + on: Error do: [:e | p rejectWith: e]]]. + errBlock + ifNil: [self whenRejected: [:e | p rejectWith: e]] + ifNotNil: [ + self whenRejected: [:e | + [p resolveWith: (errBlock value: e)] + on: Error do: [:e2 | p rejectWith: e2]]]. - self whenResolved: [:v | - [p resolveWith: (resolvedBlock value: v)] - on: Error do: [:e | p rejectWith: e]]. - self whenRejected: [:e | - [p resolveWith: (errBlock value: e)] - on: Error do: [:e2 | p rejectWith: e2]]. ^ p.!

2 1

The Trunk: KernelTests-tonyg.382.mcz
by commits＠source.squeak.org 04 Jun '20

04 Jun '20

Tony Garnock-Jones uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-tonyg.382.mcz ==================== Summary ==================== Name: KernelTests-tonyg.382 Author: tonyg Time: 4 June 2020, 7:51:00.716353 pm UUID: 8b08a8d8-6d8e-4836-b06a-4743168a3c5f Ancestors: KernelTests-tonyg.381 More Promise tests for Promise/A+ behaviour. =============== Diff against KernelTests-tonyg.381 =============== Item was added: + ----- Method: PromiseTest>>testNilErrBlockPropagation (in category 'tests - monad') ----- + testNilErrBlockPropagation + "https://promisesaplus.com section 2.2.7.4" + | p q | + p := Promise new. + q := p then: [:v | self error: 'Shouldn''t call resolvedBlock'] ifRejected: nil. + p rejectWith: 1. + self assert: p isRejected. + self assert: q isRejected. + self assert: p error equals: 1. + self assert: q error equals: 1.! Item was added: + ----- Method: PromiseTest>>testNilResolvedBlockPropagation (in category 'tests - monad') ----- + testNilResolvedBlockPropagation + "https://promisesaplus.com section 2.2.7.3" + | p q | + p := Promise new. + q := p then: nil ifRejected: [:e | self error: 'Shouldn''t call errBlock']. + p resolveWith: 1. + self assert: p isResolved. + self assert: q isResolved. + self assert: p value equals: 1. + self assert: q value equals: 1.!

1 0

The Trunk: KernelTests-tonyg.381.mcz
by commits＠source.squeak.org 04 Jun '20

04 Jun '20

Tony Garnock-Jones uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-tonyg.381.mcz ==================== Summary ==================== Name: KernelTests-tonyg.381 Author: tonyg Time: 4 June 2020, 4:43:38.797857 pm UUID: 6d8f1efa-1e6e-470c-aa66-290bcb621a9f Ancestors: KernelTests-mt.380 Tests for a discrepancy between current Promise implementation and the Promises/A+ spec. (Bug reported by Jakob Reschke on squeak-dev, 5 April 2020) =============== Diff against KernelTests-mt.380 =============== Item was added: + ----- Method: PromiseTest>>testAnErrorInOnRejectedRejectsPromise (in category 'tests - monad') ----- + testAnErrorInOnRejectedRejectsPromise + "https://promisesaplus.com section 2.2.7.2" + | p q error | + p := Promise new. + q := p ifRejected: [:e | (error := KeyNotFound new) signal]. + p rejectWith: 1. + self assert: p isRejected description: 'Original Promise not rejected'. + self assert: q isRejected description: 'Broken Promise not rejected'. + self assert: p error = 1. + self assert: q error == error.! Item was changed: ----- Method: PromiseTest>>testAnErrorInThenRejectsPromise (in category 'tests - monad') ----- testAnErrorInThenRejectsPromise + "https://promisesaplus.com section 2.2.7.2" + | p q error | - | p q | p := Promise new. + q := p then: [:v | (error := KeyNotFound new) signal]. - q := p then: [:v | KeyNotFound signal]. p resolveWith: 1. self deny: p isRejected description: 'Original Promise rejected'. + self assert: q isRejected description: 'Broken Promise not rejected'. + self assert: p value = 1. + self assert: q error == error.! - self assert: q isRejected description: 'Broken Promise not rejected'.! Item was changed: ----- Method: PromiseTest>>testifRejectedRunsBlockIfPromiseFails (in category 'tests - monad') ----- testifRejectedRunsBlockIfPromiseFails + "https://promisesaplus.com section 2.2.7.1" | p q error | error := nil. p := Promise new. + q := p ifRejected: [:e | error := e "N.B. returns a value, does not signal an Exception"]. - q := p ifRejected: [:e | error := e]. p rejectWith: KeyNotFound new. + self assert: q isResolved. + self assert: KeyNotFound equals: error class. + self assert: q value == error.! - self assert: q isRejected. - self assert: KeyNotFound equals: error class.!

1 0

The Trunk: Kernel-tonyg.1330.mcz
by commits＠source.squeak.org 04 Jun '20

04 Jun '20

Tony Garnock-Jones uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-tonyg.1330.mcz ==================== Summary ==================== Name: Kernel-tonyg.1330 Author: tonyg Time: 4 June 2020, 4:44:15.894747 pm UUID: 76ade342-1acf-4780-8cda-610dba22bbec Ancestors: Kernel-eem.1329 Repair a discrepancy between current Promise implementation and the Promises/A+ spec. (Bug reported by Jakob Reschke on squeak-dev, 5 April 2020) =============== Diff against Kernel-eem.1329 =============== Item was changed: ----- Method: Promise>>then:ifRejected: (in category 'monad') ----- then: resolvedBlock ifRejected: errBlock "Return a Promise that, if it resolves, runs the resolvedBlock. If resolution throws an Exception, it runs the errBlock." | p | p := Promise new. self whenResolved: [:v | [p resolveWith: (resolvedBlock value: v)] on: Error do: [:e | p rejectWith: e]]. + self whenRejected: [:e | + [p resolveWith: (errBlock value: e)] + on: Error do: [:e2 | p rejectWith: e2]]. - self whenRejected: [:e | p rejectWith: (errBlock value: e)]. ^ p.!

1 0

[BUG] Browser file out
by karl ramberg 04 Jun '20

04 Jun '20

To trigger bug: File out item from any list pane in Browser File out same item again You get a notifier dialog that the file already exist Press cancel Debugger pops up: 'Please close this to abort file opening' Best, Karl

1 0

← Newer
1
...
26
27
28
29
30
31
32
...
35
Older →

Jump to page: