*** empty log message ***

[lilypond.git] / lily / self-aligment-interface.cc

diff --git a/lily/self-aligment-interface.cc b/lily/self-aligment-interface.cc
index 010b48bf2a49172a89069dfc9fcc5ffcf15f1218..7ef7b6f52ab7ec7411e5a5a91c220107fbcfe821 100644 (file)
--- a/lily/self-aligment-interface.cc
+++ b/lily/self-aligment-interface.cc
@@ -26,7 +26,7 @@ Self_alignment_interface::aligned_on_parent (SCM element_smob, SCM axis)
   Interval he = him->extent (him,a);
   
   SCM sym= (a == X_AXIS) ? ly_symbol2scm ("self-alignment-X"): ly_symbol2scm ("self-alignment-Y");
-  SCM align_prop (me->internal_get_grob_property (sym));
+  SCM align_prop (me->internal_get_property (sym));
 
   if (!gh_number_p (align_prop))
     return gh_int2scm (0);
@@ -85,7 +85,7 @@ Self_alignment_interface::aligned_on_self (SCM element_smob, SCM axis)
 
   SCM sym= (a == X_AXIS) ? ly_symbol2scm ("self-alignment-X"): ly_symbol2scm ("self-alignment-Y");
   
-  SCM align (me->internal_get_grob_property (sym));
+  SCM align (me->internal_get_property (sym));
   if (gh_number_p (align))
     {
       Interval ext (me->extent (me,a));
@@ -105,6 +105,19 @@ Self_alignment_interface::aligned_on_self (SCM element_smob, SCM axis)
 
 
 ADD_INTERFACE (Self_alignment_interface, "self-alignment-interface",
-  "Position self using some alignment",
-  "self-alignment-X self-alignment-Y");
+              "Position this object on itself and/or on its parent. To this end, the following functions "
+              " are provided: \n"
+              "@table @code \n"
+              "@item Self_alignment_interface::aligned_on_self\n"
+              "  Align self on reference point, using @code{self-alignment-X} and "
+              "@code{self-alignment-Y}."
+              "@item Self_alignment_interface::aligned_on_parent\n"
+              "@item Self_alignment_interface::centered_on_parent\n"
+              "  Shift the object so its own reference point is centered on the  "
+              " extent of the parent \n"
+              "@item Self_alignment_interface::centered_on_other_axis_parent\n"
+              " For X-axis, center on the Y-parent, and vice versa.\n "
+              "@end table\n"
+              ,
+              "self-alignment-X self-alignment-Y");