Index: gui.lisp
===================================================================
RCS file: /project/gsharp/cvsroot/gsharp/gui.lisp,v
retrieving revision 1.56
diff -u -r1.56 gui.lisp
--- gui.lisp	15 Feb 2006 17:46:52 -0000	1.56
+++ gui.lisp	28 Feb 2006 15:07:47 -0000
@@ -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))
 
Index: packages.lisp
===================================================================
RCS file: /project/gsharp/cvsroot/gsharp/packages.lisp,v
retrieving revision 1.46
diff -u -r1.46 packages.lisp
--- packages.lisp	26 Feb 2006 22:18:39 -0000	1.46
+++ packages.lisp	28 Feb 2006 15:07:47 -0000
@@ -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
