Squeak-dev February 2023

squeak-dev@lists.squeakfoundation.org

28 participants
108 discussions

Re: [squeak-dev] simple squeak bug
by Ralph Boland 23 Feb '23

23 Feb '23

#findFeatures at least works correctly. That is it does not add an unintended leading space for the String 'AnExampleString' like #fromCamelCase does when the first letter is capitalized. I think I will just fix this bug privately. If anybody wants my code just email me. Thanks all for your time. Ralph > Hi Ralph -- > > This is Etoys-only protocol. It hasn't changed substantially since at least 2007. What do you > think the correct behavior should be for #fromCamelCase? An extra empty string in the set? > Please use #findFeatures instead --- even though it has the same answer for > 'AnExampleString', > which you apparently do not agree with. :-) > > Best, > Marcel > > Am 22.02.2023 08:46:16 schrieb Ralph Boland <rpboland(a)gmail.com>: > > I have found a simple bug in Squeak 6 (and 5.3) > > 'anExampleString' fromCamelCase returns: 'an example string' . > > But > > 'AnExampleString' fromCamelCase returns: ' an example string' . > > I assume the latter is wrong. > > How do I report this bug? > > Should I fix this bug and add the fix to the bug report > > or leave it for someone else to fix? > > My guess is I will need to fix this bug anyway because I will likely > > need it fixed before a fix can be released. > > Ralph Boland

2 1

WordNet is in need of attention
by tim Rowledge 22 Feb '23

22 Feb '23

I stumbled across the WordNet class that was intended to connect to the princeton wordnet database. First problem is that the URL changed since the class was written, and the second issue is that princeton don't appear to be able to provide the service very reliably due to funding problems. If anyone is attached to the facility it would be worth considering alternatives, like maybe some of the ones mentioned here - https://alternativeto.net/software/wordnet/ tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful Latin Phrases:- Utinam logica falsa tuam philosophiam totam suffodiant! = May faulty logic undermine your entire philosophy!

1 0

Squeak 6.0: Chronology-Core-mt.81.mcz
by commits＠source.squeak.org 22 Feb '23

22 Feb '23

Marcel Taeumel uploaded a new version of Chronology-Core to project Squeak 6.0: http://source.squeak.org/squeak60/Chronology-Core-mt.81.mcz ==================== Summary ==================== Name: Chronology-Core-mt.81 Author: mt Time: 22 February 2023, 11:27:44.882528 am UUID: e4a5b396-8917-7f46-a6c7-a6961ff588af Ancestors: Chronology-Core-ct.80 Fixes #highResClock usage by resetting the estimated #highResClockTicksPerMillisecond on system start-up. The preference #useHighResClockForTiming works now as well. =============== Diff against Chronology-Core-ct.80 =============== Item was changed: ----- Method: Time class>>startUp: (in category 'system startup') ----- startUp: resuming resuming ifTrue: [ + LastClockTick := 0. + HighResClockTicksPerMillisecond := 0 ]! - LastClockTick := 0 ]! Item was added: + ----- Method: Time class>>useHighResClockForTiming: (in category 'preferences') ----- + useHighResClockForTiming: booleanOrNil + + UseHighResClockForTiming := booleanOrNil.!

3 4

Questions about FullBlock closures
by Jaromir Matas 22 Feb '23

22 Feb '23

Hi, Two questions: 1) When I do: BlockClosure allInstances size "---> 66" I always get 66 instances of BlockClosure, all of them probably related to the UI (as far as I can tell). Q: Why do we have those closures as instances of BlockClosure and not FullBlockClosure? (just trying to understand) 2) When I do: (FullBlockClosure allInstances select: [:each | each outerContext isNil]) size "---> 0" I always get zero; this means there are no closures without the outer context set. However, the class comment says: FullBlockClosure: [...] outerContext can be either a Context or nil. Q: When would it make sense to use a FullBlockClosure with nilled outer context? No such situation in the system? I wonder: if we used a FullBlockClosure with outerContext == nil, how would then methods like Context >> home work? They assume 'closureOrNil outerContext' is not nil and would fail, if I understand correctly. Am I missing something/confused?? Many thanks for any help, best, Jaromir -- Jaromír Matas mail(a)jaromir.net

4 19

The Trunk: Morphic-mt.2091.mcz
by commits＠source.squeak.org 22 Feb '23

