Megatest

Differences From Artifact [4c1acbf3a4]:

• File matt/buttontest.scm — part of check-in [bd1e7c8fc9] at 2024-07-15 09:48:18 on branch v1.81 — Added buttontest.scm (user: mrwellan, size: 1870) [annotate] [blame] [check-ins using]

To Artifact [7bf96cb14f]:

• File matt/buttontest.scm — part of check-in [fab9bf9c5c] at 2024-07-17 17:13:14 on branch v1.81-better sync — Move sync transaction in an attempt to free up bound time in .mtdb/*.db files (user: mrwellan, size: 1873) [annotate] [blame] [check-ins using]

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)
)