Gdk.image를 복사하는 방법?

Question

Ocaml의 lablgtk2를 사용하여 Gdk.image 객체의 사본을 만들 수 있습니까? 'copy'또는 'clone'메소드를 찾는데 실패했지만 실패했습니다.

Answer 1

아마도 pixbuf를 사용할 수 있습니까? 모든 드로어 블에서 생성 할 수 있습니다. pixbuf 변형도 서투른 있지만 :(

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 

Answer 2

내 서투른 해결 방법입니다