Update of /project/gsharp/cvsroot/gsharp In directory clnet:/tmp/cvs-serv25428

Modified Files: bezier.lisp fontview.lisp Log Message: Fixed a minor bug in bezier.lisp (reference to an undefined variable).

Improved the font viewer so that it now takes an optional argument indicating which shape to render.

--- /project/gsharp/cvsroot/gsharp/bezier.lisp 2006/06/02 14:54:16 1.5 +++ /project/gsharp/cvsroot/gsharp/bezier.lisp 2006/06/02 21:49:10 1.6 @@ -751,7 +751,7 @@ (climi::with-medium-options (sheet options) (medium-draw-bezier-design* sheet design)))

-(defmethod draw-design (medium (design bezier-design) &rest args &key &allow-other-keys) +(defmethod draw-design (medium (design bezier-design) &rest options &key &allow-other-keys) (apply #'draw-bezier-design* medium design options))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; --- /project/gsharp/cvsroot/gsharp/fontview.lisp 2006/06/01 18:57:40 1.3 +++ /project/gsharp/cvsroot/gsharp/fontview.lisp 2006/06/02 21:49:10 1.4 @@ -7,7 +7,7 @@

(define-application-frame fontview () ((font :initform (make-instance 'sdl::font :staff-line-distance 6)) - (shape :initform :g-clef) + (shape :initarg :shape :initform :g-clef) (grid :initform t) (staff :initform t) (staff-offset :initform 0) @@ -99,8 +99,8 @@ (display-antialiased-view frame pane) (display-pixel-view frame pane))))

-(defun fontview () - (let ((frame (make-application-frame 'fontview))) +(defun fontview (&optional (shape :g-clef)) + (let ((frame (make-application-frame 'fontview :shape shape))) (run-frame-top-level frame)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;