[gsharp-cvs] CVS gsharp

[rstrandh]

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

Modified Files:
	gui.lisp packages.lisp 
Log Message:
Make rotate-notehead work again for rests.
(thanks to Christophe Rhodes).


--- /project/gsharp/cvsroot/gsharp/gui.lisp	2006/02/15 17:46:52	1.56
+++ /project/gsharp/cvsroot/gsharp/gui.lisp	2006/03/01 00:15:42	1.57
@@ -14,6 +14,8 @@
 
 (define-command-table total-melody-table
     :inherit-from (melody-table global-gsharp-table gsharp))
+(define-command-table total-rhythmic-melody-table
+    :inherit-from (melody-table rhythmic-table global-gsharp-table gsharp))
 (define-command-table total-cluster-table
     :inherit-from (cluster-table melody-table global-gsharp-table gsharp))
 (define-command-table total-lyrics-table
@@ -368,6 +370,9 @@
   (declare (ignore element))
   (find-command-table 'total-melody-table))
 
+(defmethod find-applicable-gsharp-command-table ((layer melody-layer) (element rhythmic-element))
+  (find-command-table 'total-rhythmic-melody-table))
+
 (defmethod find-applicable-gsharp-command-table ((layer melody-layer) (element cluster))
   (find-command-table 'total-cluster-table))
 
--- /project/gsharp/cvsroot/gsharp/packages.lisp	2006/02/26 22:18:39	1.46
+++ /project/gsharp/cvsroot/gsharp/packages.lisp	2006/03/01 00:15:42	1.47
@@ -169,7 +169,7 @@
 	   #:pitch #:accidentals #:dots #:note #:make-note
 	   #:note-less #:note-equal #:bar
 	   #:notehead #:rbeams #:lbeams #:dots #:element
-	   #:melody-element #:notes
+	   #:melody-element #:rhythmic-element #:notes
 	   #:add-note #:find-note #:remove-note
            #:cluster-upper-bound #:cluster-lower-bound
 	   #:cluster #:make-cluster