* lily/grob-property.cc: remove add_to_list_property().

* lily/grob-property.cc (del_property): new function.

diff --git a/ChangeLog b/ChangeLog
index fe8aebfeebf3cefadd5577f3bf0e59e667386e9e..1577a55b8cf9c90a9e4734458d3e52c6df2db886 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2005-10-21  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * lily/grob.cc: remove is_empty()
+
+       * lily/grob-property.cc: remove add_to_list_property().
+
        * scripts/convert-ly.py (datadir): add prefix switching hack to
        .py too.
 

diff --git a/Documentation/user/changing-defaults.itely b/Documentation/user/changing-defaults.itely
index 152a55ba5cedb6976b0fc5da048da16f61a0d6bb..4f31678d7fd4f077076353a463fb7d01fbc1dde4 100644 (file)
--- a/Documentation/user/changing-defaults.itely
+++ b/Documentation/user/changing-defaults.itely
@@ -1147,8 +1147,8 @@ does not amount to much.  The initialization file
      (self-alignment-X . 0)
      (self-alignment-Y . 0)
      (script-priority . 100)
-     (callbacks . ((stencil . ,Text_interface::print)
-                   (direction . ,Script_interface::calc_direction)))
+     (stencil . ,Text_interface::print)
+     (direction . ,Script_interface::calc_direction)
      (font-encoding . fetaNumber)
      (font-size . -5)          ; don't overlap when next to heads.
      (meta . ((class . Item)

diff --git a/Documentation/user/introduction.itely b/Documentation/user/introduction.itely
index b0dbe6824a30f71c6d5a86c61f70da671d9ac6a6..f1a8a491eaa3e4ae790676057b155e37f6d8d352 100644 (file)
--- a/Documentation/user/introduction.itely
+++ b/Documentation/user/introduction.itely
@@ -319,7 +319,7 @@ fragment.
     (if (and (memq 'note-head-interface interfaces)
              (memq pos '(-2 -3 -5)))
         (begin
-          (ly:grob-set-callback! grob 'stencil Text_interface::print)
+          (ly:grob-set-property! grob 'stencil Text_interface::print)
           (ly:grob-set-property! grob 'font-family 'roman)
           (ly:grob-set-property!
            grob 'text

diff --git a/lily/grob-property.cc b/lily/grob-property.cc
index ac452e36b220615be9f48500a294d6c341db0716..9e217b33be3e91221efed1eb47947b8e3a076574 100644 (file)
--- a/lily/grob-property.cc
+++ b/lily/grob-property.cc
@@ -117,7 +117,7 @@ Grob::internal_get_property (SCM sym) const
 #ifndef NDEBUG
 #include "protected-scm.hh"
 Protected_scm grob_property_callback_stack = SCM_EOL;
-bool debug_property_callbacks = 1;
+bool debug_property_callbacks = 0;
 #endif
 
 SCM

diff --git a/ly/bagpipe.ly b/ly/bagpipe.ly
index f471084022d6d951c23a5ea915c3b942a0bcd4fb..198227980036f7c61cbad26a9f3421cc061940c1 100755 (executable)
--- a/ly/bagpipe.ly
+++ b/ly/bagpipe.ly
@@ -6,10 +6,10 @@
   Sven Axelsson, the Murray Pipes & Drums of Gothenburg
   (http://www.murrays.nu)
   
-  $Id: bagpipe.ly,v 1.7 2005/10/17 00:48:17 hanwen Exp $
+  $Id: bagpipe.ly,v 1.8 2005/10/21 14:07:47 hanwen Exp $
 %}
 
-\version "2.7.13"
+\version "2.7.14"
 
 % Notes of the scale of the Great Highland Bagpipe. Extra high notes for bombarde.
 % Flat notes used mainly in some modern music.
@@ -38,14 +38,14 @@ pitchnames = \pitchnamesBagpipe
 
 hideKeySignature = {
   % We normally don't want to show the key signature.
-  \override Staff.KeySignature #'callbacks #'stencil = ##f
+  \override Staff.KeySignature  #'stencil = ##f
   \set Staff.extraNatural = ##f
   \key d \major
   #(set-accidental-style 'forget)
 }
 showKeySignature = {
   % Show the key signature e.g. for BMW compatibility.
-  \override Staff.KeySignature #'callbacks #'stencil = #'Key_signature_interface::print
+  \override Staff.KeySignature  #'stencil = #'Key_signature_interface::print
   \set Staff.extraNatural = ##f
   \key d \major
   #(set-accidental-style 'forget)

diff --git a/ly/gregorian-init.ly b/ly/gregorian-init.ly
index a2014824e3394dfe3ba42cc57e52774703606482..2ee5aba35f5c18d4daba92e245fa5a690d0a74b8 100644 (file)
--- a/ly/gregorian-init.ly
+++ b/ly/gregorian-init.ly
@@ -1,4 +1,4 @@
-\version "2.7.13"
+\version "2.7.14"
 
 %%%%%%%%
 %%%%%%%% shortcuts common for all styles of gregorian chant notation
@@ -56,7 +56,7 @@ caesura = {
   \breathe
 }
 divisioMinima = {
-  \once \override BreathingSign #'callbacks #'stencil = #Breathing_sign::divisio_minima
+  \once \override BreathingSign  #'stencil = #Breathing_sign::divisio_minima
 
   % Workaround: add padding.  Correct fix would be spacing engine handle this.
   \once \override BreathingSign  #'extra-X-extent = #'(-1.0 . 0)
@@ -64,7 +64,7 @@ divisioMinima = {
   \breathe
 }
 divisioMaior = {
-  \once \override BreathingSign #'callbacks #'stencil = #Breathing_sign::divisio_maior
+  \once \override BreathingSign  #'stencil = #Breathing_sign::divisio_maior
   \once \override BreathingSign  #'Y-offset-callbacks = #'()
 
   % Workaround: add padding.  Correct fix would be spacing engine handle this.
@@ -73,7 +73,7 @@ divisioMaior = {
   \breathe
 }
 divisioMaxima = {
-  \once \override BreathingSign #'callbacks #'stencil = #Breathing_sign::divisio_maxima
+  \once \override BreathingSign  #'stencil = #Breathing_sign::divisio_maxima
   \once \override BreathingSign  #'Y-offset-callbacks = #'()
 
   % Workaround: add padding.  Correct fix would be spacing engine handle this.
@@ -82,7 +82,7 @@ divisioMaxima = {
   \breathe
 }
 finalis = {
-  \once \override BreathingSign #'callbacks #'stencil = #Breathing_sign::finalis
+  \once \override BreathingSign  #'stencil = #Breathing_sign::finalis
   \once \override BreathingSign  #'Y-offset-callbacks = #'()
 
   % Workaround: add padding.  Correct fix would be spacing engine handle this.

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 43008965076ad25d97a14057e2c277397af4b2c5..e8bdb855d91dff2ad243248bb9af8dc40d604731 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -1,6 +1,6 @@
 % property-init.ly
 
-\version "2.7.13"
+\version "2.7.14"
 
 stemUp = \override Stem  #'direction = #UP
 stemDown = \override Stem  #'direction = #DOWN 
@@ -52,7 +52,7 @@ tieSolid = {
 }
 
 setEasyHeads = \sequential {
-  \override NoteHead #'callbacks #'stencil = #Note_head::brew_ez_stencil
+  \override NoteHead  #'stencil = #Note_head::brew_ez_stencil
   \override NoteHead #'font-size = #-7
   \override NoteHead #'font-family = #'sans
   \override NoteHead #'font-series = #'bold
@@ -139,22 +139,19 @@ hideStaffSwitch = \set followVoice = ##f
 arpeggio = #(make-music 'ArpeggioEvent)
 
 arpeggioUp = \sequential {
-  \revert Arpeggio #'callbacks % stencil
-
+  \revert Arpeggio  #'stencil
   \override Arpeggio  #'arpeggio-direction = #UP
 }
 arpeggioDown = \sequential {
-  \revert Arpeggio #'callbacks % stencil
-
+  \revert Arpeggio #'stencil
   \override Arpeggio  #'arpeggio-direction = #DOWN
 }
 arpeggioNeutral = \sequential {
-  \revert Arpeggio #'callbacks % stencil
-
+  \revert Arpeggio #'stencil
   \revert Arpeggio  #'arpeggio-direction
 }
 arpeggioBracket = \sequential {
-  \override Arpeggio #'callbacks #'stencil = #Arpeggio::brew_chord_bracket
+  \override Arpeggio #'stencil = #Arpeggio::brew_chord_bracket
 }
 
 glissando = #(make-music 'GlissandoEvent)