scm/framework-gnome.scm

   1 ;;;; framework-gnome.scm --
   2 ;;;;
   3 ;;;;  source file of the GNU LilyPond music typesetter
   4 ;;;;
   5 ;;;; (c)  2004 Jan Nieuwenhuizen <janneke@gnu.org>
   6
   7 (define-module (scm framework-gnome))
   8 (use-modules (guile) (lily))
   9
  10 (use-modules
  11  (gnome gtk)
  12  (gnome gtk gdk-event)
  13  (gnome gw canvas))
  14
  15 (define-public (output-framework-gnome outputter book scopes fields basename)
  16   (let* ((bookpaper (ly:paper-book-book-paper book))
  17          (pages (list->vector (ly:paper-book-pages book))))
  18
  19     ;; yay, it works
  20     ;; TODO: goops class instance with
  21     ;;  - main-window?
  22     ;;  - main-scrolled window
  23     ;;  - canvas
  24     ;;  - page-number
  25     ;;  - pixels-per-unit (or can get from canvas?)
  26     ;;  - text-items list
  27     ;;  - item-locations hashmap
  28
  29     ;; give that as first argument to all outputter/stencil functions?
  30     ;;
  31     (let* ((window (make <gtk-window> #:type 'toplevel)))
  32       (write window))
  33
  34     (ly:outputter-dump-stencil
  35      outputter
  36      (ly:make-stencil (list 'main outputter bookpaper pages)
  37                       '(0 . 0) '(0 . 0)))))
  38