Overview
| Comment: | Attempt to improve gui resizing a little |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dev |
| Files: | files | file ages | folders |
| SHA1: |
74713e50394a8decf4b2144e470ba516 |
| User & Date: | matt on 2013-08-01 23:33:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-08-06
| ||
| 22:36 | Merging v1.55 back into dev check-in: 1a6689eca8 user: matt tags: dev | |
|
2013-08-02
| ||
| 22:25 | Merged from dev into v1.55 check-in: c552e7eeab user: matt tags: v1.55 | |
|
2013-08-01
| ||
| 23:33 | Attempt to improve gui resizing a little check-in: 74713e5039 user: matt tags: dev | |
|
2013-07-30
| ||
| 22:40 | Merged v1.55 back to dev to start 1.6 series check-in: 15bc2b9ffa user: matt tags: dev | |
Changes
Modified dashboard.scm from [c03ed30b9c] to [42438bdc1e].
| ︙ | ︙ | |||
798 799 800 801 802 803 804 | (set! last-xadj xadj) (set! last-yadj yadj))) ;; Following doesn't work ;; #:wheel-cb (make-canvas-action ;; (lambda (cnv xadj yadj) ;; ;; (print "cnv: " cnv " x: " x " y: " y) ;; (dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames))) | | | 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 | (set! last-xadj xadj) (set! last-yadj yadj))) ;; Following doesn't work ;; #:wheel-cb (make-canvas-action ;; (lambda (cnv xadj yadj) ;; ;; (print "cnv: " cnv " x: " x " y: " y) ;; (dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames))) ;; #:size "50x50" #:expand "YES" #:scrollbar "YES" #:posx "0.5" #:posy "0.5" #:button-cb (lambda (obj btn pressed x y status) ;; (print "obj: " obj) (let ((tests-info (hash-table-ref tests-draw-state 'tests-info)) |
| ︙ | ︙ |
Modified dcommon.scm from [e6c7c5aa0b] to [26f749e48f].
| ︙ | ︙ | |||
344 345 346 347 348 349 350 |
;; (iup:attribute-set! keys-matrix "ADDLIN" (conc curr-row-num))
(iup:attribute-set! section-matrix (conc curr-row-num ":0") var)
(iup:attribute-set! section-matrix (conc curr-row-num ":1") (configf:lookup rawconfig sectionname var))
(set! curr-row-num (+ 1 curr-row-num))) ;; (config-lookup *configdat* "fields" var)))
key-vals)
(iup:vbox
(iup:label (if title title (conc "Settings from [" sectionname "]"))
| | | | | 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 |
;; (iup:attribute-set! keys-matrix "ADDLIN" (conc curr-row-num))
(iup:attribute-set! section-matrix (conc curr-row-num ":0") var)
(iup:attribute-set! section-matrix (conc curr-row-num ":1") (configf:lookup rawconfig sectionname var))
(set! curr-row-num (+ 1 curr-row-num))) ;; (config-lookup *configdat* "fields" var)))
key-vals)
(iup:vbox
(iup:label (if title title (conc "Settings from [" sectionname "]"))
;; #:size "5x"
#:expand "HORIZONTAL"
)
section-matrix)))
;; General data
;;
(define (dcommon:general-info)
(let ((general-matrix (iup:matrix
#:alignment1 "ALEFT"
|
| ︙ | ︙ | |||
434 435 436 437 438 439 440 |
(iup:attribute-set! stats-matrix key value)))))
run-stats)
(if changed (iup:attribute-set! stats-matrix "REDRAW" "ALL"))))))
(updater)
(set! dashboard:update-summary-tab updater)
(iup:attribute-set! stats-matrix "WIDTHDEF" "40")
(iup:vbox
| | | 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 |
(iup:attribute-set! stats-matrix key value)))))
run-stats)
(if changed (iup:attribute-set! stats-matrix "REDRAW" "ALL"))))))
(updater)
(set! dashboard:update-summary-tab updater)
(iup:attribute-set! stats-matrix "WIDTHDEF" "40")
(iup:vbox
;; (iup:label "Run statistics" #:expand "HORIZONTAL")
stats-matrix)))
(define (dcommon:servers-table)
(let* ((colnum 0)
(rownum 0)
(servers-matrix (iup:matrix #:expand "YES"
#:numcol 7
|
| ︙ | ︙ |
Modified launch.scm from [83079fd184] to [3bc126dd88].
| ︙ | ︙ | |||
457 458 459 460 461 462 463 |
(debug:print 2 "INFO:\n lnkbase=" lnkbase "\n lnkpath=" lnkpath "\n toptest-path=" toptest-path "\n test-path=" test-path)
(if (not (file-exists? linktree))
(begin
(debug:print 0 "WARNING: linktree did not exist! Creating it now at " linktree)
(create-directory linktree #t))) ;; (system (conc "mkdir -p " linktree))))
;; create the directory for the tests dir links, this is needed no matter what...
| | > | 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 |
(debug:print 2 "INFO:\n lnkbase=" lnkbase "\n lnkpath=" lnkpath "\n toptest-path=" toptest-path "\n test-path=" test-path)
(if (not (file-exists? linktree))
(begin
(debug:print 0 "WARNING: linktree did not exist! Creating it now at " linktree)
(create-directory linktree #t))) ;; (system (conc "mkdir -p " linktree))))
;; create the directory for the tests dir links, this is needed no matter what...
(if (and (not (directory-exists? lnkbase))
(not (file-exists? lnkbase)))
(create-directory lnkbase #t))
;; update the toptest record with its location rundir, cache the path
;; This wass highly inefficient, one db write for every subtest, potentially
;; thousands of unnecessary updates, cache the fact it was set and don't set it
;; again.
|
| ︙ | ︙ |