'From Squeak2.6 of 15 October 1999 [latest update: #1559] on 28 October 1999 at 5:23:05 pm'!

!Morph class methodsFor: 'misc' stamp: 'dew 10/28/1999 17:22'!
simpleGraphicsBenchmark
	"A very basic graphics performance benchmark for Morphic. (Mostly exercises BitBlt.)"

	| scrollbarFlag workspace textMorph time |

	"the inboard scrollbar setting will affect performance, so disable it temporarily"
	scrollbarFlag _ Preferences valueOfFlag: #inboardScrollbars.
	Preferences setPreference: #inboardScrollbars toValue: false.

	workspace _ Workspace new openLabel: 'Graphics Benchmark';
		contents: (SystemWindow sourceCodeAt: #spawnReframeHandle:);
		contentsChanged.

	"ensure that screen aspect ratio doesn't affect default window size"
	(workspace dependents at: 1) position: 50@50; extent: 500@400.

	textMorph _ workspace dependents at: 2.
	textMorph owner owner displayWorldSafely.
	time _ Time millisecondsToRun:
		[1 to: 20 do: [:i |
			textMorph scrollBy: 0@-300.
			textMorph owner owner displayWorldSafely.
			textMorph scrollBy: 0@300.
			textMorph owner owner displayWorldSafely]].
	Preferences setPreference: #inboardScrollbars toValue: scrollbarFlag.

	^ time
! !