*** empty log message ***

[lilypond.git] / scm / framework-gnome.scm

diff --git a/scm/framework-gnome.scm b/scm/framework-gnome.scm
index 17d95d8819d354d81b06875c5ffc3cf23cd6e7b3..fb492474b8630cab67b93fd158f9c7330f2fc36d 100644 (file)
--- a/scm/framework-gnome.scm
+++ b/scm/framework-gnome.scm
@@ -30,10 +30,6 @@
 (define OUTPUT-SCALE (* 2.5 PIXELS-PER-UNIT))
 (define-public output-scale OUTPUT-SCALE)
 
-(define (stderr string . rest)
-  (apply format (cons (current-error-port) (cons string rest)))
-  (force-output (current-error-port)))
-
 (define (debugf string . rest)
   (if #f
       (apply stderr (cons string rest))))
@@ -227,10 +223,10 @@
   (let* ((grob (hashq-ref (item-grobs go) item #f))
         (extra-offset (ly:grob-property grob 'extra-offset))
         (origin (if (null? extra-offset) '(0 . 0)
-                    (offset-flip-y extra-offset))))
-    
+                    (offset-flip-y extra-offset))))
+
     (if grob
-       (ly:insert-tweak
+       (ly:grob-replace-tweak
         grob (list tweak-grob-property
                    'extra-offset
                    (offset-flip-y (offset-add origin offset)))))))
@@ -238,14 +234,13 @@
 (define-method (save-tweaks (go <gnome-outputter>))
   (let* ((dumper (ly:make-dumper))
         (tweaks (ly:all-tweaks))
-        (serialized-tweaks (map
-                            (lambda (tweak)
-                              (append 
-                               (list
-                                (ly:dumper-key-serial dumper (car tweak))
-                                (list 'unquote (procedure-name (cadr tweak))))
-                               (cddr tweak)))
-                            tweaks)))
+        (serialized-tweaks
+         (map
+          (lambda (tweak) (append 
+                           (list (ly:dumper-key-serial dumper (car tweak))
+                                 (list 'unquote (procedure-name (cadr tweak))))
+                           (cddr tweak)))
+          tweaks)))
 
     (if (not (null? serialized-tweaks))
        (let ((file (open-file (string-append (name go) ".twy") "w")))
@@ -381,6 +376,9 @@
                    (eq? keyval gdk:w))
                (equal? mods '(control-mask modifier-mask)))
           (gtk-main-quit))
+         ((and (eq? keyval gdk:s)
+               (equal? mods '(control-mask modifier-mask)))
+               (save-tweaks go))
          ((and #t ;;(null? mods)
                (eq? keyval gdk:plus))
           (scale-canvas go 2))