Squeak-dev November 2013

squeak-dev@lists.squeakfoundation.org

43 participants
223 discussions

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: 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

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

01 Nov '13

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.817.mcz ==================== Summary ==================== Name: Kernel-cmm.817 Author: cmm Time: 31 October 2013, 8:47:05.439 pm UUID: a37c9485-212f-4f0d-9e39-69952517d138 Ancestors: Kernel-cmm.816 notNil belongs on ProtoObject along with the other common nil-testing methods. =============== Diff against Kernel-cmm.816 =============== Item was removed: - ----- Method: Object>>notNil (in category 'testing') ----- - notNil - "Coerces nil to false and everything else to true." - - ^true! Item was added: + ----- Method: ProtoObject>>notNil (in category 'testing') ----- + notNil + "Coerces nil to false and everything else to true." + + ^true!

1 0

Jump to page: