Packages November 2013

packages@lists.squeakfoundation.org

1 participants
315 discussions

The Trunk: Kernel-nice.818.mcz
by commits＠source.squeak.org 02 Nov '13

02 Nov '13

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.818.mcz ==================== Summary ==================== Name: Kernel-nice.818 Author: nice Time: 2 November 2013, 12:05:29.34 am UUID: 3dae8edc-b873-491e-8b54-596cae38eb5f Ancestors: Kernel-cmm.817 Avoid spurious warnings in Class>>rename: when an Undeclared isn't really referenced. This may help some SUnit tests to pass. =============== Diff against Kernel-cmm.817 =============== Item was changed: ----- Method: Class>>rename: (in category 'class name') ----- rename: aString "The new name of the receiver is the argument, aString." | oldName newName | (newName := aString asSymbol) = (oldName := self name) ifTrue: [^ self]. (self environment includesKey: newName) ifTrue: [^ self error: newName , ' already exists']. + ((self environment undeclared includesKey: newName) + and: [(self environment undeclared unreferencedKeys includes: newName) not]) - (self environment undeclared includesKey: newName) ifTrue: [self inform: 'There are references to ' , aString printString , ' from Undeclared. Check them after this change.']. name := newName. self environment renameClass: self from: oldName!

1 0

The Trunk: Kernel-nice.818.mcz
by commits＠source.squeak.org 02 Nov '13

02 Nov '13

1 0

The Trunk: Kernel-nice.818.mcz
by commits＠source.squeak.org 02 Nov '13

02 Nov '13

1 0

The Trunk: ReleaseBuilder-fbs.103.mcz
by commits＠source.squeak.org 01 Nov '13

01 Nov '13

Frank Shearar uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-fbs.103.mcz ==================== Summary ==================== Name: ReleaseBuilder-fbs.103 Author: fbs Time: 1 November 2013, 9:31:11.134 am UUID: b37da1c1-cfc0-8c45-a77c-c8a5ca288d50 Ancestors: ReleaseBuilder-cmm.102 Prior to this commit, the release manager needed to edit prepareNewBuild to put in the correct upstream repo. Now it's hardcoded, but with a means for other tasks (like CI) to produce interim artifacts (release candidate images, say) to produce released images. =============== Diff against ReleaseBuilder-cmm.102 =============== Item was changed: ----- Method: ReleaseBuilder class>>prepareNewBuild (in category 'scripts') ----- prepareNewBuild + self prepareNewBuild: self releaseRepository.! - "ReleaseBuilderTrunk prepareNewBuild" - "Prepare everything that should be done for a new image build" - TTCFont registerAll. - RealEstateAgent standardSize: 600@400. - SystemVersion newVersion: self versionString. - SMLoaderPlus - setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable). - self setDisplayExtent: 800 @ 600; - setPreferences; - switchToNewRepository; - openWelcomeWorkspaces. - self cleanPackages. - Smalltalk cleanUp: true. - Undeclared removeUnreferencedKeys. - Smalltalk garbageCollect. - self loadWellKnownPackages. - Compiler recompileAll.! Item was added: + ----- Method: ReleaseBuilder class>>prepareNewBuild: (in category 'scripts') ----- + prepareNewBuild: anMCRepository + "ReleaseBuilderTrunk prepareNewBuild" + "Prepare everything that should be done for a new image build" + TTCFont registerAll. + RealEstateAgent standardSize: 600@400. + SystemVersion newVersion: self versionString. + SMLoaderPlus + setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable). + self setDisplayExtent: 800 @ 600; + setPreferences; + switchToNewRepository: anMCRepository; + openWelcomeWorkspaces. + self cleanPackages. + Smalltalk cleanUp: true. + Undeclared removeUnreferencedKeys. + Smalltalk garbageCollect. + self loadWellKnownPackages. + Compiler recompileAll.! Item was removed: - ----- Method: ReleaseBuilder class>>switchToNewRepository (in category 'private') ----- - switchToNewRepository - | old44Repository | - MCMcmUpdater defaultUpdateURL: self releaseRepository description. - old44Repository := MCRepositoryGroup default repositories - detect: [:each | each description includesSubString: 'squeak44'] ifNone: [nil]. - old44Repository - ifNotNil: [MCRepositoryGroup default removeRepository: old44Repository]. - MCRepositoryGroup default addRepository: self releaseRepository! Item was added: + ----- Method: ReleaseBuilder class>>switchToNewRepository: (in category 'private') ----- + switchToNewRepository: anMCRepository + | old44Repository | + MCMcmUpdater defaultUpdateURL: anMCRepository description. + old44Repository := MCRepositoryGroup default repositories + detect: [:each | each description includesSubString: 'squeak44'] ifNone: [nil]. + old44Repository + ifNotNil: [MCRepositoryGroup default removeRepository: old44Repository]. + MCRepositoryGroup default addRepository: anMCRepository.!

