Squeak-dev April 2016

squeak-dev@lists.squeakfoundation.org

39 participants
244 discussions

The Trunk: Tools-ul.682.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.682.mcz ==================== Summary ==================== Name: Tools-ul.682 Author: ul Time: 3 April 2016, 4:16:13.327179 am UUID: 8fe2129c-026c-4af5-a470-0c8aeeb5e9e7 Ancestors: Tools-mt.681 - removed hard dependency on ShoutCore =============== Diff against Tools-mt.681 =============== Item was changed: ----- Method: Browser>>messageHelpFor: (in category 'message list') ----- messageHelpFor: aSelector "Show the first n lines of the sources code of the message behind aSelector." | source formatted iconHelp | Preferences balloonHelpInMessageLists ifFalse: [^ nil]. source := (self selectedClassOrMetaClass compiledMethodAt: aSelector ifAbsent: [^ nil]) getSource. source lineCount > 5 ifTrue: [ | sourceLines | sourceLines := (source asString lines copyFrom: 1 to: 5) asOrderedCollection. sourceLines add: ' [...]'. source := sourceLines joinSeparatedBy: Character cr]. + + formatted := (Smalltalk classNamed: #SHTextStylerST80) + ifNil: [ source asText ] + ifNotNil: [ :SHTextStylerST80 | + SHTextStylerST80 new + classOrMetaClass: self selectedClassOrMetaClass; + styledTextFor: source asText ]. - formatted := SHTextStylerST80 new - classOrMetaClass: self selectedClassOrMetaClass; - styledTextFor: source asText. iconHelp := (self messageIconHelpFor: aSelector) ifNotEmpty: [:t | t , Character cr, Character cr]. ^ iconHelp asText append: formatted; yourself! Item was changed: ----- Method: Debugger>>messageHelpAt: (in category 'context stack (message list)') ----- messageHelpAt: anIndex "Show the first n lines of the sources code of the selected message." | method source formatted lineCount | Preferences balloonHelpInMessageLists ifFalse: [^ nil]. contextStack size < anIndex ifTrue: [^ nil]. method := (contextStack at: anIndex) method. source := method getSource. + formatted := (Smalltalk classNamed: #SHTextStylerST80) + ifNil: [ source asText ] + ifNotNil: [ :SHTextStylerST80 | + SHTextStylerST80 new + classOrMetaClass: method methodClass; + styledTextFor: source asText ]. - formatted := SHTextStylerST80 new - classOrMetaClass: method methodClass; - styledTextFor: source asText. lineCount := 0. source doWithIndex: [:char :index | char = Character cr ifTrue: [lineCount := lineCount + 1]. lineCount > 10 ifTrue: [ formatted := formatted copyFrom: 1 to: index-1. formatted append: ' [...]'. ^ formatted]]. ^ formatted! Item was changed: ----- Method: MessageSet>>messageHelpAt: (in category 'message list') ----- messageHelpAt: anIndex "Show the first n lines of the sources code of the selected message." | reference source formatted lineCount | Preferences balloonHelpInMessageLists ifFalse: [^ nil]. self messageList size < anIndex ifTrue: [^ nil]. reference := self messageList at: anIndex. reference isValid ifFalse: [^ nil]. source := reference compiledMethod getSource. + formatted := (Smalltalk classNamed: #SHTextStylerST80) + ifNil: [ source asText ] + ifNotNil: [ :SHTextStylerST80 | + SHTextStylerST80 new + classOrMetaClass: reference actualClass; + styledTextFor: source asText ]. - formatted := SHTextStylerST80 new - classOrMetaClass: reference actualClass; - styledTextFor: source asText. lineCount := 0. source doWithIndex: [:char :index | char = Character cr ifTrue: [lineCount := lineCount + 1]. lineCount > 10 ifTrue: [ formatted := formatted copyFrom: 1 to: index-1. formatted append: ' [...]'. ^ formatted]]. ^ formatted!

1 0

Daily Commit Log
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-April/009524.html Name: Kernel-mt.1009 Ancestors: Kernel-ul.1008 Recent CogVMs do not yield preempted processes. Fixes the behavior where "[ [] repeat] fork" could not be interrupted anymore via CMD+. and hence locked the image. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009525.html Name: KernelTests-ul.309 Ancestors: KernelTests-cmm.308 Extracted #testDecimalDigitLength from SmallIntegerTest >> #testPrintString, and added a few extra cases to it. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009526.html Name: Kernel-ul.1010 Ancestors: Kernel-mt.1009 Behavior changes: - when #flushCache is sent to a selector, then there's no need to send it to the corresponding method too. SmallInteger changes: - #decimalDigitLength shouldn't perform LargeInteger comparisons on 32-bit VMs - do fewer computations in #printOn:base:length:padded: - removed #destinationBuffer: which has no sender ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009527.html Name: Network-ul.176 Ancestors: Network-ul.175 Use primitiveMakeUUID when it's available in UUID >> #makeUUID. This should keep things snappier when UUIDPlugin works, and it should decrease the possibility of a UUID collision due to our poor seed generation in Random. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009528.html Name: Kernel-ul.1011 Ancestors: Kernel-ul.1010 Normalize the created LargePositiveInteger in Random >> #nextLargeInt:. =============================================

1 0

Re: [squeak-dev] The Trunk: Network-ul.176.mcz
by Tobias Pape 02 Apr '16

02 Apr '16

On 02.04.2016, at 19:32, commits(a)source.squeak.org wrote: > Levente Uzonyi uploaded a new version of Network to project The Trunk: > http://source.squeak.org/trunk/Network-ul.176.mcz > > ==================== Summary ==================== > > Name: Network-ul.176 > Author: ul > Time: 2 April 2016, 9:06:31.957661 pm > UUID: 1b580a49-2663-4d5d-a659-606ba1c698de > Ancestors: Network-ul.175 > > Use primitiveMakeUUID when it's available in UUID >> #makeUUID. This should keep things snappier when UUIDPlugin works, and it should decrease the possibility of a UUID collision due to our poor seed generation in Random. > I thought the non-primitive version was snappy enough already? libuuid has been a constant nag for me when doing CI stuff... Best -Tobias > =============== Diff against Network-ul.175 =============== > > Item was changed:

2 1

The Trunk: Network-ul.176.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ul.176.mcz ==================== Summary ==================== Name: Network-ul.176 Author: ul Time: 2 April 2016, 9:06:31.957661 pm UUID: 1b580a49-2663-4d5d-a659-606ba1c698de Ancestors: Network-ul.175 Use primitiveMakeUUID when it's available in UUID >> #makeUUID. This should keep things snappier when UUIDPlugin works, and it should decrease the possibility of a UUID collision due to our poor seed generation in Random. =============== Diff against Network-ul.175 =============== Item was changed: ----- Method: UUID>>makeUUID (in category 'as yet unclassified') ----- makeUUID + + self primMakeUUID ifNil: [ + UUIDGenerator default generateBytes: self forVersion: 4 ]! - UUIDGenerator default generateBytes: self forVersion: 4.!

1 0

The Trunk: Kernel-ul.1011.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1011.mcz ==================== Summary ==================== Name: Kernel-ul.1011 Author: ul Time: 2 April 2016, 9:22:40.391347 pm UUID: 924b2c29-5e11-4abb-aeb5-355380a4e56a Ancestors: Kernel-ul.1010 Normalize the created LargePositiveInteger in Random >> #nextLargeInt:. =============== Diff against Kernel-ul.1010 =============== Item was changed: ----- Method: Random>>nextLargeInt: (in category 'accessing') ----- nextLargeInt: anInteger "Answer a random integer value from the interval [1, anInteger]. This method works for arbitrarily large integers." | byteCount bigRandom result firstDigit | byteCount := anInteger digitLength + 4. "Extend the space with at least 32 bits for a fairer distribution." bigRandom := LargePositiveInteger new: byteCount. self nextBytes: byteCount into: bigRandom startingAt: 1. + bigRandom := bigRandom normalize. "Make sure that there are no leading zero bytes." result := anInteger * bigRandom bitShift: -8 * byteCount. "Avoid using LargeInteger arithmetic for +1 in most cases." result isLarge ifFalse: [ ^result + 1 ]. (firstDigit := result digitAt: 1) = 255 ifTrue: [ ^result + 1 ]. result digitAt: 1 put: firstDigit + 1. ^result !

1 0

The Trunk: Kernel-ul.1010.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1010.mcz ==================== Summary ==================== Name: Kernel-ul.1010 Author: ul Time: 2 April 2016, 8:59:33.195843 pm UUID: b583a3a1-3df9-468c-8c26-2388bd519d52 Ancestors: Kernel-mt.1009 Behavior changes: - when #flushCache is sent to a selector, then there's no need to send it to the corresponding method too. SmallInteger changes: - #decimalDigitLength shouldn't perform LargeInteger comparisons on 32-bit VMs - do fewer computations in #printOn:base:length:padded: - removed #destinationBuffer: which has no sender =============== Diff against Kernel-mt.1009 =============== Item was changed: ----- Method: Behavior>>basicAddSelector:withMethod: (in category 'adding/removing methods') ----- basicAddSelector: selector withMethod: compiledMethod "Add the message selector with the corresponding compiled method to the receiver's method dictionary. Do this without sending system change notifications" - | oldMethodOrNil | - oldMethodOrNil := self lookupSelector: selector. self methodDict at: selector put: compiledMethod. + compiledMethod + methodClass: self; + selector: selector. - compiledMethod methodClass: self. - compiledMethod selector: selector. + "Now flush Squeak's method cache for this selector" + selector flushCache! - "Now flush Squeak's method cache, either by selector or by method" - oldMethodOrNil == nil ifFalse: [oldMethodOrNil flushCache]. - selector flushCache.! Item was changed: ----- Method: Behavior>>basicRemoveSelector: (in category 'adding/removing methods') ----- basicRemoveSelector: selector "Assuming that the argument, selector (a Symbol), is a message selector in my method dictionary, remove it and its method. Returns the old method if found, nil otherwise." | oldMethod | oldMethod := self methodDict at: selector ifAbsent: [^ nil]. self methodDict removeKey: selector. + "Now flush Squeak's method cache for this selector" - "Now flush Squeak's method cache, either by selector or by method" - oldMethod flushCache. selector flushCache. ^oldMethod! Item was changed: ----- Method: SmallInteger>>decimalDigitLength (in category 'printing') ----- decimalDigitLength "Answer the number of digits printed out in base 10. + Note that this only works for positive SmallIntegers up to 63-bits." - Note that this only works for positive SmallIntegers up to 64-bits." + self <= 99999999 "8" ifTrue: [ + self <= 9999 "4" ifTrue: [ + self <= 99 "2" ifTrue: [ + self <= 9 "1" ifTrue: [ ^1]. + ^2 ]. + self <= 999 "3" ifTrue: [ ^3]. + ^4 ]. + self <= 999999 "6" ifTrue: [ + self <= 99999 "5" ifTrue: [ ^5 ]. - self < 10000 ifTrue: [ - self < 100 ifTrue: [ - self < 10 ifTrue: [ ^1]. - ^2 ]. - self < 1000 ifTrue: [ ^3 ]. - ^4 ]. - self < 100000000 ifTrue: [ - self < 1000000 ifTrue: [ - self < 100000 ifTrue: [ ^5]. ^6 ]. + self <= 9999999 "7" ifTrue: [ ^7 ]. - self < 10000000 ifTrue: [ ^7 ]. ^8 ]. + self <= 1073741823 "10" ifTrue: [ "This is here only to avoid LargeInteger comparisons in 32-bit VMs" + self <= 999999999 "9" ifTrue: [ ^9 ]. + ^10 ]. + self <= 999999999999999 "15" ifTrue: [ + self <= 9999999999999 "13" ifTrue: [ + self <= 99999999999 "11" ifTrue: [ + self <= 9999999999 "10" ifTrue: [ ^10 ]. + ^11 ]. + self <= 999999999999 "12" ifTrue: [ ^12 ]. + ^13 ]. + self <= 99999999999999 "14" ifTrue: [ ^14 ]. + ^15 ]. + self <= 99999999999999999 "17" ifTrue: [ + self <= 9999999999999999 "16" ifTrue: [ ^16 ]. + ^17 ]. + self <= 999999999999999999 "18" ifTrue: [ ^18 ]. + ^19 "(1 << 60 - 1) asString size"! - self < 1000000000000 ifTrue: [ - self < 10000000000 ifTrue: [ - self < 1000000000 ifTrue: [ ^9 ]. - ^10 ]. - self < 100000000000 ifTrue: [ ^11 ]. - ^12 ]. - self < 10000000000000000 ifTrue: [ - self < 100000000000000 ifTrue: [ - self < 10000000000000 ifTrue: [ ^13 ]. - ^14 ]. - self < 1000000000000000 ifTrue: [ ^15 ]. - ^16 ]. - self < 1000000000000000000 ifTrue: [ - self < 100000000000000000 ifTrue: [ ^17 ]. - ^18 ]. - self < 10000000000000000000 ifTrue: [ ^19 ]. - ^20! Item was removed: - ----- Method: SmallInteger>>destinationBuffer: (in category 'printing') ----- - destinationBuffer:digitLength - ^ LargePositiveInteger new: digitLength.! Item was changed: ----- Method: SmallInteger>>printOn:base:length:padded: (in category 'printing') ----- printOn: stream base: base length: minimumLength padded: padWithZeroes | n numberOfDigits totalLength divisor | self < 0 ifTrue: [ n := self negated. totalLength := 1 ] ifFalse: [ n := self. totalLength := 0 ]. numberOfDigits := n numberOfDigitsInBase: base. totalLength := totalLength + numberOfDigits. padWithZeroes ifFalse: [ [ totalLength < minimumLength ] whileTrue: [ stream space. totalLength := totalLength + 1 ] ]. self < 0 ifTrue: [ stream nextPut: $- ]. padWithZeroes ifTrue: [ [ totalLength < minimumLength ] whileTrue: [ stream nextPut: $0. totalLength := totalLength + 1 ] ]. + numberOfDigits > 1 ifTrue: [ + divisor := base = 10 + ifTrue: [ #(1 10 100 1000 10000 100000 1000000 10000000 100000000 1000000000 10000000000 100000000000 1000000000000 10000000000000 100000000000000 1000000000000000 10000000000000000 100000000000000000 1000000000000000000) at: numberOfDigits ] + ifFalse: [ base raisedToInteger: numberOfDigits - 1 ]. + [ divisor > 1 ] whileTrue: [ + | digit | + digit := n // divisor. + stream nextPut: ('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' at: digit + 1). + n := n - (digit * divisor). + divisor := divisor // base ] ]. + ^stream nextPut: ('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' at: n + 1)! - divisor := base = 10 - ifTrue: [ #(1 10 100 1000 10000 100000 1000000 10000000 100000000 1000000000 10000000000 100000000000 1000000000000 10000000000000 100000000000000 1000000000000000 10000000000000000 100000000000000000 1000000000000000000) at: numberOfDigits ] - ifFalse: [ base raisedToInteger: numberOfDigits - 1 ]. - [ divisor > 0 ] whileTrue: [ - | digit | - digit := n // divisor. - stream nextPut: ('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' at: digit + 1). - n := n - (digit * divisor). - divisor := divisor // base ]!

1 0

The Trunk: KernelTests-ul.309.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ul.309.mcz ==================== Summary ==================== Name: KernelTests-ul.309 Author: ul Time: 2 April 2016, 9:23:24.449569 pm UUID: c82a8276-ad4f-4219-9205-826357bcf0b7 Ancestors: KernelTests-cmm.308 Extracted #testDecimalDigitLength from SmallIntegerTest >> #testPrintString, and added a few extra cases to it. =============== Diff against KernelTests-cmm.308 =============== Item was added: + ----- Method: SmallIntegerTest>>testDecimalDigitLength (in category 'testing - printing') ----- + testDecimalDigitLength + + | x length random | + "Test edge cases" + x := 1. + length := 1. + [ x <= SmallInteger maxVal ] whileTrue: [ + self + assert: length equals: x decimalDigitLength; + assert: (length - 1 max: 1) equals: (x - 1) decimalDigitLength. + x := x * 10. + length := length + 1 ]. + "A few values by hand" + #( + 0 1 + 4 1 + 12 2 + 123 3 + 1234 4 + 56789 5 + 657483 6 + 6571483 7 + 65174383 8 + 625744831 9 + 1000001111 10 + ), { + SmallInteger maxVal. Smalltalk wordSize = 8 ifTrue: [ 19 ] ifFalse: [ 10 ] + } groupsDo: [ :input :expectedOutput | + self assert: expectedOutput equals: input decimalDigitLength ]. + "Pseudorandom tests." + random := Random seed: 36rSqueak. + 10000 timesRepeat: [ + x := SmallInteger maxVal atRandom: random. + self assert: x asString size equals: x decimalDigitLength ]! Item was changed: ----- Method: SmallIntegerTest>>testPrintString (in category 'testing - printing') ----- testPrintString + self assert: 1 printString = '1'. self assert: -1 printString = '-1'. self assert: SmallInteger minVal printString = (Smalltalk wordSize = 8 ifTrue: [ '-1152921504606846976'] ifFalse: ['-1073741824']). self assert: SmallInteger maxVal printString = (Smalltalk wordSize = 8 ifTrue: [ '1152921504606846975'] ifFalse: ['1073741823']). self assert: 12345 printString = '12345'. + self assert: -54321 printString = '-54321'! - self assert: -54321 printString = '-54321'. - - self assert: 0 decimalDigitLength = 1. - self assert: 4 decimalDigitLength = 1. - self assert: 12 decimalDigitLength = 2. - self assert: 123 decimalDigitLength = 3. - self assert: 1234 decimalDigitLength = 4. - self assert: 56789 decimalDigitLength = 5. - self assert: 657483 decimalDigitLength = 6. - self assert: 6571483 decimalDigitLength = 7. - self assert: 65174383 decimalDigitLength = 8. - self assert: 625744831 decimalDigitLength = 9. - self assert: 1000001111 decimalDigitLength = 10. - self assert: SmallInteger maxVal decimalDigitLength = (Smalltalk wordSize = 8 ifTrue: [19] ifFalse: [10]).!

1 0

The Trunk: Kernel-mt.1009.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1009.mcz ==================== Summary ==================== Name: Kernel-mt.1009 Author: mt Time: 2 April 2016, 12:23:20.21041 pm UUID: bd1b45d5-cb4d-41b0-890b-c8f70de70b1c Ancestors: Kernel-ul.1008 Recent CogVMs do not yield preempted processes. Fixes the behavior where "[ [] repeat] fork" could not be interrupted anymore via CMD+. and hence locked the image. =============== Diff against Kernel-ul.1008 =============== Item was changed: ----- Method: ProcessorScheduler>>preemptedProcess (in category 'accessing') ----- preemptedProcess "Return the process that the currently active process just preempted." + + self activeProcess priority to: 1 by: -1 do: [:priority | + (quiescentProcessLists at: priority) ifNotEmpty: [:list | + ^ Smalltalk processPreemptionYields + ifTrue: [list last] + ifFalse: [list first]]]. + ^ nil + - | list | - activeProcess priority to: 1 by: -1 do:[:priority| - list := quiescentProcessLists at: priority. - list isEmpty ifFalse:[^list last]. - ]. - ^nil - "Processor preemptedProcess"!

1 0

Monticello working copy list got really slow..
by Chris Muller 02 Apr '16

02 Apr '16

Open MC browser. Focus on package list. Press and hold down arrow. It cannot keep up with even a moderate keyboard repeat. But in Squeak5.0, it can, easily. Something broke or degraded?

5 6

Daily Commit Log
by commits＠source.squeak.org 01 Apr '16

01 Apr '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-April/009520.html Name: Monticello-mt.629 Ancestors: Monticello-mt.628 Due to popular request, roll-back of latest change about showing the disk utilization of directory repositories in the working copy browser. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009521.html Name: Morphic-mt.1096 Ancestors: Morphic-mt.1095 Only show a shadow for the new-style balloon morphs if the balloon color is not translucent (due to simplified drawing code for shadow). You can change the color of balloon morphs via BalloonMorph >> #balloonColor:. Note that #menuAppearance3d still controls shadows in many places such as windows, menus, and user dialog morphs. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009522.html Name: Morphic-mt.1097 Ancestors: Morphic-mt.1096 Restores the possiblitiy for each morph to have its own balloon color in new-style balloon morphs. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009523.html Name: Morphic-mt.1098 Ancestors: Morphic-mt.1097 Adds possibility to specify pop-up position hint for balloon morphs. Use it to show some help programmatically like this: someWidget showBalloon: 'Now click here.' at: someWidget topCenter. =============================================

1 0

Jump to page: