Packages April 2020

packages@lists.squeakfoundation.org

1 participants
67 discussions

The Trunk: Morphic-mt.1644.mcz
by commits＠source.squeak.org 15 Apr '20

15 Apr '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1644.mcz ==================== Summary ==================== Name: Morphic-mt.1644 Author: mt Time: 15 April 2020, 3:08:24.191047 pm UUID: 230c1e8d-5cad-1d44-a3db-29bc3887e602 Ancestors: Morphic-mt.1643 Revising the latest fix in TableLayout. Thanks to Levente for pointing this out. There is no benefit in renaming "arrangement" into "cells". =============== Diff against Morphic-mt.1643 =============== Item was changed: ----- Method: TableLayout>>computeExtraSpacing:in:horizontal:target: (in category 'layout') ----- computeExtraSpacing: arrangement in: newBounds horizontal: aBool target: aMorph "Compute the required extra spacing for laying out the cells" "match newBounds extent with arrangement's orientation" | extent extra centering n extraPerCell cell last hFill vFill max amount allow | extent := newBounds extent. aBool ifFalse: [extent := extent transposed]. "figure out if we have any horizontal or vertical space fillers" hFill := vFill := false. max := 0 @ 0. arrangement do: [:c | max := (max x max: c cellSize x) @ (max y + c cellSize y). max := max max: c cellSize. hFill := hFill or: [c hSpaceFill]. vFill := vFill or: [c vSpaceFill]]. "Take client's shrink wrap constraints into account. Note: these are only honored when there are no #spaceFill children, or when #rubberBandCells is set." allow := properties rubberBandCells not. aMorph hResizing == #shrinkWrap ifTrue: [aBool ifTrue: [allow & hFill ifFalse: [extent := max x @ (max y max: extent y)]] ifFalse: [allow & vFill ifFalse: [extent := (max x max: extent x) @ max y]]]. aMorph vResizing == #shrinkWrap ifTrue: [aBool ifFalse: [allow & hFill ifFalse: [extent := max x @ (max y max: extent y)]] ifTrue: [allow & vFill ifFalse: [extent := (max x max: extent x) @ max y]]]. "Now compute the extra v space" extra := extent y - (arrangement inject: 0 into: [:sum :c | sum + c cellSize y]). extra > 0 ifTrue: ["Check if we have any #spaceFillers" vFill ifTrue: ["use only #spaceFillers" n := arrangement inject: 0 into: [:sum :c | c vSpaceFill ifTrue: [sum + 1] ifFalse: [sum]]. n isZero ifFalse: [extraPerCell := extra asFloat / n asFloat]. extra := last := 0. arrangement do: [:c | c vSpaceFill ifTrue: [extra := (last := extra) + extraPerCell. amount := 0 @ (extra truncated - last truncated). c do: [:cc | cc cellSize: cc cellSize + amount]]]] ifFalse: ["no #spaceFillers; distribute regularly" centering := properties wrapCentering. "centering == #topLeft ifTrue:[]." "add all extra space to the last cell; e.g., do nothing" centering == #bottomRight ifTrue: ["add all extra space to the first cell" + arrangement ifNotEmpty: [arrangement first addExtraSpace: 0 @ extra]]. - arrangement ifNotEmpty: [:cells | cells first addExtraSpace: 0 @ extra]]. centering == #center ifTrue: ["add 1/2 extra space to the first and last cell" + arrangement ifNotEmpty: [arrangement first addExtraSpace: 0 @ (extra // 2)]]. - arrangement ifNotEmpty: [:cells | cells first addExtraSpace: 0 @ (extra // 2)]]. centering == #justified ifTrue: ["add extra space equally distributed to each cell" n := arrangement size - 1 max: 1. extraPerCell := extra asFloat / n asFloat. extra := last := 0. arrangement do: [:c | c addExtraSpace: 0 @ (extra truncated - last truncated). extra := (last := extra) + extraPerCell]]]]. "Now compute the extra space for the primary direction" centering := properties listCentering. 1 to: arrangement size do: [:i | cell := arrangement at: i. extra := extent x - cell cellSize x. extra > 0 ifTrue: ["Check if we have any #spaceFillers" cell := cell nextCell. cell hSpaceFill ifTrue: ["use only #spaceFillers" n := cell inject: 0 into: [:sum :c | c hSpaceFill ifTrue: [sum + c target spaceFillWeight] ifFalse: [sum]]. n isZero ifFalse: [extraPerCell := extra asFloat / n asFloat]. extra := last := 0. cell do: [:c | c hSpaceFill ifTrue: [extra := (last := extra) + (extraPerCell * c target spaceFillWeight). amount := extra truncated - last truncated. c cellSize: c cellSize + (amount @ 0)]]] ifFalse: ["no #spaceFiller; distribute regularly" "centering == #topLeft ifTrue:[]" "add all extra space to the last cell; e.g., do nothing" centering == #bottomRight ifTrue: ["add all extra space to the first cell" cell addExtraSpace: extra @ 0]. centering == #center ifTrue: ["add 1/2 extra space to the first and last cell" cell addExtraSpace: (extra // 2) @ 0]. centering == #justified ifTrue: ["add extra space equally distributed to each cell" n := cell size - 1 max: 1. extraPerCell := extra asFloat / n asFloat. extra := last := 0. cell do: [:c | c addExtraSpace: (extra truncated - last truncated) @ 0. extra := (last := extra) + extraPerCell]]]]]!

1 0

The Trunk: System-mt.1151.mcz
by commits＠source.squeak.org 15 Apr '20

15 Apr '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1151.mcz ==================== Summary ==================== Name: System-mt.1151 Author: mt Time: 15 April 2020, 11:08:14.421692 am UUID: ed2417d1-2e26-7048-90a0-6ecadf2ade6f Ancestors: System-mt.1150 Fix typo and choose a more friendly color for text highlights in trees in Squeak's standard UI theme. For example, those highlights are used for indicating monitors on nodes in the ObjectExplorer's tree. I hope you agree that that color should not indicate an erroneous state. So red felt kind of harsh. =============== Diff against System-mt.1150 =============== Item was changed: ----- Method: SqueakTheme class>>addScrollables: (in category 'instance creation') ----- addScrollables: theme "self create apply" "Sliders" theme set: #borderColor for: #Slider to: Color gray; set: #borderWidth for: #Slider to: 1; set: #color for: #Slider to: Color lightGray; set: #thumbBorderColor for: #Slider to: [Color gray: 0.6]; set: #thumbBorderWidth for: #Slider to: 0; set: #thumbColor for: #Slider to: Color veryVeryLightGray; set: #thumbShadowModifier for: #Slider to: [ [:c | c alpha: 0.7] ]. "Scroll bars" theme set: #thumbBorderWidth for: #ScrollBar to: 1; set: #thumbColorModifier for: #ScrollBar to: [ [:c | c] ]; set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | c darker alpha: 0.35] ]; set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.3] ]. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme set: #borderColor for: #ScrollPane to: (Color gray: 0.6); set: #borderWidth for: #ScrollPane to: 1; set: #borderStyle for: #ScrollPane to: BorderStyle simple; set: #color for: #ScrollPane to: Color white. "List widgets" theme set: #font for: #PluggableListMorph to: [Preferences standardListFont]; set: #textColor for: #PluggableListMorph to: Color black; set: #selectionColor for: #PluggableListMorph to: (Color r: 0.72 g: 0.72 b: 0.9); derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c lighter]; set: #selectionTextColor for: #PluggableListMorph to: Color black; set: #filterColor for: #PluggableListMorph to: Color yellow paler; set: #filterTextColor for: #PluggableListMorph to: Color black; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | Color gray: 0.9] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.3] ]. "Tree widgets" theme derive: #font for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #textColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #selectionColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #selectionTextColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #filterColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #filterTextColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #hoverSelectionModifier for: #SimpleHierarchicalListMorph from: #PluggableListMorph; + set: #highlightTextColor for: #SimpleHierarchicalListMorph to: Color fern; - set: #higlightTextColor for: #SimpleHierarchicalListMorph to: Color red; set: #lineColor for: #SimpleHierarchicalListMorph to: Color veryLightGray. "Text widgets" theme set: #font for: #PluggableTextMorph to: [Preferences standardSystemFont]; set: #textColor for: #PluggableTextMorph to: Color black; set: #caretColor for: #PluggableTextMorph to: Color red; set: #selectionColor for: #PluggableTextMorph to: (TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2); set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | Color gray: 0.9] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: Color black; set: #adornmentRefuse for: #PluggableTextMorph to: Color tan; set: #adornmentConflict for: #PluggableTextMorph to: Color red; set: #adornmentDiff for: #PluggableTextMorph to: Color green; set: #adornmentNormalEdit for: #PluggableTextMorph to: Color orange; set: #adornmentDiffEdit for: #PluggableTextMorph to: Color yellow; set: #frameAdornmentWidth for: #PluggableTextMorph to: 1. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: (Color gray: 0.7); derive: #balloonTextFont for: #PluggableTextMorphPlus from: #PluggableTextMorph at: #font.!