1 0

The Trunk: ReleaseBuilder-fbs.103.mcz
by commits＠source.squeak.org 01 Nov '13

01 Nov '13

1 0

The Trunk: ReleaseBuilder-fbs.103.mcz
by commits＠source.squeak.org 01 Nov '13

01 Nov '13

1 0

The Trunk: Graphics-fbs.277.mcz
by commits＠source.squeak.org 01 Nov '13

01 Nov '13

Frank Shearar uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-fbs.277.mcz ==================== Summary ==================== Name: Graphics-fbs.277 Author: fbs Time: 1 November 2013, 9:02:17.694 am UUID: fbf825b5-7f97-9c48-9a35-93c4f1a1b1f4 Ancestors: Graphics-nice.276 Defer display depth changes to the current UIManager. (Remove the one-shot workarounds in the pre/postambles, as per Nicolas Cellier's suggestion.) =============== Diff against Graphics-nice.276 =============== Item was removed: - (PackageInfo named: 'Graphics') preamble: '"below, add code to be run before the loading of this package" - - "Remember which windows were not collapsed, and collapse them. - The goal is to freeze text morph display during this update. - This is required because displaying may fail and let the system in unusable state." - (Smalltalk globals - at: #''_windows_which_were_not_collapsed'' - put: (World submorphsSatisfying: [:e | (e isKindOf: SystemWindow) - and: [e isCollapsed not]])) - do: [:e | e collapse]. - '! Item was changed: ----- Method: DisplayScreen>>newDepthNoRestore: (in category 'private') ----- newDepthNoRestore: pixelSize + UIManager default newDisplayDepthNoRestore: pixelSize.! - "Change depths. Check if there is enough space!! , di" - | area need | - pixelSize = depth ifTrue: [^ self "no change"]. - pixelSize abs < self depth ifFalse: - ["Make sure there is enough space" - area := Display boundingBox area. "pixels" - Smalltalk isMorphic ifFalse: - [ScheduledControllers scheduledWindowControllers do: - [:aController | "This should be refined..." - aController view cacheBitsAsTwoTone ifFalse: - [area := area + aController view windowBox area]]]. - need := (area * (pixelSize abs - self depth) // 8) "new bytes needed" - + Smalltalk lowSpaceThreshold. - (Smalltalk garbageCollectMost <= need - and: [Smalltalk garbageCollect <= need]) - ifTrue: [self error: 'Insufficient free space']]. - self setExtent: self extent depth: pixelSize. - Smalltalk isMorphic ifFalse: [ScheduledControllers updateGray]. - DisplayScreen startUp! Item was changed: ----- Method: DisplayScreen>>restore (in category 'other') ----- restore + UIManager default restoreDisplay.! - "Restore the bits on Display" - Project current ifNotNil:[:p| p invalidate; restore].! Item was changed: ----- Method: DisplayScreen>>restoreAfter: (in category 'other') ----- restoreAfter: aBlock + UIManager default restoreDisplayAfter: aBlock.! - "Evaluate the block, wait for a mouse click, and then restore the screen." - - aBlock value. - Sensor waitButton. - self restore.! Item was removed: - (PackageInfo named: 'Graphics') postscript: '"below, add code to be run after the loading of this package" - - "Restore the collapsed window that were not" - (Smalltalk globals removeKey: #''_windows_which_were_not_collapsed'') - reverseDo: [:e | e expand].'!

1 0

The Trunk: Graphics-fbs.277.mcz
by commits＠source.squeak.org 01 Nov '13

01 Nov '13

1 0

The Trunk: Graphics-fbs.277.mcz
by commits＠source.squeak.org 01 Nov '13

01 Nov '13

1 0

The Trunk: System-cmm.612.mcz
by commits＠source.squeak.org 01 Nov '13

01 Nov '13

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.612.mcz ==================== Summary ==================== Name: System-cmm.612 Author: cmm Time: 31 October 2013, 8:51:21.011 pm UUID: 829f7d46-28b2-4141-bfea-929a91e6c001 Ancestors: System-fbs.611 - Stop blowing away RecentMessages every time System is updated. - Rename Smalltalk #do: nomenclature to #run:, because do: is so heavily associated with enumeration of Collections. - Refer to stdout and stderr through FileStream instead of StandardFileStream. =============== Diff against System-fbs.611 =============== Item was changed: (PackageInfo named: 'System') preamble: '"Prepare for removing the recent-message-tracking from Utilities." + '! - SystemChangeNotifier uniqueInstance noMoreNotificationsFor: Utilities. - RecentMessages startUp.'! Item was removed: - ----- Method: SmalltalkImage>>do: (in category 'command line') ----- - do: aBlock - [ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ]) - ifTrue: [ aBlock value: self arguments ] - ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ] - on: ProgressInitiationException - do: - [ : pie | "Don't want to log this notification." - pie defaultAction ] ] - on: Notification , Warning - do: - [ : noti | StandardFileStream stdout - nextPutAll: DateAndTime now asString ; - space ; - nextPutAll: noti description ; - cr. - noti resume ] - on: SyntaxErrorNotification - do: - [ : err | StandardFileStream stdout - nextPutAll: err errorCode ; - cr. - self haltOrQuit ] - on: Error - do: - [ : err | err printVerboseOn: StandardFileStream stderr. - self haltOrQuit. - err isResumable ifTrue: [ err resume ] ]! Item was removed: - ----- Method: SmalltalkImage>>do:snapshotAs:andQuit: (in category 'command line') ----- - do: aBlock snapshotAs: imageName andQuit: shouldQuit - self do: aBlock. - imageName - ifNil: - [ shouldQuit ifTrue: - [ self - snapshot: false - andQuit: shouldQuit ] ] - ifNotNil: - [ | correctName | - correctName := (imageName endsWith: '.image') - ifTrue: [ imageName ] - ifFalse: [ imageName , '.image' ]. - (FileDirectory default fullNameFor: correctName) = self imageName - ifTrue: - [ self - snapshot: true - andQuit: shouldQuit ] - ifFalse: - [ self saveAs: imageName. - "Avoid instant-quit when relaunching by resaving." - shouldQuit ifTrue: - [ self - snapshot: true - andQuit: shouldQuit ] ] ]! Item was removed: - ----- Method: SmalltalkImage>>doAndQuit: (in category 'command line') ----- - doAndQuit: aBlock - self - do: aBlock - snapshotAs: nil - andQuit: true! Item was added: + ----- Method: SmalltalkImage>>run: (in category 'command line') ----- + run: aBlock + [ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ]) + ifTrue: [ aBlock value: self arguments ] + ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ] + on: ProgressInitiationException + do: + [ : pie | "Don't want to log this notification." + pie defaultAction ] ] + on: Notification , Warning + do: + [ : noti | FileStream stdout + nextPutAll: DateAndTime now asString ; + space ; + nextPutAll: noti description ; + cr. + noti resume ] + on: SyntaxErrorNotification + do: + [ : err | FileStream stdout + nextPutAll: err errorCode ; + cr. + self haltOrQuit ] + on: Error + do: + [ : err | err printVerboseOn: FileStream stderr. + self haltOrQuit. + err isResumable ifTrue: [ err resume ] ]! Item was added: + ----- Method: SmalltalkImage>>run:snapshotAs:andQuit: (in category 'command line') ----- + run: aBlock snapshotAs: imageName andQuit: shouldQuit + self run: aBlock. + imageName + ifNil: + [ shouldQuit ifTrue: + [ self + snapshot: false + andQuit: shouldQuit ] ] + ifNotNil: + [ | correctName | + correctName := (imageName endsWith: '.image') + ifTrue: [ imageName ] + ifFalse: [ imageName , '.image' ]. + (FileDirectory default fullNameFor: correctName) = self imageName + ifTrue: + [ self + snapshot: true + andQuit: shouldQuit ] + ifFalse: + [ self saveAs: imageName. + "Avoid instant-quit when relaunching by resaving." + shouldQuit ifTrue: + [ self + snapshot: true + andQuit: shouldQuit ] ] ]! Item was added: + ----- Method: SmalltalkImage>>runAndQuit: (in category 'command line') ----- + runAndQuit: aBlock + self + run: aBlock + snapshotAs: nil + andQuit: true!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2013