Packages May 2018

packages@lists.squeakfoundation.org

1 participants
110 discussions

The Trunk: Tools-dtl.811.mcz
by commits＠source.squeak.org 05 May '18

05 May '18

David T. Lewis uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-dtl.811.mcz ==================== Summary ==================== Name: Tools-dtl.811 Author: dtl Time: 5 May 2018, 10:41:00.811008 am UUID: e5d09833-9847-4845-bd49-b0a7eef2cb81 Ancestors: Tools-dtl.810 Remove SequencableCollection>>canonicalArgumentName (introduced in Tools-eem.788) because it produces unexpected results in DebuggerExtensionsTest>>testCollectionsGeneralise. See discussion in [squeak-dev] Two tests failing in trunk but not 5.1 =============== Diff against Tools-dtl.810 =============== Item was removed: - ----- Method: SequenceableCollection>>canonicalArgumentName (in category '*Tools-Debugger') ----- - canonicalArgumentName - ^ 'Sequence'!

1 0

The Trunk: ToolsTests-dtl.82.mcz
by commits＠source.squeak.org 05 May '18

05 May '18

David T. Lewis uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-dtl.82.mcz ==================== Summary ==================== Name: ToolsTests-dtl.82 Author: dtl Time: 5 May 2018, 10:39:38.472254 am UUID: ec63abd1-1478-4ed0-b739-2f5119311e0d Ancestors: ToolsTests-mt.81 Update DebuggerExtensionsTest>>testCollectionsGeneralise per Tools-eem.788 to expect 'Array' rather than 'Collection' for Array and its subclasses. OrderedCollection and LinkedList should continue to answer 'Collection'. =============== Diff against ToolsTests-mt.81 =============== Item was changed: ----- Method: DebuggerExtensionsTest>>testCollectionsGeneralise (in category 'testing - canonical argument names') ----- testCollectionsGeneralise + "ArrayedCollection and subclasses answer 'Array' " + self assert: Array name equals: Array new canonicalArgumentName. + "Otherwise answer the more general 'Collection' " - self assert: Collection name equals: Array new canonicalArgumentName. self assert: Collection name equals: OrderedCollection new canonicalArgumentName. self assert: Collection name equals: LinkedList new canonicalArgumentName!

1 0

The Trunk: Monticello-nice.681.mcz
by commits＠source.squeak.org 04 May '18

04 May '18

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-nice.681.mcz ==================== Summary ==================== Name: Monticello-nice.681 Author: nice Time: 4 May 2018, 10:00:40.132663 pm UUID: 9efb006e-e55d-40d3-8a5a-57517ef6daf1 Ancestors: Monticello-mt.680 named: yet classified =============== Diff against Monticello-mt.680 =============== Item was changed: + ----- Method: MCPackage class>>named: (in category 'instance creation') ----- - ----- Method: MCPackage class>>named: (in category 'as yet unclassified') ----- named: aString ^ self new name: aString!

1 0

The Trunk: Graphics-mt.397.mcz
by commits＠source.squeak.org 04 May '18

04 May '18

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.397.mcz ==================== Summary ==================== Name: Graphics-mt.397 Author: mt Time: 4 May 2018, 3:57:07.881404 pm UUID: 3dce1413-6ad1-a249-8115-0bbb3bd2a241 Ancestors: Graphics-nice.396 Avoid the creation of strange-looking fonts. If that font already exhibits the requested emphasis, do not try to do further magic. =============== Diff against Graphics-nice.396 =============== Item was changed: ----- Method: StrikeFont>>emphasized: (in category 'emphasis') ----- emphasized: code "Answer a copy of the receiver with emphasis set to include code." | derivative addedEmphasis base safeCode | code = 0 ifTrue: [^ self]. + code = self emphasis ifTrue: [^ self]. (derivativeFonts == nil or: [derivativeFonts size = 0]) ifTrue: [^ self]. derivative := derivativeFonts at: (safeCode := code min: derivativeFonts size). derivative == nil ifFalse: [^ derivative]. "Already have this style" "Dont have it -- derive from another with one with less emphasis" addedEmphasis := 1 bitShift: safeCode highBit - 1. base := self emphasized: safeCode - addedEmphasis. "Order is Bold, Ital, Under, Narrow" addedEmphasis = 1 ifTrue: "Compute synthetic bold version of the font" [derivative := (base copy ensureCleanBold name: base name , 'B') makeBoldGlyphs]. addedEmphasis = 2 ifTrue: "Compute synthetic italic version of the font" [ derivative := (base copy name: base name , 'I') makeItalicGlyphs]. addedEmphasis = 4 ifTrue: "Compute underlined version of the font" [derivative := (base copy name: base name , 'U') makeUnderlinedGlyphs]. addedEmphasis = 8 ifTrue: "Compute narrow version of the font" [derivative := (base copy name: base name , 'N') makeCondensedGlyphs]. addedEmphasis = 16 ifTrue: "Compute struck-out version of the font" [derivative := (base copy name: base name , 'X') makeStruckOutGlyphs]. derivative emphasis: safeCode. derivativeFonts at: safeCode put: derivative. ^ derivative!

