[squeak-dev] The Trunk: 51Deprecated-mt.56.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Aug 19 15:51:17 UTC 2019


Marcel Taeumel uploaded a new version of 51Deprecated to project The Trunk:
http://source.squeak.org/trunk/51Deprecated-mt.56.mcz

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

Name: 51Deprecated-mt.56
Author: mt
Time: 19 August 2019, 5:51:18.317665 pm
UUID: 70764cda-d8ec-4148-8c08-59da54efabf9
Ancestors: 51Deprecated-mt.55, 51Deprecated-ct.55

Merges 51Deprecated-ct.55.

Don't be too harsh with deprecations in Time class for now. Just use a #flag:.

=============== Diff against 51Deprecated-mt.55 ===============

Item was changed:
  ----- Method: DockingBarMorph>>useRoundedCorners (in category '*51Deprecated') -----
  useRoundedCorners
+ 	self deprecated.
  	self cornerStyle: #rounded!

Item was changed:
  ----- Method: DockingBarMorph>>useSquareCorners (in category '*51Deprecated') -----
  useSquareCorners
+ 	self deprecated.
  	self cornerStyle: #square!

Item was changed:
  ----- Method: DummyUIManager>>restoreDisplay (in category '*51Deprecated') -----
+ restoreDisplay
+ 
+ 	self deprecated.!
- restoreDisplay!

Item was changed:
  ----- Method: ExternalDropHandler class>>registerStandardExternalDropHandlers (in category '*51Deprecated') -----
  registerStandardExternalDropHandlers
  	"ExternalDropHandler registerStandardExternalDropHandlers"
  
+ 	self deprecated.
  	self registeredHandlers add: (
  		ExternalDropHandler
  			type: 'image/'
  			extension: nil
  			action: [:stream :pasteUp :event |
  				pasteUp addMorph: (Project current world drawingClass withForm: (Form fromBinaryStream: stream binary)) centeredNear: event position])!

Item was changed:
  ----- Method: KeyboardEvent>>setType:buttons:position:keyValue:charCode:hand:stamp: (in category '*51Deprecated') -----
  setType: aSymbol buttons: anInteger position: pos keyValue: aValue charCode: ignoredUsedInOBTesting hand: aHand stamp: stamp
+ 	self deprecated: 'Use ', #setType:buttons:position:keyValue:hand:stamp:.
  	self setType: aSymbol buttons: anInteger position: pos keyValue: aValue hand: aHand stamp: stamp!

Item was changed:
  ----- Method: MVCProject>>pauseSoundPlayers (in category '*51Deprecated') -----
  pauseSoundPlayers
  	"Pause sound players, subject to preference settings"
  
+ 	self deprecated.
  	Smalltalk at: #ScorePlayer ifPresent:[:playerClass| 
  		playerClass allSubInstancesDo: [:player | player pause]]!

Item was changed:
  ----- Method: NewParagraph>>insertionPointColor (in category '*51Deprecated') -----
  insertionPointColor
+ 	self deprecated.
  	self focused ifFalse: [^ Color transparent].
  	^ Display depth <= 2
  		ifTrue: [Color black]
  		ifFalse: [Preferences insertionPointColor]!

Item was changed:
  ----- Method: Object>>dragAnimationFor:transferMorph: (in category '*51Deprecated') -----
  dragAnimationFor: item transferMorph: transferMorph 
+ 	"Default do nothing"
+ 	self deprecated.!
- 	"Default do nothing"!

Item was changed:
  ----- Method: PluggableButtonMorph>>useRoundedCorners (in category '*51Deprecated') -----
  useRoundedCorners
+ 	self deprecated.
  	self cornerStyle: #rounded!

Item was changed:
  ----- Method: PluggableButtonMorph>>useSquareCorners (in category '*51Deprecated') -----
  useSquareCorners
+ 	self deprecated.
  	self cornerStyle: #square!

Item was changed:
  ----- Method: Project class>>interruptName: (in category '*51Deprecated') -----
  interruptName: labelString
  	"Create a Notifier on the active scheduling process with the given label."
  
+ 	self deprecated: 'Send this message to Project current'.
- 	self flag: #toRemove. "after restarting the user interrupt watcher process"
  	^ self current interruptName: labelString
  !

Item was changed:
  ----- Method: Project class>>spawnNewProcess (in category '*51Deprecated') -----
  spawnNewProcess
  	"Meaningful only for a Morphic project, but retained here to protect for possible
  	references from e.g. image segments"
  
+ 	self deprecated: 'Send this message to Project current'.
  	self current spawnNewProcess!

Item was changed:
  ----- Method: Project class>>spawnNewProcessAndTerminateOld: (in category '*51Deprecated') -----
  spawnNewProcessAndTerminateOld: terminate
  	"Meaningful only for a Morphic project, but retained here to protect for possible
  	references from e.g. image segments"
  
+ 	self deprecated: 'Send this message to Project current'.
  	^ self current spawnNewProcessAndTerminateOld: terminate
  !

