iup cells example

chess.scm

(use iup)

(define (nlines self) 8)
(define (ncols self) 8)
(define (height self line) 50)
(define (width self col) 50)

(define (draw self i j xmin xmax ymin ymax canvas) 'default)

(define dlg
  (dialog
    (vbox
      (cells name: "Chessboard"
             height-cb: height
             width-cb: width
             nlines-cb: nlines
             ncols-cb: ncols
             draw-cb: draw)
      (button title: 'E&xit
              expand: 'Yes
              tip: "Close button"
              action: (lambda (self) 'close)))
    title: 'IUP))

(show dlg)
(main-loop)
(destroy! dlg)
(exit 0)