Squeak-dev April 2018

squeak-dev@lists.squeakfoundation.org

47 participants
159 discussions

Question about Screen Resolutions
by Jeremy Landry 26 Apr '18

26 Apr '18

I'm not deep into squeak enough to know if this is possible, so I'm throwing the question around here. Is there a way to use hardware to scale output to the display? I.e. if I set up an image to have a specific resolution, is there a way to not use internal scaling to upscale/downscale the visual output? I know it's possible inside of squeak to have squeak make up for the difference, but it's quite taxing for such a task that would be better off handed to the OS to do natively. Thanks for any insights.

3 2

The Trunk: Kernel-nice.1168.mcz
by commits＠source.squeak.org 26 Apr '18

26 Apr '18

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1168.mcz ==================== Summary ==================== Name: Kernel-nice.1168 Author: nice Time: 26 April 2018, 11:40:17.923908 am UUID: fa008d75-249a-b243-8b1e-068eeb72a45d Ancestors: Kernel-nice.1167 Change asApproximateFraction to allow prescribing a relative decimal precision Example: (FloatArray with: 1/3) first asApproximateFractionRelativeDecimalPlaces: 6. 0.6667 asApproximateFractionRelativeDecimalPlaces: 3. 0.6667 asApproximateFractionRelativeDecimalPlaces: 5. =============== Diff against Kernel-nice.1167 =============== Item was changed: ----- Method: Float>>asApproximateFraction (in category 'converting') ----- asApproximateFraction "Answer a Fraction approximating the receiver. This conversion uses the continued fraction method to approximate a floating point number." + ^ self asApproximateFractionRelativeDecimalPlaces: 10! - ^ self asApproximateFractionAtOrder: 0! Item was changed: ----- Method: Float>>asApproximateFractionAtOrder: (in category 'converting') ----- asApproximateFractionAtOrder: maxOrder "Answer a Fraction approximating the receiver. This conversion uses the continued fraction method to approximate a floating point number. If maxOrder is zero, use maximum order" + ^self + asApproximateFractionAtOrder: maxOrder + precision: self ulp / 2! - | num1 denom1 num2 denom2 int frac newD temp order | - num1 := self asInteger. "The first of two alternating numerators" - denom1 := 1. "The first of two alternating denominators" - num2 := 1. "The second numerator" - denom2 := 0. "The second denominator--will update" - int := num1. "The integer part of self" - frac := self fractionPart. "The fractional part of self" - order := maxOrder = 0 ifTrue: [-1] ifFalse: [maxOrder]. - [frac = 0 or: [order = 0] ] - whileFalse: - ["repeat while the fractional part is not zero and max order is not reached" - order := order - 1. - newD := 1.0 / frac. "Take reciprocal of the fractional part" - int := newD asInteger. "get the integer part of this" - frac := newD fractionPart. "and save the fractional part for next time" - temp := num2. "Get old numerator and save it" - num2 := num1. "Set second numerator to first" - num1 := num1 * int + temp. "Update first numerator" - temp := denom2. "Get old denominator and save it" - denom2 := denom1. "Set second denominator to first" - denom1 := int * denom1 + temp. "Update first denominator" - 10000000000.0 < denom1 - ifTrue: - ["Is ratio past float precision? If so, pick which - of the two ratios to use" - num2 = 0.0 - ifTrue: ["Is second denominator 0?" - ^ Fraction numerator: num1 denominator: denom1]. - ^ Fraction numerator: num2 denominator: denom2]]. - "If fractional part is zero, return the first ratio" - denom1 = 1 - ifTrue: ["Am I really an Integer?" - ^ num1 "Yes, return Integer result"] - ifFalse: ["Otherwise return Fraction result" - ^ Fraction numerator: num1 denominator: denom1]! Item was added: + ----- Method: Float>>asApproximateFractionAtOrder:precision: (in category 'converting') ----- + asApproximateFractionAtOrder: maxOrder precision: limit + "Answer a Rational number--Integer or Fraction--representing the receiver. + This conversion uses the continued fraction method to approximate a floating point number. + The iteration stops when precision has reached the prescribed limit, + or when the maximum number of iterations has been reached. + If maxOrder is zero, then the number of iterations is not limited." + + | num1 denom1 num2 denom2 int frac newD order | + newD := self asFraction. "use exact arithmetic to avoid both overflow and accumulation of rounding errors" + num1 := denom2 := 1. "Initialize alternating numerators" + num2 := denom1 := 0. "and denominators" + order := maxOrder = 0 ifTrue: [-1] ifFalse: [maxOrder]. + [int := newD integerPart. "get the integer part of this" + frac := newD fractionPart. "and save the fractional part for next time" + num1 := num2 + ((num2 := num1) * int). "Update numerators" + denom1 := denom2 + ((denom2 := denom1) * int). "and denominators" + frac = 0 + or: [order = 0 + or: [((Fraction numerator: num1 denominator: denom1) - self) abs <= limit]]] + whileFalse: + [newD := frac reciprocal "Take reciprocal of the fractional part". + order := order - 1]. + ^denom1 = 1 + ifTrue: ["Am i really an Integer?" + num1"Yes, return Integer result"] + ifFalse: ["Otherwise return Fraction result" + Fraction numerator: num1 denominator: denom1]! Item was added: + ----- Method: Float>>asApproximateFractionRelativeDecimalPlaces: (in category 'converting') ----- + asApproximateFractionRelativeDecimalPlaces: decimalPlaces + "Answer a Fraction approximating the receiver. This conversion uses the + continued fraction method to approximate a floating point number. + Stop the recursion when precision has reached prescribed number of relative decimalPlaces." + + ^ self + asApproximateFractionAtOrder: 0 + precision: (1.0 timesTwoPower: self exponent - (decimalPlaces * Ln10 / Ln2) rounded)!

