]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/framework-gnome.scm
* lily/paper-outputter.cc (file): New method.
[lilypond.git] / scm / framework-gnome.scm
index bc62a7aa227d71e092ec7a8a36ce2c3a98d95ec5..031cb3c972731349d71e36947ae5009121f7fdcd 100644 (file)
     (use-modules (gnome gw libgnomecanvas)))
 
 (define-public (output-framework-gnome outputter book scopes fields basename)
-  (if #t
-      (gnome-main book)
-      (ly:outputter-dump-stencil
-       outputter
-       (ly:make-stencil (list 'gnome-main book) '(0 . 0) '(0 . 0)))))
+  (newline (current-error-port))
+  
+;   ;; Hmm, 
+;   (let ((port (ly:outputter-get-output-port outputter)))
+;     (remove port)
+;     (close port))
+
+  (gnome-main book))
+
 
 ;; WTF? -- jcn
 ;; Yay, I *finally* found it!