Plaster
New
List
Login
text
default
anonymous
2023.05.30 08:27:11
(in-package :clim-user) (define-application-frame test () () (:panes (display :application)) (:layouts (default display))) (define-test-command (com-quit :menu t) () (frame-exit *application-frame*)) (defvar *test-frame* nil) (setq *test-frame* (run-frame-top-level (make-application-frame 'test))) How to draw-line* this way? (draw-line* *test-frame* 200 10 10 150)
Raw
Annotate
Repaste
Edit