Squeak-dev November 2018

squeak-dev@lists.squeakfoundation.org

48 participants
94 discussions

The Trunk: Chronology-Tests-cmm.11.mcz
by commits＠source.squeak.org 18 Nov '18

18 Nov '18

Chris Muller uploaded a new version of Chronology-Tests to project The Trunk: http://source.squeak.org/trunk/Chronology-Tests-cmm.11.mcz ==================== Summary ==================== Name: Chronology-Tests-cmm.11 Author: cmm Time: 17 November 2018, 10:40:40.86556 pm UUID: 13d8a1e2-6c40-453d-ae49-ea6326bac912 Ancestors: Chronology-Tests-dtl.10 New test to expose critical bug in the proposed UTCDateAndTime. =============== Diff against Chronology-Tests-dtl.10 =============== Item was added: + ----- Method: DateAndTimeTest>>testRestoreFromChronologyTicksAndOffset (in category 'Tests') ----- + testRestoreFromChronologyTicksAndOffset + "Legacy serialized instances are made up of 3 SmallIntegers knowns as 'ticks' plus an 'offset' Duration. Ensure a serialized DateAndTime can be correctly restored from these values." + | dt newDt | + dt := '2018-11-17T14:19:42.887676-06:00' asDateAndTime. + newDt := DateAndTime basicNew ticks: dt ticks offset: dt offset. + self assert: dt = newDt!

2 1

Interesting formatting problem on SeasideDoc
by gettimothy 18 Nov '18

18 Nov '18

Good morning. Go here: http://menmachinesmaterials.com/SeasideDoc on left menu, click on HelpTopics. Select 'Terse Guide' for didactic purposes, scroll down to "Assignment" Notice how the explanatory quoted text is right up next to the example. For example, in my texinfo page x := 1.2 hash looks like this output 1. x := 1.2 hash. "hash value for object" while on the webpage it looks like this: output 2. x := 1.2 hash."hash value for object" The reason is that within the TerseGiudeHelp > pages > assignment you can see that tabs and spaces are co mingled and the formatting is not aligned. So, to remove that "bad" formatting, I used the following code: html paragraph with:[ html preformatted style:'white-space:pre-wrap; word-break: break-word;'; with: (ht contents copyWithRegex:' ' matchesReplacedWith:' ' withBlanksCondensed )]]] where 'ht contents' is the data stored in TerseGuideHelp > pages > assignment method. What I would like to do is re-insert some space between the example and the quoted text explanations so that output 2 looks like output 1. Maybe there is a way to do this cleanly within the String formatting methods? I am messing around with Regex like so (using Date examples here)... 'y := Date nameOfDay: 1."weekday name (#Monday,...)"' copyWithRegex: '("([^"]|"")*")' matchesReplacedWith:' "the original string shifted over like this"' The problem is replacing "the original string shifted over like this" with the contents of the original quotes string of "weekday name (#Monday, ...)' Any suggestions greatly appreciated.

1 0

The Inbox: System-cmm.1044.mcz
by commits＠source.squeak.org 17 Nov '18

17 Nov '18

Chris Muller uploaded a new version of System to project The Inbox: http://source.squeak.org/inbox/System-cmm.1044.mcz ==================== Summary ==================== Name: System-cmm.1044 Author: cmm Time: 16 November 2018, 5:53:02.580292 pm UUID: 3b9fe1d6-6eed-468f-91d7-e26350c972f6 Ancestors: System-pre.1043 Utility methods for determining how much RAM is used, and how much is available to the running image. =============== Diff against System-pre.1043 =============== Item was added: + ----- Method: SmalltalkImage>>bitsPerWord (in category 'system attributes') ----- + bitsPerWord + ^ self wordSize * 8! Item was added: + ----- Method: SmalltalkImage>>defaultMaxMemory (in category 'memory space') ----- + defaultMaxMemory + "Images can be up to 1GB (512MB on Windows) when the -memory parameter is not specified." + ^ self isRunningSpur + ifTrue: + [ self is64Bit + ifTrue: [ 15000000000 ] + ifFalse: [ 3800000000 ] ] + ifFalse: + [ Smalltalk platformName = 'Win32' + ifTrue: [ 500000000 ] + ifFalse: [ 1000000000 ] ]! Item was added: + ----- Method: SmalltalkImage>>is32Bit (in category 'system attributes') ----- + is32Bit + ^self bitsPerWord = 32! Item was added: + ----- Method: SmalltalkImage>>is64Bit (in category 'system attributes') ----- + is64Bit + ^self bitsPerWord = 64! Item was added: + ----- Method: SmalltalkImage>>maxMemory (in category 'memory space') ----- + maxMemory + "If the special argument to the vm, -memory, was provided, use the number following it, otherwise the default maximum available based on the image / vm type." + | foundMemoryArg | + foundMemoryArg := false. + self optionsDo: + [ : each | + (#('-memory' '-mmap') includes: each) + ifTrue: [ foundMemoryArg := true ] + ifFalse: + [ foundMemoryArg ifTrue: + [ | arg | + arg := each. + (arg isEmptyOrNil or: [ arg size < 2 ]) ifFalse: + [ | requestedMemory | + requestedMemory := (arg + copyFrom: 1 + to: arg size - 1) asNumber. + requestedMemory > 0 ifTrue: + [ arg last = $k + ifTrue: [ ^ 1000 * requestedMemory min: self defaultMaxMemory ] + ifFalse: [ arg last = $m ifTrue: [ ^ 1000000 * requestedMemory min: self defaultMaxMemory ] ] ] ] ] ] ]. + ^ self defaultMaxMemory! Item was added: + ----- Method: SmalltalkImage>>memoryAvailable (in category 'memory space') ----- + memoryAvailable + "Answer the remaining memory available accessible by this image." + ^ self maxMemory - self memoryUsed! Item was added: + ----- Method: SmalltalkImage>>memoryUsed (in category 'memory space') ----- + memoryUsed + ^ self vmParameterAt: 3!

1 0

The Inbox: Collections-cbc.812.mcz
by commits＠source.squeak.org 16 Nov '18

16 Nov '18

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-cbc.812.mcz ==================== Summary ==================== Name: Collections-cbc.812 Author: cbc Time: 15 November 2018, 10:06:05.244237 pm UUID: 1977358c-ec82-5442-8f1d-027d4bc817a3 Ancestors: Collections-eem.811 Make intervals that are #= have the same hash. Also, slight adjustment to #=. =============== Diff against Collections-eem.811 =============== Item was changed: ----- Method: Interval>>= (in category 'comparing') ----- = anObject - ^ self == anObject + or: [anObject isInterval + ifFalse: [super = anObject] + ifTrue: + [start = anObject first + and: [step = anObject increment + and: [self last = anObject last]]]]! - ifTrue: [true] - ifFalse: [anObject isInterval - ifTrue: [start = anObject first - and: [step = anObject increment - and: [self last = anObject last]]] - ifFalse: [super = anObject]]! Item was changed: ----- Method: Interval>>hash (in category 'comparing') ----- hash "Hash is reimplemented because = is implemented." ^(((start hash bitShift: 2) + bitOr: self last hash) - bitOr: stop hash) bitShift: 1) bitOr: self size!

1 0

The Trunk: CollectionsTests-cbc.296.mcz
by commits＠source.squeak.org 16 Nov '18

16 Nov '18

Chris Cunningham uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-cbc.296.mcz ==================== Summary ==================== Name: CollectionsTests-cbc.296 Author: cbc Time: 28 October 2018, 5:12:30.875512 pm UUID: 12a1d6bf-85c7-8d40-aa1c-022556c1cb18 Ancestors: CollectionsTests-topa.295 Test for #hash and #= bugs. In anticipation of fixing these. =============== Diff against CollectionsTests-topa.295 =============== Item was added: + ----- Method: IntervalTest>>testHashBug3380 (in category 'tests') ----- + testHashBug3380 + "Array and Interval equate, but their hashes didn't. Test that this is fixed. + It is about mantis bug http://bugs.squeak.org/view.php?id=6455" + | interval array | + interval := (1 to: 3). + array:= #(1 2 3). + self assert: interval equals: array. + self assert: interval hash equals: array hash.! Item was added: + ----- Method: IntervalTest>>testHashEqualIfIntervalEqual (in category 'tests') ----- + testHashEqualIfIntervalEqual + | interval1 interval2 | + interval1 := 0 to: 1. + interval2 := 0 to: 5/3. "Taken from an actual issue in an image" + self assert: interval1 equals: interval2. + self assert: interval1 hash equals: interval2 hash.!

