CLIM mail archive


output recording

I was not able to get output-recording capability upon scrolling on a CLIM window pane with
any graphics functions.  Here is a simple example reproducing the problem.  Upon scrolling,
none of the lines drawn are preserved.  I tried with-output-recording-options wrapped around
clim:draw-line* with no success.  What am I doing wrong?  

;;; -*- Mode: LISP; Base: 10; Syntax: Common-Lisp; Package: USER -*-

(defvar 1*root*0 (clim:open-root-window :SHEET))

(clim:define-application-frame1 TEST
0			  ()
	   (display :APPLICATION )))
  (:LAYOUT ((main (:COLUMN :REST
		   (DISPLAY :REST)))))

(define-test-command 1(com-Exit :MENU 0t1)
0		       ()
   (clim:frame-exit clim:*application-frame*)

(define-test-command 1(com-test :MENU 0t1)
0    ()
  (let ((display-pane (clim:get-frame-pane clim:*application-frame* 'DISPLAY)))
     (LOOP WITH line-height = (clim:stream-line-height display-pane)
	  WITH y = 50 
	  REPEAT 100
	     (clim:draw-line* display-pane 200 y 200 (+ y line-height) )
	     (terpri display-pane)
	     (incf y line-height)

(defun 1run-test0 ()
  (clim:run-frame-top-level (clim:make-application-frame 'TEST :PARENT *root*))

Main Index | Thread Index