Re: working guile-gnome!

[gregory benison]

> Nice! You should put up some screenshots somewhere :)

OK- here is an example where I added spectrum widgets to the "paned"
example from the gtk demos-

http://oregonstate.edu/~benisong/images/burrow-panes.png


*** panes.scm.orig      2006-10-27 20:10:18.000000000 -0400
--- panes.scm   2006-10-27 21:24:02.000000000 -0400
***************
*** 2,8 ****
 ;; GNU General Public License version 2 or later. No warrantee.

 (define-module (demos panes)
!   :use-module (gnome gtk))


 (define (toggle-resize child)
--- 2,10 ----
 ;; GNU General Public License version 2 or later. No warrantee.

 (define-module (demos panes)
!   :use-module (gnome gtk)
!   :use-module (spectrum)
!   :use-module (spec-extra))


 (define (toggle-resize child)
***************
*** 68,73 ****
--- 70,81 ----

     frame))

+ (define (frame-add-spectrum frame fname)
+   (let ((spec (spectrum-nih-2d-from-file fname))
+       (canvas (make <hos-canvas>)))
+     (canvas-set-spectrum canvas spec)
+     (add frame canvas)))
+
 (define (main)
   (let* ((window (make <gtk-window>
                  :type 'toplevel :title "Panes" :border-width 0))
***************
*** 95,102 ****
--- 103,112 ----
     (add frame1 button)

     (add2 hpaned frame2)
+     (frame-add-spectrum frame2 "hsqc.DAT")

     (add2 vpaned frame3)
+     (frame-add-spectrum frame3 "hsqc.DAT")

     ;;
     (pack-start vbox hpane-options #f #f 0)


======================
Gregory Benison
Oregon State University
(541)-737-1876
gbenison at gmail dot com
======================