;; $Id: window-context.scm,v 1.1 1998/09/17 16:32:44 gjb Exp $
;;(window-context)

(define w (get-window))

(list
 (window-context)
 (with-window w
	      (window-context))
 (window-context))