[Pkg] The Trunk: System-nice.628.mcz

[commits at source.squeak.org]

Nicolas Cellier uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-nice.628.mcz

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

Name: System-nice.628
Author: nice
Time: 26 November 2013, 10:04:07.832 pm
UUID: c50a2cef-521b-477e-9a6e-f857a07de6f9
Ancestors: System-fbs.627

Classify some as yet unclassified.

=============== Diff against System-fbs.627 ===============

Item was changed:
+ ----- Method: Abort>>defaultAction (in category 'handling') -----
- ----- Method: Abort>>defaultAction (in category 'as yet unclassified') -----
  defaultAction
  	"No one has handled this error, but now give them a chance to decide how to debug it.  If none handle this either then open debugger (see UnhandedError-defaultAction)"
  
  	UnhandledError signalForException: self!

Item was changed:
+ ----- Method: FontSubstitutionDuringLoading>>defaultAction (in category 'handling') -----
- ----- Method: FontSubstitutionDuringLoading>>defaultAction (in category 'accessing') -----
  defaultAction
  	familyName ifNil: [ familyName := 'NoName' ].
  	pixelSize ifNil: [ pixelSize := 12 ].
  
  	^((familyName beginsWith: 'Comic')
  		ifTrue: [ TextStyle named: (Preferences standardEToysFont familyName) ]
  		ifFalse: [ TextStyle default ]) fontOfSize: pixelSize.!

Item was changed:
+ ----- Method: FontSubstitutionDuringLoading>>printOn: (in category 'printing') -----
- ----- Method: FontSubstitutionDuringLoading>>printOn: (in category 'accessing') -----
  printOn: aStream
  	super printOn: aStream.
  	aStream nextPut: $(;
  		nextPutAll: familyName;
  		nextPut: $-;
  		print: pixelSize;
  		nextPut: $).!

Item was changed:
+ ----- Method: ProgressTargetRequestNotification>>defaultAction (in category 'handling') -----
- ----- Method: ProgressTargetRequestNotification>>defaultAction (in category 'as yet unclassified') -----
  defaultAction
  
  	self resume: nil!

Item was changed:
+ ----- Method: ProjectEntryNotification>>defaultAction (in category 'handling') -----
- ----- Method: ProjectEntryNotification>>defaultAction (in category 'as yet unclassified') -----
  defaultAction
  
  	self resume: projectToEnter enter!

Item was changed:
+ ----- Method: ProjectEntryNotification>>projectToEnter (in category 'accessing') -----
- ----- Method: ProjectEntryNotification>>projectToEnter (in category 'as yet unclassified') -----
  projectToEnter
  
  	^projectToEnter!

Item was changed:
+ ----- Method: ProjectEntryNotification>>projectToEnter: (in category 'accessing') -----
- ----- Method: ProjectEntryNotification>>projectToEnter: (in category 'as yet unclassified') -----
  projectToEnter: aProject
  
  	projectToEnter := aProject!

Item was changed:
+ ----- Method: ProjectPasswordNotification>>defaultAction (in category 'handling') -----
- ----- Method: ProjectPasswordNotification>>defaultAction (in category 'as yet unclassified') -----
  defaultAction
  
  	self resume: ''!

Item was changed:
+ ----- Method: ProjectViewOpenNotification>>defaultAction (in category 'handling') -----
- ----- Method: ProjectViewOpenNotification>>defaultAction (in category 'as yet unclassified') -----
  defaultAction
  
  	self resume: true!