(use bb)

(bb:init)
(define w (bb:make-widget 'window 300 300))
(define li (bb:make-widget 'live-image 0 0 300 300))
(set! (bb:property li 'image-width) 300)
(set! (bb:property li 'image-height) 300)
(set! (bb:property li 'image) "test1bit.bmp")
(bb:add! w li)
(bb:show w)
(bb:run)

;;Only display black.
;;(print (bb:property li 'image)) => 0
;;chicken-git On arch-linux chicken-git