/[mcclim]/mcclim/bordered-output.lisp
ViewVC logotype

Diff of /mcclim/bordered-output.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by adejneka, Mon May 27 07:06:22 2002 UTC revision 1.3 by adejneka, Tue May 28 08:00:33 2002 UTC
# Line 19  Line 19 
19    
20  ;;; TODO:  ;;; TODO:
21  ;;; - Use DRAWING-OPTIONS, MOVE-CURSOR in I-S-O-W-B  ;;; - Use DRAWING-OPTIONS, MOVE-CURSOR in I-S-O-W-B
22  ;;; - Gap computation in :RECTANGLE  ;;; - Gap computation
23  ;;; - Implement :OVAL, :DROP-SHADOW, :UNDERLINE  ;;; - Implement :DROP-SHADOW, :UNDERLINE
24    
25  (in-package :CLIM-INTERNALS)  (in-package :CLIM-INTERNALS)
26    
# Line 72  Line 72 
72      (draw-rectangle* stream      (draw-rectangle* stream
73                       (- left gap) (- top gap)                       (- left gap) (- top gap)
74                       (+ right gap) (+ bottom gap)                       (+ right gap) (+ bottom gap)
                      :filled nil)))  
75                         :filled nil)))
76    
77    (define-border-type :oval (&key stream left top right bottom)
78      (let ((gap 3)) ; FIXME
79        (draw-oval* stream
80                    (/ (+ left right) 2) (/ (+ top bottom) 2)
81                    (+ (/ (- right left) 2) gap) (+ (/ (- bottom top) 2) gap)
82                    :filled nil)))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5