2 1

Squeak and Tesseract
by Edwin Ancaer 16 Nov '18

16 Nov '18

Hello list, As I'm looking at a way to automate the search of documents in my humble administration, I read some articles about OCR. I came along an article about using Python with Tesseract, to transform an scan of a document into text, that is searchable. My question now is if I can do something similar with Squeak. To my inexperienced eye, it seems like I should use FFI to call the functions in the Tesseract API, but this API is in C++, and I don't know if it is possible to use FFI to call C++ functions? Or should I forget the API and use OSProcess to start the tesseract program? Could anyone point me in the right direction, or just tell if the whole idea is insane? But if it can be done in Python.... Thanks in advance, Edwin Ancaer.

7 11

The Trunk: MorphicTests-mt.48.mcz
by commits＠source.squeak.org 15 Nov '18

15 Nov '18

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.48.mcz ==================== Summary ==================== Name: MorphicTests-mt.48 Author: mt Time: 15 November 2018, 12:16:20.966757 pm UUID: 92a6d44a-1cd6-974a-be2f-1366099a180f Ancestors: MorphicTests-mt.47 Adds a test for morph border initialization =============== Diff against MorphicTests-mt.47 =============== Item was added: + ----- Method: BorderedMorphTests>>test05Convenience (in category 'tests') ----- + test05Convenience + "Check whether a the convenience messages #borderWidth: and #borderColor: work." + + | sut | + sut := Morph new. + sut + borderWidth: 5; + borderColor: Color yellow. + + self + assert: 5 equals: sut borderWidth; + assert: Color yellow equals: sut borderColor. + + sut := Morph new. + sut + borderColor: Color yellow; + borderWidth: 5. + + self + assert: Color yellow equals: sut borderColor; + assert: 5 equals: sut borderWidth.!

1 0

The Trunk: Morphic-mt.1467.mcz
by commits＠source.squeak.org 15 Nov '18

15 Nov '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1467.mcz ==================== Summary ==================== Name: Morphic-mt.1467 Author: mt Time: 15 November 2018, 12:14:27.981757 pm UUID: fd0b1aac-d448-8d47-ba49-dc659c099ee6 Ancestors: Morphic-pre.1466 Fixes small bug in Morph border initialization. =============== Diff against Morphic-pre.1466 =============== Item was changed: ----- Method: Morph>>borderColor: (in category 'accessing') ----- borderColor: aColorOrSymbolOrNil self flag: #compatibility. "mt: For old code. Should be removed in the future." aColorOrSymbolOrNil ifNil: [self borderStyle: nil] ifNotNil: [:colorOrSymbol | colorOrSymbol isSymbol ifTrue: [ ^ self borderStyle: ((self borderStyleForSymbol: colorOrSymbol) width: self borderStyle width; baseColor: self borderStyle baseColor; trackColorFrom: self; yourself)]]. + "Ensure a style object that can remember width and color." + self borderStyle style = #none + ifTrue: [self borderStyle: BorderStyle simple]. + "Set the color of the current border style." self borderStyle baseColor: aColorOrSymbolOrNil; trackColorFrom: self. self changed.!

1 0

OT
by Tobias Pape 15 Nov '18

15 Nov '18

I am the mighty jugulator. Or not. Actually, I am a Test mail. Please don't mind my appearance. -t

1 0

[ANN] Camp Smalltalk 2019 in Charlotte, NC
by Mariano Martinez Peck 14 Nov '18

14 Nov '18

Greetings Fellow Smalltalkers, We would like to invite you to Camp Smalltalk, March 29th – March 31st 2019 in Charlotte, North Carolina. Event details and registration info are available at the following link: Camp Smalltalk Charlotte 2019 <https://www.eventbrite.com/e/camp-smalltalk-charlotte-2019-tickets-52380940…> Hope to see you there! -- Mariano

1 0

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