1 0

The Inbox: Kernel-dtl.1166.mcz
by commits＠source.squeak.org 26 Apr '18

26 Apr '18

David T. Lewis uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-dtl.1166.mcz ==================== Summary ==================== Name: Kernel-dtl.1166 Author: dtl Time: 25 April 2018, 10:48:38.572237 pm UUID: 43d80609-fbc5-40a1-9d49-37d2c4f0b306 Ancestors: Kernel-dtl.1165 In calculation of asApproximateFraction, the digit count for floatPrecision should be an integer, so do not convert it with asFlloat. Allows the following to be resolved without infinite loop on comparison to Float infinity: ((FloatArray new: 1) at: 1 put: 1 / 3; at: 1) asApproximateFractionFloatPrecision: 10000 =============== Diff against Kernel-dtl.1165 =============== Item was changed: ----- Method: Float>>asApproximateFractionAtOrder:floatPrecision: (in category 'converting') ----- asApproximateFractionAtOrder: maxOrder floatPrecision: decimalPlaces "Answer a Fraction approximating the receiver. This conversion uses the continued fraction method to approximate a floating point number. If maxOrder is zero, use maximum order. Assume that I am a float with decimalPlaces of meaningful accuracy, regardless of the precision of my internal representation." | num1 denom1 num2 denom2 int frac newD temp order floatPrecision | num1 := self asInteger. "The first of two alternating numerators" denom1 := 1. "The first of two alternating denominators" num2 := 1. "The second numerator" denom2 := 0. "The second denominator--will update" int := num1. "The integer part of self" frac := self fractionPart. "The fractional part of self" order := maxOrder = 0 ifTrue: [-1] ifFalse: [maxOrder]. + floatPrecision := 10 raisedTo: decimalPlaces. - floatPrecision := (10 raisedTo: decimalPlaces) asFloat. [frac = 0 or: [order = 0] ] whileFalse: ["repeat while the fractional part is not zero and max order is not reached" order := order - 1. newD := 1.0 / frac. "Take reciprocal of the fractional part" int := newD asInteger. "get the integer part of this" frac := newD fractionPart. "and save the fractional part for next time" temp := num2. "Get old numerator and save it" num2 := num1. "Set second numerator to first" num1 := num1 * int + temp. "Update first numerator" temp := denom2. "Get old denominator and save it" denom2 := denom1. "Set second denominator to first" denom1 := int * denom1 + temp. "Update first denominator" floatPrecision < denom1 ifTrue: ["Is ratio past float precision? If so, pick which of the two ratios to use" num2 = 0.0 ifTrue: ["Is second denominator 0?" ^ Fraction numerator: num1 denominator: denom1]. ^ Fraction numerator: num2 denominator: denom2]]. "If fractional part is zero, return the first ratio" denom1 = 1 ifTrue: ["Am I really an Integer?" ^ num1 "Yes, return Integer result"] ifFalse: ["Otherwise return Fraction result" ^ Fraction numerator: num1 denominator: denom1]!