22 Feb '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2091.mcz ==================== Summary ==================== Name: Morphic-mt.2091 Author: mt Time: 22 February 2023, 4:45:02.96655 pm UUID: 2d5c67db-4fbf-1e47-9d70-7854a92de154 Ancestors: Morphic-mt.2090 Minor fixes in tree items. Well, #children does now actually work but is not used at the moment. Just like #isFilterMatch. Both are currently documentation-only... =============== Diff against Morphic-mt.2090 =============== Item was changed: ----- Method: IndentingListItemMorph>>children (in category 'accessing') ----- children ^ Array streamContents: [:stream | + self childrenDo: [:each | stream nextPut: each]]! - self childrenDo: [:each | stream add: each]]! Item was changed: ----- Method: IndentingListItemMorph>>collapse (in category 'container protocol') ----- collapse self isExpanded ifFalse: [^ self]. self isExpanded: false. firstChild ifNotNil: [:collapsingNode | | toDelete | toDelete := OrderedCollection new. collapsingNode withSiblingsDo: [:aNode | aNode recursiveAddTo: toDelete]. + container noteRemovalOfAll: toDelete. + firstChild := nil]. - container noteRemovalOfAll: toDelete]. self changed.! Item was changed: ----- Method: IndentingListItemMorph>>drawFilterOn:in: (in category 'drawing') ----- drawFilterOn: aCanvas in: drawBounds "Draw filter matches if any. Based on LazyListMorph >> #displayFilterOn:for:in:font:." | fillStyle fillHeight leading columnOffsets o cw | filterOffsets ifEmpty: [^ self]. fillHeight := font lineGridForMorphs. fillStyle := container filterColor isColor ifTrue: [SolidFillStyle color: container filterColor] ifFalse: [container filterColor]. fillStyle isGradientFill ifTrue: [ fillStyle origin: drawBounds topLeft. fillStyle direction: 0@ fillHeight]. leading := font lineGapSliceForMorphs. columnOffsets := (container columns isNil or: [container columns size = 1]) ifTrue: [ o := drawBounds left. icon ifNotNil: [o := o + icon width + 2 px]. { o }] ifFalse: [ (0 to: container columns size - 1) collect: [ :column | column = 0 ifTrue: [o := drawBounds left] ifFalse: [ cw := self widthOfColumn: column. column = 1 ifTrue: [ "Reduce width by indentation present in first column only" cw := cw - (drawBounds left - self left) + self hMargin]. column + 1 = self class iconColumnIndex ifTrue: [ icon ifNotNil: [o := o + icon width + 2 px]]. o := o + cw + 5 px]] ]. filterOffsets do: [:offset | | highlightRectangle | highlightRectangle := (((columnOffsets at: offset third) + offset first first) @ drawBounds top corner: ((columnOffsets at: offset third) + offset first last) @ (drawBounds top + fillHeight)). aCanvas + frameAndFillRoundRect: (highlightRectangle outsetBy: 1 px @ 0) - frameAndFillRoundRect: (highlightRectangle outsetBy: 1@0) radius: 3 px fillStyle: fillStyle borderWidth: 1 px borderColor: fillStyle asColor twiceDarker. aCanvas drawString: offset second in: (highlightRectangle origin + (0 @ leading) corner: highlightRectangle corner) font: font color: container filterTextColor].! Item was changed: ----- Method: IndentingListItemMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas | tRect sRect | self backgroundColor ifNotNil: [:c | aCanvas fillRectangle: self innerBounds color: c]. tRect := self toggleRectangle. self drawToggleOn: aCanvas in: tRect. sRect := bounds withLeft: tRect right + self hMargin. + sRect := sRect top: sRect top + self fontToUse lineGapSliceForMorphs. - sRect := sRect top: sRect top + sRect bottom - self fontToUse height // 2. (container columns isNil or: [(contents asString indexOf: Character tab) = 0]) ifTrue: [self drawLabelOn: aCanvas in: sRect] ifFalse: [self drawLabelInColumnsOn: aCanvas in: sRect]. self drawFilterOn: aCanvas in: (bounds withLeft: tRect right + self hMargin).!

1 0

The Trunk: Morphic-mt.2090.mcz
by commits＠source.squeak.org 22 Feb '23

22 Feb '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2090.mcz ==================== Summary ==================== Name: Morphic-mt.2090 Author: mt Time: 22 February 2023, 4:38:27.47455 pm UUID: bb357426-f611-f640-852b-988bd0cdb664 Ancestors: Morphic-mt.2089 Use correct code browser when dropping a class onto the world. Note that "SystemBrowser" is an AppRegistry like ToolSet. "Browser" is in this regard an implementation detail. =============== Diff against Morphic-mt.2089 =============== Item was changed: ----- Method: PasteUpMorph>>dropSourceCode:event: (in category 'event handling') ----- dropSourceCode: anObject event: evt (anObject isMethodReference and: [anObject isValid]) ifTrue: [^ self dropSourceCode: anObject compiledMethod event: evt]. (anObject isClassReference and: [anObject isValid]) ifTrue: [^ self dropSourceCode: anObject actualClass event: evt]. (anObject isBehavior or: [anObject isCompiledMethod]) ifTrue: [ | tool window | tool := anObject isBehavior + ifTrue: [SystemBrowser default new - ifTrue: [Browser new setClass: anObject] ifFalse: [CodeHolder new setClass: anObject methodClass selector: anObject selector]. window := ToolBuilder open: tool. window center: evt position. window bounds: (window bounds translatedToBeWithin: self bounds)]. anObject isString ifTrue: [anObject edit].!

