Overview
Comment: | wip |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.6584-nanomsg |
Files: | files | file ages | folders |
SHA1: |
35654d794df4bb593372c4041db69831 |
User & Date: | matt on 2021-11-06 20:09:38 |
Other Links: | branch diff | manifest | tags |
Context
2021-11-06
| ||
20:35 | wip check-in: 9718466510 user: matt tags: v1.6584-nanomsg | |
20:09 | wip check-in: 35654d794d user: matt tags: v1.6584-nanomsg | |
19:17 | tweaks check-in: a2aeca7f4b user: matt tags: v1.6584-nanomsg | |
Changes
Modified Makefile from [d81b5d1a03] to [0568f105f6].
︙ | |||
35 36 37 38 39 40 41 | 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 | - - + + + + + + - + + | hostinfo.scm adjutant.scm processmod.scm testsmod.scm \ itemsmod.scm keysmod.scm mtmod.scm rmtmod.scm \ tasksmod.scm pgdb.scm launchmod.scm runsmod.scm \ portloggermod.scm archivemod.scm ezstepsmod.scm \ subrunmod.scm bigmod.scm testsmod.scm vgmod.scm |
︙ |
Modified dashboard-context-menu.scm from [2625bf1bcf] to [9a243d4266].
︙ | |||
37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 | + + + + + + + | chicken.condition chicken.port chicken.file.posix chicken.pathname chicken.process chicken.process-context chicken.string chicken.time srfi-1 regex regex-case srfi-69 (prefix sqlite3 sqlite3:)) (declare (unit dashboard-context-menu)) (declare (uses commonmod)) (declare (uses configfmod)) (declare (uses dbmod)) (declare (uses gutils)) (declare (uses rmtmod)) (declare (uses ezstepsmod)) ;; (declare (uses sdb)) ;; (declare (uses filedb)) (declare (uses subrunmod)) (declare (uses debugprint)) (declare (uses testsmod)) (declare (uses dcommon)) (import commonmod dbmod rmtmod ezstepsmod subrunmod debugprint configfmod testsmod dcommon ) ;; (include "common_records.scm") (include "db_records.scm") (include "run_records.scm") (define (dboard:launch-testpanel run-id test-id) |
︙ |
Modified dashboard.scm from [91cf4074c8] to [3730da18c4].
︙ | |||
80 81 82 83 84 85 86 87 88 89 90 91 92 93 | 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 | + | (prefix mtargs args:) mtmod mtver processmod runsmod subrunmod vgmod dcommon dashboard-context-menu) (define help (conc "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version " license GPL, Copyright (C) Matt Welland 2012-2017 |
︙ |
Modified dcommon.scm from [bca8b5dbe9] to [84f75e89d4].
︙ | |||
14 15 16 17 18 19 20 | 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 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 | + + + - - - - + + + + + + + + + + + + + + + + + + + + - + + + + + + + + + + + + | ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; ;;====================================================================== (module dcommon * |
︙ | |||
1408 1409 1410 1411 1412 1413 1414 | 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 | - + | (if htmlviewercmd (system (conc "(" htmlviewercmd " " lfilename " ) &")) (iup:send-url lfilename)))) (define (dashboard:monitor-changed? commondat tabdat) (let* ((run-update-time (current-seconds)) (monitor-db-path (dboard:tabdat-monitor-db-path tabdat)) |
︙ | |||
1463 1464 1465 1466 1467 1468 1469 | 1493 1494 1495 1496 1497 1498 1499 1500 | + | (define (dashboard:recalc modtime please-update-buttons last-db-update-time) (or please-update-buttons (and ;; (> (current-milliseconds)(+ *last-recalc-ended-time* 150)) ;; can't use this - it needs to be tab specific (> modtime (- last-db-update-time 3)) ;; add three seconds of margin (> (current-seconds)(+ last-db-update-time 1))))) ) |