X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fbox.cc;h=6569493419da6a66c44077feab15ea5297c46ee9;hb=90e4d7057f3857da049dfda3d130017d4719bd6b;hp=f91069b7663d56feb9c51603ed0199c16e6f9216;hpb=0b9c108e213a6caeb4b40e1306b18700ae608fd4;p=lilypond.git diff --git a/lily/box.cc b/lily/box.cc index f91069b766..6569493419 100644 --- a/lily/box.cc +++ b/lily/box.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 1996--2012 Han-Wen Nienhuys + Copyright (C) 1996--2015 Han-Wen Nienhuys LilyPond is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -23,7 +23,8 @@ void Box::translate (Offset o) { for (Axis i = X_AXIS; i < NO_AXES; incr (i)) - interval_a_[i] += o[i]; + if (!is_empty (i)) + interval_a_[i] += o[i]; } void @@ -131,21 +132,5 @@ Box::print () /****************************************************************/ -#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 */) -{ - return SCM_EOL; -} - -int -Box::print_smob (SCM /* x */, SCM p, scm_print_state *) -{ - scm_puts ("#", p); - return 1; -} +const char * const Box::type_p_name_ = "ly:box?";