Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!wuarchive!udel!new
From: new@udel.edu (Darren New)
Newsgroups: comp.lang.smalltalk
Subject: Smalltalk source examples 2
Message-ID: <907@nigel.udel.EDU>
Date: 5 Oct 89 19:54:06 GMT
Sender: usenet@udel.EDU
Reply-To: new@udel.edu (Darren New)
Organization: University of Delaware
Lines: 33


Another one!   Oh No!!
This one can be referenced from the ScreenController menu.
If you don't hold the left shift, it will give you ten seconds
to bring up menus or whatever, and then will generate a 
screen print (hence the IOPriority).  If you hold the shift,
it will snapshot the screen right away.  Note the old version
of Smalltalk I'm using.... Your mileage may vary.
	-- Darren
---------------------------------------------


'From Smalltalk-80, Version 2.2 of July 4, 1987 on 5 October 1989 at 3:27:54 pm'!

!ScreenController methodsFor: 'menu messages'!

hardcopyDisplay
	"This will wait ten seconds, then send a copy of the display to the  
	postscript printer."

	| document scale form |
	
	[scale _ 2.
	Sensor leftShiftDown ifFalse: [(Delay forSeconds: 10) wait].
	form _ Display copy.
	Cursor write
		showWhile: 
			[document _ Document new.
			document startParagraph.
			document addImageOneToN: (Array with: form with: scale).
			document close.
			document toPrinter]]
		forkAt: Processor lowIOPriority! !