Squeak-dev January 2014

squeak-dev@lists.squeakfoundation.org

55 participants
379 discussions

The Trunk: Monticello-cmm.584.mcz
by commits＠source.squeak.org 27 Jan '14

27 Jan '14

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.584.mcz ==================== Summary ==================== Name: Monticello-cmm.584 Author: cmm Time: 26 January 2014, 9:52:54.576 pm UUID: bca0122e-1e00-40cc-8e36-08dfc3eba412 Ancestors: Monticello-cmm.583 MCHttpRepository, clearPasswords on an aggressive cleanUp. =============== Diff against Monticello-cmm.583 =============== Item was added: + ----- Method: MCHttpRepository class>>cleanUp: (in category 'class initialization') ----- + cleanUp: aggressive + super cleanUp: aggressive. + aggressive ifTrue: [ self clearPasswords ]!

1 0

Daily Commit Log
by commits＠source.squeak.org 27 Jan '14

27 Jan '14

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2014-January/006941.ht… Name: System-topa.664 Ancestors: System-cwp.663 Fix "unloadReloadablePackages" package unloading for now by reordering and blacklisting: * Tests * Etoys (and its dependents) until this is resolved. =============================================

1 0

Help Wanted
by Ron Teitelbaum 26 Jan '14

26 Jan '14

Squeak needs you! We currently have 6 candidates for 7 board member seats. There are 15 days left to announce your candidacy. Please consider running for the Squeak Oversight Board. This is one of the best ways to make a difference in your community. All the best, Ron Teitelbaum

1 0

Package Dependency map/graph
by Tobias Pape 26 Jan '14

26 Jan '14

Dear all, find attached the current dependency graph/map for the trunk with as few packages as possible loaded as of this very moment. best -tobias

3 6

Re: [squeak-dev] The Trunk: Kernel-topa.834.mcz
by Frank Shearar 26 Jan '14

26 Jan '14

On 25 January 2014 22:55, <commits(a)source.squeak.org> wrote: > Tobias Pape uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-topa.834.mcz > > ==================== Summary ==================== > > Name: Kernel-topa.834 > Author: topa > Time: 25 January 2014, 11:55:18.392 pm > UUID: 0184b773-5c2a-40a9-9922-3b1ba2443767 > Ancestors: Kernel-topa.833 > > Move trait-backstops back to Kernel, so trait unloading still works. > > My previous change is now unecessary. > > =============== Diff against Kernel-topa.833 =============== This means that in an image with unloaded Traits we'd still have those backstops in Kernel, right? At some stage I'd like to see that not happen. We can take another run at the problem in 4.6. frank

2 1

Re: [squeak-dev] The Inbox: Monticello-topa.584.mcz
by Tobias Pape 26 Jan '14

26 Jan '14

