Megatest

matrix.scm at [aeefd528dc]
Login

File matrix.scm artifact 80b32addb5 part of check-in aeefd528dc


(require-library iup canvas-draw canvas-draw-iup)

(module matrix-test
 	(matrix-dialog)
 	(import
 	 scheme chicken extras
 	 iup canvas-draw canvas-draw-iup
 	 (only canvas-draw-base pointer->canvas))
 
(define ncols  8)
(define nlins  8)
(define width  32)
(define height  32)

;; (define (render-cell handle i j x-min x-max y-min y-max canvas)
;;   (set! (canvas-foreground canvas)
;; 	(if (or (and (odd? i) (odd? j)) (and (even? i) (even? j)))
;; 	    #xffffff
;; 	    #x000000))
;;   (canvas-box! canvas x-min x-max y-min y-max))

(define matrix-dialog
  (dialog
   #:title "Matrix Test"
   (let ((mat (matrix
	       ; #:expand "YES"
	       ; #:scrollbar "YES"
	       #:numcol ncols 
	       #:numlin nlins 
	       #:numcol-visible ncols 
	       #:numlin-visible nlins
	       #:click-cb (lambda (obj lin col status)
			    (print "obj: " obj " lin: " lin " col: " col " status: " status)))))
     (attribute-set! mat "0:0" "Testing")
     mat)))

) ;; end module

(import
 (only iup show main-loop)
  matrix-test)

(show matrix-dialog)
(main-loop)