X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=lily%2Fbar-line.cc;h=e1bd060ccc9fbc9969a5566f728a73a8ec354a6b;hb=refs%2Ftags%2Frelease%2F1.5.47;hp=5aac74183e60931d5d966f9ac066d1bb6c5d7d07;hpb=f6f0c7e718f866de8084e1221cc3e027c831fe35;p=lilypond.git

diff --git a/lily/bar-line.cc b/lily/bar-line.cc
index 5aac74183e..e1bd060ccc 100644
--- a/lily/bar-line.cc
+++ b/lily/bar-line.cc
@@ -164,11 +164,6 @@ Bar_line::before_line_breaking (SCM smob)
   return SCM_UNSPECIFIED;
 }
   
-void
-Bar_line::set_interface (Grob*me)
-{
-  me->set_interface (ly_symbol2scm ("bar-line-interface"));
-}
 
 bool
 Bar_line::has_interface (Grob*m)
@@ -198,3 +193,38 @@ Bar_line::get_staff_bar_size (SCM smob)
   else
     return gh_int2scm (0);
 }
+
+
+
+ADD_INTERFACE (Bar_line, "bar-line-interface",
+  "Bar line.
+
+This is a request to print a special bar symbol. It replaces the 
+regular bar symbol with a special
+symbol.  The argument @var{bartype} is a string which specifies the
+kind of bar to print.  Options are @code{:|}
+@cindex |A@@@code{:|}
+,
+@code{|:}
+@cindex |B@@@code{|:}
+, @code{:|:}
+@cindex |C@@@code{:|:}
+,
+@code{||}
+@cindex |D@@@code{||}
+, @code{|.}
+@cindex |E@@@code{|.}
+,
+@code{.|}
+@cindex |F@@@code{.|}
+, and @code{.|.}
+@cindex |G@@@code{.|.}
+. 
+
+These produce, respectively, a right repeat, a left repeat, a double
+repeat, a double bar, a start bar, an end bar, and a thick double bar.
+If @var{bartype} is set to @code{empty} then nothing is printed,
+but a line break is allowed at that spot.
+"
+,
+  "bar-size-procedure kern thin-kern hair-thickness thick-thickness glyph bar-size break-glyph-function");