David T. Lewis uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-dtl.80.mcz

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

Name: ST80-dtl.80
Author: dtl
Time: 28 December 2009, 8:29:01 am
UUID: 8878a8a3-abe2-441f-b102-a57397d4bc0d
Ancestors: ST80-nice.79

Move #restoreDisplay implementation from ScreenController to Project to eliminate #isMorphic sends.

Move #offerMenuFrom:shifted: from StringHolder to Project to eliminate #isMorphic send.

=============== Diff against ST80-nice.79 ===============

Item was changed:
  ----- Method: ScreenController>>restoreDisplay (in category 'menu messages') -----
  restoreDisplay 
  	"Clear the screen to gray and then redisplay all the scheduled views."
  
+ 	Project current restoreDisplay
+ !
- 	Smalltalk isMorphic ifTrue: [^ World restoreMorphicDisplay].
- 
- 	Display extent = DisplayScreen actualScreenSize
- 		ifFalse:
- 			[DisplayScreen startUp.
- 			ScheduledControllers unCacheWindows].
- 	ScheduledControllers restore!

Item was added:
+ ----- Method: MVCProject>>restoreDisplay (in category 'display') -----
+ restoreDisplay 
+ 	"Clear the screen to gray and then redisplay all the scheduled views."
+ 
+ 	Display extent = DisplayScreen actualScreenSize
+ 		ifFalse:
+ 			[DisplayScreen startUp.
+ 			ScheduledControllers unCacheWindows].
+ 	ScheduledControllers restore!

Item was added:
+ ----- Method: MVCProject>>offerMenuFrom:shifted: (in category 'utilities') -----
+ offerMenuFrom: menuRetriever shifted: aBoolean
+ 	"Pop up a menu whose target is the receiver and whose contents are provided
+ 	by sending the menuRetriever to the receiver. The menuRetriever takes two
+ 	arguments: a menu, and a boolean representing the shift state."
+ 
+ 	| aMenu |
+ 	aMenu := CustomMenu new.
+ 	self perform: menuRetriever with: aMenu with: aBoolean.
+ 	aMenu invokeOn: self!