Overview
| Comment: | Added buttontest.scm |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.81 |
| Files: | files | file ages | folders |
| SHA1: |
bd1e7c8fc9b9fc274b837fbfc9388a83 |
| User & Date: | mrwellan on 2024-07-15 09:48:18 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-07-15
| ||
| 15:12 | CI/CD: Automated commit after successful test, build, and deploy for v1.81-bump-server-load check-in: 1fff14fbea user: fdiskadm tags: v1.81 | |
| 09:48 | Added buttontest.scm check-in: bd1e7c8fc9 user: mrwellan tags: v1.81 | |
|
2024-07-11
| ||
| 16:12 | CI/CD: Automated commit after successful test, build, and deploy for v1.81-preq-fail-details check-in: b7cfdb3706 user: fdiskadm tags: v1.81 | |
Changes
Added matt/buttontest.scm version [4c1acbf3a4].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 |
(use iup srfi-4)
(module buttontest
*
(import iup)
(import scheme
srfi-4
(prefix iup iup:))
(define (make-image name tcolor bgcolor)
(let* ((img-bits1 (u8vector->blob (u8vector
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 3 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 3 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 3 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 3 3 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 3 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 3 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 3 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
)))
;; w h
(img1 (iup:image/palette 22 24 img-bits1)))
(iup:handle-name-set! img1 name)
(iup:attribute-set! img1 "1" "10 10 10")
(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)
)
|