[squeak-dev] The Trunk: Kernel-mt.1305.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Feb 25 09:38:03 UTC 2020


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

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

Name: Kernel-mt.1305
Author: mt
Time: 25 February 2020, 10:37:58.980786 am
UUID: 46b30358-e624-b44e-a36d-b6775af60202
Ancestors: Kernel-mt.1304

Fixes class-rename issue.

We need a name! Voting time is now:

- RemarkNotification
- LoggingNotification
- CommentNotification
- NoticeNotification (???)
- [You idea goes here.]

=============== Diff against Kernel-mt.1304 ===============

Item was changed:
  ----- Method: Class>>rename: (in category 'class name') -----
  rename: aString 
  	"The new name of the receiver is the argument, aString."
  
  	| oldName newName |
  	(newName := aString asSymbol) = (oldName := self name)
  		ifTrue: [^ self].
  	(self environment includesKey: newName)
  		ifTrue: [^ self error: newName , ' already exists'].
  	((self environment undeclared includesKey: newName)
  		and: [(self environment undeclared unreferencedKeys includes: newName) not])
+ 		ifTrue: [RemarkNotification signal: 'There are references to ' , aString printString , '
- 		ifTrue: [Notification signal: 'There are references to ' , aString printString , '
  from Undeclared. Check them after this change.'].
  	name := newName.
  	self environment renameClass: self from: oldName!

Item was added:
+ Notification subclass: #RemarkNotification
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'Kernel-Exceptions'!

Item was added:
+ ----- Method: RemarkNotification>>defaultAction (in category 'priv handling') -----
+ defaultAction
+ 
+ 	Transcript showln: self messageText.!



More information about the Squeak-dev mailing list