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)