2 4

Missing Class Method in #MenuIcons
by John-Reed Maffeo 26 Apr '18

26 Apr '18

The class method #icons is missing from #MenuIcons. I have attached my tested proposal for a replacement. - jrm

4 4

The Trunk: Tools-cmm.807.mcz
by commits＠source.squeak.org 26 Apr '18

26 Apr '18

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.807.mcz ==================== Summary ==================== Name: Tools-cmm.807 Author: cmm Time: 25 April 2018, 6:49:54.475211 pm UUID: 81320a56-b7e4-46c2-8ae0-11a660bddf4f Ancestors: Tools-tpr.806 Adopt #icons accessors contributed by John-Reed Maffeo. =============== Diff against Tools-tpr.806 =============== Item was changed: ----- Method: ToolIcons class>>icons (in category 'accessing') ----- icons + ^ Icons ifNil: [Icons := Dictionary new]! - ^ Icons ifNil: [Icons := IdentityDictionary new]! Item was changed: + (PackageInfo named: 'Tools') postscript: 'ToolIcons classPool + at: #Icons + put: ((ToolIcons classPool at: #Icons) as: Dictionary)'! - (PackageInfo named: 'Tools') postscript: 'Debugger initialize.'!

1 0

The Trunk: Morphic-cmm.1420.mcz
by commits＠source.squeak.org 26 Apr '18

26 Apr '18

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1420.mcz ==================== Summary ==================== Name: Morphic-cmm.1420 Author: cmm Time: 25 April 2018, 6:48:47.166155 pm UUID: 853cc5eb-f8e9-418d-8141-66b270477bf5 Ancestors: Morphic-mt.1419 - Adopt #icons accessors contributed by John-Reed Maffeo. - Revert a recent fix for Smart Splitters because it was superceded by a different fix. =============== Diff against Morphic-mt.1419 =============== Item was added: + ----- Method: MenuIcons class>>icons (in category 'accessing') ----- + icons + + ^ Icons ifNil: [Icons := Dictionary new]! Item was changed: ----- Method: ProportionalSplitterMorph>>reduceLeftRightImbalance (in category 'layout') ----- reduceLeftRightImbalance | correction | correction := self leftRightImbalance. correction abs > 1 ifTrue: [ (self proposedCorrectionWouldCauseFocusChange: correction) ifFalse: [ self repositionBy: (correction abs > 4 ifTrue: [ correction sign * 2 @ 0 ] ifFalse: [ correction sign @ 0 ]) ] ] ifFalse: + [ self class smartVerticalSplitters ifFalse: [ self stopStepping ] ]. - [ self class smartVerticalSplitters ifFalse: - [ self - stopStepping ; - balanceOffsets ] ]. ^ correction! Item was changed: ----- Method: ProportionalSplitterMorph>>reduceTopBottomImbalance (in category 'layout') ----- reduceTopBottomImbalance | correction | (correction := self topBottomCorrection) isZero ifTrue: + [ self class smartHorizontalSplitters ifFalse: [ self stopStepping ] ] - [ self class smartHorizontalSplitters ifFalse: - [ self - stopStepping ; - balanceOffsets ] ] ifFalse: [ (self proposedCorrectionWouldCauseFocusChange: correction) ifFalse: [ self repositionBy: 0 @ correction ] ]. ^ correction! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'MenuIcons classPool at: #Icons put: ((MenuIcons classPool at: #Icons) as: Dictionary)'! - (PackageInfo named: 'Morphic') postscript: 'Project allMorphicProjects do: [:ea | ea world addMouseShortcuts].'!

1 0

The Trunk: Protocols-cmm.60.mcz
by commits＠source.squeak.org 26 Apr '18

26 Apr '18