1 0

The Trunk: Morphic-mt.1426.mcz
by commits＠source.squeak.org 04 May '18

04 May '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1426.mcz ==================== Summary ==================== Name: Morphic-mt.1426 Author: mt Time: 4 May 2018, 8:49:10.20407 am UUID: 1f2d43f7-f891-4a45-a18c-306ae6fa4094 Ancestors: Morphic-mt.1425 Minor fix to reset mouse cursor for drag-drop operations. Got annoying because of the text cursor in workspaces. Try: "Morph new openInHand". Needs further clean-up because #attachMorph:, #grabMorph:, and #grabMorph:from: exhibit much code duplication. =============== Diff against Morphic-mt.1425 =============== Item was changed: ----- Method: HandMorph>>attachMorph: (in category 'grabbing/dropping') ----- attachMorph: m "Position the center of the given morph under this hand, then grab it. This method is used to grab far away or newly created morphs." | delta | self releaseMouseFocus. "Break focus" + self showTemporaryCursor: nil. delta := m bounds extent // 2. m position: (self position - delta). m formerPosition: m position. targetOffset := m position - self position. self addMorphBack: m.! Item was changed: ----- Method: HandMorph>>grabMorph: (in category 'meta-actions') ----- grabMorph: aMorph "Grab the given morph (i.e., add it to this hand and remove it from its current owner) without changing its position. This is used to pick up a morph under the hand's current position, versus attachMorph: which is used to pick up a morph that may not be near this hand." | grabbed | self releaseMouseFocus. "Break focus" + self showTemporaryCursor: nil. grabbed := aMorph aboutToBeGrabbedBy: self. grabbed ifNil:[^self]. grabbed := grabbed topRendererOrSelf. ^self grabMorph: grabbed from: grabbed owner! Item was changed: ----- Method: HandMorph>>grabMorph:from: (in category 'grabbing/dropping') ----- grabMorph: aMorph from: formerOwner "Grab the given morph (i.e., add it to this hand and remove it from its current owner) without changing its position. This is used to pick up a morph under the hand's current position, versus attachMorph: which is used to pick up a morph that may not be near this hand." | grabbed offset targetPoint grabTransform fullTransform | self releaseMouseFocus. "Break focus" + self showTemporaryCursor: nil. grabbed := aMorph. aMorph keepsTransform ifTrue:[ grabTransform := fullTransform := IdentityTransform new. ] ifFalse:[ "Compute the transform to apply to the grabbed morph" grabTransform := formerOwner ifNil: [IdentityTransform new] ifNotNil: [formerOwner grabTransform]. "Compute the full transform for the grabbed morph" fullTransform := formerOwner ifNil: [IdentityTransform new] ifNotNil: [formerOwner transformFrom: owner]. ]. "targetPoint is point in aMorphs reference frame" targetPoint := fullTransform globalPointToLocal: self position. "but current position will be determined by grabTransform, so compute offset" offset := targetPoint - (grabTransform globalPointToLocal: self position). "apply the transform that should be used after grabbing" grabbed := grabbed transformedBy: grabTransform. grabbed == aMorph ifFalse: [grabbed setProperty: #addedFlexAtGrab toValue: true]. "offset target to compensate for differences in transforms" grabbed position: grabbed position - offset asIntegerPoint. "And compute distance from hand's position" targetOffset := grabbed position - self position. self addMorphBack: grabbed. grabbed justGrabbedFrom: formerOwner.!

