43
44
45
46
47
48
49
50
51
52
53
|
(iup:attribute-set! img1 "2" bgcolor) ;; "BGCOLOR")
(iup:attribute-set! img1 "3" tcolor)
name))
(iup:show
(iup:dialog
(iup:vbox
(iup:button " " image: (make-image "GreenBlack" "0 255 0" "0 0 0")))))
(iup:main-loop)
)
|
|
|
43
44
45
46
47
48
49
50
51
52
53
|
(iup:attribute-set! img1 "2" bgcolor) ;; "BGCOLOR")
(iup:attribute-set! img1 "3" tcolor)
name))
(iup:show
(iup:dialog
(iup:vbox
(iup:button " " image: (make-image "YellowBlack" "255 255 0" "0 0 0")))))
(iup:main-loop)
)
|