*** empty log message ***

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

diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index 025b10afdddebd60342d246aff0605ce9597c2e1..1f6c7d2c51dcf531bd3e9533e8eb57def730b6e0 100644 (file)
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -21,46 +21,56 @@
 
 ;;; You need:
 ;;;
-;;;   * guile-1.6.4 (NOT CVS -- we are working on this)
-;;;   * Rotty's g-wrap--tng TLA, possibly Janneke's if you have libffi-3.4.
-;;;   * guile-gnome TLA
-;;;   * pango CVS (ie, > 2004-06-12)
+;;;   * Rotty's g-wrap >= 1.9.1 (or TLA)
+;;;   * guile-gnome-platform >= 2.5.992 (or TLA)
+;;;   * pango >= 1.5.2 (or CVS)
 ;;;
 ;;; See also: guile-gtk-general@gnu.org
 
 ;;; Try it
 ;;;
-;;;   * If you are using GUILE CVS, recompile LilyPond with GUILE 1.6.
-
-;;;     [If for some unknown or funny reason you do not want to
-;;;      overwrite your lilypond-bin with GUILE CVS, you can
-;;;      reconfigure a new configuration, say g16:
-"
-PATH=/usr/bin/:$PATH ./configure --enable-config=g16 && make conf=g16
-"
-;;;     ]
+;;;   [* Get cvs and tla]
 ;;;
-;;;   * Install gnome/gtk development stuff
+;;;   * Install gnome/gtk and libffi development stuff
 ;;;
-;;;   * Install g-wrap and guile-gnome, see buildscripts/guile-gnome.sh
+;;;   * Install pango, g-wrap and guile-gnome from CVS or arch: 
+;;;     see buildscripts/guile-gnome.sh
 ;;;  
+;;;   * Build LilyPond with gui support: configure --enable-gui
+;;;
+;;;   * Supposing that LilyPond was built in ~/cvs/savannah/lilypond,
+;;;     tell fontconfig about the feta fonts dir:
+"
+cat > ~/.fonts.conf << EOF
+<fontconfig>
+<dir>~/cvs/savannah/lilypond/mf/out</dir>
+</fontconfig>
+EOF
+"
+;;;     or copy all your .pfa/.pfb's to ~/.fonts if your fontconfig
+;;;     already looks there for fonts.  Check if it works by doing:
+"
+fc-list | grep -i lily
+"
+;;;
 ;;;   * Setup environment
 "
-export GUILE_LOAD_PATH=$HOME/usr/pkg/g-wrap/share/guile/site:$HOME/usr/pkg/g-wrap/share/guile/site/g-wrap:$HOME/usr/pkg/guile-gnome/share/guile
-export LD_LIBRARY_PATH=$HOME/usr/pkg/g-wrap/lib:$HOME/usr/pkg/guile-gnome/lib
+export GUILE_LOAD_PATH=$HOME/usr/pkg/g-wrap/share/guile/site:$HOME/usr/pkg/g-wrap/share/guile/site/g-wrap:$HOME/usr/pkg/guile-gnome/share/guile:$GUILE_LOAD_PATH
+export LD_LIBRARY_PATH=$HOME/usr/pkg/pango/lib:$HOME/usr/pkg/g-wrap/lib:$HOME/usr/pkg/guile-gnome/lib:$LD_LIBRARY_PATH
 export XEDITOR='/usr/bin/emacsclient --no-wait +%l:%c %f'
 "
 ;;;  * Also for GNOME point-and-click, you need to set XEDITOR and add
 "
 #(ly:set-point-and-click 'line-column)
 "
-;;;    to your .ly; then click an object on the canvas.
+;;;    to your .ly.
 ;;;
 ;;;  * Run lily:
 "
-lilypond-bin -fgnome input/simple-song.ly
+lilypond -fgnome input/simple-song.ly
 "
-
+;;; point-and-click: (mouse-1) click on a graphical object;
+;;; grob-property-list: (mouse-3) click on a graphical object.
 
 (debug-enable 'backtrace)
 
@@ -214,15 +224,9 @@ lilypond-bin -fgnome input/simple-song.ly
   
   (make <gnome-canvas-text>
     #:parent (canvas-root)
-    
-    ;; experimental text placement corrections.
-    ;; UGHR?  What happened to tex offsets?  south-west?
-    ;; is pango doing something 'smart' wrt baseline ?
-    #:anchor 'south-west
-    #:x 0.003 #:y 0.123
-    
-    ;;#:anchor 'west
-    ;;#:x 0.015 #:y -3.71
+
+    #:anchor 'west
+    #:x 0.0 #:y 0.0
     
     #:font (pango-font-name font)
     
@@ -244,6 +248,9 @@ lilypond-bin -fgnome input/simple-song.ly
 (define (horizontal-line x1 x2 thickness)
   (filledbox (- x1) (- x2 x1) (* .5 thickness) (* .5 thickness)))
 
-(define (define-origin file line col)
-  (if (procedure? point-and-click)
-      (list 'location line col file)))
+;;(define (define-origin file line col)
+;;  (if (procedure? point-and-click)
+;;      (list 'location line col file)))
+
+(define (grob-cause grob)
+  grob)