Packages January 2013

packages@lists.squeakfoundation.org

1 participants
219 discussions

The Trunk: ReleaseBuilder-nice.91.mcz
by commits＠source.squeak.org 21 Jan '13

21 Jan '13

Nicolas Cellier uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-nice.91.mcz ==================== Summary ==================== Name: ReleaseBuilder-nice.91 Author: nice Time: 21 January 2013, 10:23:10.627 pm UUID: 932328a8-0695-4f67-a7ae-0d969cb8e2e4 Ancestors: ReleaseBuilder-fbs.90 Reduce level of superstition: 1 garbageCollect is worth 3. Don't collect garbage before Symbol compactSymbolTable., because this one will invoke garbageCollect by itself. =============== Diff against ReleaseBuilder-fbs.90 =============== Item was changed: ----- Method: ReleaseBuilder>>finalCleanup (in category 'utilities') ----- finalCleanup "ReleaseBuilder new finalCleanup" DataStream initialize. Behavior flushObsoleteSubclasses. "The pointer to currentMethod is not realy needed (anybody care to fix this) and often holds on to obsolete bindings" MethodChangeRecord allInstancesDo: [:each | each noteNewMethod: nil]. self cleanUpEtoys. SmalltalkImage current fixObsoleteReferences. Smalltalk flushClassNameCache. + Symbol compactSymbolTable.! - 3 timesRepeat: [ - Smalltalk garbageCollect. - Symbol compactSymbolTable. - ]. - ! Item was changed: ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseCleanup (in category 'squeakland') ----- makeSqueaklandReleasePhaseCleanup "ReleaseBuilder new makeSqueaklandReleasePhaseCleanup" Smalltalk at: #Browser ifPresent:[:br| br initialize]. ChangeSet removeChangeSetsNamedSuchThat: [:cs | cs name ~= ChangeSet current name]. ChangeSet current clear. ChangeSet current name: 'Unnamed1'. Smalltalk garbageCollect. "Reinitialize DataStream; it may hold on to some zapped entitities" DataStream initialize. "Remove existing player references" References keys do: [:k | References removeKey: k]. Smalltalk garbageCollect. ScheduledControllers := nil. Behavior flushObsoleteSubclasses. Smalltalk garbageCollect; garbageCollect. SystemNavigation default obsoleteBehaviors isEmpty ifFalse: [self error: 'Still have obsolete behaviors']. "Reinitialize DataStream; it may hold on to some zapped entitities" DataStream initialize. Smalltalk fixObsoleteReferences. Smalltalk abandonTempNames. Smalltalk zapAllOtherProjects. Smalltalk flushClassNameCache. + Symbol compactSymbolTable! - 3 timesRepeat: - [Smalltalk garbageCollect. - Symbol compactSymbolTable]! Item was changed: ----- Method: ReleaseBuilderFor3dot10>>makeSqueakRelease (in category 'squeakThreeTen') ----- makeSqueakRelease | monti | self unloadSome. monti := MCWorkingCopyBrowser new. monti unsortedWorkingCopies do: [:ea | ((PackageOrganizer default packageNames) includes: (ea package name)) ifFalse:[ ea unregister]]. monti flushAllCaches. + Smalltalk garbageCollect. - 3 - timesRepeat: [Smalltalk garbageCollect]. DataStream initialize. Flaps replaceGlobalFlapwithID: 'Tools' translated. Flaps replaceGlobalFlapwithID: 'Widgets' translated. self cleanUpEtoys. SmalltalkImage current fixObsoleteReferences. Smalltalk garbageCollect. ScheduledControllers := nil. Behavior flushObsoleteSubclasses. + Smalltalk garbageCollect! - 3 - timesRepeat: [Smalltalk garbageCollect]! Item was changed: ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenReleasePhaseCleanup (in category 'squeakThreeTen') ----- makeSqueakThreeTenReleasePhaseCleanup "ReleaseBuilderFor3dot10 new makeSqueakThreeTenReleasePhaseCleanup" | newVersion | Smalltalk at: #Browser ifPresent:[:br| br initialize]. self cleanUnwantedCs. "Remove existing player references" References keys do: [:k | References removeKey: k]. Smalltalk garbageCollect. ScheduledControllers := nil. Behavior flushObsoleteSubclasses. SystemNavigation default obsoleteBehaviors isEmpty ifFalse: [self error: 'Still have obsolete behaviors']. "Reinitialize DataStream; it may hold on to some zapped entitities" DataStream initialize. self fixObsoleteReferences. "Smalltalk abandonTempNames." Smalltalk zapAllOtherProjects. Smalltalk flushClassNameCache. + Symbol compactSymbolTable. - 3 timesRepeat: - [Smalltalk garbageCollect. - Symbol compactSymbolTable]. "SystemVersion current registerUpdate: 7069." "We only need for when start the release" newVersion := 'Squeak3.10alpha.' , SystemVersion current highestUpdate printString. - newVersion := newVersion ,'.'. (SourceFiles at: 2) ifNotNil: [SmalltalkImage current closeSourceFiles; "so copying the changes file will always work" saveChangesInFileNamed: (SmalltalkImage current fullNameForChangesNamed: newVersion)]. SmalltalkImage current saveImageInFileNamed: (SmalltalkImage current fullNameForImageNamed: newVersion) ! Item was changed: ----- Method: ReleaseBuilderFor3dot10>>unloadMorphicClasses (in category 'squeakThreeTen') ----- unloadMorphicClasses "These classes don't seem to be used, so unload them. They always can be loaded later." SystemOrganization classifyAll: #(BorderedStringMorph MouseActionIndicatorMorph CommandTilesMorph TestClickExerciser SpectrumAnalyzerMorph FishEyeMorph SoundDemoMorph MultiuserTinyPaint KidNavigationMorph CodecDemoMorph BlobMorph SoundMorph SubpaneDividerMorph RolloverButtonMorph ClipboardMorph VeryPickyMorph ClassRepresentativeMorph PhraseWrapperMorph WatchMorph UpdatingTextMorph PluggableTabBarMorph PartsWindow HeadingMorph ZoomMorph UpdatingStringMorphWithArgument SoundSequencerMorph ImageMorphWithSpotlight TinyPaint InfoStringMorph UpdatingBooleanStringMorph DrawErrorMorph ViewerRow BalloonRectangleMorph ViewerEntry MidiInputMorph CachingMorph MovingEyeMorph MIDIPianoKeyboardMorph DoubleClickExample MorphExample RulerMorph LabelStringMorph) under: 'Morphic-CandidatesForGo'. (MCPackage named: 'Morphic-CandidatesForGo') unload . #(TheWorldMenu FileServices AppRegistry Preferences FileList) do: [:cl| (Smalltalk at: cl) removeObsolete]. self testObsolete do: [:cl| Smalltalk removeClassNamed: cl]. + Smalltalk garbageCollect.! - 3 timesRepeat: [Smalltalk garbageCollect].!

