Overview
| Comment: | Fixed testpatt editor in Run Control |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.62 |
| Files: | files | file ages | folders |
| SHA1: |
7a51ef21ba2ae02e93e3151842d949fd |
| User & Date: | matt on 2016-10-15 21:51:37 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-10-15
| ||
| 22:07 | Fixed runname dropdown population problem check-in: da32f5d07c user: matt tags: v1.62 | |
| 21:51 | Fixed testpatt editor in Run Control check-in: 7a51ef21ba user: matt tags: v1.62 | |
| 14:45 | Added -manual command to view installed manual or fallback to web version check-in: 1271e7d48f user: matt tags: v1.62 | |
Changes
Modified dcommon.scm from [b3dac04017] to [9bd0cbff53].
| ︙ | ︙ | |||
1196 1197 1198 1199 1200 1201 1202 | ;; (print "canvas-origin: " xx " " yy " click at " x " " y)) (let* ((tests-info (hash-table-ref tests-draw-state 'tests-info)) (selected-tests (hash-table-ref tests-draw-state 'selected-tests)) (scalef (hash-table-ref tests-draw-state 'scalef)) (sizey (hash-table-ref tests-draw-state 'sizey)) (xoffset (dcommon:get-xoffset tests-draw-state #f #f)) (yoffset (dcommon:get-yoffset tests-draw-state #f #f)) | | > | 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 | ;; (print "canvas-origin: " xx " " yy " click at " x " " y)) (let* ((tests-info (hash-table-ref tests-draw-state 'tests-info)) (selected-tests (hash-table-ref tests-draw-state 'selected-tests)) (scalef (hash-table-ref tests-draw-state 'scalef)) (sizey (hash-table-ref tests-draw-state 'sizey)) (xoffset (dcommon:get-xoffset tests-draw-state #f #f)) (yoffset (dcommon:get-yoffset tests-draw-state #f #f)) (new-y (- sizey y)) (test-patterns-textbox (dboard:tabdat-test-patterns-textbox tabdat))) ;; (print "xoffset=" xoffset ", yoffset=" yoffset) ;; (print "\tx\ty\tllx\tlly\turx\tury") (for-each (lambda (test-name) (let* ((rec-coords (hash-table-ref tests-info test-name)) (llx (dcommon:x->canvas (list-ref rec-coords 0) scalef xoffset)) (lly (dcommon:y->canvas (list-ref rec-coords 1) scalef yoffset)) (urx (dcommon:x->canvas (list-ref rec-coords 2) scalef xoffset)) |
| ︙ | ︙ |
Modified utils/viewscreen from [44cdd9be1a] to [5576984d64].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
#!/bin/bash
if ! type screen &> /dev/null;then
xterm -geometry 180x20 -e "$*;echo Press any key to continue;bash -c 'read -n 1 -s'" &
exit
fi
if [[ $(screen -list | egrep 'Attached|Detached'|awk '{print $1}') == "" ]];then
# echo "No screen found for displaying to. Run \"screen\" in an xterm"
# exit 1
xterm -e screen &
sleep 1
fi
cmd="cd $PWD;$*"
| > > > < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
#!/bin/bash
if ! type screen &> /dev/null;then
xterm -geometry 180x20 -e "$*;echo Press any key to continue;bash -c 'read -n 1 -s'" &
exit
fi
if [[ $(screen -list | egrep 'Attached|Detached'|awk '{print $1}') == "" ]];then
# echo "No screen found for displaying to. Run \"screen\" in an xterm"
# exit 1
xterm -e screen &
sleep 1
screen -X hardstatus off
screen -X hardstatus alwayslastline
screen -X hardstatus string '%{= kG}[ %{G}%H %{g}][%= %{= kw}%?%-Lw%?%{r}(%{W}%n*%f%t%?(%u)%?%{r})%{w}%?%+Lw%?%?%= %{g}][%{B} %m-%d %{W} %c %{g}]'
fi
cmd="cd $PWD;$*"
screen -X screen bash -c "$cmd;echo \"Press any key to continue, ctrl-a <space> to see other windows\";bash -c 'read -n 1 -s'"
|