Packages January 2017

packages@lists.squeakfoundation.org

1 participants
14 discussions

The Trunk: Graphics-bf.368.mcz
by commits＠source.squeak.org 31 Jan '17

31 Jan '17

Bert Freudenberg uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-bf.368.mcz ==================== Summary ==================== Name: Graphics-bf.368 Author: bf Time: 31 January 2017, 8:55:04.767278 am UUID: 404d8e9d-2ce0-4469-a8f2-f09db034fd1a Ancestors: Graphics-pre.367 Fix setting Display to MSB. =============== Diff against Graphics-pre.367 =============== Item was changed: ----- Method: DisplayScreen>>newDepth: (in category 'other') ----- newDepth: pixelSize " Display newDepth: 8. Display newDepth: 1. " | area need | (self supportsDisplayDepth: pixelSize) ifFalse:[^self inform:'Display depth ', pixelSize printString, ' is not supported on this system']. + pixelSize = self nativeDepth ifTrue: [^ self "no change"]. - pixelSize = self depth ifTrue: [^ self "no change"]. pixelSize abs < self depth ifFalse: ["Make sure there is enough space" area := self boundingBox area. "pixels" need := (area * (pixelSize abs - self depth) // 8) "new bytes needed" + Smalltalk lowSpaceThreshold. (Smalltalk garbageCollectMost <= need and: [Smalltalk garbageCollect <= need]) ifTrue: [self error: 'Insufficient free space']]. Display setExtent: Display extent depth: pixelSize. Display beDisplay. Project current ifNotNil: [:p | p displayDepthChanged; displaySizeChanged].!

1 0

The Trunk: KernelTests-nice.317.mcz
by commits＠source.squeak.org 27 Jan '17

27 Jan '17

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.317.mcz ==================== Summary ==================== Name: KernelTests-nice.317 Author: nice Time: 27 January 2017, 10:04:37.372536 pm UUID: 42d2ef78-acd4-4909-aa38-c4a709f40482 Ancestors: KernelTests-eem.316 Change the expectation of -0.0 sign, it is now 0 rather than -1. Consequently adopt the new way to test a negativeZero result using signBit rather than sign. =============== Diff against KernelTests-eem.316 =============== Item was added: + ----- Method: FloatTest>>assertIsNegativeZero: (in category 'accessing') ----- + assertIsNegativeZero: aFloat + "Assert that aFloat is Float negativeZero" + self assert: aFloat = 0.0. + self assert: aFloat signBit = 1! Item was added: + ----- Method: FloatTest>>assertIsPositiveZero: (in category 'accessing') ----- + assertIsPositiveZero: aFloat + "Assert that aFloat is Float zero (the positive one)" + self assert: aFloat = 0.0. + self assert: aFloat signBit = 0! Item was changed: ----- Method: FloatTest>>testArSinh (in category 'tests - mathematical functions') ----- testArSinh + self assertIsPositiveZero: 0.0 arSinh. + self assertIsNegativeZero: Float negativeZero arSinh. - self assert: 0.0 arSinh = 0.0. - self assert: Float negativeZero arSinh = 0.0. - self assert: Float negativeZero arSinh sign = -1. self deny: Float infinity arSinh isFinite. self assert: (0.5 arSinh negated closeTo: 0.5 negated arSinh). self assert: (0.5 arSinh sinh closeTo: 0.5). self assert: (-2.5 arSinh sinh closeTo: -2.5).! Item was changed: ----- Method: FloatTest>>testArTanh (in category 'tests - mathematical functions') ----- testArTanh + self assertIsPositiveZero: 0.0 arTanh. + self assertIsNegativeZero: Float negativeZero arTanh. - self assert: 0.0 arTanh = 0.0. - self assert: Float negativeZero arTanh = 0.0. - self assert: Float negativeZero arTanh sign = -1. self deny: 1 arTanh isFinite. self assert: (0.5 arTanh negated closeTo: 0.5 negated arTanh). self assert: (0.5 arTanh tanh closeTo: 0.5). self assert: (-0.5 arTanh tanh closeTo: -0.5).! Item was changed: ----- Method: FloatTest>>testCharacterization (in category 'characterization') ----- testCharacterization "Test the largest finite representable floating point value" self assert: Float fmax successor = Float infinity. self assert: Float infinity predecessor = Float fmax. self assert: Float fmax negated predecessor = Float negativeInfinity. self assert: Float negativeInfinity successor = Float fmax negated. "Test the smallest positive representable floating point value" self assert: Float fmin predecessor = 0.0. self assert: 0.0 successor = Float fmin. self assert: Float fmin negated successor = 0.0. self assert: 0.0 predecessor = Float fmin negated. "Test the relative precision" self assert: Float one + Float epsilon > Float one. self assert: Float one + Float epsilon = Float one successor. self assert: Float one + (Float epsilon / Float radix) = Float one. "Test maximum and minimum exponent" self assert: Float fmax exponent = Float emax. self assert: Float fminNormalized exponent = Float emin. Float denormalized ifTrue: [ self assert: Float fminDenormalized exponent = (Float emin + 1 - Float precision)]. "Alternative tests for maximum and minimum" self assert: (Float radix - Float epsilon) * (Float radix raisedTo: Float emax) = Float fmax. self assert: Float epsilon * (Float radix raisedTo: Float emin) = Float fmin. "Test sucessors and predecessors" self assert: Float one predecessor successor = Float one. self assert: Float one successor predecessor = Float one. self assert: Float one negated predecessor successor = Float one negated. self assert: Float one negated successor predecessor = Float one negated. self assert: Float infinity successor = Float infinity. self assert: Float negativeInfinity predecessor = Float negativeInfinity. + self assertIsNegativeZero: Float fmin negated successor. - self assert: Float fmin negated successor = 0.0. - self assert: Float fmin negated successor sign = -1. self assert: Float nan predecessor isNaN. self assert: Float nan successor isNaN. "SPECIFIC FOR IEEE 754 double precision - 64 bits" self assert: Float fmax hex = '7FEFFFFFFFFFFFFF'. self assert: Float fminDenormalized hex = '0000000000000001'. self assert: Float fminNormalized hex = '0010000000000000'. self assert: 0.0 hex = '0000000000000000'. self assert: Float negativeZero hex = '8000000000000000'. self assert: Float one hex = '3FF0000000000000'. self assert: Float infinity hex = '7FF0000000000000'. self assert: Float negativeInfinity hex = 'FFF0000000000000'.! Item was changed: ----- Method: FloatTest>>testCopySign (in category 'zero behavior') ----- testCopySign self assert: (0.0 copySignTo: 1) = 1. self assert: (Float negativeZero copySignTo: 1) = -1. + self assertIsNegativeZero: (-1 copySignTo: 0.0). + self assertIsPositiveZero: (1 copySignTo: Float negativeZero).! - self assert: (-1 copySignTo: 0.0) = 0.0. - self assert: (-1 copySignTo: 0.0) sign = -1. - self assert: (1 copySignTo: Float negativeZero) sign = 0.! Item was changed: ----- Method: FloatTest>>testFractionAsFloatWithUnderflow (in category 'testing - conversion') ----- testFractionAsFloatWithUnderflow "test rounding to nearest even" | underflowPower | underflowPower := Float emin - Float precision. self assert: (2 raisedTo: underflowPower) asFloat = 0.0. self assert: (2 raisedTo: underflowPower) negated asFloat = 0.0. + self assert: (2 raisedTo: underflowPower) negated asFloat signBit = 1 description: 'a negative underflow should return a negative zero'.! - self assert: (2 raisedTo: underflowPower) negated asFloat sign = -1 description: 'a negative underflow should return a negative zero'.! Item was changed: ----- Method: FloatTest>>testLiteralEqualityOfZeroAndNegativeZero (in category 'testing compare') ----- testLiteralEqualityOfZeroAndNegativeZero + self assert: 1 + equals: (Compiler evaluate: '1>2 ifTrue: [0.0] ifFalse: [-0.0]') signBit - self assert: -1 - equals: (Compiler evaluate: '1>2 ifTrue: [0.0] ifFalse: [-0.0]') sign description: 'Float zero and negativeZero are not literally substituable'.! Item was changed: ----- Method: FloatTest>>testNegativeZeroAbs (in category 'zero behavior') ----- testNegativeZeroAbs + self assert: Float negativeZero abs signBit = 0 description: 'the absolute value of a negative zero is zero'! - self assert: Float negativeZero abs sign positive description: 'the absolute value of a negative zero is zero'! Item was changed: ----- Method: FloatTest>>testNegativeZeroSign (in category 'zero behavior') ----- testNegativeZeroSign + self assert: Float negativeZero sign = 0. + self assert: Float negativeZero signBit = 1 "That's how we can distinguish from positive zero"! - self assert: Float negativeZero sign = -1! Item was changed: ----- Method: FloatTest>>testSign (in category 'testing') ----- testSign "Set up" | negatives negz positives strictNegatives strictPositives zero | strictPositives := {2. 2.5. Float infinity}. strictNegatives := {-3. -3.25. Float negativeInfinity}. zero := 0.0. negz := Float negativeZero. positives := strictPositives copyWith: zero. negatives := strictNegatives copyWith: negz. "The sign of non zeros" strictPositives do: [:aPositive | self assert: aPositive sign = 1]. strictNegatives do: [:aNegative | self assert: aNegative sign = -1]. "The sign of zeros" self assert: zero sign = 0. + self assert: negz sign = 0. "remark that negz can't be distinguished from zero and is thus considered positive..." + self assert: negz signBit = 1. "but we can differentiate" - self assert: negz sign = -1. "remark though that negz >= 0.0, and is thus considered positive... Weird" "Test the copy sign functions" positives do: [:aPositiveSign | positives do: [:aPositive | self assert: (aPositive sign: aPositiveSign) = aPositive]. negatives do: [:aNegative | self assert: (aNegative sign: aPositiveSign) = aNegative negated]. + (zero sign: aPositiveSign) signBit = 0. + (negz sign: aPositiveSign) signBit = 0]. - (zero sign: aPositiveSign) sign = 0. - (negz sign: aPositiveSign) sign = 0]. negatives do: [:aNegativeSign | positives do: [:aPositive | self assert: (aPositive sign: aNegativeSign) = aPositive negated]. negatives do: [:aNegative | self assert: (aNegative sign: aNegativeSign) = aNegative]. + (zero sign: aNegativeSign) signBit = 1. + (negz sign: aNegativeSign) signBit = 1].! - (zero sign: aNegativeSign) sign = -1. - (negz sign: aNegativeSign) sign = -1].! Item was changed: ----- Method: FloatTest>>testSinh (in category 'tests - mathematical functions') ----- testSinh + self assertIsPositiveZero: 0.0 sinh. + self assertIsNegativeZero: Float negativeZero sinh. - self assert: 0.0 sinh = 0.0. - self assert: Float negativeZero sinh = 0.0. - self assert: Float negativeZero sinh sign = -1. self deny: Float infinity sinh isFinite. self assert: (2.0 cosh squared - 2.0 sinh squared closeTo: 1). self assert: (2.0 sinh negated closeTo: 2.0 negated sinh).! Item was changed: ----- Method: FloatTest>>testTanh (in category 'tests - mathematical functions') ----- testTanh + self assertIsPositiveZero: 0.0 tanh. + self assertIsNegativeZero: Float negativeZero tanh. - self assert: 0.0 tanh = 0.0. - self assert: Float negativeZero tanh = 0.0. - self assert: Float negativeZero tanh sign = -1. self assert: (Float infinity tanh closeTo: 1). self assert: (2.0 cosh squared - 2.0 sinh squared closeTo: 1). self assert: (2.0 tanh negated closeTo: 2.0 negated tanh).!

1 0

The Trunk: Kernel-nice.1054.mcz
by commits＠source.squeak.org 27 Jan '17

27 Jan '17

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1054.mcz ==================== Summary ==================== Name: Kernel-nice.1054 Author: nice Time: 27 January 2017, 9:44:46.83377 pm UUID: ef21d74d-ba81-47c6-9bb7-92fb4140f494 Ancestors: Kernel-eem.1053 Change -0.0 sign to answer 0 instead of -1. Introduce a new message signBit for recognition of Float negativeZero. Rationale: 1) The value of Float negativeZero cannot be distinguished from zero. Thus (Float negativeZero = 0.0) We can then expect sign to be symmetric for (positive) zero and negativeZero 2) ANSI Smalltalk requires above behavior. This will reduce un-necessary difference with Gemstone for example. About NaN: Note that with old implementation, the sign of "positive" nan was 0, while it was -1 for "negative" nan. New implementation will allways answer 0 for nans. We may as well answer Float nan, but currently sign will allways answer an Integer (-1,0 or 1). Until it is well specified by a standard, let's not bother. Otherwise, we could answer a Float if receiver is a Float like: sign self > 0.0 ifTrue: [ ^1.0]. self < 0.0 ifTrue: [ ^-1.0]. ^self =============== Diff against Kernel-eem.1053 =============== Item was changed: ----- Method: Float>>arcTan: (in category 'mathematical functions') ----- arcTan: denominator + "Answer the angle in radians, taking care of 4 quadrants. + Implementation note: use signBit and sign: in order to catch cases of negativeZero" - "Answer the angle in radians. - Optional. See Object documentation whatIsAPrimitive. - Implementation note: use sign in order to catch cases of negativeZero" + self = 0.0 + ifTrue: + [denominator signBit = 0 ifTrue: [ ^0.0 ]. + ^Pi sign: self ]. + denominator = 0.0 ifTrue: [ ^Halfpi sign: self ]. + denominator > 0.0 ifTrue: [ ^(self / denominator) arcTan ]. + ^(self / denominator) arcTan + (Pi sign: self)! - self = 0.0 ifTrue: [ - denominator sign >= 0 ifTrue: [ ^0.0 ]. - self sign >= 0 ifTrue: [ ^Pi ]. - ^0.0 - Pi ]. - denominator = 0.0 ifTrue: [ - self > 0.0 ifTrue: [ ^Halfpi ]. - ^0.0 - Halfpi ]. - denominator > 0.0 ifTrue: [ ^(self / denominator) arcTan ]. - self > 0.0 ifTrue: [ ^(self / denominator) arcTan + Pi ]. - ^(self / denominator) arcTan - Pi! Item was changed: ----- Method: Float>>byteEncode:base: (in category 'printing') ----- byteEncode: aStream base: base "Handle sign, zero, and NaNs; all other values passed to absPrintOn:base:" self isNaN ifTrue: [aStream print: 'NaN'. ^ self]. "check for NaN before sign" self > 0.0 ifTrue: [self absByteEncode: aStream base: base] ifFalse: + [self signBit = 1 - [self sign = -1 ifTrue: [aStream print: '-']. self = 0.0 ifTrue: [aStream print: '0.0'. ^ self] ifFalse: [aStream writeNumber:self negated base: base]]! Item was removed: - ----- Method: Float>>copySignTo: (in category 'mathematical functions') ----- - copySignTo: aNumber - "Return a number with same magnitude as aNumber and same sign as self. - Implementation note: take care of Float negativeZero, which is considered as having a negative sign." - - (self > 0.0 or: [(self at: 1) = 0]) ifTrue: [^ aNumber abs]. - ^aNumber withNegativeSign! Item was changed: ----- Method: Float>>printOn:base: (in category 'printing') ----- printOn: aStream base: base "Print the receiver with the minimal number of digits that describes it unambiguously. This way, every two different Float will have a different printed representation. More over, every Float can be reconstructed from its printed representation with #readFrom:." self isNaN ifTrue: [aStream nextPutAll: 'NaN'. ^ self]. "check for NaN before sign" self > 0.0 ifTrue: [self absPrintExactlyOn: aStream base: base] ifFalse: + [self signBit = 1 - [self sign = -1 ifTrue: [aStream nextPutAll: '-']. self = 0.0 ifTrue: [aStream nextPutAll: '0.0'] ifFalse: [self negated absPrintExactlyOn: aStream base: base]]! Item was changed: ----- Method: Float>>printOn:maxDecimalPlaces: (in category 'printing') ----- printOn: aStream maxDecimalPlaces: placesDesired "Refine super implementation in order to avoid any rounding error caused by rounded or roundTo:" self isFinite ifFalse: [^self printOn: aStream]. self > 0.0 ifTrue: [self absPrintExactlyOn: aStream base: 10 decimalPlaces: placesDesired showTrailingFractionalZeros: false] ifFalse: + [self signBit = 1 - [self sign = -1 ifTrue: [aStream nextPutAll: '-']. self = 0.0 ifTrue: [aStream nextPutAll: '0.0'] ifFalse: [self absPrintExactlyOn: aStream base: 10 decimalPlaces: placesDesired showTrailingFractionalZeros: false]]! Item was changed: ----- Method: Float>>printOn:showingDecimalPlaces: (in category 'printing') ----- printOn: aStream showingDecimalPlaces: placesDesired "Refine super implementation in order to avoid any rounding error caused by rounded or roundTo:" self isFinite ifFalse: [^self printOn: aStream]. self > 0.0 ifTrue: [self absPrintExactlyOn: aStream base: 10 decimalPlaces: placesDesired showTrailingFractionalZeros: true] ifFalse: + [self signBit = 1 - [self sign = -1 ifTrue: [aStream nextPutAll: '-']. self = 0.0 ifTrue: [aStream nextPut: $0. placesDesired > 0 ifTrue: [aStream nextPut: $.; next: placesDesired put: $0]] ifFalse: [self absPrintExactlyOn: aStream base: 10 decimalPlaces: placesDesired showTrailingFractionalZeros: true]]! Item was removed: - ----- Method: Float>>sign (in category 'mathematical functions') ----- - sign - "Answer 1 if the receiver is greater than 0, -1 if less than 0, else 0. - Handle IEEE-754 negative-zero by reporting a sign of -1" - - self > 0.0 ifTrue: [ ^1 ]. - self < 0.0 ifTrue: [ ^-1 ]. - ^0 - ((self at: 1) bitShift: -31) "-1 for negative zero, 0 otherwise"! Item was removed: - ----- Method: Float>>sign: (in category 'mathematical functions') ----- - sign: aNumber - "Return a Number with the same sign as aNumber and same magnitude as self. - Implementation is different from super to handle the special case of Float negativeZero." - - (self = 0.0 and: [aNumber sign negative]) ifTrue: [^Float negativeZero]. - ^aNumber copySignTo: self! Item was added: + ----- Method: Float>>signBit (in category 'mathematical functions') ----- + signBit + "Answer 1 if the receiver has sign bit set (including case of IEEE-754 negative-zero). + Answer 0 otherwise" + + ^((self at: 1) bitShift: -31)! Item was changed: ----- Method: Float>>storeOn:base: (in category 'printing') ----- storeOn: aStream base: base "Print the Number exactly so it can be interpreted back unchanged" self isFinite + ifTrue: [self signBit = 1 ifTrue: [aStream nextPutAll: '-']. - ifTrue: [self sign = -1 ifTrue: [aStream nextPutAll: '-']. base = 10 ifFalse: [aStream print: base; nextPut: $r]. self = 0.0 ifTrue: [aStream nextPutAll: '0.0'] ifFalse: [self abs absPrintExactlyOn: aStream base: base]] ifFalse: [self isNaN ifTrue: [aStream nextPutAll: 'Float nan'] ifFalse: [self > 0.0 ifTrue: [aStream nextPutAll: 'Float infinity'] ifFalse: [aStream nextPutAll: 'Float infinity negated']]]! Item was removed: - ----- Method: Float>>withNegativeSign (in category 'converting') ----- - withNegativeSign - "Same as super, but handle the subtle case of Float negativeZero" - - self = 0.0 ifTrue: [^self class negativeZero]. - ^super withNegativeSign! Item was added: + ----- Method: LargeNegativeInteger>>signBit (in category 'testing') ----- + signBit + "Optimization." + + ^1 + ! Item was added: + ----- Method: LargePositiveInteger>>signBit (in category 'testing') ----- + signBit + "Optimization." + + ^0! Item was changed: ----- Method: Number>>copySignTo: (in category 'mathematical functions') ----- copySignTo: aNumber "Return a number with same magnitude as aNumber and same sign as self." + ^ self signBit = 0 - ^ self positive ifTrue: [aNumber abs] + ifFalse: [aNumber abs negated].! - ifFalse: [aNumber withNegativeSign].! Item was added: + ----- Method: Number>>signBit (in category 'mathematical functions') ----- + signBit + "Answer 1 if the receiver is negative, zero otherwise." + + self < 0 ifTrue: [^1]. + ^0! Item was removed: - ----- Method: Number>>withNegativeSign (in category 'converting') ----- - withNegativeSign - "Answer a number with same magnitude than receiver and negative sign." - ^self abs negated!

