Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -201,29 +201,37 @@
 
 (define (make-image images name color)
   (if (hash-table-exists? images name)
       name
       (let* ((img-bits1 (u8vector->blob (u8vector
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
-					 1 1 1 1 1 1 1 1 
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+					 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
 					 )))
 	     ;;                       w h
-	     (img1 (iup:image/palette 8 16 img-bits1)))
+	     (img1 (iup:image/palette 16 24 img-bits1)))
 	(iup:handle-name-set! img1 name)
 	;; (iup:attribute-set! img1 "0" "0 0 0")
 	(iup:attribute-set! img1 "1" color) ;; "BGCOLOR")
 	;; (iup:attribute-set! img1 "2" "255 0 0")
 	(hash-table-set! images name img1)