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
