module reorganization

Author: lispnik

classesdb-cffi/classesdb-cffi.lisp renamed to classesdb/classesdb-cffi.lisp

@@ -0,0 +1,22 @@
+(in-package #:iup-examples.buttons)
+
+(defun button-cb (&rest rest)
+  (iup:message "Test" (format nil "~A on ~A on ~A"
+			      (lisp-implementation-type)
+			      (cl:lisp-implementation-version)
+			      (machine-type)))
+  iup::+default+)
+
+(defun buttons ()
+  (iup:with-iup ()
+    (let* ((button1 (iup:button :title "Button 1"))
+	   (button2 (iup:button :title "Button 2" :action 'button-cb))
+	   (dialog (iup:dialog (iup:hbox (list button1 button2) :gap "5" :margin "5x5")
+			       :title "IupButtons")))
+      (iup:show dialog)
+      (iup:main-loop))))
+
+#+nil
+(sb-int:with-float-traps-masked
+    (:divide-by-zero :invalid)
+  (buttons))

controls-cffi/controls-cffi.lisp renamed to controls/controls-cffi.lisp

@@ -1,4 +1,6 @@
-(defpackage #:iup-gl-cffi (:use #:common-lisp))
+(defpackage #:iup-gl-cffi
+  (:use #:common-lisp))
+
 (in-package #:iup-gl-cffi)
 
 (cffi:define-foreign-library iup-gl

examples/#buttons.lisp#

@@ -1,4 +1,6 @@
-(defpackage #:iup-glcontrols-cffi (:use #:common-lisp))
+(defpackage #:iup-glcontrols-cffi
+  (:use #:common-lisp))
+
 (in-package #:iup-glcontrols-cffi)
 
 (cffi:define-foreign-library iup-glcontrols

gl-cffi/gl.lisp

@@ -1,4 +1,6 @@
-(defpackage #:iup-imglib-cffi (:use #:common-lisp))
+(defpackage #:iup-imglib-cffi
+  (:use #:common-lisp))
+
 (in-package #:iup-imglib-cffi)
 
 (cffi:define-foreign-library iup-imglib

gl-cffi/packages.lisp

@@ -1,6 +1,4 @@
-(in-package #:asdf-user)
-
 (defsystem #:iup-cffi
-  :pathname "iup-cffi/"
+  :pathname "iup/"
   :components ((:file "iup-cffi"))
   :depends-on (#:cffi))