1 0

The Trunk: ST80-nice.140.mcz
by commits＠source.squeak.org 20 Jan '13

20 Jan '13

Nicolas Cellier uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-nice.140.mcz ==================== Summary ==================== Name: ST80-nice.140 Author: nice Time: 20 January 2013, 9:28:27.766 pm UUID: 3d04c80a-617b-4d5f-92b9-9993bee48d25 Ancestors: ST80-eem.139 Use degreesToRadians where due =============== Diff against ST80-eem.139 =============== Item was changed: ----- Method: Arc>>displayOn:at:clippingBox:rule:fillColor: (in category 'displaying') ----- displayOn: aDisplayMedium at: aPoint clippingBox: clipRect rule: anInteger fillColor: aForm | nSegments line angle sin cos xn yn | nSegments := 12.0. line := Line new. line form: self form. + angle := (90.0 / nSegments) degreesToRadians. + sin := angle sin. + cos := angle cos. - angle := 90.0 / nSegments. - sin := (angle * (2 * Float pi / 360.0)) sin. - cos := (angle * (2 * Float pi / 360.0)) cos. quadrant = 1 ifTrue: [xn := radius asFloat. yn := 0.0]. quadrant = 2 ifTrue: [xn := 0.0. yn := 0.0 - radius asFloat]. quadrant = 3 ifTrue: [xn := 0.0 - radius asFloat. yn := 0.0]. quadrant = 4 ifTrue: [xn := 0.0. yn := radius asFloat]. nSegments asInteger timesRepeat: [ | xn1 yn1 | xn1 := xn * cos + (yn * sin). yn1 := yn * cos - (xn * sin). line beginPoint: center + (xn asInteger @ yn asInteger). line endPoint: center + (xn1 asInteger @ yn1 asInteger). line displayOn: aDisplayMedium at: aPoint clippingBox: clipRect rule: anInteger fillColor: aForm. xn := xn1. yn := yn1]!

