The Trunk: 51Deprecated-mt.56.mcz

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
  !