output recording

• To: clim@BBN.COM
• Subject: output recording
• From: Myriam <Myriam@cassiopeia.mystech.dialnet.symbolics.com>
• Date: Tue, 22 Jan 91 10:04 EST
• Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
• Fonts: CPTFONT, CPTFONTCB

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			  ()
    ()
  (:PANES ((menu :COMMAND-MENU)
	   (display :APPLICATION )))
  (:LAYOUT ((main (:COLUMN :REST
		   (MENU :COMPUTE)
		   (DISPLAY :REST)))))
  (:COMMAND-DEFINER t)
  )

(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
	  DO 
	     (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*))
  )

0,,

• Prev: Re: CLIM on the Mac
• Next: Did anybody ever respond to this message?? [just cleaning out old mail]
• Index: CLIM Mailing list (5-Oct-90 to 31-Dec-91)
• Thread: CLIM Mailing list Index (5-Oct-90 to 31-Dec-91)