Item was changed:
  ----- Method: Project class>>spawnNewProcessIfThisIsUI: (in category '*51Deprecated') -----
  spawnNewProcessIfThisIsUI: suspendedProcess
  	"Meaningful only for a Morphic project, but retained here to protect for possible
  	references from e.g. image segments"
  
+ 	self deprecated: 'Send this message to Project current'.
  	self current spawnNewProcessIfThisIsUI: suspendedProcess
  
  !

Item was changed:
  ----- Method: ScrollBar class>>createArrowOfDirection:in: (in category '*51Deprecated') -----
  createArrowOfDirection: aSymbol in: aRectangle 
  	"PRIVATE - create an arrow bounded in aRectangle"
  
  	| arrow vertices |
+ 	self deprecated: 'See ArrowImagesCache'.
  	vertices := Preferences alternativeButtonsInScrollBars 
  				ifTrue: [self verticesForComplexArrow: aRectangle]
  				ifFalse: [self verticesForSimpleArrow: aRectangle].
  	""
  	arrow := PolygonMorph 
  				vertices: vertices
  				color: Color transparent
  				borderWidth: 0
  				borderColor: Color black.
  	""
  	arrow bounds: (arrow bounds insetBy: (aRectangle width / 6) rounded).
  	""
  	Preferences alternativeButtonsInScrollBars 
  		ifTrue: [arrow rotationDegrees: 45].
  	""
  	aSymbol == #right 
  		ifTrue: [arrow rotationDegrees: arrow rotationDegrees + 90].
  	aSymbol == #bottom 
  		ifTrue: [arrow rotationDegrees: arrow rotationDegrees + 180].
  	aSymbol == #left 
  		ifTrue: [arrow rotationDegrees: arrow rotationDegrees + 270].
  	""
  	^arrow!

Item was changed:
  ----- Method: ScrollBar class>>createBoxIn: (in category '*51Deprecated') -----
  createBoxIn: aRectangle 
  	"PRIVATE - create an box bounded in aRectangle"
  	| box |
+ 	self deprecated: 'See ArrowImagesCache'.
  	box := RectangleMorph new.
  	box extent: (aRectangle scaleBy: 1 / 2) extent rounded;
  		 borderWidth: 0.
  	""
  	^ box!

Item was changed:
  ----- Method: ScrollBar class>>updateScrollBarButtonAspect:color: (in category '*51Deprecated') -----
  updateScrollBarButtonAspect: aMorph color: aColor 
  	"update aMorph with aColor"
  	| fill direction |
