(defpackage :stream-pointer-position-bug
  (:use :clim-lisp :clim))

(in-package :stream-pointer-position-bug)

(defun run ()
  (run-frame-top-level (make-application-frame 'main)))

(define-application-frame main ()
  ()
  (:menu-bar nil)
  (:panes
   (canvas (scrolling (:height 500 :width 500) 
	     (make-pane 'application-pane
			:display-time nil 
			:background +black+ :foreground +white+
			:min-width 2000 :min-height 2000
			:scroll-bars t
			:display-function #'draw-circle
			:name 'canvas
			:output-record (make-instance 
					'standard-tree-output-history)))))
   (:layouts
    (:main canvas)))

(defun draw-circle (frame pane)
  (declare (ignore frame))
  (draw-circle* pane 1500 1500 70 :filled t :ink +yellow+))

(define-presentation-action test
    (blank-area nil main :gesture :select)
    (presentation window)
  (declare (ignore presentation))
  (multiple-value-bind (x y)
      (stream-pointer-position window)
    (draw-text* window "TEST" x y)))