'From Squeak6.0alpha of 10 March 2018 [latest update: #17799] on 11 March 2018 at 9:23:25 am'!

!GIFReadWriter class methodsFor: 'examples' stamp: 'tcj 3/11/2018 09:22'!
grabScreenAndSaveOnDisk
	"GIFReadWriter grabScreenAndSaveOnDisk"

	| form fileName |
	form := Form fromUser.
	form bits size = 0 ifTrue: [^Beeper beep].
	fileName := FileDirectory default nextNameFor: 'Squeak' extension: 'gif'.
	UIManager default informUser: 'Writing ' , fileName
		during: [GIFReadWriter putForm: form onFileNamed: fileName]! !