1 0

The Trunk: GraphicsTests-eem.54.mcz
by commits＠source.squeak.org 15 Apr '20

15 Apr '20

Eliot Miranda uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-eem.54.mcz ==================== Summary ==================== Name: GraphicsTests-eem.54 Author: eem Time: 14 April 2020, 5:36:18.540866 pm UUID: c06dde54-9aee-4d1b-b32c-81aa7a57802a Ancestors: GraphicsTests-nice.53 Add the more complete set of tests for the JPEGReadWriter2Plugin from VMMaker to the base JPEGReadWriter2Test =============== Diff against GraphicsTests-nice.53 =============== Item was added: + ----- Method: JPEGReadWriter2Test>>formBytes (in category 'private') ----- + formBytes + "A jpeg that was generated from Squeak. When written to and from a + stream, the same bytes should be obtained." + + ^ #(255 216 255 224 0 16 74 70 73 70 0 1 1 0 0 1 0 1 0 0 255 219 0 67 0 8 6 6 7 6 5 8 7 7 7 9 9 8 10 12 20 13 12 11 11 12 25 18 19 15 20 29 26 31 30 29 26 28 28 32 36 46 39 32 34 44 35 28 28 40 55 41 44 48 49 52 52 52 31 39 57 61 56 50 60 46 51 52 50 255 219 0 67 1 9 9 9 12 11 12 24 13 13 24 50 33 28 33 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 255 192 0 17 8 0 1 0 1 3 1 34 0 2 17 1 3 17 1 255 196 0 31 0 0 1 5 1 1 1 1 1 1 0 0 0 0 0 0 0 0 1 2 3 4 5 6 7 8 9 10 11 255 196 0 181 16 0 2 1 3 3 2 4 3 5 5 4 4 0 0 1 125 1 2 3 0 4 17 5 18 33 49 65 6 19 81 97 7 34 113 20 50 129 145 161 8 35 66 177 193 21 82 209 240 36 51 98 114 130 9 10 22 23 24 25 26 37 38 39 40 41 42 52 53 54 55 56 57 58 67 68 69 70 71 72 73 74 83 84 85 86 87 88 89 90 99 100 101 102 103 104 105 106 115 116 117 118 119 120 121 122 131 132 133 134 135 136 137 138 146 147 148 149 150 151 152 153 154 162 163 164 165 166 167 168 169 170 178 179 180 181 182 183 184 185 186 194 195 196 197 198 199 200 201 202 210 211 212 213 214 215 216 217 218 225 226 227 228 229 230 231 232 233 234 241 242 243 244 245 246 247 248 249 250 255 196 0 31 1 0 3 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 1 2 3 4 5 6 7 8 9 10 11 255 196 0 181 17 0 2 1 2 4 4 3 4 7 5 4 4 0 1 2 119 0 1 2 3 17 4 5 33 49 6 18 65 81 7 97 113 19 34 50 129 8 20 66 145 161 177 193 9 35 51 82 240 21 98 114 209 10 22 36 52 225 37 241 23 24 25 26 38 39 40 41 42 53 54 55 56 57 58 67 68 69 70 71 72 73 74 83 84 85 86 87 88 89 90 99 100 101 102 103 104 105 106 115 116 117 118 119 120 121 122 130 131 132 133 134 135 136 137 138 146 147 148 149 150 151 152 153 154 162 163 164 165 166 167 168 169 170 178 179 180 181 182 183 184 185 186 194 195 196 197 198 199 200 201 202 210 211 212 213 214 215 216 217 218 226 227 228 229 230 231 232 233 234 242 243 244 245 246 247 248 249 250 255 218 0 12 3 1 0 2 17 3 17 0 63 0 40 162 138 0 255 217) asByteArray! Item was added: + ----- Method: JPEGReadWriter2Test>>testPluginPresent (in category 'tests') ----- + testPluginPresent + + self assert: JPEGReadWriter2 new isPluginPresent! Item was added: + ----- Method: JPEGReadWriter2Test>>testPrimJPEGReadImage (in category 'tests') ----- + testPrimJPEGReadImage + + | form | + form := JPEGReadWriter2 formFromStream: self formBytes readStream. + self should: form bits first = 16rFF808080 + + "[Vm-dev] JPEGReadWriter2Plugin + Bert Freudenberg bert at freudenbergs.de + Mon Sep 27 15:22:43 UTC 2010 + + Hi, + + have there been changes lately to the jpeg plugin? + + On a Mac 4.2.4 VM I see an off-by-one error, all pixels are moved to the right, the first pixel is transparent. On a Mac 5.8.1 Cog VM it works as expected though. + + Here's my little test: + + (JPEGReadWriter2 formFromStream: #[16rFF 16rD8 16rFF 16rE0 16r00 16r10 16r4A 16r46 16r49 16r46 16r00 16r01 16r01 16r01 16r00 16r48 16r00 16r48 16r00 16r00 16rFF 16rDB 16r00 16r43 16r00 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rC2 16r00 16r0B 16r08 16r00 16r01 16r00 16r01 16r01 16r01 16r11 16r00 16rFF 16rC4 16r00 16r14 16r10 16r01 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16r00 16rFF 16rDA 16r00 16r08 16r01 16r01 16r00 16r01 16r3F 16r10] readStream) bits first hex + + On 5.8.11 I get 16rFF808080 as expected, on 4.2.4 I get 0. + "! Item was added: + ----- Method: JPEGReadWriter2Test>>testPrimJPEGWriteImage (in category 'tests') ----- + testPrimJPEGWriteImage + + | form bytes ws | + form := JPEGReadWriter2 formFromStream: self formBytes readStream. + ws := WriteStream on: ByteArray new. + JPEGReadWriter2 putForm: form onStream: ws. + bytes := ws contents. + self should: self formBytes = bytes!

