[Gauche-devel-jp] Re: Fixpoint?

Back to archive index

yasuy****@javao***** yasuy****@javao*****
2004年 6月 25日 (金) 18:24:31 JST


えんどうです。

> 保存できました。

その後、

(define (canvas-page-save widget)
  (let*-values
   (((w h) (gdk-drawable-get-size (ref widget 'window))))
   (let*
       ((colormap (gdk-drawable-get-colormap (ref widget 'window)))
	(pixbuf (gdk-pixbuf-new GDK_COLORSPACE_RGB #f 8 w h))
	(page-num (ref (the-canvas) 'current-page)))
     (begin
       (gdk-pixbuf-get-from-drawable
	pixbuf (ref widget 'window) colormap 0 0 0 0 w h)
       (gdk-pixbuf-save #?=pixbuf (format "slide-~s.png" page-num) "png")
       ))))

というのを書き、

(define (canvas-key toplevel)

の中に、

       ((member kv (list GDK_s))
	(canvas-page-save widget))

を追加してみました。

スライド表示時に 's' キーを押すと、カレントディレクトリーに、

slide-0.png
slide-1.png

というファイルができます。

これで cvs****@sf***** に  commit してしまって良いでしょうか...?

> ;; 次は自動スライドショーだ...

gtk-animation.scm サンプルをみると gtk-timeout-add を使うようなのですが、
まだうまくいっていません。

-- 
ENDO Yasuyuki <yasuy****@javao*****>
http://www.javaopen.org/~yasuyuki/ (Personal/Japanese Only)
http://www.javaopen.org/jfriends/ (Japanese Only)





Gauche-devel-jp メーリングリストの案内
Back to archive index