Packages September 2019

packages@lists.squeakfoundation.org

1 participants
182 discussions

The Trunk: MorphicExtras-mt.265.mcz
by commits＠source.squeak.org 26 Sep '19

26 Sep '19

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.265.mcz ==================== Summary ==================== Name: MorphicExtras-mt.265 Author: mt Time: 26 September 2019, 1:54:11.371102 pm UUID: cdf603c6-b37f-4141-802b-98bc37b28605 Ancestors: MorphicExtras-kfr.264 Use system scale for paint-box morph instead of new preference. Note that this code still as etoys dependencies that need to be resolved. =============== Diff against MorphicExtras-kfr.264 =============== Item was added: + ----- Method: PaintBoxMorph>>beSupersized (in category 'initialization') ----- + beSupersized + | scaleFactor | + scaleFactor := RealEstateAgent scaleFactor. + self isFlexed + ifFalse: [self scaleFactor: scaleFactor. + self position: self position / scaleFactor. + self changed]! Item was changed: ----- Method: SketchEditorMorph>>initializeFor:inBounds:pasteUpMorph:paintBoxPosition: (in category 'initialization') ----- initializeFor: aSketchMorph inBounds: boundsToUse pasteUpMorph: aPasteUpMorph paintBoxPosition: aPosition "NB: if aPosition is nil, then it's assumed that the paintbox is obtained from a flap or some such, so do nothing special regarding a palette in this case. The palette needs already to be in the world for this to work." | w | (w := aPasteUpMorph world) addMorphInLayer: self. "in back of palette" enclosingPasteUpMorph := aPasteUpMorph. hostView := aSketchMorph. "may be ownerless" self bounds: boundsToUse. palette := w paintBox focusMorph: self. palette beStatic. "give Nebraska whatever help we can" palette addWeakDependent: self. aPosition ifNotNil: [w addMorphFront: palette. "bring to front" palette position: aPosition. + palette beSupersized]. - Preferences useBiggerPaintingBox ifTrue: [palette beSupersized]]. paintingForm := Form extent: bounds extent depth: w assuredCanvas depth. self dimTheWindow. self addRotationScaleHandles. aSketchMorph ifNotNil: [ aSketchMorph form displayOn: paintingForm at: (hostView boundsInWorld origin - bounds origin - hostView form offset) clippingBox: (0@0 extent: paintingForm extent) rule: Form over fillColor: nil. "assume they are the same depth". undoBuffer := paintingForm deepCopy. rotationCenter := aSketchMorph rotationCenter]!

1 0

The Trunk: MorphicExtras-kfr.264.mcz
by commits＠source.squeak.org 26 Sep '19

26 Sep '19

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.264.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.264 Author: kfr Time: 23 September 2019, 8:11:15.349115 pm UUID: 8d0cb732-a340-be45-b4a7-73e70163ce63 Ancestors: MorphicExtras-mt.263 Honor preference useBiggerPaintingBox =============== Diff against MorphicExtras-mt.263 =============== Item was changed: ----- Method: SketchEditorMorph>>initializeFor:inBounds:pasteUpMorph:paintBoxPosition: (in category 'initialization') ----- initializeFor: aSketchMorph inBounds: boundsToUse pasteUpMorph: aPasteUpMorph paintBoxPosition: aPosition "NB: if aPosition is nil, then it's assumed that the paintbox is obtained from a flap or some such, so do nothing special regarding a palette in this case. The palette needs already to be in the world for this to work." | w | (w := aPasteUpMorph world) addMorphInLayer: self. "in back of palette" enclosingPasteUpMorph := aPasteUpMorph. hostView := aSketchMorph. "may be ownerless" self bounds: boundsToUse. palette := w paintBox focusMorph: self. palette beStatic. "give Nebraska whatever help we can" palette addWeakDependent: self. aPosition ifNotNil: [w addMorphFront: palette. "bring to front" + palette position: aPosition. + Preferences useBiggerPaintingBox ifTrue: [palette beSupersized]]. - palette position: aPosition]. paintingForm := Form extent: bounds extent depth: w assuredCanvas depth. self dimTheWindow. self addRotationScaleHandles. aSketchMorph ifNotNil: [ aSketchMorph form displayOn: paintingForm at: (hostView boundsInWorld origin - bounds origin - hostView form offset) clippingBox: (0@0 extent: paintingForm extent) rule: Form over fillColor: nil. "assume they are the same depth". undoBuffer := paintingForm deepCopy. rotationCenter := aSketchMorph rotationCenter]!