+ 	self deprecated.
  	aMorph isNil
  		ifTrue: [^ self].
  	""
  	aMorph color: aColor.
  	self gradientScrollBar ifFalse: [^ self].
  	""
  	fill := GradientFillStyle ramp: {
  		0.0 -> aColor twiceLighter twiceLighter.
  		1.0 -> aColor twiceDarker}.
  	""
  	direction := ((aMorph width min: aMorph height)
  				+ ((aMorph width - aMorph height) abs * 0.3)) rounded.
  	""
  	fill origin: aMorph topLeft + (direction // 8).
  	fill direction: direction @ direction.
  	fill radial: true.
  	""
  	aMorph fillStyle: fill!

Item was changed:
  ----- Method: ScrollBar class>>updateScrollBarButtonsAspect:color: (in category '*51Deprecated') -----
  updateScrollBarButtonsAspect: aCollection color: aColor 
  	"update aCollection of morphs with aColor"
  	
+ 	self deprecated.
- 	
  	aCollection
  		do: [:each | self updateScrollBarButtonAspect: each color: aColor]!

Item was changed:
  ----- Method: ScrollBar class>>verticesForComplexArrow: (in category '*51Deprecated') -----
  verticesForComplexArrow: aRectangle 
  	"PRIVATE - answer a collection of vertices to draw a complex arrow"
  	| vertices aux |
+ 	self deprecated: 'See ArrowImagesCache'.
  	vertices := OrderedCollection new.
  	""
  	vertices add: aRectangle bottomLeft.
  	vertices add: aRectangle topLeft.
  	vertices add: aRectangle topRight.
  	""
  	aux := (aRectangle width / 3) rounded.
  	vertices add: aRectangle topRight + (0 @ aux).
  	vertices add: aRectangle topLeft + aux.
  	vertices add: aRectangle bottomLeft + (aux @ 0).
  	""
  	^ vertices!

Item was changed:
  ----- Method: ScrollBar class>>verticesForSimpleArrow: (in category '*51Deprecated') -----
  verticesForSimpleArrow: aRectangle 
  	"PRIVATE - answer a collection of vertices to draw a simple arrow"
  	| vertices |
+ 	self deprecated: 'See ArrowImagesCache'.
  	vertices := OrderedCollection new.
  	""
  	vertices add: aRectangle bottomLeft.
  	vertices add: aRectangle center x @ (aRectangle top + (aRectangle width / 8)).
  	vertices add: aRectangle bottomRight.
  	""
  	^ vertices!

Item was changed:
  ----- Method: ScrollBar>>scrollDown (in category '*51Deprecated') -----
  scrollDown
+ 	self deprecated: 'Use ', #doScrollDown.
- 	self flag: #obsolete.
  	downButton eventHandler: nil.
  	downButton on: #mouseDown send: #scrollDownInit to: self.
  	downButton on: #mouseUp send: #finishedScrolling to: self.
  	^self scrollDownInit!

Item was changed:
  ----- Method: ScrollBar>>scrollUp (in category '*51Deprecated') -----
  scrollUp
+ 	self deprecated: 'Use ', #doScrollUp.
- 	self flag: #obsolete.
  	upButton eventHandler: nil.
  	upButton on: #mouseDown send: #scrollUpInit to: self.
  	upButton on: #mouseUp send: #finishedScrolling to: self.
  	^self scrollUpInit!

Item was changed:
  ----- Method: StandardFileStream>>asHtml (in category '*51Deprecated-Files-Kernel') -----
  asHtml
  	"Convert me in to an HtmlFileStream. 4/11/96 tk"
  
+ 	self deprecated: 'Use self as: HtmlFileStream'.
  	^ self as: HtmlFileStream 
  !

Item was changed:
  ----- Method: SystemWindow>>setLabelFont: (in category '*51Deprecated') -----
  setLabelFont: aFont
  
+ 	self deprecated.
  	label ifNil: [^ self].
  	label font: aFont.
  !

Item was changed:
  ----- Method: TheWorldMenu>>inspectWorldModel (in category '*51Deprecated-Tools') -----
  inspectWorldModel
  	
+ 	self deprecated.
  	myWorld model inspect.!

Item was changed:
  ----- Method: Time class>>primLocalMicrosecondClock (in category '*51Deprecated-primitives') -----
  primLocalMicrosecondClock
  	"Answer the local microseconds since the Smalltalk epoch. The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868, and with an offset duration corresponding to the current offset of local time from UTC."
  
  	<primitive: 241>
+ 	self flag: #deprecated.
  	^0!

Item was changed:
  ----- Method: Time class>>primMicrosecondClock (in category '*51Deprecated-primitives') -----
  primMicrosecondClock
  	"Answer the number of microseconds since the microsecond clock
  	was last reset or rolled over. Answer zero if the primitive fails."
  
  	<primitive: 'primitiveMicrosecondClock'>
+ 	self flag: #deprecated.
  	^ 0!

Item was changed:
  ----- Method: Time class>>primMillisecondClock (in category '*51Deprecated-primitives') -----
  primMillisecondClock
  	"Primitive. Answer the number of milliseconds since the millisecond clock
  	 was last reset or rolled over. Answer zero if the primitive fails.
  	 Optional. See Object documentation whatIsAPrimitive."
  
  	<primitive: 135>
+ 	self flag: #deprecated.
  	^ 0!

Item was changed:
  ----- Method: Time class>>primMillisecondClockMask (in category '*51Deprecated-primitives') -----
  primMillisecondClockMask
  	"Answer the mask value used for millisecond clock rollover in the
  	virtual machine, or nil if the VM cannot support the request."
  
  	<primitive: 'primitiveMillisecondClockMask'>
+ 	self flag: #deprecated.
  	^nil!

Item was changed:
  ----- Method: Time class>>primSecondsClock (in category '*51Deprecated-primitives') -----
  primSecondsClock
  	"Answer the number of seconds since 00:00 on the morning of
  	 January 1, 1901 (a 32-bit unsigned number).
  	 Essential. See Object documentation whatIsAPrimitive. "
  
  	<primitive: 137>
+ 	self flag: #deprecated.
  	self primitiveFailed!

Item was changed:
  ----- Method: Time class>>primUTCMicrosecondClock (in category '*51Deprecated-primitives') -----
  primUTCMicrosecondClock
  	"Answer the UTC microseconds since the Smalltalk epoch. The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds between the two epochs according to RFC 868."
  
  	<primitive: 240>
+ 	self flag: #deprecated.
  	^0!

Item was changed:
  ----- Method: Time class>>secondsWhenClockTicks (in category '*51Deprecated-primitives') -----
  secondsWhenClockTicks
  
  	"waits for the moment when a new second begins"
  
  	| lastSecond delay |
+ 	self flag: #deprecated. "DIY based on Time now"
+ 	
- 
  	delay :=  Delay forMilliseconds: 1.
  	lastSecond := self primSecondsClock.
  	[ lastSecond = self primSecondsClock ] whileTrue: [ delay wait ].
   
  	^ lastSecond + 1!

Item was changed:
  ----- Method: WorldState>>handleFatalDrawingError: (in category '*51Deprecated-Morphic') -----
  handleFatalDrawingError: errMsg
  	"Handle a fatal drawing error."
+ 	self deprecated: 'Send this message to Project current'.
- 	self flag: #toRemove. "Implementation moved to Project, but are there external packages with senders?"
  	Project current handleFatalDrawingError: errMsg
  !



More information about the Squeak-dev mailing list