Chris Muller uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-cmm.60.mcz ==================== Summary ==================== Name: Protocols-cmm.60 Author: cmm Time: 25 April 2018, 6:21:41.762589 pm UUID: acc5dbab-1470-4dbe-8432-b69ae91e544d Ancestors: Protocols-ul.59 Make "show home category" of Protocol browsers behave similarly with Hierarchy and PackagePane browsers by letting it toggle both on and off instead of only on. =============== Diff against Protocols-ul.59 =============== Item was added: + ----- Method: Lexicon>>selectCategoryAll (in category 'category list') ----- + selectCategoryAll + self categoryListIndex: (categoryList indexOf: self class allCategoryName)! Item was removed: - ----- Method: Lexicon>>setToShowSelector: (in category 'selection') ----- - setToShowSelector: aSelector - "Set up the receiver so that it will show the given selector" - - | catName catIndex detectedItem messageIndex aList | - catName := (aList := currentVocabulary categoriesContaining: aSelector forClass: targetClass) size > 0 - ifTrue: - [aList first] - ifFalse: - [self class allCategoryName]. - catIndex := categoryList indexOf: catName ifAbsent: [1]. - self categoryListIndex: catIndex. - detectedItem := messageList detect: - [:anItem | (anItem upTo: $ ) asString asSymbol == aSelector] ifNone: [^ self]. - messageIndex := messageList indexOf: detectedItem. - self messageListIndex: messageIndex - ! Item was added: + ----- Method: Lexicon>>setToShowSelector:selectCategory: (in category 'selection') ----- + setToShowSelector: selectorString selectCategory: aBoolean + "Set up the receiver so that it will show the given selector" + | catName catIndex messageIndex aList | + catName := aBoolean + ifTrue: + [ (aList := currentVocabulary + categoriesContaining: selectorString + forClass: targetClass) + at: 1 + ifAbsent: [ self class allCategoryName ] ] + ifFalse: [ self class allCategoryName ]. + catIndex := categoryList + indexOf: catName + ifAbsent: [ 1 ]. + self categoryListIndex: catIndex. + messageList + detect: + [ : anItem | (anItem upTo: Character space) asString asSymbol == selectorString ] + ifFound: + [ : detectedItem | messageIndex := messageList indexOf: detectedItem. + self messageListIndex: messageIndex ] + ifNone: [ ^ self ]! Item was changed: ----- Method: Lexicon>>showHomeCategory (in category 'menu commands') ----- showHomeCategory + "Toggle the selection of the category of the currently-selected method or category." + self selectedMessageName + ifNil: + [ self selectedCategoryName ifNotNil: [ self selectCategoryAll ] ] + ifNotNil: + [ : selector | self selectedCategoryName = self class allCategoryName + ifTrue: + [ self preserveSelectorIfPossibleSurrounding: + [ self + setToShowSelector: selector + selectCategory: true ] ] + ifFalse: + [ self + setToShowSelector: selector + selectCategory: false ] ]! - "Continue to show the current selector, but show it within the context of its primary category" - - | aSelector | - (aSelector := self selectedMessageName) ifNotNil: - [self preserveSelectorIfPossibleSurrounding: - [self setToShowSelector: aSelector]]!

1 0

The Trunk: ToolBuilder-Kernel-pre.122.mcz
by commits＠source.squeak.org 26 Apr '18

26 Apr '18