1 0

The Trunk: Tools-mt.894.mcz
by commits＠source.squeak.org 26 Sep '19

26 Sep '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.894.mcz ==================== Summary ==================== Name: Tools-mt.894 Author: mt Time: 26 September 2019, 11:51:47.732232 am UUID: 49cc71d2-c009-b546-a310-b7bc31cd2eb0 Ancestors: Tools-mt.893 Fixes recent regression with "create" button in debugger notifier. Cleans up message categories to make the notifier functionality more clear. =============== Diff against Tools-mt.893 =============== Item was changed: + ----- Method: Debugger>>askForCategoryIn:default: (in category 'notifier support') ----- - ----- Method: Debugger>>askForCategoryIn:default: (in category 'context stack menu') ----- askForCategoryIn: aClass default: aString | categories index category | categories := OrderedCollection with: 'new ...'. categories addAll: (aClass allMethodCategoriesIntegratedThrough: Object). index := UIManager default chooseFrom: categories title: 'Please provide a good category for the new method!!' translated. index = 0 ifTrue: [^ aString]. category := index = 1 ifTrue: [UIManager default request: 'Enter category name:'] ifFalse: [categories at: index]. ^ category isEmpty ifTrue: [^ aString] ifFalse: [category]! Item was changed: + ----- Method: Debugger>>askForSuperclassOf:toImplement:ifCancel: (in category 'notifier support') ----- - ----- Method: Debugger>>askForSuperclassOf:toImplement:ifCancel: (in category 'private') ----- askForSuperclassOf: aClass toImplement: aSelector ifCancel: cancelBlock | classes chosenClassIndex | classes := aClass withAllSuperclasses. chosenClassIndex := UIManager default chooseFrom: (classes collect: [:c | c name]) title: 'Define #', aSelector, ' in which class?'. chosenClassIndex = 0 ifTrue: [^ cancelBlock value]. ^ classes at: chosenClassIndex! Item was changed: + ----- Method: Debugger>>askForSuperclassOf:upTo:toImplement:ifCancel: (in category 'notifier support') ----- - ----- Method: Debugger>>askForSuperclassOf:upTo:toImplement:ifCancel: (in category 'private') ----- askForSuperclassOf: aClass upTo: superclass toImplement: aSelector ifCancel: cancelBlock | classes chosenClassIndex | classes := aClass withAllSuperclasses reject: [:cls | aClass isKindOf: cls]. chosenClassIndex := UIManager default chooseFrom: (classes collect: [:c | c name]) title: 'Define #', aSelector, ' in which class?'. chosenClassIndex = 0 ifTrue: [^ cancelBlock value]. ^ classes at: chosenClassIndex! Item was changed: + ----- Method: Debugger>>contextStackIndex (in category 'context stack - message list') ----- - ----- Method: Debugger>>contextStackIndex (in category 'context stack (message list)') ----- contextStackIndex "Answer the index of the selected context." ^contextStackIndex! Item was changed: + ----- Method: Debugger>>contextStackList (in category 'context stack - message list') ----- - ----- Method: Debugger>>contextStackList (in category 'context stack (message list)') ----- contextStackList "Answer the array of contexts." ^contextStackList! Item was changed: + ----- Method: Debugger>>createImplementingMethod (in category 'notifier buttons') ----- - ----- Method: Debugger>>createImplementingMethod (in category 'private') ----- createImplementingMethod "Should only be called when this Debugger was created in response to a NotYetImplemented exception. All we need to do is pop the signalling context off the stack and open the #notYetImplemented method." | signallingContext | + self initializeFull. signallingContext := self selectedContext sender. "Pop the signalling context off the stack" self resetContext: signallingContext. self debug.! Item was changed: + ----- Method: Debugger>>createMethod (in category 'notifier buttons') ----- - ----- Method: Debugger>>createMethod (in category 'private') ----- createMethod "Should only be called when this Debugger was created in response to a MessageNotUnderstood exception. Create a stub for the method that was missing and proceed into it." | msg chosenClass | + self initializeFull. msg := self contextStackTop exceptionMessage. chosenClass := self askForSuperclassOf: self contextStackTop receiver class toImplement: msg selector ifCancel: [^self]. self implementMissingMethod: msg inClass: chosenClass.! Item was changed: + ----- Method: Debugger>>createOverridingMethod (in category 'notifier buttons') ----- - ----- Method: Debugger>>createOverridingMethod (in category 'private') ----- createOverridingMethod "Should only be called when this Debugger was created in response to a SubclassResponsibility exception. Create a stub for the method that needs overriding and proceed into it. Let the user only select a class in the inheritance chain between the actual class and the class declaring the subclassResponsibility." | chosenClass msg category | + self initializeFull. msg := self contextStackTop exceptionMessage. chosenClass := self askForSuperclassOf: self contextStackTop receiver class upTo: self contextStackTop sender method methodClass toImplement: msg selector ifCancel: [^self]. "Use the same category as the marker method." category := self contextStackTop sender selectorCategory. self implementOverridingMethod: msg inClass: chosenClass inCategory: category.! Item was changed: + ----- Method: Debugger>>debugAt: (in category 'notifier buttons') ----- - ----- Method: Debugger>>debugAt: (in category 'initialize') ----- debugAt: anInteger "Opens a full debugger with the given index selected. See #initializeFull to understand why contextStackIndex is set directly." contextStackIndex := anInteger. ^ self debug! Item was changed: + ----- Method: Debugger>>expandNotifierStack (in category 'context stack - message list') ----- - ----- Method: Debugger>>expandNotifierStack (in category 'context stack (message list)') ----- expandNotifierStack "Show a small amount of stack in the context pane. Useful for notifiers." self okToChange ifFalse: [^ self]. self newStack: (self contextStackTop stackOfSize: self class notifierStackSize). self changed: #contextStackList. ! Item was changed: + ----- Method: Debugger>>expandStack (in category 'context stack - message list') ----- - ----- Method: Debugger>>expandStack (in category 'context stack (message list)') ----- expandStack "Show a substantial amount of stack in the context pane." self okToChange ifFalse: [^ self]. self newStack: (self contextStackTop stackOfSize: self class fullStackSize). self changed: #contextStackList. ! Item was changed: + ----- Method: Debugger>>fullyExpandStack (in category 'context stack - message list') ----- - ----- Method: Debugger>>fullyExpandStack (in category 'context stack (message list)') ----- fullyExpandStack "Expand the stack to include all of it. Well, almost all of it, we better maintain sane limits too." self okToChange ifFalse: [^ self]. self newStack: (self contextStackTop stackOfSize: self class stackSizeLimit - contextStack size). self changed: #contextStackList.! Item was changed: + ----- Method: Debugger>>implementMissingMethod:inClass: (in category 'notifier support') ----- - ----- Method: Debugger>>implementMissingMethod:inClass: (in category 'context stack menu') ----- implementMissingMethod: aMessage inClass: aClass ^ self implementMissingMethod: aMessage inClass: aClass inCategory: (self askForCategoryIn: aClass default: 'as yet unclassified').! Item was changed: + ----- Method: Debugger>>implementMissingMethod:inClass:inCategory: (in category 'notifier support') ----- - ----- Method: Debugger>>implementMissingMethod:inClass:inCategory: (in category 'context stack menu') ----- implementMissingMethod: aMessage inClass: aClass inCategory: aSymbol "Create a stub implementation of the missing message and sew it onto the top of the stack, ensuring the context's arguments are set correctly. Debug the new context." self pushStubMethodOnStack: aMessage inClass: aClass inCategory: aSymbol. "Cut out the sender context. This is the context that signalled the MessageNotUnderstood." self selectedContext privSender: self selectedContext sender. self resetContext: self selectedContext. self debug.! Item was changed: + ----- Method: Debugger>>implementOverridingMethod:inClass:inCategory: (in category 'notifier support') ----- - ----- Method: Debugger>>implementOverridingMethod:inClass:inCategory: (in category 'context stack menu') ----- implementOverridingMethod: aMessage inClass: aClass inCategory: aSymbol "Create a stub implementation of the overriding message and sew it onto the top of the stack, ensuring the context's arguments are set correctly. Debug the new context." self pushStubMethodOnStack: aMessage inClass: aClass inCategory: aSymbol. "Cut out the sender context. This is the context that signalled the SubclassResponsibility." self selectedContext privSender: self selectedContext sender sender. self resetContext: self selectedContext. self debug.! Item was changed: + ----- Method: Debugger>>messageHelpAt: (in category 'context stack - message list') ----- - ----- Method: Debugger>>messageHelpAt: (in category 'context stack (message list)') ----- messageHelpAt: anIndex "Show the first n lines of the sources code of the selected message." | method | Preferences balloonHelpInMessageLists ifFalse: [^ nil]. contextStack size < anIndex ifTrue: [^ nil]. method := (contextStack at: anIndex) method. ^ self messageHelpForMethod: method.! Item was changed: + ----- Method: Debugger>>messageIconAt: (in category 'context stack - message list') ----- - ----- Method: Debugger>>messageIconAt: (in category 'context stack (message list)') ----- messageIconAt: anIndex Browser showMessageIcons ifFalse: [^ nil]. ^ ToolIcons iconNamed: (ToolIcons iconForClass: (contextStack at: anIndex) method methodClass selector: (contextStack at: anIndex) method selector)! Item was changed: + ----- Method: Debugger>>messageListIndex (in category 'context stack - message list') ----- - ----- Method: Debugger>>messageListIndex (in category 'context stack (message list)') ----- messageListIndex "Answer the index of the currently selected context." ^contextStackIndex! Item was removed: - ----- Method: Debugger>>populateImplementInMenu: (in category 'context stack menu') ----- - populateImplementInMenu: aMenu - - | msg | - msg := self selectedContext at: 1. - self selectedContext receiver class withAllSuperclasses do: - [:each | - aMenu add: each name target: self selector: #implementMissingMethod:inClass: argumentList: (Array with: msg with: each)]. - ^ aMenu - - ! Item was changed: + ----- Method: Debugger>>selectedMessage (in category 'context stack - message list') ----- - ----- Method: Debugger>>selectedMessage (in category 'context stack (message list)') ----- selectedMessage "Answer the source code of the currently selected context." | aContext | ^contents := (aContext := self selectedContext) debuggerMap sourceText asText makeSelectorBoldIn: aContext home receiver class! Item was changed: + ----- Method: Debugger>>selectedMessageName (in category 'context stack - message list') ----- - ----- Method: Debugger>>selectedMessageName (in category 'context stack (message list)') ----- selectedMessageName "Answer the message selector of the currently selected context. If the method is unbound we can still usefully answer its old selector." | selector | selector := self selectedContext selector. ^(selector ~~ self selectedContext method selector and: [selector beginsWith: 'DoIt']) ifTrue: [self selectedContext method selector] ifFalse: [selector]! Item was changed: + ----- Method: Debugger>>toggleContextStackIndex: (in category 'context stack - message list') ----- - ----- Method: Debugger>>toggleContextStackIndex: (in category 'context stack (message list)') ----- toggleContextStackIndex: anInteger "If anInteger is the same as the index of the selected context, deselect it. Otherwise, the context whose index is anInteger becomes the selected context." self contextStackIndex: (contextStackIndex = anInteger ifTrue: [0] ifFalse: [anInteger]) oldContextWas: (contextStackIndex = 0 ifTrue: [nil] ifFalse: [contextStack at: contextStackIndex])!