1 0

The Trunk: System-mt.1150.mcz
by commits＠source.squeak.org 08 Apr '20

08 Apr '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1150.mcz ==================== Summary ==================== Name: System-mt.1150 Author: mt Time: 8 April 2020, 9:42:48.186591 am UUID: 6da16c04-2b78-3344-a72a-ba39dedd948a Ancestors: System-nice.1149 Lift some weight from ToolSet by delegating #browseMethod: to the concrete set of tools. =============== Diff against System-nice.1149 =============== Item was changed: ----- Method: ToolSet class>>browseMethod: (in category 'browsing') ----- browseMethod: aCompiledMethod - "For convenience: Either open a code browser or a version browser for the given method." + self default ifNil: [^ self inform: 'Cannot open Browser']. + ^ self default browseMethod: aCompiledMethod! - ^ aCompiledMethod isInstalled - ifTrue: [self browse: aCompiledMethod methodClass selector: aCompiledMethod selector] - ifFalse: [self browseMethodVersion: aCompiledMethod]!

1 0

The Trunk: Tools-mt.957.mcz
by commits＠source.squeak.org 08 Apr '20

08 Apr '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.957.mcz ==================== Summary ==================== Name: Tools-mt.957 Author: mt Time: 8 April 2020, 9:41:37.208591 am UUID: efc7c1c3-29f1-bc4d-afe2-9b4ff890ca8e Ancestors: Tools-mt.956 Makes method browsing more useful when requested through the StandardToolSet. Try regular code browser, then versions browser, then inspector --- depending on whether installed or any history present. =============== Diff against Tools-mt.956 =============== Item was added: + ----- Method: StandardToolSet class>>browseMethod: (in category 'browsing') ----- + browseMethod: aCompiledMethod + "Browse aCompiledMethod on the most convenient possible way, using a System Browser, a Versions Browser, or an Inspector." + + aCompiledMethod isInstalled + ifTrue: [^ self browse: aCompiledMethod methodClass selector: aCompiledMethod selector]. + (aCompiledMethod methodClass changeRecordsAt: aCompiledMethod selector) + ifNotNil: [^ self browseMethodVersion: aCompiledMethod]. + ^ self inspect: aCompiledMethod!