1 0

The Trunk: ST80-nice.140.mcz
by commits＠source.squeak.org 20 Jan '13

20 Jan '13

1 0

The Trunk: ST80-nice.140.mcz
by commits＠source.squeak.org 20 Jan '13

20 Jan '13

1 0

The Trunk: System-dtl.512.mcz
by commits＠source.squeak.org 20 Jan '13

20 Jan '13

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.512.mcz ==================== Summary ==================== Name: System-dtl.512 Author: dtl Time: 17 January 2013, 8:12:00.656 pm UUID: 3e96758d-c221-4b54-bc03-b8a66e2ca3cd Ancestors: System-fbs.511 Only the instance of SystemOrganizer that is the global SystemOrganization should send change notifications to the singleton SystemChangeNotifier. Addresses the case of a FileContentsBrowser that uses a new SystemOrganization to load code for browsing and should not initiate a system change notification for the class being browsed, as reported by Bob Arning on squeak-dev http://lists.squeakfoundation.org/pipermail/squeak-dev/2013-January/167941.… =============== Diff against System-fbs.511 =============== Item was changed: ----- Method: SystemOrganizer>>addCategory:before: (in category 'accessing') ----- addCategory: catString before: nextCategory + self == SystemOrganization ifTrue: [ + SystemChangeNotifier uniqueInstance + doSilently: [super addCategory: catString before: nextCategory]; + classCategoryAdded: catString]! - SystemChangeNotifier uniqueInstance - doSilently: [super addCategory: catString before: nextCategory]; - classCategoryAdded: catString! Item was changed: ----- Method: SystemOrganizer>>classify:under: (in category 'accessing') ----- classify: element under: newCategory | oldCategory class | oldCategory := self categoryOfElement: element. super classify: element under: newCategory. class := Smalltalk at: element ifAbsent: [^ self]. + self == SystemOrganization ifTrue: [ + SystemChangeNotifier uniqueInstance + class: class + recategorizedFrom: oldCategory + to: newCategory]! - SystemChangeNotifier uniqueInstance - class: class - recategorizedFrom: oldCategory - to: newCategory ! Item was changed: ----- Method: SystemOrganizer>>removeCategory: (in category 'accessing') ----- removeCategory: cat | r | r := super removeCategory: cat. + self == SystemOrganization + ifTrue: [SystemChangeNotifier uniqueInstance classCategoryRemoved: cat]. - SystemChangeNotifier uniqueInstance classCategoryRemoved: cat. ^ r! Item was changed: ----- Method: SystemOrganizer>>renameCategory:toBe: (in category 'accessing') ----- renameCategory: oldCatString toBe: newCatString | r | r := super renameCategory: oldCatString toBe: newCatString. + self == SystemOrganization ifTrue: [ + SystemChangeNotifier uniqueInstance + classCategoryRenamedFrom: oldCatString to: newCatString]. - SystemChangeNotifier uniqueInstance - classCategoryRenamedFrom: oldCatString to: newCatString. ^ r!

1 0

The Trunk: System-dtl.512.mcz
by commits＠source.squeak.org 20 Jan '13

20 Jan '13

1 0