1 0

The Trunk: Files-cmm.166.mcz
by commits＠source.squeak.org 24 Jan '17

24 Jan '17

Chris Muller uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-cmm.166.mcz ==================== Summary ==================== Name: Files-cmm.166 Author: cmm Time: 24 January 2017, 3:47:38.072033 pm UUID: 1591ae96-17e3-4d5c-9e96-f5cb0a4e26e7 Ancestors: Files-tfel.165 - FileDirectory>>#assureExistence must not silently fail to assure the existence. =============== Diff against Files-tfel.165 =============== Item was changed: ----- Method: FileDirectory>>assureExistence (in category 'file directory') ----- assureExistence "Make sure the current directory exists. If necessary, create all parts in between" + self exists ifFalse: + [ self containingDirectory + assureExistence ; + createDirectory: self localName. + self exists ifFalse: [ Error signal: self fullName, ' could not be created. Permissions?' ] ]! - - self exists ifFalse: [ - self containingDirectory - assureExistence; - createDirectory: self localName]!

1 0

The Trunk: Morphic-mdlh.1319.mcz
by commits＠source.squeak.org 23 Jan '17

23 Jan '17

Patrick Rein uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mdlh.1319.mcz ==================== Summary ==================== Name: Morphic-mdlh.1319 Author: mdlh Time: 23 January 2017, 5:10:01.812757 pm UUID: 32f7ff94-54f4-6641-a426-88ea9ca86a4e Ancestors: Morphic-tfel.1318 corrected typo in description text of preference visualWrapBorder =============== Diff against Morphic-tfel.1318 =============== Item was changed: ----- Method: PluggableTextMorph class>>visualWrapBorder (in category 'preferences') ----- visualWrapBorder <preference: 'Show wrap border in code panes.' categoryList: #(editing visuals performance) + description: 'Show a visual border after a specific amount of characters. Makes sense for monospaced fonts.' - description: 'Show a visual border after a specific amout of characters. Makes sense for monospaced fonts.' type: #Boolean> ^ VisualWrapBorder ifNil: [false]!

