[Pkg] The Trunk: Morphic-laza.488.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Dec 8 12:26:01 UTC 2010


Alexander Lazarević uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-laza.488.mcz

==================== Summary ====================

Name: Morphic-laza.488
Author: laza
Time: 8 December 2010, 1:24:52.251 pm
UUID: 51a452ef-b931-4d4a-9d66-b8bc829fad99
Ancestors: Morphic-laza.487

Try to prevent empty progress morphs after updates when SystemProgressMorph reset is used in a Postscript

=============== Diff against Morphic-mha.486 ===============

Item was changed:
  ----- Method: SystemProgressMorph class>>close: (in category 'instance creation') -----
  close: aBlock
+ 	| slot |
+ 	slot := aBlock value: SmallInteger maxVal. "This should prevent a redraw"
+ 	aBlock receiver freeSlot: slot.
+ 	
+ !
- 	UniqueInstance ifNotNil: [UniqueInstance close: aBlock]!

Item was removed:
- ----- Method: SystemProgressMorph>>close: (in category 'initialization') -----
- close: aBlock
- 	| slot |
- 	slot := aBlock value: SmallInteger maxVal. "This should prevent a redraw"
- 	self freeSlot: slot
- 	
- !

Item was changed:
  ----- Method: SystemProgressMorph>>freeSlot: (in category 'private') -----
  freeSlot: number
+ 	number > 0 ifFalse: [^self].
+ 	lock critical: [| label |
+ 		label := labels at: number.
+ 		(label isNil or: [label owner isNil]) ifTrue: [^self]. "Has been freed before"
+ 		label delete.
+ 		(bars at: number) delete.
+ 		activeSlots := activeSlots - 1.
+ 		activeSlots = 0
+ 			ifTrue: [self delete]
+ 			ifFalse: [self recenter]]!
- 	number > 0 ifTrue: [
- 		lock critical: [
- 			(bars at: number) delete.
- 			(labels at: number) delete.
- 			activeSlots := activeSlots - 1.
- 			activeSlots = 0
- 				ifTrue: [self delete]
- 				ifFalse: [self recenter]]]!

Item was changed:
  (PackageInfo named: 'Morphic') postscript: '(Preferences dictionaryOfPreferences at: #alternativeWindowBoxesLook) defaultValue: false.
+ "Force SystemProgressMorph to be reset"
  SystemProgressMorph initialize; reset.
  TextEditor initialize.
  SmalltalkEditor initialize.
  TheWorldMainDockingBar updateInstances'!



More information about the Packages mailing list