1 0

The Trunk: Morphic-mt.2089.mcz
by commits＠source.squeak.org 22 Feb '23

22 Feb '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2089.mcz ==================== Summary ==================== Name: Morphic-mt.2089 Author: mt Time: 22 February 2023, 4:35:56.19355 pm UUID: 4c37a955-4f22-4e42-84a2-9c051554c713 Ancestors: Morphic-mt.2088 Fixes conversion from paragraph to text (incl. hard line-breaks), which had a bug for trailing-CR lines. =============== Diff against Morphic-mt.2088 =============== Item was changed: ----- Method: NewParagraph>>asTextWithLineBreaks (in category 'converting') ----- asTextWithLineBreaks "Answer a text that has all soft line breaks converted to hard line breaks. Add the current style's default font as a text attribute only if a) the style is not the default and b) the first character has no other font set. See Text >> #asTextMorph." | result | result := Text streamContents: [:s | lines do: [:textLine | + textLine last >= textLine first "ignore extra trailing-CR line" ifTrue: [ + | lastChar lastIndex break | + lastChar := text at: textLine last. + (break := CharacterSet separators includes: lastChar) + ifTrue: [lastIndex := textLine last - 1] + ifFalse: [lastIndex := textLine last]. + "1) Copy text line, which may be due to a soft line break" + s nextPutAll: (text copyFrom: textLine first to: lastIndex). + "2) Add a hard line break." + break ifTrue: [s nextPutAll: (String cr asText + addAllAttributes: (text attributesAt: textLine last); + yourself)]]]]. - | lastChar lastIndex break | - lastChar := text at: textLine last. - (break := CharacterSet separators includes: lastChar) - ifTrue: [lastIndex := textLine last - 1] - ifFalse: [lastIndex := textLine last]. - "1) Copy text line, which may be due to a soft line break" - s nextPutAll: (text copyFrom: textLine first to: lastIndex). - "2) Add a hard line break." - break ifTrue: [s nextPutAll: (String cr asText - addAllAttributes: (text attributesAt: textLine last); - yourself)]]]. ((text fontAt: 1 withDefault: nil) isNil and: [ textStyle defaultFamilyName ~= TextStyle default defaultFamilyName]) ifTrue: [result addAttribute: (TextFontReference toFont: textStyle defaultFont)]. ^ result!

1 0

The Trunk: Chronology-Core-mt.82.mcz
by commits＠source.squeak.org 22 Feb '23

22 Feb '23

Marcel Taeumel uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-mt.82.mcz ==================== Summary ==================== Name: Chronology-Core-mt.82 Author: mt Time: 22 February 2023, 11:07:44.140727 am UUID: 1ae56377-f602-c54e-a75d-1662dc4bfb1c Ancestors: Chronology-Core-dtl.81 Fixes high-res-clock preference and reset ticks-per-ms estimate on system startup. =============== Diff against Chronology-Core-dtl.81 =============== Item was changed: ----- Method: Time class>>startUp: (in category 'system startup') ----- startUp: resuming resuming ifTrue: [ + LastClockTick := 0. + HighResClockTicksPerMillisecond := 0 ]! - LastClockTick := 0 ]! Item was added: + ----- Method: Time class>>useHighResClockForTiming: (in category 'preferences') ----- + useHighResClockForTiming: booleanOrNil + + UseHighResClockForTiming := booleanOrNil.!

1 0

simple squeak bug
by Ralph Boland 22 Feb '23

22 Feb '23

I have found a simple bug in Squeak 6 (and 5.3) 'anExampleString' fromCamelCase returns: 'an example string' . But 'AnExampleString' fromCamelCase returns: ' an example string' . I assume the latter is wrong. How do I report this bug? Should I fix this bug and add the fix to the bug report or leave it for someone else to fix? My guess is I will need to fix this bug anyway because I will likely need it fixed before a fix can be released. Ralph Boland

2 1

The Inbox: Morphic-kfr.2089.mcz
by commits＠source.squeak.org 19 Feb '23

19 Feb '23

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-kfr.2089.mcz ==================== Summary ==================== Name: Morphic-kfr.2089 Author: kfr Time: 19 February 2023, 10:02:40.852523 pm UUID: 0c27ffac-ad3f-b043-8472-388ba16ba4d2 Ancestors: Morphic-mt.2088 Install editor if it is missing. Make event playback work =============== Diff against Morphic-mt.2088 =============== Item was changed: ----- Method: TextMorph>>mouseUp: (in category 'event handling') ----- mouseUp: evt + self handleInteraction: [self editor mouseUp: evt] fromEvent: evt! - self handleInteraction: [editor mouseUp: evt] fromEvent: evt!

1 0

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