(require 'asdf)

(asdf:operate 'asdf:load-op 'cffi)

(cffi:load-foreign-library "libfltk.so")
(load "testsuite/fltk1x/fltk1x-library.lisp")

(defpackage "TEST-FLTK"
  (:use "COMMON-LISP" "FLTK1X-LIBRARY"))

(defun main()
  (cffi:with-foreign-string (title "Testing")
    (let ((win (fl-window-new-2 300 200 title)))
      (fl-group-begin win)
      (cffi:with-foreign-string (label "Click me")
        (let ((but (fl-button-new-1 10 150 70 30 label)))
	  (fl-group-end win)
	  (fl-window-show win)
	  (fl-run))))))
(main)