Patrick Rein uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-pre.122.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-pre.122 Author: pre Time: 24 April 2018, 10:29:02.215732 am UUID: 9e1d912d-13fb-7341-9aac-9ac6ebfb76ab Ancestors: ToolBuilder-Kernel-tpr.121 Adds a callback to pluggable tree specifications to retrieve the currently selected path in the tree. =============== Diff against ToolBuilder-Kernel-tpr.121 =============== Item was changed: PluggableWidgetSpec subclass: #PluggableTreeSpec + instanceVariableNames: 'roots getSelectedPath setSelectedPath setSelected getSelected setSelectedParent getChildren hasChildren label icon unusedVar menu keyPress doubleClick dropItem dropAccept autoDeselect dragItem nodeClass columns vScrollBarPolicy hScrollBarPolicy dragStarted' - instanceVariableNames: 'roots getSelectedPath setSelected getSelected setSelectedParent getChildren hasChildren label icon unusedVar menu keyPress doubleClick dropItem dropAccept autoDeselect dragItem nodeClass columns vScrollBarPolicy hScrollBarPolicy dragStarted' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Kernel'! + !PluggableTreeSpec commentStamp: 'pre 4/24/2018 10:20' prior: 0! - !PluggableTreeSpec commentStamp: 'mvdg 3/21/2008 20:59' prior: 0! A pluggable tree widget. PluggableTrees are slightly different from lists in such that they ALWAYS store the actual objects and use the label selector to query for the label of the item. PluggableTrees also behave somewhat differently in such that they do not have a "getSelected" message but only a getSelectedPath message. The difference is that getSelectedPath is used to indicate by the model that the tree should select the appropriate path. This allows disambiguation of items. Because of this, implementations of PluggableTrees must always set their internal selection directly, e.g., rather than sending the model a setSelected message and wait for an update of the #getSelected the implementation must set the selection before sending the #setSelected message. If a client doesn't want this, it can always just signal a change of getSelectedPath to revert to whatever is needed. Instance variables: roots <Symbol> The message to retrieve the roots of the tree. getSelectedPath <Symbol> The message to retrieve the selected path in the tree. + setSelectedPath <Symbol> The message to set the selected path in the tree. setSelected <Symbol> The message to set the selected item in the tree. getChildren <Symbol> The message to retrieve the children of an item hasChildren <Symbol> The message to query for children of an item label <Symbol> The message to query for the label of an item. icon <Symbol> The message to query for the icon of an item. help <Symbol> The message to query for the help of an item. menu <Symbol> The message to query for the tree's menu keyPress <Symbol> The message to process a keystroke. wantsDrop <Symbol> The message to query whether a drop might be accepted. dropItem <Symbol> The message to drop an item. enableDrag <Boolean> Enable dragging from this tree. autoDeselect <Boolean> Whether the tree should allow automatic deselection or not. unusedVar (unused) This variable is a placeholder to fix problems with loading packages in 3.10.! Item was added: + ----- Method: PluggableTreeSpec>>setSelectedPath (in category 'accessing - selection') ----- + setSelectedPath + + ^ setSelectedPath! Item was added: + ----- Method: PluggableTreeSpec>>setSelectedPath: (in category 'accessing - selection') ----- + setSelectedPath: aSymbol + + setSelectedPath := aSymbol!

7 11

The Trunk: MonticelloConfigurations-eem.153.mcz
by commits＠source.squeak.org 25 Apr '18

25 Apr '18

Eliot Miranda uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-eem.153.mcz ==================== Summary ==================== Name: MonticelloConfigurations-eem.153 Author: eem Time: 24 April 2018, 11:26:57.18973 am UUID: 08fb5d9b-8322-4537-ae28-02a452e18bbd Ancestors: MonticelloConfigurations-bf.152 Suppress Deprecation warnings while upgrading/updating. =============== Diff against MonticelloConfigurations-bf.152 =============== Item was changed: ----- Method: MCConfiguration>>upgrade (in category 'actions') ----- upgrade ^self depsSatisfying: [:dep | dep isFulfilledByAncestors not] versionDo: [:ver | (self class upgradeIsMerge and: [ver shouldMerge]) ifFalse: [ver load] ifTrue: [[ver merge] on: MCNoChangesException do: [:req| req resume ] on: MCMergeResolutionRequest do: [:request | request merger conflicts isEmpty ifTrue: [request resume: true] + ifFalse: [request pass]] + on: Deprecation + do: [:req| req resume ]]] - ifFalse: [request pass]]]] displayingProgress: 'upgrading packages'!

2 1

The Trunk: Chronology-Core-tcj.12.mcz
by commits＠source.squeak.org 25 Apr '18

25 Apr '18

Marcel Taeumel uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-tcj.12.mcz ==================== Summary ==================== Name: Chronology-Core-tcj.12 Author: tcj Time: 24 April 2018, 2:19:04.161964 pm UUID: 4374e394-3435-4377-afdc-1d19fac9ad83 Ancestors: Chronology-Core-mt.11 Add edc's method to create a DateAndTime from a given UNIX time value. =============== Diff against Chronology-Core-mt.11 =============== Item was added: + ----- Method: DateAndTime class>>fromUnixTime: (in category 'squeak protocol') ----- + fromUnixTime: aNumber + + + ^ self fromSeconds: aNumber + self unixEpoch asSeconds!

1 0

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

Jump to page: