ogre bug

The code below exhibits a bug: When a callback creates a new window
then repaint operations may wrongly be carried out in that new window.


(ogre)

(defparameter i 0)
(defun callback args
   (new-window)
   (incr i)
   (when (= i 3)
     (==> thiswindowobject delete)))

(defun button-test ()
   (setq :i 0)
   (new AutoWindowObject () () () () "button test"
        (new StdButton "hit me again" callback) ))



-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV