The Trunk: 46Deprecated-ct.8.mcz

Marcel Taeumel uploaded a new version of 46Deprecated to project The Trunk:
http://source.squeak.org/trunk/46Deprecated-ct.8.mcz

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

Name: 46Deprecated-ct.8
Author: ct
Time: 15 August 2019, 2:59:15.890584 am
UUID: d1c020d3-3cf4-7047-9199-2e91f9fcd256
Ancestors: 46Deprecated-mt.7

Mark deprecated Browser methods with #deprecated:

=============== Diff against 46Deprecated-mt.7 ===============

Item was changed:
  ----- Method: Browser>>classComment:notifying: (in category '*46Deprecated') -----
  classComment: aText notifying: aPluggableTextMorph
  "The user has just entered aText.
  It may be all red (a side-effect of replacing the default comment), so remove the color if it is."
 
  | theClass cleanedText redRange |
+ self deprecated: 'ct: Use #classComment: on selectedClass instead'.
  theClass := self selectedClassOrMetaClass.
  theClass
  ifNotNil: [cleanedText := aText asText.
  redRange := cleanedText rangeOf: TextColor red startingAt: 1.
  redRange size = cleanedText size
  ifTrue: [cleanedText
  removeAttribute: TextColor red
  from: 1
  to: redRange last ].
  theClass comment: aText stamp: Utilities changeStamp].
  self changed: #classCommentText.
  ^ true!

Item was changed:
  ----- Method: Browser>>messageListSingleton (in category '*46Deprecated') -----
  messageListSingleton
 
  | name |
+ self deprecated.
  name := self selectedMessageName.
  ^ name ifNil: [Array new]
  ifNotNil: [Array with: name]!

Item was changed:
  ----- Method: Browser>>optionalAnnotationHeight (in category '*46Deprecated') -----
  optionalAnnotationHeight
 
+ self deprecated.
  ^ 10!

Item was changed:
  ----- Method: Browser>>optionalButtonHeight (in category '*46Deprecated') -----
  optionalButtonHeight
 
+ self deprecated.
  ^ 10!

Item was changed:
  ----- Method: Browser>>potentialClassNames (in category '*46Deprecated') -----
  potentialClassNames
  "Answer the names of all the classes that could be viewed in this browser.  This hook is provided so that HierarchyBrowsers can indicate their restricted subset.  For generic Browsers, the entire list of classes known to Smalltalk is provided, though of course that really only is accurate in the case of full system browsers."
 
+ self deprecated: 'ct: All classes can be viewed in browser without restrictions.'.
  ^ Smalltalk classNames!

Item was changed:
  ----- Method: HierarchyBrowser>>potentialClassNames (in category '*46Deprecated') -----
  potentialClassNames
  "Answer the names of all the classes that could be viewed in this browser"
+ self deprecated: 'ct: All classes can be viewed in browser without restrictions.'.
  ^ self classList collect:
  [:aName | aName copyWithout: $ ]!