[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: working guile-gnome!
From: |
gregory benison |
Subject: |
Re: working guile-gnome! |
Date: |
Sat, 28 Oct 2006 10:54:16 -0400 |
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
======================