The Trunk: System-dtl.512.mcz
by commits＠source.squeak.org 20 Jan '13

20 Jan '13

1 0

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

17 Jan '13

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.731.mcz ==================== Summary ==================== Name: Kernel-nice.731 Author: nice Time: 17 January 2013, 11:33:08.076 pm UUID: c4663029-f1b5-48e3-ae29-402076e50f8f Ancestors: Kernel-bf.730, Kernel-nice.730 merge nice+bf 730 =============== Diff against Kernel-bf.730 =============== Item was changed: ----- Method: Integer>>/ (in category 'arithmetic') ----- / aNumber "Refer to the comment in Number / " | quoRem | aNumber isInteger ifTrue: + [quoRem := self digitDiv: aNumber neg: self negative ~~ aNumber negative. - [quoRem := self digitDiv: aNumber abs "*****I've added abs here*****" - neg: self negative ~~ aNumber negative. (quoRem at: 2) = 0 ifTrue: [^ (quoRem at: 1) normalize] ifFalse: [^ (Fraction numerator: self denominator: aNumber) reduced]]. ^ aNumber adaptToInteger: self andSend: #/! Item was changed: ----- Method: Integer>>quo: (in category 'arithmetic') ----- quo: aNumber "Refer to the comment in Number quo: " | ng quo | aNumber isInteger ifTrue: [ng := self negative == aNumber negative == false. + quo := (self digitDiv: aNumber neg: ng) at: 1. - quo := (self digitDiv: - (aNumber class == SmallInteger - ifTrue: [aNumber abs] - ifFalse: [aNumber]) - neg: ng) at: 1. ^ quo normalize]. ^ aNumber adaptToInteger: self andSend: #quo:! Item was changed: ----- Method: LargePositiveInteger>>\\ (in category 'arithmetic') ----- \\ aNumber "Primitive. Take the receiver modulo the argument. The result is the remainder rounded towards negative infinity, of the receiver divided by the argument. Fail if the argument is 0. Fail if either the argument or the result is not a SmallInteger or a LargePositiveInteger less than 2-to-the-30th (1073741824). Optional. See Object documentation whatIsAPrimitive." <primitive: 31> aNumber isInteger ifTrue: [| neg qr q r | neg := self negative == aNumber negative == false. + qr := self digitDiv: aNumber neg: neg. - qr := (self digitDiv: - (aNumber class == SmallInteger - ifTrue: [aNumber abs] - ifFalse: [aNumber]) - neg: neg). q := qr first normalize. r := qr last normalize. ^(q negative ifTrue: [r isZero not] ifFalse: [q isZero and: [neg]]) ifTrue: [r + aNumber] ifFalse: [r]]. ^super \\ aNumber ! Item was removed: - ----- Method: LargePositiveInteger>>primitiveQuo: (in category 'private') ----- - primitiveQuo: anInteger - "Primitive. Divide the receiver by the argument and return the result. - Round the result down towards zero to make it a whole integer. Fail if - the argument is 0. Fail if either the argument or the result is not a - SmallInteger or a LargePositiveInteger less than 2-to-the-30th (1073741824). Optional. See - Object documentation whatIsAPrimitive." - - <primitive: 33> - ^nil! Item was changed: ----- Method: LargePositiveInteger>>rem: (in category 'arithmetic') ----- rem: aNumber "Remainder defined in terms of quo:. See super rem:. + This is defined only to speed up case of large integers." - This is defined only to speed up case of very large integers." + <primitive: 20> - (self primitiveQuo: aNumber) - ifNotNil: [:quo | ^self - (quo * aNumber)]. aNumber isInteger ifTrue: [| ng rem | ng := self negative == aNumber negative == false. + rem := (self digitDiv: aNumber neg: ng) at: 2. - rem := (self digitDiv: - (aNumber class == SmallInteger - ifTrue: [aNumber abs] - ifFalse: [aNumber]) - neg: ng) at: 2. ^ rem normalize]. ^super rem: aNumber!

1 0

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

17 Jan '13

1 0

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

17 Jan '13

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
22
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 January 2013