Overview
| Comment: | Make text bold on buttons |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
fe23e23b3c8d1bb8b05d32c89e389d2b |
| User & Date: | mrwellan on 2020-12-22 15:07:42 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-12-31
| ||
| 11:20 | catchup with v1.65 Leaf check-in: d8f4f4ee27 user: pjhatwal tags: v1.65-logintest | |
|
2020-12-30
| ||
| 08:41 | Improved the makefile hacks for installing some needed .so files. check-in: 03539b7fce user: matt tags: v1.65 | |
|
2020-12-29
| ||
| 11:42 | Merged v1.65 fixes check-in: 25464d7c31 user: matt tags: v1.65-ulex-try-again | |
|
2020-12-22
| ||
| 15:07 | Make text bold on buttons check-in: fe23e23b3c user: mrwellan tags: v1.65 | |
|
2020-12-21
| ||
| 16:55 | Switch to changing font color from button color. check-in: 9b87dc654f user: mrwellan tags: v1.65 | |
Changes
Modified dashboard.scm from [fdd3dbd290] to [b5170fbef9].
| ︙ | ︙ | |||
1170 1171 1172 1173 1174 1175 1176 | (color (car (gutils:get-color-for-state-status teststate teststatus))) (curr-color (vector-ref buttondat 1)) ;; (iup:attribute button "BGCOLOR")) (curr-title (vector-ref buttondat 2))) ;; (iup:attribute button "TITLE"))) (if (not (equal? curr-color color)) #;(iup:attribute-set! button "BGCOLOR" color) (iup:attribute-set! button "FGCOLOR" color)) (if (not (equal? curr-title buttontxt)) | | | 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 | (color (car (gutils:get-color-for-state-status teststate teststatus))) (curr-color (vector-ref buttondat 1)) ;; (iup:attribute button "BGCOLOR")) (curr-title (vector-ref buttondat 2))) ;; (iup:attribute button "TITLE"))) (if (not (equal? curr-color color)) #;(iup:attribute-set! button "BGCOLOR" color) (iup:attribute-set! button "FGCOLOR" color)) (if (not (equal? curr-title buttontxt)) (iup:attribute-set! button "TITLE" (conc "<span weight=\"bold\">" buttontxt "</span>"))) (vector-set! buttondat 0 run-id) (vector-set! buttondat 1 color) (vector-set! buttondat 2 buttontxt) (vector-set! buttondat 3 testdat) (vector-set! buttondat 4 run-key))) (set! rown (+ rown 1)))) (dboard:tabdat-all-test-names tabdat))) |
| ︙ | ︙ | |||
2883 2884 2885 2886 2887 2888 2889 2890 2891 2892 2893 2894 2895 2896 |
(loop (+ runnum 1) 0 (make-vector ntests) '()))
(else
(let* ((button-key (mkstr runnum testnum))
(butn (iup:button
"" ;; button-key
#:size (conc cell-width btn-height )
#:expand "HORIZONTAL"
#:fontsize btn-fontsz
#:button-cb
(lambda (obj a pressed x y btn . rem)
;; (print "pressed= " pressed " x= " x " y= " y " rem=" rem " btn=" btn " string? " (string? btn))
(if (substring-index "3" btn)
(if (eq? pressed 1)
(let* ((toolpath (car (argv)))
| > | 2883 2884 2885 2886 2887 2888 2889 2890 2891 2892 2893 2894 2895 2896 2897 |
(loop (+ runnum 1) 0 (make-vector ntests) '()))
(else
(let* ((button-key (mkstr runnum testnum))
(butn (iup:button
"" ;; button-key
#:size (conc cell-width btn-height )
#:expand "HORIZONTAL"
#:MARKUP "YES"
#:fontsize btn-fontsz
#:button-cb
(lambda (obj a pressed x y btn . rem)
;; (print "pressed= " pressed " x= " x " y= " y " rem=" rem " btn=" btn " string? " (string? btn))
(if (substring-index "3" btn)
(if (eq? pressed 1)
(let* ((toolpath (car (argv)))
|
| ︙ | ︙ |