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