1 0

The Trunk: Tools-mt.956.mcz
by commits＠source.squeak.org 07 Apr '20

07 Apr '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.956.mcz ==================== Summary ==================== Name: Tools-mt.956 Author: mt Time: 7 April 2020, 6:50:40.052763 pm UUID: d6189563-c44f-9147-aaff-594e603002b7 Ancestors: Tools-mt.955 Minimal fix of an unfortunate bug in our dependency browser. I will backport this to 5.3 immediately. Only affects users ot CompiledBlocks, which is implied by SistaV1, which is not active in 5.3. So, we should be fine considering our dependency tests. =============== Diff against Tools-mt.955 =============== Item was changed: ----- Method: DependencyBrowser>>computePackageDependencies: (in category 'package deps') ----- computePackageDependencies: pkgName "Compute the dependencies for the given package" | pi | classDeps := Dictionary new. packageDeps := Dictionary new. pkgName ifNil:[^self]. pi := PackageOrganizer default packageNamed: pkgName ifAbsent:[^self]. "unloaded" pi classes do:[:pkgClass| (classDeps at: (pkgClass superclass ifNil:[ProtoObject]) name ifAbsentPut:[OrderedCollection new]) add: (MethodReference class: pkgClass selector: #Definition)]. + pi methods do:[:mref| + mref compiledMethod allLiteralsDo:[:lit | + (lit isVariableBinding and: [lit value isBehavior]) ifTrue:[ - pi methods do:[:mref| | cm | - cm := mref compiledMethod. - 1 to: cm numLiterals do:[:i| | lit | - ((lit := cm literalAt: i) isVariableBinding and:[lit value isBehavior]) ifTrue:[ (classDeps at: lit value name ifAbsentPut:[OrderedCollection new]) + add: mref]]]. - add: (MethodReference class: cm methodClass selector: cm selector)]]]. classDeps keys do:[:className| | aClass pkg | aClass := Smalltalk classNamed: className. pkg := aClass ifNil: [nil] ifNotNil: [PackageOrganizer default packageOfClass: aClass ifNone:[nil]]. pkg ifNil:[ Transcript cr; show: 'WARNING: No package for ', className. (classDeps removeKey: className) do:[:each| Transcript crtab; show: each]. ] ifNotNil:[ (packageDeps at: pkg name ifAbsentPut:[OrderedCollection new]) add: className. ]. ]. (packageDeps removeKey: pkgName ifAbsent:[#()]) do:[:each| classDeps removeKey: each ifAbsent:[]. ].!

1 0

The Trunk: Network-dtl.240.mcz
by commits＠source.squeak.org 07 Apr '20

07 Apr '20

David T. Lewis uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-dtl.240.mcz ==================== Summary ==================== Name: Network-dtl.240 Author: dtl Time: 6 April 2020, 10:33:07.751386 pm UUID: a8f00e08-7398-4d4a-8cd2-09cedcada729 Ancestors: Network-eem.239 This update enables the Squeak new networking and IPv6 support by default. The update is in the package postscript. IPv6 network support for the VM (SocketPlugin) and image were implemented by Ian Piumarta circa 2007. This included IPv6 support and a more general image-side representation of network addressing. In 2012, this work was merged into Squeak trunk, with a preference to switch between the old networking support or the new networking support with IPv6. At that time, there were concerns with performance of NetNameResolver on some Windows platforms, and for this reason the "Enable IPv6 and new network support" preference was left disabled for official Squeak distributions. It now 2020, and operating systems have improved over the years, so it is time to enable the new networking preference by default. =============== Diff against Network-eem.239 =============== Item was changed: + (PackageInfo named: 'Network') postscript: '"Enable IPv6 and new network support by default" + NetNameResolver enableIPv6: true + '! - (PackageInfo named: 'Network') postscript: '"Rebuild CSNonAtom." - MailAddressTokenizer cleanUp: false'!

1 0

The Trunk: EToys-kks.389.mcz
by commits＠source.squeak.org 06 Apr '20

