[squeak-dev] The Inbox: 46Deprecated-ct.8.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Aug 15 00:59:16 UTC 2019


A new version of 46Deprecated was added to project The Inbox:
http://source.squeak.org/inbox/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: $ ]!



More information about the Squeak-dev mailing list