1 0

The Trunk: System-tfel.924.mcz
by commits＠source.squeak.org 23 Jan '17

23 Jan '17

Tim Felgentreff uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tfel.924.mcz ==================== Summary ==================== Name: System-tfel.924 Author: tfel Time: 23 January 2017, 9:31:46.987369 am UUID: bd501831-ebe7-de41-8860-123b9fafdbc3 Ancestors: System-tfel.923 Update the hack around scaling in UserInterfaceTheme, so the label areas of Windows is resized correctly. =============== Diff against System-tfel.923 =============== Item was changed: ----- Method: UserInterfaceTheme>>fixFontsAndScaleAround: (in category 'private') ----- fixFontsAndScaleAround: block "Due to the current situation with fonts and the real-estate manager, this is a small workaround to support theme switching with largely different font sizes." lastScaleFactor ifNil: [lastScaleFactor := RealEstateAgent scaleFactor]. "Due to the current font situation, update TextConstants." [ ignoreApply := true. (self get: #standardSystemFont) ifNotNil: [:font | Preferences setSystemFontTo: font]. (self get: #standardFixedFont) ifNotNil: [:font | Preferences setFixedFontTo: font]. ] ensure: [ignoreApply := false]. "Apply theme etc." block value. + - "Due to the current real-estate manager situation, resize all windows. Works only for Morphic projects." + (RealEstateAgent scaleFactor - lastScaleFactor) abs > 0.1 ifTrue: [ - (RealEstateAgent scaleFactor - lastScaleFactor) abs > 0.5 ifTrue: [ Project current isMorphic ifTrue: [ | scale | scale := RealEstateAgent scaleFactor / lastScaleFactor. Project current world submorphs select: [:ea | ea isSystemWindow] + thenDo: [:ea | + ea extent: (ea extent * scale). + ea layoutChanged. + ea setFramesForLabelArea]]]. + - thenDo: [:ea | ea extent: (ea extent * scale)]]]. - lastScaleFactor := nil.!

1 0

The Trunk: Morphic-tfel.1318.mcz
by commits＠source.squeak.org 23 Jan '17

23 Jan '17

Tim Felgentreff uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tfel.1318.mcz ==================== Summary ==================== Name: Morphic-tfel.1318 Author: tfel Time: 23 January 2017, 9:29:29.465369 am UUID: 0a89c742-2294-8146-9196-afa7557a1cc4 Ancestors: Morphic-tfel.1317 - put font resizing on command key, so it works across platforms - when we update the label area of a system window, also update the boxes =============== Diff against Morphic-tfel.1317 =============== Item was changed: ----- Method: PasteUpMorph>>filterEvent:for: (in category 'events-processing') ----- filterEvent: aKeyboardEvent for: anObject "Provide keyboard shortcuts." "Delegate keyboard shortcuts to my docking bars." self submorphsDo: [:ea | ea isDockingBar ifTrue: [ ea filterEvent: aKeyboardEvent for: anObject. "No support for converting events here!!" aKeyboardEvent wasIgnored ifTrue: [^ aKeyboardEvent "early out"]]]. aKeyboardEvent isKeystroke ifFalse: [^ aKeyboardEvent]. + - aKeyboardEvent commandKeyPressed ifTrue: [ aKeyboardEvent keyCharacter caseOf: { [$R] -> [Utilities browseRecentSubmissions]. [$L] -> [self findAFileList: aKeyboardEvent]. [$O] -> [self findAMonticelloBrowser]. [$P] -> [self findAPreferencesPanel: aKeyboardEvent]. "[$Z] -> [ChangeList browseRecentLog]." [$]] -> [Smalltalk snapshot: true andQuit: false]. - } otherwise: [^ aKeyboardEvent "no hit"]. - ^ aKeyboardEvent ignore "hit!!"]. - aKeyboardEvent controlKeyPressed ifTrue: [ - aKeyboardEvent keyCharacter caseOf: { [$+] -> [Preferences increaseFontSize]. [$-] -> [Preferences decreaseFontSize]. [$=] -> [Preferences restoreDefaultFonts]. } otherwise: [^ aKeyboardEvent "no hit"]. ^ aKeyboardEvent ignore "hit!!"]. + ^ aKeyboardEvent "no hit"! Item was changed: ----- Method: SystemWindow>>setFramesForLabelArea (in category 'initialization') ----- setFramesForLabelArea "an aid to converting old instances, but then I found convertAlignment (jesse welton's note)" | frame | labelArea ifNil: [^ self]. labelArea layoutPolicy: TableLayout new; listDirection: #leftToRight; hResizing: #spaceFill; layoutInset: 0. label hResizing: #spaceFill. + {closeBox. menuBox. expandBox. collapseBox} do: [:box | + box ifNotNil: [box extent: self boxExtent]]. + frame := LayoutFrame new. + frame leftFraction: 0; + topFraction: 0; + rightFraction: 1; + bottomFraction: 0; + topOffset: self labelHeight negated. + labelArea layoutFrame: frame! - labelArea - ifNotNil: [frame := LayoutFrame new. - frame leftFraction: 0; - topFraction: 0; - rightFraction: 1; - bottomFraction: 0; - topOffset: self labelHeight negated. - labelArea layoutFrame: frame]!

1 0

The Trunk: Graphics-pre.367.mcz
by commits＠source.squeak.org 20 Jan '17

20 Jan '17

Patrick Rein uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-pre.367.mcz ==================== Summary ==================== Name: Graphics-pre.367 Author: pre Time: 20 January 2017, 5:44:33.081379 pm UUID: 6258ced8-1a7f-5344-914d-5a641a0734cf Ancestors: Graphics-bp.366 Implements HTML colors with 8 characters denoting RGBa colors. Small refactoring of fromString: method. =============== Diff against Graphics-bp.366 =============== Item was added: + ----- Method: Color class>>fromHTMLString: (in category 'other') ----- + fromHTMLString: aColorHex + "Do not call this method directly, call Color>>#fromString: instead as it is more generic" + + | green red blue resultColor | + red := (Integer readFrom: (aColorHex first: 2) base: 16). + green := (Integer readFrom: (aColorHex copyFrom: 3 to: 4) base: 16). + blue := (Integer readFrom: (aColorHex copyFrom: 5 to: 6) base: 16). + resultColor := self r: red g: green b: blue range: 255. + ^ (aColorHex size = 8) + ifTrue: [resultColor alpha: ((Integer readFrom: (aColorHex last: 2) base: 16) / 255)] + ifFalse: [resultColor]! Item was added: + ----- Method: Color class>>fromRGBString: (in category 'other') ----- + fromRGBString: rgb + "Do not call this method directly, call Color>>#fromString: instead as it is more generic" + + | green red blue | + red := (Integer readFrom:(rgb at: 1)) min: 255 max: 0. + green := (Integer readFrom:(rgb at: 2)) min: 255 max: 0. + blue := (Integer readFrom:(rgb at: 3)) min: 255 max: 0. + ^self r: red g: green b: blue range: 255! Item was changed: ----- Method: Color class>>fromString: (in category 'instance creation') ----- fromString: aString "for HTML color spec: #FFCCAA or white/black/red/other name, or an r,g,b triplet string" "Color fromString: '#FFCCAA'. Color fromString: 'white'. Color fromString: 'orange' Color fromString: '126,42,33' " | aColorHex rgb| aString isEmptyOrNil ifTrue: [ ^self white ]. aString first = $# ifTrue: [ aColorHex := aString allButFirst ] ifFalse: [ aColorHex := aString ]. + "is the string a 6 digit hex number?" + ((aColorHex size = 6 or: [aColorHex size = 8]) and: [ - (aColorHex size = 6 and: [ aColorHex allSatisfy: [ :each | '0123456789ABCDEFabcdef' includes: each ] ]) + ifTrue: [^ self fromHTMLString: aColorHex ]. + - ifTrue: [ - | green red blue | - red := (Integer readFrom: (aColorHex first: 2) base: 16). - green := (Integer readFrom: (aColorHex copyFrom: 3 to: 4) base: 16). - blue := (Integer readFrom: (aColorHex last: 2) base: 16). - ^self r: red g: green b: blue range: 255]. "is the string in the form a,b,c ?" rgb := aColorHex findTokens: $, . + rgb size = 3 ifTrue: [^ self fromRGBString: rgb]. + - rgb size = 3 ifTrue: [ - | green red blue | - red := (Integer readFrom:(rgb at: 1)) min: 255 max: 0. - green := (Integer readFrom:(rgb at: 2)) min: 255 max: 0. - blue := (Integer readFrom:(rgb at: 3)) min: 255 max: 0. - ^self r: red g: green b: blue range: 255]. "try to match aColorHex with known named colors, case insensitive" ^self perform: (ColorNames detect: [:colorSymbol | aColorHex sameAs: colorSymbol] ifNone: [ #white ])! Item was added: + ----- Method: TranslucentColor>>asHTMLColor (in category 'conversions') ----- + asHTMLColor + + ^ super asHTMLColor + , (Character digitValue: ((alpha bitShift: -4) bitAnd: 15)) + , (Character digitValue: (alpha bitAnd: 15))!

1 0

The Trunk: GraphicsTests-pre.42.mcz
by commits＠source.squeak.org 20 Jan '17

20 Jan '17

Patrick Rein uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-pre.42.mcz ==================== Summary ==================== Name: GraphicsTests-pre.42 Author: pre Time: 20 January 2017, 5:43:37.520379 pm UUID: 47dbcf43-ff4d-9648-ac3b-36b183918042 Ancestors: GraphicsTests-bp.41 Tests for HTML colors with 8 characters including alpha channel =============== Diff against GraphicsTests-bp.41 =============== Item was changed: ----- Method: ColorTest>>testAsHTMLColor (in category 'testing') ----- testAsHTMLColor | table aColorString | table := #('0' '1' '2' '3' '4' '5' '6' '7' '8' '9' 'A' 'B' 'C' 'D' 'E' 'F'). table do: [ :each | aColorString := '#', each, each, '0000'. + self assert: (Color fromString: aColorString) asHTMLColor equals: aColorString]. - self assert: ((Color fromString: aColorString) asHTMLColor sameAs: aColorString)]. table do: [ :each | aColorString := '#', '00', each, each, '00'. + self assert: (Color fromString: aColorString) asHTMLColor equals: aColorString]. - self assert: ((Color fromString: aColorString) asHTMLColor sameAs: aColorString)]. table do: [ :each | aColorString := '#', '0000', each, each. + self assert: (Color fromString: aColorString) asHTMLColor equals: aColorString]. - self assert: ((Color fromString: aColorString) asHTMLColor sameAs: aColorString)]. table do: [ :each | aColorString := '#', each, each, each, each, each, each. + self assert: (Color fromString: aColorString) asHTMLColor equals: aColorString]. + + table do: [ :each | + aColorString := '#', each, each, each, each, each, each, each, each. + each = 'F' + ifTrue: [self assert: (Color fromString: aColorString) asHTMLColor equals: '#FFFFFF' description: 'For full alpha channel the no alpha color is used'] + ifFalse: [self assert: (Color fromString: aColorString) asHTMLColor equals: aColorString]].! - self assert: ((Color fromString: aColorString) asHTMLColor sameAs: aColorString)].! Item was changed: ----- Method: ColorTest>>testFromString (in category 'testing') ----- testFromString self assert: ((Color fromString: '#FF8800') asHTMLColor sameAs: '#ff8800'); assert: ((Color fromString: 'FF8800') asHTMLColor sameAs: '#ff8800'); + assert: ((Color fromString: '126,42,33') asHTMLColor sameAs: '#7E2A21'); + assert: ((Color fromString: '00000000') asHTMLColor sameAs: '#00000000'); "html with alpha channel" + assert: ((Color fromString: '#8C500BAE') asHTMLColor sameAs: '#8C500BAE'); assert: ((Color fromString: 'white') asHTMLColor sameAs: '#ffffff'); assert: ((Color fromString: 'black') asHTMLColor sameAs: '#000000'); assert: ((Color fromString: nil) asHTMLColor sameAs: '#ffffff'); assert: ((Color fromString: 'inexistent color') asHTMLColor sameAs: '#ffffff'); "should return white" + assert: ((Color fromString: 'XXXXXX') asHTMLColor sameAs: '#ffffff') description: 'Color string should be alphanumeric'; + assert: ((Color fromString: '000000000') asHTMLColor sameAs: '#ffffff') description: 'number string too long'. - assert: ((Color fromString: 'XXXXXX') asHTMLColor sameAs: '#ffffff'); "not alphanumeric" - assert: ((Color fromString: '00000000') asHTMLColor sameAs: '#ffffff'). "too many digits" self assert: (Color fromString: 'DARKGRAY') = Color darkGray description: 'Color can be specified with a case insensitive color name'; assert: (Color fromString: '#blue') = Color blue description: 'Color can be specified with a leading literal sharp'.!

1 0

The Trunk: System-tfel.923.mcz
by commits＠source.squeak.org 18 Jan '17

18 Jan '17

Tim Felgentreff uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tfel.923.mcz ==================== Summary ==================== Name: System-tfel.923 Author: tfel Time: 18 January 2017, 10:05:39.926932 am UUID: d9dcb1e9-52fe-435e-9d88-96f921f9fd20 Ancestors: System-ul.922 add methods to quickly increase/decrease fonts =============== Diff against System-ul.922 =============== Item was added: + ----- Method: Preferences class>>changeFontSize: (in category 'prefs - fonts') ----- + changeFontSize: delta + | theme base fonts | + delta = 0 ifTrue: [self restoreDefaultFonts]. + (UserInterfaceTheme current name beginsWith: 'Demo') + ifFalse: [ + "Create DEMO version of current theme." + theme := UserInterfaceTheme named: 'Demo'. + theme merge: UserInterfaceTheme current overwrite: true. + theme apply]. + + base := (TextStyle defaultFont name beginsWith: 'Darkmap') + ifTrue: ['Darkmap DejaVu Sans'] ifFalse: ['Bitmap DejaVu Sans']. + + fonts := { + {#SystemFont. base}. + {#FixedFont. 'BitstreamVeraSansMono'}. + {#ListFont. base}. + {#FlapFont. base}. + {#EToysFont. base}. + {#PaintBoxButtonFont. base}. + {#MenuFont. base}. + {#WindowTitleFont. base, ' B'}. + {#BalloonHelpFont. base}. + {#CodeFont. base}. + {#ButtonFont. base}. + } collect: [:ary || newPtSize | + newPtSize := (self perform: ('standard', ary first) asSymbol) pointSize + delta. + {('set', ary first, 'To:') asSymbol. ary second. newPtSize} + ]. + self setDefaultFonts: fonts. + ! Item was added: + ----- Method: Preferences class>>decreaseFontSize (in category 'prefs - fonts') ----- + decreaseFontSize + + self changeFontSize: -3. + ! Item was added: + ----- Method: Preferences class>>increaseFontSize (in category 'prefs - fonts') ----- + increaseFontSize + + self changeFontSize: 3. + ! Item was added: + ----- Method: Preferences class>>setFlapFontTo: (in category 'prefs - fonts') ----- + setFlapFontTo: aFont + + UserInterfaceTheme current + set: #standardFlapFont + to: aFont; + apply. + + "FlapTab allSubInstancesDo: + [:aFlapTab | aFlapTab reformatTextualTab]"! Item was added: + ----- Method: Preferences class>>standardWindowTitleFont (in category 'prefs - fonts') ----- + standardWindowTitleFont + "Answer the standard font to use for window titles" + + ^ (UserInterfaceTheme current get: #windowTitleFont) + ifNil: [TextStyle defaultFont]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2017