Squeak-dev March 2016

squeak-dev@lists.squeakfoundation.org

31 participants
150 discussions

Daily Commit Log
by commits＠source.squeak.org 06 Mar '16

06 Mar '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-March/009481.html Name: Kernel-bf.1004 Ancestors: Kernel-mt.1003 Nicer display of tinyBenchmark results: 110,000,000 bytecodes/sec; 1,200,000 sends/sec =============================================

1 0

Themes for Squeak 5.1
by Chris Muller 06 Mar '16

06 Mar '16

I would really like for Squeak to have a dark theme for 5.1. Marcel, Karl, and myself, have had a long and slow discussion about this over the last few months. These are the requirements we are targeting for Themes: 1) ability to affect the visual appearance of every UI component of the system, by setting its various FillStyle's, #borderWidth, #iconForm's, #font's, etc. 2) ability to swap out one entire visual Theme for another (via save/load), without affecting any of the non-visual Preferences. 3) ability to easily grow the elements of Theme objects organically (as we can, for example, with our process for adding a new Preference). 4) A chain-of-responsibility feature which, upon access of the value of a particular visual property, if it is not defined by the app, and not defined by the theme, then it can fallback to use the value of that property from the fallback theme. Marcel came up with a bespoke implementation which can meet the above requirements in about 30 lines of code across 12 methods. I have a commercial need for theming support in Squeak. That's why I approached Marcel last January to work on this, so we can could come up with a solution we agree on. Now that we have, I would like to move forward on this very soon. What do y'all think? In the next couple of weeks or so, Marcel, would you mind if I moved forward with your idea, or did you want to do the work? Karl, the work you did with your change-set could probably help us identify many of the accessing places which we'll need to update..

3 2

Dark background color
by karl ramberg 06 Mar '16

06 Mar '16

Hi, I have been experimenting with getting the image to a state where I can change windows to use dark background colors. See attached change set. Change set is used because a lot of different packages is touched and it's painful to use Monticello... Eventually it would be nice to get changes into the image so we can easily change the color settings at will. I like dark background colors because the white color on LCDs is quite intense. http://imgur.com/5ZdWVfD Enjoy Best, Karl

2 3

The Trunk: Kernel-bf.1004.mcz
by commits＠source.squeak.org 06 Mar '16

06 Mar '16

Bert Freudenberg uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-bf.1004.mcz ==================== Summary ==================== Name: Kernel-bf.1004 Author: bf Time: 6 March 2016, 2:24:19.735994 pm UUID: 66e79374-507f-4a75-a4a4-e9dad4dbd17c Ancestors: Kernel-mt.1003 Nicer display of tinyBenchmark results: 110,000,000 bytecodes/sec; 1,200,000 sends/sec =============== Diff against Kernel-mt.1003 =============== Item was added: + ----- Method: Integer>>significantDigits: (in category 'truncation and round off') ----- + significantDigits: aNumber + "Round to preserve aNumber significant digits: + 987654321 significantDigits: 1 ==> 1000000000 + 987654321 significantDigits: 2 ==> 990000000" + | digits | + digits := self numberOfDigitsInBase: 10. + ^self roundTo: (10 raisedTo: digits - aNumber)! Item was changed: ----- Method: Integer>>tinyBenchmarks (in category 'benchmarks') ----- tinyBenchmarks "Report the results of running the two tiny Squeak benchmarks. ar 9/10/1999: Adjusted to run at least 1 sec to get more stable results" "0 tinyBenchmarks" + "On a 292 MHz G3 Mac: 23,000,000 bytecodes/sec; 980,000 sends/sec" + "On a 400 MHz PII/Win98: 18,000,000 bytecodes/sec; 1,100,000 sends/sec" + "On a 2800 MHz i7: 1,200,000,000 bytecodes/sec; 25,000,000 sends/sec" + "On a 2800 MHz i7 (CogVM): 1,700,000,000 bytecodes/sec; 260,000,000 sends/sec" - "On a 292 MHz G3 Mac: 22727272 bytecodes/sec; 984169 sends/sec" - "On a 400 MHz PII/Win98: 18028169 bytecodes/sec; 1081272 sends/sec" | t1 t2 r n1 n2 | n1 := 1. [t1 := Time millisecondsToRun: [n1 benchmark]. t1 < 1000] whileTrue:[n1 := n1 * 2]. "Note: #benchmark's runtime is about O(n)" n2 := 28. [t2 := Time millisecondsToRun: [r := n2 benchFib]. t2 < 1000] whileTrue:[n2 := n2 + 1]. "Note: #benchFib's runtime is about O(k^n), where k is the golden number = (1 + 5 sqrt) / 2 = 1.618...." + ^ ((n1 * 500000 * 1000) // t1 significantDigits: 2) asStringWithCommas, ' bytecodes/sec; ', + ((r * 1000) // t2 significantDigits: 2) asStringWithCommas, ' sends/sec' + ! - ^ ((n1 * 500000 * 1000) // t1) printString, ' bytecodes/sec; ', - ((r * 1000) // t2) printString, ' sends/sec'!

1 0

Daily Commit Log
by commits＠source.squeak.org 04 Mar '16

04 Mar '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-March/009479.html Name: KernelTests-dtl.306 Ancestors: KernelTests-eem.305 Move Kernel-Chronology to Chronology-Core and KernelTests-Chronology to Chronology-Tests ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-March/009480.html Name: NetworkTests-ul.40 Ancestors: NetworkTests-ul.39 - those extra assertions in#testSocketReuse might fail before the sockets are properly initialized, so check that in the argument block of #ensure: =============================================

1 0

source.squeak.org domain lost?
by gettimothy 04 Mar '16

04 Mar '16

Sorry if this is old news. http://source.squeak.org looks like somebody else got the domain. http://source.squeak.org/trunk/Network-eem.173.mcz

3 5

The Trunk: NetworkTests-ul.40.mcz
by commits＠source.squeak.org 04 Mar '16

04 Mar '16

Levente Uzonyi uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-ul.40.mcz ==================== Summary ==================== Name: NetworkTests-ul.40 Author: ul Time: 4 March 2016, 8:17:26.370392 pm UUID: caffaf06-2201-4e88-8873-3c3337820a8b Ancestors: NetworkTests-ul.39 - those extra assertions in#testSocketReuse might fail before the sockets are properly initialized, so check that in the argument block of #ensure: =============== Diff against NetworkTests-ul.39 =============== Item was changed: ----- Method: SocketTest>>testSocketReuse (in category 'tests') ----- testSocketReuse "Test for SO_REUSEADDR/SO_REUSEPORT" | udp1 udp2 sendProc recvProc | [ | address port send1 recv2 received sent | address := #[255 255 255 255]. "broadcast" port := 31259. udp1 := Socket newUDP. udp1 setOption: 'SO_REUSEADDR' value: 1. self assert: 0 equals: udp1 socketError description: 'Error occured while setting SO_REUSEADDR'. self assert: #(0 1) equals: (udp1 getOption: 'SO_REUSEADDR') description: 'SO_REUSEADDR couldn''t be set'. udp1 setOption: 'SO_REUSEPORT' value: 1. self assert: 0 equals: udp1 socketError description: 'Error occured while setting SO_REUSEPORT'. self assert: #(0 1) equals: (udp1 getOption: 'SO_REUSEPORT') description: 'SO_REUSEPORT couldn''t be set'. udp1 setPort: port. self assert: port equals: udp1 localPort. udp1 setOption: 'SO_BROADCAST' value: 1. send1 := UUID new. udp2 := Socket newUDP. udp2 setOption: 'SO_REUSEADDR' value: 1. self assert: 0 equals: udp2 socketError. udp2 setOption: 'SO_REUSEPORT' value: 1. self assert: 0 equals: udp2 socketError. udp2 setPort: port. self assert: port equals: udp2 localPort. udp2 setOption: 'SO_BROADCAST' value: 1. recv2 := UUID new. received := 0. recvProc := [ [received < 16] whileTrue:[ received := received + (udp2 receiveDataInto: recv2 startingAt: received + 1) "No need to yield here, because #receiveDataInto:startingAt: will either wait on the readSemaphore of the socket or signal an error." ] ] newProcess. sendProc := [ udp1 setPeer: address port: port. sent := (udp1 sendSomeData: send1 startIndex: 1 count: 16 for: 1). ] newProcess. recvProc resume. sendProc resume. (Delay forMilliseconds: 200) wait. self assert: sendProc isTerminated description: 'sendProc hasn''t terminated till the deadline'; assert: recvProc isTerminated description: 'recvProc hasn''t terminated till the deadline'; assert: 16 equals: sent description: ('{1} bytes were sent instead of 16' format: { sent }); assert: send1 equals: recv2 description: 'sent and received bytes differ' ] ensure:[ + udp1 ifNotNil: [ udp1 destroy ]. + udp2 ifNotNil: [ udp2 destroy ]. - udp1 destroy. - udp2 destroy. sendProc ifNotNil: [ sendProc terminate ]. recvProc ifNotNil: [ recvProc terminate ] ]. !

1 0

Seaside on HN
by Bert Freudenberg 04 Mar '16

04 Mar '16

https://news.ycombinator.com/item?id=11212732 - Bert -

3 2

Daily Commit Log
by commits＠source.squeak.org 03 Mar '16

03 Mar '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-March/009472.html Name: System-eem.803 Ancestors: System-bf.802 Add getters that answer whether the VM supports immutability or multiple bytecode sets. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-March/009473.html Name: Morphic-mt.1093 Ancestors: Morphic-topa.1092 Makes tree widgets honor the mouse-over-for-keyboard-focus preference. Just like PluggableListMorphs do. Implementation comes from there. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-March/009474.html Name: System-topa.804 Ancestors: System-eem.803 Use itemSelector for bith removed and recategorized events. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-March/009475.html Name: Graphics-tfel.328 Ancestors: Graphics-tfel.327 Add a method to query if the Display is deferring updates ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-March/009476.html Name: System-eem.805 Ancestors: System-topa.804 Rename supportsImmutability to supportsreadOnlyObjects to avoid conflicts with the deep immutability concept. Update commentary for vmParameterAt:[put:] to describe the current VM. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-March/009477.html Name: KernelTests-cmm.308 Ancestors: KernelTests-eem.305 Chronology tests moved to Chronology-Tests. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-March/009478.html Name: NetworkTests-ul.39 Ancestors: NetworkTests-topa.38 Hopefully fixed #testSocketReuse: - no more image lockups - no more lingering processes Also added a few more asserts and descriptions to the potential failures. =============================================

1 0

The Trunk: NetworkTests-ul.39.mcz
by commits＠source.squeak.org 03 Mar '16

03 Mar '16

Levente Uzonyi uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-ul.39.mcz ==================== Summary ==================== Name: NetworkTests-ul.39 Author: ul Time: 3 March 2016, 11:23:05.81344 pm UUID: 37f73354-d341-4957-99f8-a50f6891afb5 Ancestors: NetworkTests-topa.38 Hopefully fixed #testSocketReuse: - no more image lockups - no more lingering processes Also added a few more asserts and descriptions to the potential failures. =============== Diff against NetworkTests-topa.38 =============== Item was changed: ----- Method: SocketTest>>testSocketReuse (in category 'tests') ----- testSocketReuse "Test for SO_REUSEADDR/SO_REUSEPORT" + | udp1 udp2 sendProc recvProc | - | address port udp1 send1 udp2 recv2 sendProc recvProc received | - address := #[255 255 255 255]. "broadcast" - port := 31259. [ + | address port send1 recv2 received sent | + address := #[255 255 255 255]. "broadcast" + port := 31259. udp1 := Socket newUDP. udp1 setOption: 'SO_REUSEADDR' value: 1. + self assert: 0 equals: udp1 socketError description: 'Error occured while setting SO_REUSEADDR'. + self assert: #(0 1) equals: (udp1 getOption: 'SO_REUSEADDR') description: 'SO_REUSEADDR couldn''t be set'. udp1 setOption: 'SO_REUSEPORT' value: 1. + self assert: 0 equals: udp1 socketError description: 'Error occured while setting SO_REUSEPORT'. + self assert: #(0 1) equals: (udp1 getOption: 'SO_REUSEPORT') description: 'SO_REUSEPORT couldn''t be set'. udp1 setPort: port. + self assert: port equals: udp1 localPort. udp1 setOption: 'SO_BROADCAST' value: 1. send1 := UUID new. udp2 := Socket newUDP. udp2 setOption: 'SO_REUSEADDR' value: 1. + self assert: 0 equals: udp2 socketError. udp2 setOption: 'SO_REUSEPORT' value: 1. + self assert: 0 equals: udp2 socketError. udp2 setPort: port. + self assert: port equals: udp2 localPort. udp2 setOption: 'SO_BROADCAST' value: 1. recv2 := UUID new. received := 0. recvProc := [ [received < 16] whileTrue:[ + received := received + (udp2 receiveDataInto: recv2 startingAt: received + 1) + "No need to yield here, because #receiveDataInto:startingAt: will either wait on the readSemaphore of the socket or signal an error." ] + ] newProcess. - received := received + (udp2 receiveDataInto: recv2 startingAt: received + 1). - ] - ] fork. sendProc := [ udp1 setPeer: address port: port. + sent := (udp1 sendSomeData: send1 startIndex: 1 count: 16 for: 1). + ] newProcess. + recvProc resume. + sendProc resume. - udp1 sendData: send1 count: 16. - ] fork. (Delay forMilliseconds: 200) wait. + self + assert: sendProc isTerminated description: 'sendProc hasn''t terminated till the deadline'; + assert: recvProc isTerminated description: 'recvProc hasn''t terminated till the deadline'; + assert: 16 equals: sent description: ('{1} bytes were sent instead of 16' format: { sent }); + assert: send1 equals: recv2 description: 'sent and received bytes differ' + ] ensure:[ - self should: [recvProc isTerminated]. - self should: [sendProc isTerminated]. - self should: [send1 = recv2]. - ] ensure:[ udp1 destroy. udp2 destroy. + sendProc ifNotNil: [ sendProc terminate ]. + recvProc ifNotNil: [ recvProc terminate ] ]. !

1 0

Jump to page: