[gsharp-cvs] CVS gsharp

rstrandh rstrandh at common-lisp.net
Fri Jun 2 21:49:10 UTC 2006


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)))  
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;




More information about the Gsharp-cvs mailing list