graphics - Gdk.imageをコピーする方法は？

Question

Ocaml用のlablgtk2を使用してGdk.imageオブジェクトのコピーを作成することは可能ですか？'copy'または'clone'メソッドを見つけようとしましたが、失敗しました。

Answer 1

多分あなたはpixbufを使うことができますか？これは、任意のドローアブルから作成できます。

Answer 2

これが私の不器用な回避策です：

let copy_image image =

    let w, h = Image.width image, Image.height image in 

    let copy = Image.create ~kind: `FASTEST ~visual: (Image.get_visual image) 

        ~width: w 

        ~height: h in

    for x = 0 to w-1 do

        for y = 0 to h-1 do

            Image.put_pixel copy ~x:x ~y:y (Image.get_pixel image ~x:x ~y:y)

        done

    done;
    copy