Arg, my changes file is corrupted :( i'll redo that. can someone pleas remove this very version? Best -Tobias On 25.01.2014, at 21:00, commits(a)source.squeak.org wrote: > A new version of Monticello was added to project The Inbox: > http://source.squeak.org/inbox/Monticello-topa.584.mcz > > ==================== Summary ==================== > > Name: Monticello-topa.584 > Author: topa > Time: 25 January 2014, 10:00:32.75 pm > UUID: 9e0c437a-a18c-4e31-ac9e-775246bea49d > Ancestors: Monticello-cmm.583 > > The number of distinct authors in the image is low: > (MCVersionInfo allInstances collect: [ :each | each author ]) asIdentitySet size. "13336" > (MCVersionInfo allInstances collect: [ :each | each author ]) asSet size. "128" > > Hence, we can safely store them as symbols. > This does not save much memory in a small image but should in > production images. > > =============== Diff against Monticello-cmm.583 =============== > > Item was changed: > ----- Method: MCVersionInfo>>asDictionary (in category 'converting') ----- > asDictionary > ^ Dictionary new > at: #name put: name; > at: #id put: id asString; > at: #message put: message; > at: #date put: date; > at: #time put: time; > + at: #author put: self author; > - at: #author put: author; > at: #ancestors put: (self ancestors collect: [:a | a asDictionary]); > yourself! > > Item was changed: > ----- Method: MCVersionInfo>>author (in category 'pillaging') ----- > author > + ^ author asString! > - ^ author! > > Item was changed: > ----- Method: MCVersionInfo>>initializeWithName:id:message:date:time:author:ancestors:stepChildren: (in category 'initialize-release') ----- > + initializeWithName: vName id: aUUID message: aString date: aDate > + > + ----QUIT/NOSAVE----{25 January 2014 . 9:51:21 pm} Squeak4.5-13148.image priorSource: 10755666! > - initializeWithName: vName id: aUUID message: aString date: aDate time: aTime author: initials ancestors: aCollection stepChildren: stepCollection > - name := vName asString asMCVersionName. > - id := aUUID. > - message := aString. > - date := aDate. > - time := aTime. > - author := initials. > - ancestors := aCollection. > - stepChildren := stepCollection! > > Item was changed: > ----- Method: MCVersionInfo>>summaryHeader (in category 'accessing') ----- > summaryHeader > ^ String streamContents: > [:s | > s > nextPutAll: 'Name: '; nextPutAll: self name; cr. > date ifNotNil: > [s > + nextPutAll: 'Author: '; nextPutAll: self author; cr; > - nextPutAll: 'Author: '; nextPutAll: author; cr; > nextPutAll: 'Time: '; nextPutAll: date asString, ', ', time asString; cr]. > id ifNotNil: > [s nextPutAll: 'UUID: '; nextPutAll: id asString; cr]. > s > nextPutAll: 'Ancestors: '; nextPutAll: self ancestorString. > self stepChildren isEmpty ifFalse: > [s cr; nextPutAll: 'Backported From: '; nextPutAll: self stepChildrenString]. > ]! > > Item was added: > + (PackageInfo named: 'Monticello') postscript: '(MCVersionInfo allInstances select: [ :ea | (ea instVarNamed: ''author'') isSymbol not ]) > + do: [ :ea | ea instVarNamed: ''author'' put: (ea instVarNamed: ''author'') asSymbol]'! > >

2 2

Re: [squeak-dev] The Trunk: Morphic-fbs.644.mcz
by Tobias Pape 26 Jan '14

26 Jan '14

I know this is rather old, but a lot of these methods must stay in morph if Etoys is unloaded or the system borks. At least the following messages are essential: referencePosition - Morphic EVENT HANDLING (PasteUpMorph! CircleMorph, HaloMorph, PolygonMorph, MatrixTransformMorph....) referencePosition: - Morphic EVENT HANDLING (s.a.) referencePositionInWorld - Morph: submorph add/delete referencePositionInWorld: - Morph: submorph add/delete The following messages are used outside Etoys beTransparent - MorphicExtras (BooklikeMorph), Morphic (IconicButton), ToolBuilder-Morphic addTransparentSpacerOfSize: - MorphicExtras (BooklikeMorph, Command), goHome - Morphic (Morph) (Menues) heading - Morphic (CircleMorph, HaloMorph, PolygonMorph....) heading: - Morphic (HaloMorph,....) rotationCenter - Morphic (CircleMorph, MatrixTransformMorph rotationCenter: - Morphic (CircleMorph, MatrixTransformMorph scale: - Morphic (TransformationMorph) setDirectionFrom: - Morphic (HaloMorph) simplySetVisible: - Morphic (Morph) (Menues) The following messages are used outside Etoys, but are easily fixable forwardDirection - TransformationMorph (t.b.d.) The following messages are truly Etoys, so can stay there... cartesianBoundsTopLeft cartesianXY: color: sensitiveColor sees: colorUnder degreesOfFlex getIndexInOwner move:toPosition: scaleFactor: setIndexInOwner: touchesColor: transparentSpacerOfSize: wrap x, x:, y, y: - unknown. cubersome to determine What should we do? Put all back and decide again? Put all but the truly-etoys ones back? Why does it matter to me? Because if this is not resolved, Etoys is not unloadable, hence Protocols and PrefrencesBrowser are not unloadable and that makes me really sad. Best -Tobias On 05.03.2013, at 21:53, commits(a)source.squeak.org wrote: > Frank Shearar uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-fbs.644.mcz > > ==================== Summary ==================== > > Name: Morphic-fbs.644 > Author: fbs > Time: 5 March 2013, 6:32:30.782 pm > UUID: 5353bf55-473d-417d-afa3-d89ae405d128 > Ancestors: Morphic-nice.643 > > Moved Morph's "geometry eToy" and "latter day support" methods to Etoys. > > =============== Diff against Morphic-nice.643 =============== > > Item was removed: > - ----- Method: Morph>>addTransparentSpacerOfSize: (in category 'geometry eToy') ----- > - addTransparentSpacerOfSize: aPoint > - self addMorphBack: (self transparentSpacerOfSize: aPoint)! > > Item was removed: > - ----- Method: Morph>>beTransparent (in category 'geometry eToy') ----- > - beTransparent > - self color: Color transparent! > > Item was removed: > - ----- Method: Morph>>cartesianBoundsTopLeft (in category 'geometry eToy') ----- > - cartesianBoundsTopLeft > - "Answer the origin of this morph relative to it's container's cartesian origin. > - NOTE: y DECREASES toward the bottom of the screen" > - > - | w container | > - > - w := self world ifNil: [^ bounds origin]. > - container := self referencePlayfield ifNil: [w]. > - ^ (bounds left - container cartesianOrigin x) @ > - (container cartesianOrigin y - bounds top)! > > Item was removed: > - ----- Method: Morph>>cartesianXY: (in category 'geometry eToy') ----- > - cartesianXY: coords > - ^ self x: coords x y: coords y > - ! > > Item was removed: > - ----- Method: Morph>>color:sees: (in category 'geometry eToy') ----- > - color: sensitiveColor sees: soughtColor > - "Return true if any of my pixels of sensitiveColor intersect with pixels of soughtColor." > - > - "Make a mask with black where sensitiveColor is, white elsewhere" > - > - | myImage sensitivePixelMask map patchBelowMe tfm morphAsFlexed i1 pasteUp | > - pasteUp := self world ifNil: [ ^false ]. > - tfm := self transformFrom: pasteUp. > - morphAsFlexed := tfm isIdentity > - ifTrue: [self] > - ifFalse: [TransformationMorph new flexing: self clone byTransformation: tfm]. > - myImage := morphAsFlexed imageForm offset: 0 @ 0. > - sensitivePixelMask := Form extent: myImage extent depth: 1. > - "ensure at most a 16-bit map" > - map := Bitmap new: (1 bitShift: (myImage depth - 1 min: 15)). > - map at: (i1 := sensitiveColor indexInMap: map) put: 1. > - sensitivePixelMask > - copyBits: sensitivePixelMask boundingBox > - from: myImage form > - at: 0 @ 0 > - colorMap: map. > - > - "get an image of the world below me" > - patchBelowMe := pasteUp > - patchAt: morphAsFlexed fullBounds > - without: self > - andNothingAbove: false. > - " > - sensitivePixelMask displayAt: 0@0. > - patchBelowMe displayAt: 100@0. > - " > - "intersect world pixels of the color we're looking for with the sensitive pixels" > - map at: i1 put: 0. "clear map and reuse it" > - map at: (soughtColor indexInMap: map) put: 1. > - sensitivePixelMask > - copyBits: patchBelowMe boundingBox > - from: patchBelowMe > - at: 0 @ 0 > - clippingBox: patchBelowMe boundingBox > - rule: Form and > - fillColor: nil > - map: map. > - " > - sensitivePixelMask displayAt: 200@0. > - " > - ^(sensitivePixelMask tallyPixelValues second) > 0! > > Item was removed: > - ----- Method: Morph>>colorUnder (in category 'geometry eToy') ----- > - colorUnder > - "Return the color of under the receiver's center." > - > - self isInWorld > - ifTrue: [^ self world colorAt: (self pointInWorld: self referencePosition) belowMorph: self] > - ifFalse: [^ Color black]. > - ! > > Item was removed: > - ----- Method: Morph>>degreesOfFlex (in category 'geometry eToy') ----- > - degreesOfFlex > - "Return any rotation due to flexing" > - "NOTE: because renderedMorph, which is used by the halo to set heading, goes down through dropShadows as well as transformations, we need this method (and its other implems) to come back up through such a chain." > - ^ 0.0! > > Item was removed: > - ----- Method: Morph>>forwardDirection: (in category 'geometry eToy') ----- > - forwardDirection: newDirection > - "Set the receiver's forward direction (in eToy terms)" > - self setProperty: #forwardDirection toValue: newDirection.! > > Item was removed: > - ----- Method: Morph>>getIndexInOwner (in category 'geometry eToy') ----- > - getIndexInOwner > - "Answer which position the receiver holds in its owner's hierarchy" > - > - "NB: There is some concern about submorphs that aren't really to be counted, such as a background morph of a playfield." > - > - | container topRenderer | > - container := (topRenderer := self topRendererOrSelf) owner. > - ^ container submorphIndexOf: topRenderer.! > > Item was removed: > - ----- Method: Morph>>goHome (in category 'geometry eToy') ----- > - goHome > - | box fb | > - owner isInMemory ifFalse: [^ self]. > - owner isNil ifTrue: [^ self]. > - self visible ifFalse: [^ self]. > - > - box := owner visibleClearArea. > - fb := self fullBounds. > - > - fb left < box left > - ifTrue: [self left: box left - fb left + self left]. > - fb right > box right > - ifTrue: [self right: box right - fb right + self right]. > - > - fb top < box top > - ifTrue: [self top: box top - fb top + self top]. > - fb bottom > box bottom > - ifTrue: [self bottom: box bottom - fb bottom + self bottom]. > - ! > > Item was removed: > - ----- Method: Morph>>heading (in category 'geometry eToy') ----- > - heading > - "Return the receiver's heading (in eToy terms)" > - owner ifNil: [^ self forwardDirection]. > - ^ self forwardDirection + owner degreesOfFlex! > > Item was removed: > - ----- Method: Morph>>heading: (in category 'geometry eToy') ----- > - heading: newHeading > - "Set the receiver's heading (in eToy terms)" > - self isFlexed ifFalse:[self addFlexShell]. > - owner rotationDegrees: (newHeading - self forwardDirection).! > > Item was removed: > - ----- Method: Morph>>isEtoyReadout (in category 'latter day support') ----- > - isEtoyReadout > - "Answer whether the receiver can serve as an etoy readout" > - > - ^ false! > > Item was removed: > - ----- Method: Morph>>move:toPosition: (in category 'geometry eToy') ----- > - move: aMorph toPosition: aPointOrNumber > - "Support for e-toy demo. Move the given submorph to the given position. Allows the morph's owner to determine the policy for motion. For example, moving forward through a table might mean motion only in the x-axis with wrapping modulo the table size." > - > - aMorph position: aPointOrNumber asPoint. > - ! > > Item was removed: > - ----- Method: Morph>>referencePosition (in category 'geometry eToy') ----- > - referencePosition > - "Return the current reference position of the receiver" > - | box | > - box := self bounds. > - ^box origin + (self rotationCenter * box extent). > - ! > > Item was removed: > - ----- Method: Morph>>referencePosition: (in category 'geometry eToy') ----- > - referencePosition: aPosition > - "Move the receiver to match its reference position with aPosition" > - | newPos intPos | > - newPos := self position + (aPosition - self referencePosition). > - intPos := newPos asIntegerPoint. > - newPos = intPos > - ifTrue:[self position: intPos] > - ifFalse:[self position: newPos].! > > Item was removed: > - ----- Method: Morph>>referencePositionInWorld (in category 'geometry eToy') ----- > - referencePositionInWorld > - > - ^ self pointInWorld: self referencePosition > - ! > > Item was removed: > - ----- Method: Morph>>referencePositionInWorld: (in category 'geometry eToy') ----- > - referencePositionInWorld: aPoint > - | localPosition | > - localPosition := owner > - ifNil: [aPoint] > - ifNotNil: [(owner transformFrom: self world) globalPointToLocal: aPoint]. > - > - self referencePosition: localPosition > - ! > > Item was removed: > - ----- Method: Morph>>rotationCenter (in category 'geometry eToy') ----- > - rotationCenter > - "Return the rotation center of the receiver. The rotation center defines the relative offset inside the receiver's bounds for locating the reference position." > - ^self valueOfProperty: #rotationCenter ifAbsent:[0.5@0.5] > - ! > > Item was removed: > - ----- Method: Morph>>rotationCenter: (in category 'geometry eToy') ----- > - rotationCenter: aPointOrNil > - "Set the new rotation center of the receiver. The rotation center defines the relative offset inside the receiver's bounds for locating the reference position." > - aPointOrNil isNil > - ifTrue:[self removeProperty: #rotationCenter] > - ifFalse:[self setProperty: #rotationCenter toValue: aPointOrNil] > - ! > > Item was removed: > - ----- Method: Morph>>scale: (in category 'geometry eToy') ----- > - scale: newScale > - "Backstop for morphs that don't have to do something special to set their scale" > - ! > > Item was removed: > - ----- Method: Morph>>scaleFactor: (in category 'geometry eToy') ----- > - scaleFactor: newScale > - "Backstop for morphs that don't have to do something special to set their > - scale " > - | toBeScaled | > - toBeScaled := self. > - newScale = 1.0 > - ifTrue: [(self heading isZero > - and: [self isFlexMorph]) > - ifTrue: [toBeScaled := self removeFlexShell]] > - ifFalse: [self isFlexMorph > - ifFalse: [toBeScaled := self addFlexShellIfNecessary]]. > - > - toBeScaled scale: newScale. > - > - toBeScaled == self ifTrue: [ > - newScale = 1.0 > - ifTrue: [ self removeProperty: #scaleFactor ] > - ifFalse: [ self setProperty: #scaleFactor toValue: newScale ]]! > > Item was removed: > - ----- Method: Morph>>setDirectionFrom: (in category 'geometry eToy') ----- > - setDirectionFrom: aPoint > - | delta degrees | > - delta := (self transformFromWorld globalPointToLocal: aPoint) - self referencePosition. > - degrees := delta degrees + 90.0. > - self forwardDirection: (degrees \\ 360) rounded. > - ! > > Item was removed: > - ----- Method: Morph>>setIndexInOwner: (in category 'geometry eToy') ----- > - setIndexInOwner: anInteger > - "Answer which position the receiver holds in its owner's hierarchy" > - > - "There is some concern about submorphs that aren't really to be counted, such as a background morph of a playfield." > - | container topRenderer indexToUse | > - container := (topRenderer := self topRendererOrSelf) owner. > - indexToUse := (anInteger min: container submorphCount) max: 1. > - container addMorph: topRenderer asElementNumber: indexToUse! > > Item was removed: > - ----- Method: Morph>>simplySetVisible: (in category 'geometry eToy') ----- > - simplySetVisible: aBoolean > - "Set the receiver's visibility property. This mild circumlocution is because my TransfomationMorph #visible: method would also set the visibility flag of my flexee, which in this case is pointless because it's the flexee that calls this. > - This appears in morph as a backstop for morphs that don't inherit from TFMorph" > - > - self visible: aBoolean! > > Item was removed: > - ----- Method: Morph>>touchesColor: (in category 'geometry eToy') ----- > - touchesColor: soughtColor > - "Return true if any of my pixels overlap pixels of soughtColor." > - > - "Make a shadow mask with black in my shape, white elsewhere" > - > - | map patchBelowMe shadowForm tfm morphAsFlexed pasteUp | > - pasteUp := self world ifNil: [ ^false ]. > - > - tfm := self transformFrom: pasteUp. > - morphAsFlexed := tfm isIdentity > - ifTrue: [self] > - ifFalse: [TransformationMorph new flexing: self clone byTransformation: tfm]. > - shadowForm := morphAsFlexed shadowForm offset: 0 @ 0. > - > - "get an image of the world below me" > - patchBelowMe := (pasteUp > - patchAt: morphAsFlexed fullBounds > - without: self > - andNothingAbove: false) offset: 0 @ 0. > - " > - shadowForm displayAt: 0@0. > - patchBelowMe displayAt: 100@0. > - " > - "intersect world pixels of the color we're looking for with our shape." > - "ensure a maximum 16-bit map" > - map := Bitmap new: (1 bitShift: (patchBelowMe depth - 1 min: 15)). > - map at: (soughtColor indexInMap: map) put: 1. > - shadowForm > - copyBits: patchBelowMe boundingBox > - from: patchBelowMe > - at: 0 @ 0 > - clippingBox: patchBelowMe boundingBox > - rule: Form and > - fillColor: nil > - map: map. > - " > - shadowForm displayAt: 200@0. > - " > - ^(shadowForm tallyPixelValues second) > 0! > > Item was removed: > - ----- Method: Morph>>transparentSpacerOfSize: (in category 'geometry eToy') ----- > - transparentSpacerOfSize: aPoint > - ^ (Morph new extent: aPoint) color: Color transparent! > > Item was removed: > - ----- Method: Morph>>wrap (in category 'geometry eToy') ----- > - wrap > - > - | myBox box newX newY wrapped | > - owner ifNil: [^ self]. > - myBox := self fullBounds. > - myBox corner < (50000@50000) ifFalse: [ > - self inform: 'Who is trying to wrap a hidden object?'. ^ self]. > - box := owner bounds. > - newX := self position x. > - newY := self position y. > - wrapped := false. > - ((myBox right < box left) or: [myBox left > box right]) ifTrue: [ > - newX := box left + ((self position x - box left) \\ box width). > - wrapped := true]. > - ((myBox bottom < box top) or: [myBox top > box bottom]) ifTrue: [ > - newY := box top + ((self position y - box top) \\ box height). > - wrapped := true]. > - self position: newX@newY. > - (wrapped and: [owner isPlayfieldLike]) > - ifTrue: [owner changed]. "redraw all turtle trails if wrapped" > - > - ! > > Item was removed: > - ----- Method: Morph>>x (in category 'geometry eToy') ----- > - x > - "Return my horizontal position relative to the cartesian origin of a relevant playfield" > - > - | aPlayfield | > - aPlayfield := self referencePlayfield. > - ^aPlayfield isNil > - ifTrue: [self referencePosition x] > - ifFalse: [self referencePosition x - aPlayfield cartesianOrigin x]! > > Item was removed: > - ----- Method: Morph>>x: (in category 'geometry eToy') ----- > - x: aNumber > - "Set my horizontal position relative to the cartesian origin of the playfield or the world." > - > - | offset aPlayfield newX | > - aPlayfield := self referencePlayfield. > - offset := self left - self referencePosition x. > - newX := aPlayfield isNil > - ifTrue: [aNumber + offset] > - ifFalse: [aPlayfield cartesianOrigin x + aNumber + offset]. > - self position: newX @ bounds top! > > Item was removed: > - ----- Method: Morph>>x:y: (in category 'geometry eToy') ----- > - x: xCoord y: yCoord > - | aWorld xyOffset delta aPlayfield | > - (aWorld := self world) ifNil: [^ self position: xCoord @ yCoord]. > - xyOffset := self topLeft - self referencePosition. > - delta := (aPlayfield := self referencePlayfield) > - ifNil: > - [xCoord @ (aWorld bottom - yCoord)] > - ifNotNil: > - [aPlayfield cartesianOrigin + (xCoord @ (yCoord negated))]. > - self position: (xyOffset + delta) > - ! > > Item was removed: > - ----- Method: Morph>>y (in category 'geometry eToy') ----- > - y > - "Return my vertical position relative to the cartesian origin of the playfield or the world. Note that larger y values are closer to the top of the screen." > - > - | w aPlayfield | > - w := self world. > - w ifNil: [^bounds top]. > - aPlayfield := self referencePlayfield. > - ^aPlayfield isNil > - ifTrue: [w cartesianOrigin y - self referencePosition y] > - ifFalse: [aPlayfield cartesianOrigin y - self referencePosition y]! > > Item was removed: > - ----- Method: Morph>>y: (in category 'geometry eToy') ----- > - y: aNumber > - "Set my vertical position relative to the cartesian origin of the playfield or the world. Note that larger y values are closer to the top of the screen." > - > - | w offset newY aPlayfield | > - w := self world. > - w ifNil: [^self position: bounds left @ aNumber]. > - aPlayfield := self referencePlayfield. > - offset := self top - self referencePosition y. > - newY := aPlayfield isNil > - ifTrue: [w bottom - aNumber + offset] > - ifFalse: [aPlayfield cartesianOrigin y - aNumber + offset]. > - self position: bounds left @ newY! > >

3 3

The Trunk: System-topa.664.mcz
by commits＠source.squeak.org 26 Jan '14

26 Jan '14

Tobias Pape uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-topa.664.mcz ==================== Summary ==================== Name: System-topa.664 Author: topa Time: 26 January 2014, 1:00:42.101 am UUID: b213caa1-e284-429c-af16-ab115996e2dc Ancestors: System-cwp.663 Fix "unloadReloadablePackages" package unloading for now by reordering and blacklisting: * Tests * Etoys (and its dependents) until this is resolved. =============== Diff against System-cwp.663 =============== Item was changed: ----- Method: SmalltalkImage>>shrink (in category 'shrinking') ----- shrink "Clean up everything we know how to clean up that can be restored." "Prepare unloading" self zapMVCprojects. Flaps disableGlobalFlaps: false. - "Yeow, why turn off listening for system changes?" - self - at: #ServiceRegistry - ifPresent: [ : aClass | SystemChangeNotifier uniqueInstance noMoreNotificationsFor: aClass ]. self unloadReloadablePackages. "Post-unload aggressive cleanup" Smalltalk cleanUp: true. SystemOrganization removeSystemCategory: 'UserObjects'. Smalltalk at: #ScheduledControllers ifPresent: [Smalltalk at: #ScheduledControllers put: nil]. Smalltalk garbageCollect! Item was changed: ----- Method: SmalltalkImage>>unloadReloadablePackages (in category 'shrinking') ----- unloadReloadablePackages "Unload packages which can be reloaded." + + "One special case to make Services-Base unload" + Smalltalk + at: #ServiceRegistry + ifPresent: [ : aClass | SystemChangeNotifier uniqueInstance noMoreNotificationsFor: aClass ]. + + #('CompressionTests' + 'CollectionsTests' + 'GraphicsTests' + 'BalloonTests' + 'HelpSystem-Tests' + 'KernelTests' + 'MorphicExtrasTests' + 'MorphicTests' + 'MultilingualTests' + 'NetworkTests' + 'ToolsTests' + 'TraitsTests' + 'SystemChangeNotification-Tests' + 'VersionNumberTests' + 'ST80Tests' + "'Tests'" "Currently not unloadable" + + 'FlexibleVocabularies' + 'ReleaseBuilder' + 'ScriptLoader' + 'UpdateStream' + 'CommandLine' + '45Deprecated' + '311Deprecated' + '39Deprecated' + 'Universes' + 'SMLoader' + 'SMBase' + 'Services-Base' + 'Nebraska' + 'ToolBuilder-MVC' + 'ST80Tools' + 'ST80' + "'EToys'" "Currently not unloadable" + "'PreferenceBrowser'" "Etoys needs them, hence not unloadable" + "'Protocols'" "Etoys needs them, hence not unloadable" + 'XML-Parser' + 'Help-Squeak-TerseGuide' + 'Help-Squeak-Project' + 'HelpSystem-Core' + 'SystemReporter' + 'SUnitGUI' + 'VersionNumber' ) do: [ : pkgName | Installer mc unload: pkgName ]. - #('ReleaseBuilder' 'ScriptLoader' '311Deprecated' '39Deprecated' 'Universes' 'SMLoader' 'SMBase' 'VersionNumberTests' 'VersionNumber' 'Services-Base' 'PreferenceBrowser' 'Nebraska' 'ToolBuilder-MVC' 'ST80Tools' 'ST80Tests' 'ST80' 'CompressionTests' 'CollectionsTests' 'GraphicsTests' 'KernelTests' 'MorphicTests' 'MultilingualTests' 'NetworkTests' 'ToolsTests' 'TraitsTests' 'SystemChangeNotification-Tests' 'FlexibleVocabularies' 'EToys' 'Protocols' 'XML-Parser' 'Tests' 'SUnitGUI' 'Help-Squeak' 'HelpSystem' 'SystemReporter' ) do: [ : pkgName | Installer mc unload: pkgName ]. "Traits use custom unload" + Smalltalk - self at: #Trait ifPresent: [ : aClass | aClass unloadTraits ]!

1 0

Daily Commit Log
by commits＠source.squeak.org 26 Jan '14

26 Jan '14

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2014-January/006936.ht… Name: Kernel-topa.833 Ancestors: Kernel-cwp.832 Allow for Traits to be _not_ present when obsoleting a Class. Necessary to actually be able to unload Traits in the first place. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-January/006937.ht… Name: Traits-topa.302 Ancestors: Traits-cwp.301 Move trait-backstops back to Kernel, so trait unloading still works. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-January/006938.ht… Name: Kernel-topa.834 Ancestors: Kernel-topa.833 Move trait-backstops back to Kernel, so trait unloading still works. My previous change is now unecessary. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-January/006939.ht… Name: Tools-topa.517 Ancestors: Tools-fbs.516 Move from Services-Base so it is unloadable without breaking browsing ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-January/006940.ht… Name: Services-Base-topa.51 Ancestors: Services-Base-nice.50 Move to Tools so we are unloadable without breaking browsing =============================================

1 0

The Trunk: Services-Base-topa.51.mcz
by commits＠source.squeak.org 26 Jan '14

26 Jan '14

Tobias Pape uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-topa.51.mcz ==================== Summary ==================== Name: Services-Base-topa.51 Author: topa Time: 26 January 2014, 12:38:49.078 am UUID: 94328e86-1643-4090-8f18-bc4467119161 Ancestors: Services-Base-nice.50 Move to Tools so we are unloadable without breaking browsing =============== Diff against Services-Base-nice.50 =============== Item was removed: - ----- Method: StringHolder>>codeTextMorph (in category '*services-base') ----- - codeTextMorph - ^ self dependents - detect: [:dep | (dep isKindOf: PluggableTextMorph) - and: [dep getTextSelector == #contents]] - ifNone: []!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
38
Older →

Jump to page: