Megatest

Check-in [347440a4ec]
Login
Overview
Comment:Minor tweak to some widget sizes in dashboard
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.55
Files: files | file ages | folders
SHA1: 347440a4ec287ec3821f3fbf86c8545642eb7daa
User & Date: mrwellan on 2013-08-05 11:54:55
Other Links: branch diff | manifest | tags
Context
2013-08-05
20:10
Typo in version file. Fixed check-in: 8e90258572 user: mrwellan tags: v1.55, v1.5511ww32
11:54
Minor tweak to some widget sizes in dashboard check-in: 347440a4ec user: mrwellan tags: v1.55
10:53
Reseting version. check-in: 590333fe8a user: mrwellan tags: v1.55
Changes

Modified dashboard.scm from [1bdd31d35e] to [caac9567a8].

472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
	       (refvals '())
	       (indx    0)
	       (lbs     '()))
      (let* ((lb (let ((lb (list-ref key-listboxes indx)))
		   (if lb
		       lb
		       (iup:listbox 
			;; #:size "x10" 
			#:fontsize "10"
			#:expand "YES" ;; "VERTICAL"
			;; #:dropdown "YES"
			#:editbox "YES"
			#:action (lambda (obj a b c)
				   (action-proc))
			#:caret_cb (lambda (obj a b c)(action-proc))







|







472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
	       (refvals '())
	       (indx    0)
	       (lbs     '()))
      (let* ((lb (let ((lb (list-ref key-listboxes indx)))
		   (if lb
		       lb
		       (iup:listbox 
			#:size "45x50" 
			#:fontsize "10"
			#:expand "YES" ;; "VERTICAL"
			;; #:dropdown "YES"
			#:editbox "YES"
			#:action (lambda (obj a b c)
				   (action-proc))
			#:caret_cb (lambda (obj a b c)(action-proc))
747
748
749
750
751
752
753

754
755
756
757
758
759
760
					     (dboard:data-set-test-patts!
					      *data*
					      (dboard:lines->test-patt b))
					     (dashboard:update-run-command))
				  #:value (dboard:test-patt->lines
					   (dboard:data-get-test-patts *data*))
				  #:expand "YES"

				  #:multiline "YES")))
	     (set! test-patterns-textbox tb)
	     tb))
	  (iup:frame
	   #:title "Target"
	   ;; Target selectors
	   (apply iup:hbox







>







747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
					     (dboard:data-set-test-patts!
					      *data*
					      (dboard:lines->test-patt b))
					     (dashboard:update-run-command))
				  #:value (dboard:test-patt->lines
					   (dboard:data-get-test-patts *data*))
				  #:expand "YES"
				  #:size "x50"
				  #:multiline "YES")))
	     (set! test-patterns-textbox tb)
	     tb))
	  (iup:frame
	   #:title "Target"
	   ;; Target selectors
	   (apply iup:hbox