1 0

The Trunk: Morphic-mt.1425.mcz
by commits＠source.squeak.org 04 May '18

04 May '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1425.mcz ==================== Summary ==================== Name: Morphic-mt.1425 Author: mt Time: 4 May 2018, 8:03:48.28207 am UUID: fec34f3d-5815-0d4c-b3d7-e205cfe2ef7a Ancestors: Morphic-kfr.1424 In Morphic's dialog for true/false choices, support cancellation as a third option. Yes, this might break some old code, yet, I am not aware of a frequent use case here. We should be fine. We need this little change for the ListChooser. See ToolBuilder-Morphic-mt.217. =============== Diff against Morphic-kfr.1424 =============== Item was changed: ----- Method: UserDialogBoxMorph class>>confirm:title:trueChoice:falseChoice:at: (in category 'utilities') ----- confirm: aString title: titleString trueChoice: trueChoice falseChoice: falseChoice at: aPointOrNil "UserDialogBoxMorph confirm: 'Make your choice carefully' withCRs title: 'Do you like chocolate?' trueChoice: 'Oh yessir!!' falseChoice: 'Not so much...'" ^self new title: titleString; message: aString; createButton: trueChoice translated value: true; + createButton: falseChoice translated value: false; + createCancelButton: 'Cancel' translated translated value: nil; - createCancelButton: falseChoice translated value: false; selectedButtonIndex: 1; registerKeyboardShortcuts; preferredPosition: (aPointOrNil ifNil: [ActiveWorld center]); getUserResponse! Item was changed: ----- Method: UserDialogBoxMorph class>>confirm:title:trueChoice:falseChoice:default:triggerAfter:at: (in category 'utilities') ----- confirm: aString title: titleString trueChoice: trueChoice falseChoice: falseChoice default: default triggerAfter: seconds at: aPointOrNil "UserDialogBoxMorph confirm: 'I like hot java' title: 'What do you say?' trueChoice: 'You bet!!' falseChoice: 'Nope' default: false triggerAfter: 12 at: 121@212" ^self new title: titleString; message: aString; createButton: trueChoice translated value: true; + createButton: falseChoice translated value: false; + createCancelButton: 'Cancel' translated translated value: nil; - createCancelButton: falseChoice translated value: false; selectedButtonIndex: (default ifTrue: [1] ifFalse: [2]); registerKeyboardShortcuts; preferredPosition: (aPointOrNil ifNil: [ActiveWorld center]); getUserResponseAfter: seconds!

1 0

The Trunk: ToolBuilder-Morphic-mt.217.mcz
by commits＠source.squeak.org 04 May '18

