]> git.donarmstrong.com Git - lilypond.git/commitdiff
lilypond-1.3.68
authorfred <fred>
Tue, 26 Mar 2002 23:24:12 +0000 (23:24 +0000)
committerfred <fred>
Tue, 26 Mar 2002 23:24:12 +0000 (23:24 +0000)
input/test/generic-output-property.ly
lily/paper-column.cc

index 0e7d2695b701cc32bdc65cd8dc530a887d303d51..5adbba97c8eb437a5ad5cc0ef566284c31381bba 100644 (file)
@@ -1,11 +1,11 @@
 \score{
        \notes\relative c''{
-       \outputproperty #(make-type-checker 'Note_head
+       \outputproperty #(make-type-checker 'note-head-interface
                #'extra-offset = #'(2 . 3)
        c2
        c
        \context Score {
-               \outputproperty #(make-type-checker 'Mark
+               \outputproperty #(make-type-checker 'mark-interface
                #'extra-offset = #'(-1 . 4)
        }
        \mark A;
index 5ab553257f9e028413abaab825d2769ec8bfc6b5..b7e18f9aa4f9d93b33a00be9c434da892ea525c1 100644 (file)
@@ -94,12 +94,9 @@ Paper_column::column_l () const
   return (Paper_column*)(this);
 }
 
-Paper_column::Paper_column (Moment w)
-  : Item (SCM_EOL)             // guh.?
+Paper_column::Paper_column (SCM l)
+  : Item (l)           // guh.?
 {
-  SCM when = smobify (new Moment (w));
-  set_elt_property ("when", when);
-
   Axis_group_interface (this).set_interface ();
   Axis_group_interface (this).set_axes (X_AXIS, X_AXIS);
   set_elt_pointer ("bounded-by-me", SCM_EOL);