Hi all,
I am new to this list and to lispbuilder and to sdl, so forgive me if I ask
`stupid questions', I've looked into most of the documentation available for
lispbuilder (but not for sdl.)
I want to open several windows, each showing different things.
I've tried something like the following, but only one window is shown?
(sdl:with-init ()
(let ((w1 (sdl:window 200 200
:title-caption "W1"
:flags '(sdl:sdl-doublebuf sdl:sdl-sw-surface)))
(w2 (sdl:window 200 200
:title-caption "W2"
:flags '(sdl:sdl-doublebuf sdl:sdl-sw-surface))))
(setf (sdl:frame-rate) 0)
(sdl:with-events ()
(:quit-event () t)
(:idle ()
(sdl:draw-line-* 0 0 100 100 :color
(sdl:color :r 255 :g 255 :b 255) :surface w1)
(sdl:update-display w1)
(sdl:draw-line-* 100 100 200 0 :color
(sdl:color :r 255 :g 255 :b 255) :surface w2)
(sdl:update-display w2)))))
Thanks!
Joachim.
_______________________________________________
application-builder mailing list
[email protected]
http://www.lispniks.com/mailman/listinfo/application-builder
