From: Sungwoo Lim
Subject: [Q] Automatic update of view in MCL
Date: Mon, 23 Apr 2001 16:26:03 +0000
Message-ID: <sungwoo-2304011726030001@gorecki.cad.strath.ac.uk>

Hello,

How can I automatically update the VIEW in MCL?
Below codes doesn't works.
I think that I called wrong view.
Still couldn't figure out.
Thanks for your help.

Sungwoo

;---------------------
(require 'quickdraw)

(defclass simple-drawing-item (dialog-item) ())
(defmethod view-focus-and-draw-contents ((v simple-drawing-item) &optional
visrgn cliprgn)
  (declare (ignore visrgn cliprgn))
  (with-focused-view v
    (view-draw-contents v)))

(defmethod view-draw-contents ((v simple-drawing-item))
  (dialog-item-action v)
  (call-next-method))

(defmethod dialog-item-action ((view simple-drawing-item))
   ; drawing lines
   )

(defparameter *w1* 
  (make-instance 'window
    :view-size ·@(600 400)
    :color-p t
    :view-subviews (list
                    (make-instance 'simple-drawing-item
                      :view-size ·@(600 400)))))

-- 
<^)++<