Overview
Comment: | Couple unused functions From: 7ef4e75485c86fd03913be6075df8dbc5a266771 User: matt |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.6569-new-diet |
Files: | files | file ages | folders |
SHA1: |
9fd33434bd3c841792bec19f6aa6cc43 |
User & Date: | matt on 2021-02-25 16:24:43 |
Other Links: | branch diff | manifest | tags |
Context
2021-02-25
| ||
16:24 | Missed couple leftovers in dashboard.scm From: f32c8343a23eefbfb0303043805d677ab0f3c5d9 User: mrwellan check-in: 53d25f535c user: matt tags: v1.6569-new-diet (unpublished) | |
16:24 | Couple unused functions From: 7ef4e75485c86fd03913be6075df8dbc5a266771 User: matt check-in: 9fd33434bd user: matt tags: v1.6569-new-diet (unpublished) | |
16:24 | Restoring test_records.scm, not quite able to get rid of it yet. From: 24a028a1722528811637cd277f1d911b6ce6b79b User: matt check-in: 48dfb9c533 user: matt tags: v1.6569-new-diet (unpublished) | |
Changes
Modified dashboard-guimonitor.scm from [9920d4908c] to [03f2c3c501].
︙ | ︙ | |||
169 170 171 172 173 174 175 | (iup:show topdialog) (iup:callback-set! *tim* "ACTION_CB" (lambda (x) (refreshdat) (if *exit-started* (set! *exit-started* 'ok)))))) | | | | | | | | | | | 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 | (iup:show topdialog) (iup:callback-set! *tim* "ACTION_CB" (lambda (x) (refreshdat) (if *exit-started* (set! *exit-started* 'ok)))))) ;; (define (main-window setuptab fsltab collateraltab toolstab) ;; (iup:show ;; (iup:dialog #:title "FSL Power Window" #:size "290x190" ; #:expand "YES" ;; (let ((tabtop (iup:tabs setuptab collateraltab fsltab toolstab))) ;; (iup:attribute-set! tabtop "TABTITLE0" "Setup") ;; (iup:attribute-set! tabtop "TABTITLE1" "Collateral") ;; (iup:attribute-set! tabtop "TABTITLE2" "Fossil") ;; (iup:attribute-set! tabtop "TABTITLE3" "Tools") ;; tabtop)))) ;; BUG: Remember to re-instate this!!!! ;; (on-exit (lambda () ;; (let ((tdb (tasks:open-db))) ;; ;; (print "On-exit called") ;; (tasks:remove-monitor-record tdb) ;; (sqlite3:finalize! tdb)))) |
︙ | ︙ |
Modified server.scm from [52889afebe] to [d6e0b7d15e].
︙ | ︙ | |||
509 510 511 512 513 514 515 | (if (eof-object? inl) (case (string->symbol res) ((NOREPLY) #f) ((LOGIN_OK) #t) (else #f)) (loop (read-line) inl)))))) | < < < < < < < < < | 509 510 511 512 513 514 515 516 517 518 519 520 521 522 | (if (eof-object? inl) (case (string->symbol res) ((NOREPLY) #f) ((LOGIN_OK) #t) (else #f)) (loop (read-line) inl)))))) ;; timeout is hms string: 1h 5m 3s, default is 1 minute ;; (define (server:expiration-timeout) (let ((tmo (configf:lookup *configdat* "server" "timeout"))) (if (and (string? tmo) (common:hms-string->seconds tmo)) ;; BUG: hms-string->seconds is broken, if given "10" returns 0. Also, it doesn't belong in this logic unless the string->number is changed below (* 3600 (string->number tmo)) |
︙ | ︙ |