The Inbox: 45Deprecated-ct.27.mcz

A new version of 45Deprecated was added to project The Inbox:
http://source.squeak.org/inbox/45Deprecated-ct.27.mcz

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

Name: 45Deprecated-ct.27
Author: ct
Time: 15 August 2019, 5:10:40.352044 pm
UUID: 8f682167-4185-5648-afa0-a77ff545211d
Ancestors: 45Deprecated-eem.26

Mark some methods as deprecated

Also rechecked they have no senders in the Image ...

=============== Diff against 45Deprecated-eem.26 ===============

Item was changed:
  ----- Method: BitBlt>>displayString:from:to:at:kern:baselineY:font: (in category '*45Deprecated') -----
  displayString: aString from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY font: aFont
  "Double dispatch into the font. This method is present so that other-than-bitblt entities can be used by CharacterScanner and friends to display text."
+ self deprecated: 'Ask the font, double dispatch is no longer needed'.
  ^ aFont displayString: aString on: self from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY!

Item was changed:
  ----- Method: BitBlt>>displayString:from:to:at:kern:font: (in category '*45Deprecated') -----
  displayString: aString from: startIndex to: stopIndex at: aPoint kern: kernDelta font: aFont
  "Double dispatch into the font. This method is present so that other-than-bitblt entities can be used by CharacterScanner and friends to display text."
+ self deprecated: 'Ask the font, double dispatch is no longer needed'.
  ^ aFont displayString: aString on: self from: startIndex to: stopIndex at: aPoint kern: kernDelta!

Item was changed:
  ----- Method: BitBlt>>installFont:foregroundColor:backgroundColor: (in category '*45Deprecated') -----
  installFont: aFont foregroundColor: foregroundColor backgroundColor: backgroundColor
  "Double dispatch into the font. This method is present so that other-than-bitblt entities can be used by CharacterScanner and friends to display text."
+ self deprecated: 'Ask the font, double dispatch is no longer needed'.
  ^aFont installOn: self foregroundColor: foregroundColor backgroundColor: backgroundColor!

Item was changed:
  ----- Method: JapaneseEnvironment>>setupSqueaklandSpecifics (in category '*45Deprecated-utilities') -----
  setupSqueaklandSpecifics
  | server |
+ self deprecated.
  ChangeSet current name: 'Unnamed' translated , '1'.
  ServerDirectory resetServers.
  server := SuperSwikiServer new type: #http;
  server: 'squeakland.jp';
  directory: '/super/SuperSwikiProj';
  acceptsUploads: (Preferences eToyFriendly not);
  encodingName: 'shift_jis'.
  ServerDirectory servers at: 'Squeakland.JP' put: server.
  Smalltalk garbageCollect!

Item was changed:
  ----- Method: LanguageEnvironment>>setupSqueaklandSpecifics (in category '*45Deprecated-utilities') -----
  setupSqueaklandSpecifics
+ "Write language specific settings here"
+ self deprecated.!
- "Write language specific settings here"!

Item was changed:
  ----- Method: SocketStream class>>finger: (in category '*45Deprecated-example') -----
  finger: userName
+ self deprecated: 'Use ', #finger:at:.
+ self shouldNotImplement.!
- self error: 'Use SocketStream >> #finger:at:'.!

Item was changed:
  ----- Method: Utilities class>>methodDiffFor:class:selector:prettyDiffs: (in category '*45Deprecated-miscellaneous') -----
  methodDiffFor: aString class: aClass selector: aSelector prettyDiffs: prettyDiffBoolean
  "Return a string comprising a source-code diff between an existing method and the source-code in aString.  DO prettyDiff if prettyDiffBoolean is true."
 
+ self deprecated: 'Use ', (ChangeList >> #methodDiffFor:class:selector:prettyDiffs:), ' instead'.
  ^ (aClass notNil and: [aClass includesSelector: aSelector])
  ifTrue:
  [TextDiffBuilder
  buildDisplayPatchFrom: (aClass sourceCodeAt: aSelector)
  to: aString
  inClass: aClass
  prettyDiffs: prettyDiffBoolean]
  ifFalse:
  [aString copy]!