% Written by Bret Thaeler

systemdict begin
/DumbWindows LiteWindow
dictbegin
dictend
classbegin
	/new {
		/new super send begin
			currentdict
		end
	} def
	/CreateFrameControls {
	} def
	/CreateFrameInterests {
        FrameInterests begin
			/FrameMenuEvent
				MenuButton {/showat FrameMenu send}
				DownTransition FrameCanvas eventmgrinterest def
			/FrameDamageEvent
				/Damaged /FixFrame
				null FrameCanvas eventmgrinterest def
			/FrameEnterEvent
				/EnterEvent /EnterFrame
				[0 2] FrameCanvas eventmgrinterest def
			/FrameExitEvent
				/ExitEvent /ExitFrame
				[0 2] FrameCanvas eventmgrinterest def
			/FrameDoItEvent
				/DoItEvent {gsave /ClientData get cvx exec grestore}
				/Window null eventmgrinterest def
        end
	} def
	/CreateFrameMenu {
		/FrameMenu [
			(Redisplay) {/paint ThisWindow send}
			(Zap)		{/destroy ThisWindow send}
		] /new DefaultMenu send def
	} def
	/CreateIconInterests {
		FrameInterests begin
			/IconMenuEvent
				MenuButton {/showat IconMenu send}
				DownTransition IconCanvas eventmgrinterest def
			/IconDamageEvent
				/Damaged /FixIcon
				null IconCanvas eventmgrinterest def
		end
	} def
	/CreateIconMenu {
		/IconMenu [
			(Redisplay)         {/paint ThisWindow send}
			(Zap)               {/destroy ThisWindow send}
		] /new DefaultMenu send def
	} def
	/MoveFrameControls {
	} def
	/PaintFrameControls {
	} def
classend def

/DefaultWindow DumbWindows def

end