1 0

The Trunk: Morphic-mt.1544.mcz
by commits＠source.squeak.org 26 Sep '19

26 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1544.mcz ==================== Summary ==================== Name: Morphic-mt.1544 Author: mt Time: 26 September 2019, 11:26:14.016433 am UUID: c3372aee-2104-9049-a6ef-4faa1f0eb079 Ancestors: Morphic-mt.1543 If you happen to end up with a TransformationMorph that has no children, you can now: - open a halo on it to move/resize/delete it - drag-and-drop it around in the world without a debugger nagging you =============== Diff against Morphic-mt.1543 =============== Item was changed: ----- Method: HaloMorph>>addScaleHandle: (in category 'handles') ----- addScaleHandle: haloSpec + + (target isFlexMorph and: [target renderedMorph ~~ target]) + ifTrue: [(self addHandle: haloSpec + on: #mouseDown send: #startScale:with: to: self) + on: #mouseMove send: #doScale:with: to: self] + ifFalse: [(self addHandle: haloSpec + on: #mouseDown send: #startGrow:with: to: self) + on: #mouseMove send: #doGrow:with: to: self]. - target isFlexMorph ifTrue: - [(self addHandle: haloSpec - on: #mouseDown send: #startScale:with: to: self) - on: #mouseMove send: #doScale:with: to: self]. - "This or addGrowHandle:, but not both, will prevail at any one time" ! Item was changed: ----- Method: HaloMorph>>addSimpleHandlesTo:box: (in category 'halos and balloon help') ----- addSimpleHandlesTo: aHaloMorph box: aBox | aHandle | simpleMode := true. target isWorldMorph ifTrue: [^ self addSimpleHandlesForWorldHalos]. self removeAllMorphs. "remove old handles, if any" self bounds: target renderedMorph worldBoundsForHalo. "update my size" self addHandleAt: (((aBox topLeft + aBox leftCenter) // 2) + self simpleFudgeOffset) color: Color paleBuff icon: 'Halo-MoreHandles' on: #mouseDown send: #addFullHandles to: self. aHandle := self addGraphicalHandle: #Rotate at: aBox bottomLeft on: #mouseDown send: #startRot:with: to: self. aHandle on: #mouseMove send: #doRot:with: to: self. + (target isFlexMorph and: [target renderedMorph ~~ target]) - target isFlexMorph ifTrue: [(self addGraphicalHandle: #Scale at: aBox bottomRight on: #mouseDown send: #startScale:with: to: self) on: #mouseMove send: #doScale:with: to: self] ifFalse: [(self addGraphicalHandle: #Scale at: aBox bottomRight on: #mouseDown send: #startGrow:with: to: self) on: #mouseMove send: #doGrow:with: to: self]. innerTarget wantsSimpleSketchMorphHandles ifTrue: [self addSimpleSketchMorphHandlesInBox: aBox]. growingOrRotating := false. self layoutChanged. self changed. ! Item was changed: ----- Method: TransformationMorph>>extent: (in category 'geometry') ----- extent: newExtent + + self renderedMorph == self + ifTrue: [super extent: newExtent] + ifFalse: [ + self adjustAfter: [ + | scaleFactor | + scaleFactor := (self scale * newExtent r / self fullBounds extent r) max: 0.1. + self scale: (scaleFactor detentBy: 0.1 atMultiplesOf: 1.0 snap: false)]].! - - self adjustAfter: - [ | scaleFactor | - scaleFactor := (self scale * newExtent r / self fullBounds extent r) max: 0.1. - self scale: (scaleFactor detentBy: 0.1 atMultiplesOf: 1.0 snap: false)]! Item was added: + ----- Method: TransformationMorph>>initialize (in category 'initialization') ----- + initialize + + super initialize. + + self + color: ((Color gray: 0.7) alpha: 0.5); + borderStyle: (DashedBorder color: (Color gray: 0.4) width: 1).! Item was changed: ----- Method: TransformationMorph>>shouldDropOnMouseUp (in category 'dropping/grabbing') ----- shouldDropOnMouseUp + + ^ self renderedMorph in: [:target | + target == self + ifTrue: [super shouldDropOnMouseUp] + ifFalse: [target shouldDropOnMouseUp]]! - "check if my submorph should drop " - ^self firstSubmorph shouldDropOnMouseUp! Item was added: + ----- Method: TransformationMorph>>wantsHaloFromClick (in category 'halos and balloon help') ----- + wantsHaloFromClick + + ^ self renderedMorph == self!

1 0

The Trunk: Morphic-mt.1543.mcz
by commits＠source.squeak.org 26 Sep '19

26 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1543.mcz ==================== Summary ==================== Name: Morphic-mt.1543 Author: mt Time: 26 September 2019, 11:24:13.678433 am UUID: f9c6bf1e-dc48-304e-ac71-cc10caf41ef9 Ancestors: Morphic-mt.1542 Adds a convenient way to have dashed borders for morphs. Note that this does not work for rounded corners. See Canvas. Morph new borderStyle: (DashedBorder width: 1); openInWorld. =============== Diff against Morphic-mt.1542 =============== Item was changed: ----- Method: BorderStyle class>>width:color: (in category 'instance creation') ----- width: aNumber color: aColor + "Since I am abstact, use SimpleBorder instead." + + ^ (self == BorderStyle ifTrue: [SimpleBorder] ifFalse: [self]) new + color: aColor; + width: aNumber; + yourself! - ^SimpleBorder new color: aColor; width: aNumber; yourself! Item was added: + SimpleBorder subclass: #DashedBorder + instanceVariableNames: 'dashLength gapLength gapColor offset' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Borders'! Item was added: + ----- Method: DashedBorder>>dashLength (in category 'accessing') ----- + dashLength + + ^ dashLength! Item was added: + ----- Method: DashedBorder>>dashLength: (in category 'accessing') ----- + dashLength: anObject + + dashLength := anObject.! Item was added: + ----- Method: DashedBorder>>frameRectangle:on: (in category 'drawing') ----- + frameRectangle: aRectangle on: aCanvas + + { + aRectangle topLeft. aRectangle topRight - (1@0). + aRectangle topRight - (1@0). aRectangle bottomRight - (1@1). + aRectangle bottomRight - (1@1). aRectangle bottomLeft - (0@1). + aRectangle bottomLeft - (0@1). aRectangle topLeft. + } pairsDo: [:startPoint :endPoint | + aCanvas + line: startPoint to: endPoint + width: self width + color: self color + dashLength: self dashLength + secondColor: self gapColor + secondDashLength: self gapLength + startingOffset: self offset]! Item was added: + ----- Method: DashedBorder>>gapColor (in category 'accessing') ----- + gapColor + + ^ gapColor! Item was added: + ----- Method: DashedBorder>>gapColor: (in category 'accessing') ----- + gapColor: anObject + + gapColor := anObject.! Item was added: + ----- Method: DashedBorder>>gapLength (in category 'accessing') ----- + gapLength + + ^ gapLength! Item was added: + ----- Method: DashedBorder>>gapLength: (in category 'accessing') ----- + gapLength: anObject + + gapLength := anObject.! Item was added: + ----- Method: DashedBorder>>initialize (in category 'initialize-release') ----- + initialize + + super initialize. + + dashLength := 10. + + gapLength := 4. + gapColor := Color transparent. + + offset := 0.! Item was added: + ----- Method: DashedBorder>>offset (in category 'accessing') ----- + offset + + ^ offset! Item was added: + ----- Method: DashedBorder>>offset: (in category 'accessing') ----- + offset: anObject + + offset := anObject.! Item was changed: ----- Method: SimpleBorder>>initialize (in category 'initialize-release') ----- initialize + + super initialize. width := 0. baseColor := color := Color transparent!

1 0

The Trunk: CollectionsTests-jr.320.mcz
by commits＠source.squeak.org 25 Sep '19

25 Sep '19

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-jr.320.mcz ==================== Summary ==================== Name: CollectionsTests-jr.320 Author: jr Time: 25 September 2019, 3:41:23.707261 pm UUID: 54df98c0-c984-3b45-b189-dc267b743422 Ancestors: CollectionsTests-dtl.318 Add test for change in Collections-jr.855 =============== Diff against CollectionsTests-dtl.318 =============== Item was added: + ClassTestCase subclass: #WeakKeyDictionaryTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Weak'! Item was added: + ----- Method: WeakKeyDictionaryTest>>testNilDoesNotInheritValueOfGarbageCollectedObject (in category 'tests') ----- + testNilDoesNotInheritValueOfGarbageCollectedObject + "When the keys are garbage collected, they become nil in the associations. + This must not mislead the dictionary to answer that nil had one of the values of these + associations!!" + | dictionary hashTable | + dictionary := self targetClass new. + "Craft a hash table where all keys were freed." + hashTable := dictionary array. + self assert: hashTable size > 0. + hashTable replace: [:each | WeakKeyAssociation key: nil value: 1]. + self assert: (dictionary at: nil ifAbsent: []) isNil. "and not 1"!

1 0

The Trunk: Collections-jr.855.mcz
by commits＠source.squeak.org 25 Sep '19

25 Sep '19

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-jr.855.mcz ==================== Summary ==================== Name: Collections-jr.855 Author: jr Time: 25 September 2019, 3:23:14.995261 pm UUID: 9a5b562f-ca9a-624c-9012-7840cb25db4e Ancestors: Collections-mt.854 Catch the lookup of nil in WeakKeyDictionary While no nil key can be added, keys become nil when they are garbage collected. This must not let nil accidentally "inherit" the value of such a stale association. It only happens in unfortunate situations when nil and the collected key would hash to the same place in the hash table (array). Yet it does happen. =============== Diff against Collections-mt.854 =============== Item was added: + ----- Method: WeakKeyDictionary>>at:ifAbsent: (in category 'accessing') ----- + at: key ifAbsent: aBlock + "While no nil key can be added, keys become nil when they are garbage collected. + This must not let nil accidentally 'inherit' the value of such a stale association." + key ifNil: [^ aBlock value]. + ^ super at: key ifAbsent: aBlock!

1 0

The Trunk: Morphic-mt.1542.mcz
by commits＠source.squeak.org 25 Sep '19

25 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1542.mcz ==================== Summary ==================== Name: Morphic-mt.1542 Author: mt Time: 25 September 2019, 11:25:42.543838 am UUID: 7ef7fdda-3074-144f-8ff7-a728dbfc50a2 Ancestors: Morphic-mt.1541 Now that we have an MVC parent project and the project name is visible in the main docking bar, make that label clickable to open the change sorter. :-) =============== Diff against Morphic-mt.1541 =============== Item was added: + ----- Method: DockingBarMorph>>addUpdatingItem: (in category 'construction') ----- + addUpdatingItem: aBlock + | item | + item := DockingBarUpdatingItemMorph new. + aBlock value: item. + self addMorphBack: item! Item was added: + ----- Method: DockingBarMorph>>items (in category 'accessing') ----- + items + + ^ submorphs select: [:m | m isKindOf: MenuItemMorph]! Item was added: + UpdatingMenuItemMorph subclass: #DockingBarUpdatingItemMorph + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Menus-DockingBar'! Item was added: + ----- Method: DockingBarUpdatingItemMorph>>decorateOwner (in category 'as yet unclassified') ----- + decorateOwner + + "Ignore."! Item was added: + ----- Method: DockingBarUpdatingItemMorph>>mouseEnter: (in category 'as yet unclassified') ----- + mouseEnter: evt + "Do not hover docking bar items directory. Mouse-down required. But if you already see a submenu, support hovering." + + owner selectedItem ifNotNil: [owner selectItem: self event: evt]! Item was added: + ----- Method: TheWorldMainDockingBar>>browseChanges (in category 'right side') ----- + browseChanges + + ChangeSorter open.! Item was added: + ----- Method: TheWorldMainDockingBar>>browseChangesLabel (in category 'right side') ----- + browseChangesLabel + "The project name is the same as the current change set." + + ^ Project current name! Item was changed: ----- Method: TheWorldMainDockingBar>>createDockingBar (in category 'construction') ----- createDockingBar "Create a docking bar from the receiver's representation" | dockingBar | dockingBar := DockingBarMorph new adhereToTop; borderWidth: 0. self fillDockingBar: dockingBar. + "self labelIfNeeded: dockingBar." - self labelIfNeeded: dockingBar. ^ dockingBar! Item was removed: - ----- Method: TheWorldMainDockingBar>>labelIfNeeded: (in category 'private') ----- - labelIfNeeded: aDockingBar - "Label the given docking bar with the project name, if needed" - (aDockingBar submorphWithProperty: #projectNameMorph) - contents: (Project current isTopProject ifTrue: [''] ifFalse: [Project current name]); - fitContents! Item was changed: ----- Method: TheWorldMainDockingBar>>projectNameOn: (in category 'right side') ----- projectNameOn: aDockingBar + + aDockingBar addUpdatingItem: [:item | + item + help: 'Browse this project''s changes'; + target: self; + selector: #browseChanges; + wordingProvider: self + wordingSelector: #browseChangesLabel].! - | morph | - morph := StringMorph contents: ''. - morph - color: (self userInterfaceTheme textColor ifNil: [Color black]); - font: (self userInterfaceTheme font ifNil: [TextStyle defaultFont]). - morph setProperty: #projectNameMorph toValue: #projectNameMorph. - aDockingBar addMorphBack: morph. - self labelIfNeeded: aDockingBar! Item was changed: ----- Method: TheWorldMainDockingBar>>updateIfNeeded: (in category 'private') ----- updateIfNeeded: aDockingBar "Update the given docking bar if needed" | timeStamp | timeStamp := aDockingBar valueOfProperty: #mainDockingBarTimeStamp ifAbsent: []. timeStamp ~= self class timeStamp ifTrue: [aDockingBar release; removeAllMorphs. + self fillDockingBar: aDockingBar]! - self fillDockingBar: aDockingBar] - ifFalse: - [self labelIfNeeded: aDockingBar]! Item was added: + ----- Method: UpdatingMenuItemMorph>>decorateOwner (in category 'world') ----- + decorateOwner + + MenuIcons decorateMenu: owner.! Item was changed: ----- Method: UpdatingMenuItemMorph>>updateContents (in category 'world') ----- updateContents "Update the receiver's contents" | newString enablement nArgs | ((wordingProvider isNil) or: [wordingSelector isNil]) ifFalse: [ nArgs := wordingSelector numArgs. newString := nArgs = 0 ifTrue: [wordingProvider perform: wordingSelector] ifFalse: [(nArgs = 1 and: [wordingArgument notNil]) ifTrue: [wordingProvider perform: wordingSelector with: wordingArgument] ifFalse: [nArgs == arguments size ifTrue: [wordingProvider perform: wordingSelector withArguments: arguments]]]. newString = (self contentString ifNil: [ contents ]) ifFalse: [self contents: newString. + self decorateOwner ]]. - MenuIcons decorateMenu: owner ]]. enablementSelector ifNotNil: [(enablement := self enablement) == isEnabled ifFalse: [self isEnabled: enablement]]!

1 0

The Trunk: Morphic-mt.1541.mcz
by commits＠source.squeak.org 25 Sep '19

25 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1541.mcz ==================== Summary ==================== Name: Morphic-mt.1541 Author: mt Time: 25 September 2019, 11:24:23.707838 am UUID: 077a67ab-387d-a449-b28f-518ba8f9eda4 Ancestors: Morphic-mt.1540 Fixes #subProjects to not only rely on project viewers. =============== Diff against Morphic-mt.1540 =============== Item was changed: ----- Method: MorphicProject>>subProjects (in category 'subprojects') ----- subProjects "Answer a list of all the subprojects of the receiver. " + ^ (super subProjects, (world submorphs - self flag: #fix. "mt: Collect other projects that have this as parent. See Project >> #allProjects" - ^world submorphs select: [:m | (m isSystemWindow) and: [m model isKindOf: Project]] + thenCollect: [:m | m model])) asSet asArray.! - thenCollect: [:m | m model].!

1 0

The Trunk: ST80-mt.241.mcz
by commits＠source.squeak.org 25 Sep '19

25 Sep '19

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.241.mcz ==================== Summary ==================== Name: ST80-mt.241 Author: mt Time: 25 September 2019, 11:23:50.807838 am UUID: f846aea5-4fcf-304c-b51e-8d99299a2662 Ancestors: ST80-mt.240 Fixes #subProjects to not only rely on project viewers. =============== Diff against ST80-mt.240 =============== Item was changed: ----- Method: MVCProject>>subProjects (in category 'utilities') ----- subProjects "Answer a list of all the subprojects of the receiver. " + ^ (super subProjects, ((self world controllersSatisfying: [:m | m model isKindOf: Project]) + collect: [:controller | controller model])) asSet asArray! - ^ (self world controllersSatisfying: [:m | m model isKindOf: Project]) - collect: [:controller | controller model]!

1 0

← Newer
1
2
3
4
5
6
7
...
19
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2019