06 Apr '20

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-kks.389.mcz ==================== Summary ==================== Name: EToys-kks.389 Author: kks Time: 6 April 2020, 9:59:20.704434 am UUID: 52884b18-40df-44d6-a2b0-5a02a0ef7724 Ancestors: EToys-eem.388 Fixes error popups while using MonthMorph menu. =============== Diff against EToys-eem.388 =============== Item was changed: ----- Method: MonthMorph>>startMondayOrSundayString (in category 'controls') ----- startMondayOrSundayString + ^((Week startDay = #Monday) ifTrue: ['start Sunday'] ifFalse: ['start Monday']) - ^(Week startDay ifTrue: ['start Sunday'] ifFalse: ['start Monday']) translated! Item was changed: ----- Method: WeekMorph>>selectedDates (in category 'all') ----- selectedDates | answer | answer :=OrderedCollection new. self submorphsDo: [:each | ((each respondsTo: #onColor) and: [each color = each onColor]) ifTrue: [answer add: (Date newDay: each label asNumber + month: week start monthName + year: week start year)]]. - month: week firstDate monthName - year: week firstDate year)]]. ^ answer sort!

1 0

The Trunk: EToys-ct.389.mcz
by commits＠source.squeak.org 06 Apr '20

06 Apr '20

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.389.mcz ==================== Summary ==================== Name: EToys-ct.389 Author: xyz Time: 5 April 2020, 9:12:49.970061 pm UUID: 843215f1-865c-2e4b-8c42-484a3f382840 Ancestors: EToys-eem.388 Removes extension methods in deprecated class TextMorphEditor. Complements Squeak-Version-mt.5252. Thanks to Subbu (kks) for the report! =============== Diff against EToys-eem.388 =============== Item was removed: - ----- Method: TextMorphEditor>>select (in category '*Etoys-Squeakland-current selection') ----- - select - "Ignore selection redraw requests."! Item was removed: - ----- Method: TextMorphEditor>>selectionInterval: (in category '*Etoys-Squeakland-private') ----- - selectionInterval: anInterval - "Make my selection span the indicated interval. If the interval extends outside the range of characters of the current text, force it within." - - | mySize | - mySize := paragraph text string size. - self selectFrom: (anInterval start min: mySize) - to: (anInterval stop min: mySize)!

1 0

The Trunk: EToys-mt.390.mcz
by commits＠source.squeak.org 06 Apr '20

06 Apr '20

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.390.mcz ==================== Summary ==================== Name: EToys-mt.390 Author: mt Time: 6 April 2020, 8:20:52.721118 am UUID: d3cd1e02-f1a6-bf44-9ad9-dadb30fc96a3 Ancestors: EToys-ct.389, EToys-kks.389 Merges fix in MonthMorph and WeekMorph as well as that slip with deprecated extensions in the no-longer-available TextMorphEditor in 6.0alpha. Thanks Subbu (kks) and Christoph (ct)! =============== Diff against EToys-eem.388 =============== Item was changed: ----- Method: MonthMorph>>startMondayOrSundayString (in category 'controls') ----- startMondayOrSundayString + ^((Week startDay = #Monday) ifTrue: ['start Sunday'] ifFalse: ['start Monday']) - ^(Week startDay ifTrue: ['start Sunday'] ifFalse: ['start Monday']) translated! Item was removed: - ----- Method: TextMorphEditor>>select (in category '*Etoys-Squeakland-current selection') ----- - select - "Ignore selection redraw requests."! Item was removed: - ----- Method: TextMorphEditor>>selectionInterval: (in category '*Etoys-Squeakland-private') ----- - selectionInterval: anInterval - "Make my selection span the indicated interval. If the interval extends outside the range of characters of the current text, force it within." - - | mySize | - mySize := paragraph text string size. - self selectFrom: (anInterval start min: mySize) - to: (anInterval stop min: mySize)! Item was changed: ----- Method: WeekMorph>>selectedDates (in category 'all') ----- selectedDates | answer | answer :=OrderedCollection new. self submorphsDo: [:each | ((each respondsTo: #onColor) and: [each color = each onColor]) ifTrue: [answer add: (Date newDay: each label asNumber + month: week start monthName + year: week start year)]]. - month: week firstDate monthName - year: week firstDate year)]]. ^ answer sort!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2020