Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!usc!gem.mps.ohio-state.edu!wuarchive!udel!new
From: new@udel.edu (Darren New)
Newsgroups: comp.lang.smalltalk
Subject: Re: Screendump from Smalltalk-80
Keywords: screendump, postscript
Message-ID: <3701@nigel.udel.EDU>
Date: 9 Nov 89 13:54:32 GMT
References: <10446@thorin.cs.unc.edu>
Sender: usenet@udel.EDU
Reply-To: new@udel.edu (Darren New)
Organization: University of Delaware
Lines: 49

In article <10446@thorin.cs.unc.edu> shan@tlab1.cs.unc.edu (Yen-Ping Shan) writes:
>
>	Does anyone have a Smalltalk-80 program that can generate postscript 
>screendumps?   
>	I am preparing a document with LaTex, and would like to include quite 
>a few Smalltalk screen images.  What's the best way to do it?
>	Thanks.
>		---Shan---

The best way I have found to do it is to use scissors and paste :-(.
Your facilities may vary; void in Goban.

You may file this in and then add "hardcopy" to your screen menu
to make this work.  Sorry if you don't have postscript support...

--------------------- cut here ---------------


'From Smalltalk-80, Version 2.2 of July 4, 1987 on 9 November 1989 at 8:50:28 am'!



!ScreenController methodsFor: 'menu messages'!

hardcopyDisplay
	"This will wait ten seconds, then send a copy of the display to the 
	postscript printer. If the left-shift is down the delay is skipped. The 
	process runs at lowIOPriority so that you can start the 
	hardcopyDisplay method without the left shift, bring up a menu, and 
	have the menu handler interrupted by the hardcopyDisplay routine. 
	Requires the PostScript support that comes with VI2.2 of ParcPlace 
	ST80. First scale_2 may need to be changed for your display. On 
	mine, the right-most inch gets cut off, so check your output before 
	making lots of it. If anybody makes this rotate so that doesn't 
	happen, let me know. -- Darren (new@udel.edu)"

	| 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! !