X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fbox.cc;h=e44f166dbce2800bd31ce04aa21b3fb079c6894c;hb=61140f6153dce4ba6e3dca3a88a33c435c6bc26b;hp=c933c1bc05fdde4c99e0a19ae435b45e90573f18;hpb=bdf4ab13203502e7ec7cf9cf5896527643a07c1f;p=lilypond.git

diff --git a/lily/box.cc b/lily/box.cc
index c933c1bc05..e44f166dbc 100644
--- a/lily/box.cc
+++ b/lily/box.cc
@@ -3,11 +3,10 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1996--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1996--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #include "box.hh"
-#include "array.hh"
 
 void
 Box::translate (Offset o)
@@ -23,9 +22,6 @@ Box::unite (Box b)
     interval_a_[i].unite (b[i]);
 }
 
-/**
-   Initialize to empty.
-*/
 Box::Box ()
 {
 }
@@ -82,3 +78,26 @@ Box::widen (Real x, Real y)
   interval_a_[X_AXIS].widen (x);
   interval_a_[Y_AXIS].widen (y);
 }
+
+/****************************************************************/
+
+#include "ly-smobs.icc"
+
+IMPLEMENT_SIMPLE_SMOBS (Box);
+IMPLEMENT_TYPE_P (Box, "ly:box?");
+IMPLEMENT_DEFAULT_EQUAL_P (Box);
+
+SCM
+Box::mark_smob (SCM x)
+{
+  (void)x;
+  return SCM_EOL;
+}
+
+int
+Box::print_smob (SCM x, SCM p, scm_print_state*)
+{
+  (void)x;
+  scm_puts ("#<Box>", p);
+  return 1;
+}