Overview
| Comment: | Started construction of the one panel to rule them all |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
84f6d604953bcb0dd5ba609a6378fb73 |
| User & Date: | matt on 2011-11-27 21:07:47 |
| Other Links: | manifest | tags |
Context
|
2011-11-27
| ||
| 23:39 | Initial megatest.config gui based editor stuff in place check-in: b7ca8cbac9 user: matt tags: trunk | |
| 21:07 | Started construction of the one panel to rule them all check-in: 84f6d60495 user: matt tags: trunk | |
| 16:28 | Completed but not tested non-destructive open/modify/write of config files check-in: 8f378d4740 user: matt tags: trunk | |
Changes
Added dashboard-main.scm version [ecec01cee6].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 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 |
;;======================================================================
;; Copyright 2006-2011, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
;;======================================================================
;;======================================================================
;; Main Megatest Panel
;;======================================================================
(use format)
(require-library iup)
(import (prefix iup iup:))
(use canvas-draw)
(use sqlite3 srfi-1 posix regex regex-case srfi-69)
(import (prefix sqlite3 sqlite3:))
(declare (unit dashboard-guimonitor))
(declare (uses common))
(declare (uses keys))
(declare (uses db))
(declare (uses tasks))
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(define (main-menu)
(menu ;; a menu is a special attribute to a dialog (think Gnome putting the menu at screen top)
(menu-item "Files" (menu ;; Note that you can use either #:action or action: for options
(menu-item "Open" action: (lambda (obj)
(show (file-dialog))
(print "File->open " obj)))
(menu-item "Save" #:action (lambda (obj)(print "File->save " obj)))
(menu-item "Exit" #:action (lambda (obj)(exit)))))
(menu-item "Tools" (menu
(menu-item "Create new blah" #:action (lambda (obj)(print "Tools->new blah")))
(menu-item "Show dialog" #:action (lambda (obj)
(show message-window
#:modal? #t
;; set positon using coordinates or center, start, top, left, end, bottom, right, parent-center, current
;; #:x 'mouse
;; #:y 'mouse
)))))))
(define (main-panel mtest rconfig tests runs)
(dialog
#:title "Menu Test"
#:menu (main-menu)
(let ((tabtop (iup:tabs mtest rconfig tests runs)))
(iup:attribute-set! tabtop "TABTITLE0" "Megatest")
(iup:attribute-set! tabtop "TABTITLE1" "Runconfigs")
(iup:attribute-set! tabtop "TABTITLE2" "Tests")
(iup:attribute-set! tabtop "TABTITLE3" "Runs")
tabtop)))
|
Modified tests/Makefile from [5bd0838ea1] to [9004c03430].
1 2 3 4 5 6 7 8 | # run some tests BINPATH=$(shell realpath ../bin) MEGATEST=$(BINPATH)/megatest PATH := $(BINPATH):$(PATH) runall : cd ../;make install | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | # run some tests BINPATH=$(shell realpath ../bin) MEGATEST=$(BINPATH)/megatest PATH := $(BINPATH):$(PATH) runall : cd ../;make install $(BINPATH)/dboard -rows 15 & $(MEGATEST) -keepgoing -runall -target ubuntu/nfs/none :runname `date +w%V.%u.%H` -m "This is a comment specific to a run" -v test : csi -b -I .. ../megatest.scm -- -runall -target ubuntu/afs/tmp :runname blah cd ../;make test make runall |
| ︙ | ︙ |