Overview
| Comment: | fixed typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
83628669f4d250d5b60c24a9a8d2b335 |
| User & Date: | matt on 2016-09-10 18:40:54 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-09-10
| ||
| 18:44 | Undid some debug-only edits check-in: 41338fa9ba user: matt tags: v1.61 | |
| 18:40 | fixed typo check-in: 83628669f4 user: matt tags: v1.61 | |
| 18:36 | Added user views to dashboard check-in: f2bc1dae9e user: matt tags: v1.61 | |
Changes
Modified dashboard.scm from [870437c7a8] to [d16a56fe38].
| ︙ | ︙ | |||
2123 2124 2125 2126 2127 2128 2129 | ;; ((external) (let ((tab-content (dboard:add-external-tab commondat view-name views-cfgdat #f tab-num))) ;; was tabs (set! additional-tabnames (cons (cons tab-num view-name) additional-tabnames)) (set! tab-num (+ tab-num 1)) (set! result (append result (list tab-content))))))))) (sort (hash-table-keys views-cfgdat) (lambda (a b) | | | | 2123 2124 2125 2126 2127 2128 2129 2130 2131 2132 2133 2134 2135 2136 2137 2138 | ;; ((external) (let ((tab-content (dboard:add-external-tab commondat view-name views-cfgdat #f tab-num))) ;; was tabs (set! additional-tabnames (cons (cons tab-num view-name) additional-tabnames)) (set! tab-num (+ tab-num 1)) (set! result (append result (list tab-content))))))))) (sort (hash-table-keys views-cfgdat) (lambda (a b) (let ((order-a (or (any->number (configf:lookup views-cfgdat a "order")) 999)) (order-b (or (any->number (configf:lookup views-cfgdat b "order")) 999))) (> order-a order-b))))) result)) (tabs (apply iup:tabs #:tabchangepos-cb (lambda (obj curr prev) (debug:catch-and-dump (lambda () (let* ((tab-num (dboard:commondat-curr-tab-num commondat)) |
| ︙ | ︙ |
Modified megatest.scm from [f0176aa6a1] to [25c05cc68c].
| ︙ | ︙ | |||
1906 1907 1908 1909 1910 1911 1912 | (set! *db* dbstruct) (set! *client-non-blocking-mode* #t) (import extras) ;; might not be needed ;; (import csi) (import readline) (import apropos) ;; (import (prefix sqlite3 sqlite3:)) ;; doesn't work ... | | > | | 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 | (set! *db* dbstruct) (set! *client-non-blocking-mode* #t) (import extras) ;; might not be needed ;; (import csi) (import readline) (import apropos) ;; (import (prefix sqlite3 sqlite3:)) ;; doesn't work ... ;; (include "readline-fix.scm") (if #t ;; *use-new-readline* (begin (install-history-file (get-environment-variable "HOME") ".megatest_history") ;; [homedir] [filename] [nlines]) (current-input-port (make-readline-port "megatest> "))) (begin (gnu-history-install-file-manager (string-append (or (get-environment-variable "HOME") ".") "/.megatest_history")) |
| ︙ | ︙ |