04 May '18

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.217.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.217 Author: mt Time: 4 May 2018, 8:00:07.49707 am UUID: cd568389-663e-a647-9920-ff9ec82e9544 Ancestors: ToolBuilder-Morphic-pre.216 When adding a new item to the list via the ListChooser, allow for cancelling the (optional) confirmation step. =============== Diff against ToolBuilder-Morphic-pre.216 =============== Item was changed: ----- Method: ListChooser>>accept (in category 'actions') ----- accept "if the user submits with no valid entry, make them start over" | choice | self canAccept ifFalse: [ self canAdd ifTrue: [^ self add]. ^ self changed: #textSelection]. choice := self selectedItem. self canAdd ifTrue: [ "Ask the user whether to add the new item or choose the list selection." + (UserDialogBoxMorph + confirm: 'You can either choose an existing item or add a new one.\What do you want?' translated withCRs + title: 'Choose or Add' translated + trueChoice: choice asString + falseChoice: self searchText asString at: ActiveHand position) + ifNil: ["Cancelled" self result: nil. ^ self] + ifNotNil: [:answer | + answer ifTrue: [self result: choice] ifFalse: [self result: self searchText asString]] - (UserDialogBoxMorph confirm: 'You can either choose an existing item or add a new one.\What do you want?' translated withCRs title: 'Choose or Add' translated trueChoice: choice asString falseChoice: self searchText asString at: ActiveHand position) - ifTrue: [self result: choice] ifFalse: [self result: self searchText asString] ] ifFalse: [self result: choice]. self changed: #close.!

1 0

The Trunk: Collections-nice.794.mcz
by commits＠source.squeak.org 04 May '18

04 May '18

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.794.mcz ==================== Summary ==================== Name: Collections-nice.794 Author: nice Time: 4 May 2018, 12:48:13.071978 am UUID: 1ffc2862-2360-4a20-876b-782ae5cb72f5 Ancestors: Collections-eem.793 Provide CharacterSet includesCode: and also ASCII and non ASCII maps. =============== Diff against Collections-eem.793 =============== Item was removed: - ----- Method: ByteCharacterSet>>includes: (in category 'testing') ----- - includes: anObject - - | index | - anObject isCharacter ifFalse: [ ^false ]. - (index := anObject asInteger + 1) > 256 ifTrue: [ ^false ]. - ^(byteArrayMap at: index) > 0! Item was added: + ----- Method: ByteCharacterSet>>includesCode: (in category 'testing') ----- + includesCode: anInteger + anInteger > 255 ifTrue: [ ^false ]. + ^(byteArrayMap at: anInteger + 1) > 0! Item was changed: Collection subclass: #CharacterSet instanceVariableNames: 'byteArrayMap' + classVariableNames: 'Ascii CrLf NonAscii NonSeparators Separators' - classVariableNames: 'CrLf NonSeparators Separators' poolDictionaries: '' category: 'Collections-Support'! !CharacterSet commentStamp: '<historical>' prior: 0! A set of characters. Lookups for inclusion are very fast.! Item was added: + ----- Method: CharacterSet class>>ascii (in category 'accessing') ----- + ascii + "return a set containing all the ASCII characters" + + ^Ascii ifNil: [ Ascii := self newFrom: ((1 to: 127) collect: [:code | code asCharacter]) ]! Item was added: + ----- Method: CharacterSet class>>nonAscii (in category 'accessing') ----- + nonAscii + "return a set containing all the non ASCII characters" + + ^NonAscii ifNil: [ NonAscii := self ascii complement ]! Item was changed: ----- Method: CharacterSet>>createByteArrayMap (in category 'private') ----- createByteArrayMap + ^ (0 to: 255) + collect: [:i | (self includesCode: i) ifTrue: [1] ifFalse: [0]] + as: ByteArray! - ^ (0 to: 255) asByteArray collect: - [:i | (self includes: (Character value: i)) ifTrue: [1] ifFalse: [0]]! Item was added: + ----- Method: CharacterSet>>includes: (in category 'testing') ----- + includes: anObject + anObject isCharacter ifFalse: [ ^false ]. + ^self includesCode: anObject asInteger! Item was added: + ----- Method: CharacterSet>>includesCode: (in category 'testing') ----- + includesCode: anInteger + ^self subclassResponsibility! Item was removed: - ----- Method: CharacterSetComplement>>includes: (in category 'testing') ----- - includes: anObject - - anObject isCharacter ifFalse: [ ^false ]. - (absent includes: anObject) ifTrue: [ ^false ]. - ^true! Item was added: + ----- Method: CharacterSetComplement>>includesCode: (in category 'testing') ----- + includesCode: anInteger + (absent includesCode: anInteger) ifTrue: [ ^false ]. + ^true! Item was added: + ----- Method: LazyCharacterSet>>includesCode: (in category 'testing') ----- + includesCode: anInteger + ^block value: (Character value: anInteger)! Item was changed: + ----- Method: WeakIdentityDictionary>>removeUnreferencedKeys (in category 'removing') ----- - ----- Method: WeakIdentityDictionary>>removeUnreferencedKeys (in category 'as yet unclassified') ----- removeUnreferencedKeys "Make sure tally is set to the right size by #compact." super removeUnreferencedKeys. self compact! Item was removed: - ----- Method: WideCharacterSet>>includes: (in category 'testing') ----- - includes: anObject - - | value | - anObject isCharacter ifFalse: [ ^false ]. - (value := anObject asInteger) < 256 ifTrue: [ - ^(byteArrayMap at: value + 1) ~= 0 ]. - ^((map at: (value bitShift: highBitsShift) ifAbsent: nil) ifNil: [ ^false ]) - includes: (value bitAnd: lowBitsMask)! Item was added: + ----- Method: WideCharacterSet>>includesCode: (in category 'testing') ----- + includesCode: anInteger + anInteger < 256 ifTrue: [ ^(byteArrayMap at: anInteger + 1) ~= 0 ]. + ^((map at: (anInteger bitShift: highBitsShift) ifAbsent: nil) ifNil: [ ^false ]) + includes: (anInteger bitAnd: lowBitsMask)!

1 0

The Trunk: System-kfr.1022.mcz
by commits＠source.squeak.org 03 May '18

03 May '18

Karl Ramberg uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-kfr.1022.mcz ==================== Summary ==================== Name: System-kfr.1022 Author: kfr Time: 3 May 2018, 8:03:36.590229 pm UUID: 53fd1f63-34eb-f24e-ac23-99850d5b6f09 Ancestors: System-eem.1021 Class needed for bringing in old projects. =============== Diff against System-eem.1021 =============== Item was added: + ClassCategoryReader subclass: #RenamedClassSourceReader + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Object Storage'! Item was added: + ----- Method: RenamedClassSourceReader class>>formerClassName:methodsFor:stamp: (in category 'as yet unclassified') ----- + formerClassName: formerClassName methodsFor: aCategory stamp: aString + + ^self new + setClass: formerClassName + category: aCategory + changeStamp: aString! Item was added: + ----- Method: RenamedClassSourceReader class>>scanner (in category 'as yet unclassified') ----- + scanner + + ^self new! Item was added: + ----- Method: RenamedClassSourceReader>>scanFrom: (in category 'as yet unclassified') ----- + scanFrom: aStream + + self flag: #bob. "should this ever happen?" + self halt.! Item was added: + ----- Method: RenamedClassSourceReader>>scanFromNoCompile: (in category 'as yet unclassified') ----- + scanFromNoCompile: aStream + + self flag: #bob. "should this ever happen?" + self halt.! Item was added: + ----- Method: RenamedClassSourceReader>>scanFromNoCompile:forSegment: (in category 'as yet unclassified') ----- + scanFromNoCompile: aStream forSegment: anImageSegment + "Just move the source code for the methods from aStream." + | methodText d | + + [ + (methodText _ aStream nextChunkText) size > 0 + ] whileTrue: [ + (SourceFiles at: 2) ifNotNil: [ + d _ Dictionary new. + d + at: #oldClassName put: class; "may be 'Player1' or 'Player1 class'" + at: #methodText put: methodText; + at: #changeStamp put: changeStamp; + at: #category put: category. + anImageSegment acceptSingleMethodSource: d. + ] + ]!

1 0

The Trunk: Morphic-kfr.1424.mcz
by commits＠source.squeak.org 03 May '18

03 May '18

Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1424.mcz ==================== Summary ==================== Name: Morphic-kfr.1424 Author: kfr Time: 3 May 2018, 8:09:18.476229 pm UUID: 4e43a771-b83b-9a48-9633-6665d351ae79 Ancestors: Morphic-kfr.1423 Guard against textStyle = nil =============== Diff against Morphic-kfr.1423 =============== Item was changed: ----- Method: TextMorph>>fixUponLoad:seg: (in category 'objects from disk') ----- fixUponLoad: aProject seg: anImageSegment "We are in an old project that is being loaded from disk. Fix up conventions that have changed." + | substituteFont includesSubstituteFont | - | substituteFont | substituteFont := aProject projectParameters at: #substitutedFont ifAbsent: [#none]. + includesSubstituteFont := false. + self textStyle ifNotNil: [includesSubstituteFont := self textStyle fontArray includes: substituteFont]. + (substituteFont ~~ #none and: [includesSubstituteFont]) - (substituteFont ~~ #none and: [self textStyle fontArray includes: substituteFont]) ifTrue: [ self fit ]. ^ super fixUponLoad: aProject seg: anImageSegment!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2018