Renamed systems to cl-gtk2-{glib,gdk,gtk}

diff --git a/gdk/cl-gtk2-gdk.asd b/gdk/cl-gtk2-gdk.asd
new file mode 100644 (file)
index 0000000..84d79fb
--- /dev/null
+++ b/gdk/cl-gtk2-gdk.asd
@@ -0,0 +1,9 @@
+(defsystem :cl-gtk2-gdk
+  :name :cl-gtk2-gdk
+  :author "Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>"
+  :license "LLGPL"
+  :serial t
+  :components ((:file "gdk.package")
+               (:file "gdk.objects")
+               (:file "gdk.functions"))
+  :depends-on (:cl-gtk2-glib :cffi))
\ No newline at end of file

diff --git a/gdk/clgtk2-gdk.asd b/gdk/clgtk2-gdk.asd
deleted file mode 100644 (file)
index 117deab..0000000
--- a/gdk/clgtk2-gdk.asd
+++ /dev/null
@@ -1,9 +0,0 @@
-(defsystem :clgtk2-gdk
-  :name :clgtk2-gdk
-  :author "Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>"
-  :license "LLGPL"
-  :serial t
-  :components ((:file "gdk.package")
-               (:file "gdk.objects")
-               (:file "gdk.functions"))
-  :depends-on (:clgtk2-glib :cffi))
\ No newline at end of file

diff --git a/glib/cl-gtk2-glib.asd b/glib/cl-gtk2-glib.asd
new file mode 100644 (file)
index 0000000..e53aed7
--- /dev/null
+++ b/glib/cl-gtk2-glib.asd
@@ -0,0 +1,31 @@
+(defsystem :cl-gtk2-glib
+  :name :cl-gtk2-glib
+  :author "Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>"
+  :license "LLGPL"
+  :serial t
+  :components ((:file "glib")
+               (:file "glib.glist")
+               (:file "glib.gstrv")
+               (:file "glib.string")
+               (:file "glib.quark")
+               (:file "gobject.package")
+               (:file "gobject.structs")
+               (:file "gobject.type")
+               (:file "gobject.enum")
+               (:file "gobject.boxed")
+               (:file "gobject.gvalue")
+               (:file "gobject.gparams")
+               (:file "gobject.closures")
+               (:file "gobject.signals")
+               (:file "gobject.object")
+               (:file "gobject.foreign")
+               (:file "gobject.foreign-gobject")
+               (:file "gobject.foreign-closures")
+               (:file "gobject.foreign-gboxed")
+               (:file "gobject.gvalue-parser")
+               (:file "gobject.gobject-query")
+               (:file "gobject.meta")
+               (:file "gobject.generating")
+               (:file "gobject.object-defs")
+               (:file "gobject.foreign-gobject-subclassing"))
+  :depends-on (:cffi :trivial-garbage :iterate :bordeaux-threads :iterate :closer-mop))
\ No newline at end of file

diff --git a/glib/clgtk2-glib.asd b/glib/clgtk2-glib.asd
deleted file mode 100644 (file)
index 85f7ab5..0000000
--- a/glib/clgtk2-glib.asd
+++ /dev/null
@@ -1,31 +0,0 @@
-(defsystem :clgtk2-glib
-  :name :clgtk2-glib
-  :author "Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>"
-  :license "LLGPL"
-  :serial t
-  :components ((:file "glib")
-               (:file "glib.glist")
-               (:file "glib.gstrv")
-               (:file "glib.string")
-               (:file "glib.quark")
-               (:file "gobject.package")
-               (:file "gobject.structs")
-               (:file "gobject.type")
-               (:file "gobject.enum")
-               (:file "gobject.boxed")
-               (:file "gobject.gvalue")
-               (:file "gobject.gparams")
-               (:file "gobject.closures")
-               (:file "gobject.signals")
-               (:file "gobject.object")
-               (:file "gobject.foreign")
-               (:file "gobject.foreign-gobject")
-               (:file "gobject.foreign-closures")
-               (:file "gobject.foreign-gboxed")
-               (:file "gobject.gvalue-parser")
-               (:file "gobject.gobject-query")
-               (:file "gobject.meta")
-               (:file "gobject.generating")
-               (:file "gobject.object-defs")
-               (:file "gobject.foreign-gobject-subclassing"))
-  :depends-on (:cffi :trivial-garbage :iterate :bordeaux-threads :iterate :closer-mop))
\ No newline at end of file

diff --git a/gtk/cl-gtk2-gtk.asd b/gtk/cl-gtk2-gtk.asd
new file mode 100644 (file)
index 0000000..cea1fcd
--- /dev/null
+++ b/gtk/cl-gtk2-gtk.asd
@@ -0,0 +1,65 @@
+(defsystem :cl-gtk2-gtk
+  :name :cl-gtk2-gtk
+  :author "Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>"
+  :license "LLGPL"
+  :serial t
+  :components ((:file "gtk.package")
+               (:file "gtk.misc")
+               (:file "gtk.main_loop_events")
+               (:file "gtk.object")
+               (:file "gtk.objects")
+               (:file "gtk.generated-classes")               
+               (:file "gtk.functions")
+               (:file "gtk.base-classes")
+               (:file "gtk.dialog")
+               (:file "gtk.window")
+               (:file "gtk.image")
+               (:file "gtk.label")
+               (:file "gtk.progress-bar")
+               (:file "gtk.status-bar")
+               (:file "gtk.status-icon")
+               (:file "gtk.scale-button")
+               (:file "gtk.entry")
+               (:file "gtk.spin-button")
+               (:file "gtk.text")
+               (:file "gtk.tree-model")
+               (:file "gtk.tree-view-column")
+               (:file "gtk.tree-selection")
+               (:file "gtk.tree-view")
+               (:file "gtk.icon-view")
+               (:file "gtk.cell-layout")
+               (:file "gtk.cell-renderer")
+               (:file "gtk.combo-box")
+               (:file "gtk.menu")
+               (:file "gtk.ui-manager")
+               (:file "gtk.selectors")
+               (:file "gtk.layout-containers")
+               (:file "gtk.scrolling")
+               (:file "gtk.calendar")
+               (:file "gtk.size-group")
+               (:file "gtk.tooltip")
+               (:file "gtk.bin")
+               (:file "gtk.box")
+               (:file "gtk.container")
+               (:file "gtk.paned")
+               (:file "gtk.child-properties")
+               (:file "gtk.widget")
+               (:file "gtk.builder")
+
+               (:file "gtk.main-loop-events")
+               
+
+               (:file "gtk.generated-child-properties")
+               
+               (:file "gtk.high-level")
+
+               (:file "gtk.dialog.example")
+               
+               (:file "gtk.demo")
+               (:module "demo-files"
+                        :pathname "demo"
+                        :components ((:static-file "demo1.glade")
+                                     (:static-file "demo1.ui")
+                                     (:static-file "text-editor.glade")
+                                     (:static-file "text-editor.ui"))))
+  :depends-on (:cl-gtk2-glib :cffi :cl-gtk2-gdk :bordeaux-threads))
\ No newline at end of file

diff --git a/gtk/clgtk2-gtk.asd b/gtk/clgtk2-gtk.asd
deleted file mode 100644 (file)
index 3595ee2..0000000
--- a/gtk/clgtk2-gtk.asd
+++ /dev/null
@@ -1,65 +0,0 @@
-(defsystem :clgtk2-gtk
-  :name :clgtk2-gtk
-  :author "Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>"
-  :license "LLGPL"
-  :serial t
-  :components ((:file "gtk.package")
-               (:file "gtk.misc")
-               (:file "gtk.main_loop_events")
-               (:file "gtk.object")
-               (:file "gtk.objects")
-               (:file "gtk.generated-classes")               
-               (:file "gtk.functions")
-               (:file "gtk.base-classes")
-               (:file "gtk.dialog")
-               (:file "gtk.window")
-               (:file "gtk.image")
-               (:file "gtk.label")
-               (:file "gtk.progress-bar")
-               (:file "gtk.status-bar")
-               (:file "gtk.status-icon")
-               (:file "gtk.scale-button")
-               (:file "gtk.entry")
-               (:file "gtk.spin-button")
-               (:file "gtk.text")
-               (:file "gtk.tree-model")
-               (:file "gtk.tree-view-column")
-               (:file "gtk.tree-selection")
-               (:file "gtk.tree-view")
-               (:file "gtk.icon-view")
-               (:file "gtk.cell-layout")
-               (:file "gtk.cell-renderer")
-               (:file "gtk.combo-box")
-               (:file "gtk.menu")
-               (:file "gtk.ui-manager")
-               (:file "gtk.selectors")
-               (:file "gtk.layout-containers")
-               (:file "gtk.scrolling")
-               (:file "gtk.calendar")
-               (:file "gtk.size-group")
-               (:file "gtk.tooltip")
-               (:file "gtk.bin")
-               (:file "gtk.box")
-               (:file "gtk.container")
-               (:file "gtk.paned")
-               (:file "gtk.child-properties")
-               (:file "gtk.widget")
-               (:file "gtk.builder")
-
-               (:file "gtk.main-loop-events")
-               
-
-               (:file "gtk.generated-child-properties")
-               
-               (:file "gtk.high-level")
-
-               (:file "gtk.dialog.example")
-               
-               (:file "gtk.demo")
-               (:module "demo-files"
-                        :pathname "demo"
-                        :components ((:static-file "demo1.glade")
-                                     (:static-file "demo1.ui")
-                                     (:static-file "text-editor.glade")
-                                     (:static-file "text-editor.ui"))))
-  :depends-on (:clgtk2-glib :cffi :clgtk2-gdk :bordeaux-threads))
\ No newline at end of file

diff --git a/gtk/gtk.demo.lisp b/gtk/gtk.demo.lisp
index 32410e7..5d142b9 100644 (file)
--- a/gtk/gtk.demo.lisp
+++ b/gtk/gtk.demo.lisp
@@ -26,7 +26,7 @@
 
 (in-package :gtk-demo)
 
-(defparameter *src-location* (asdf:component-pathname (asdf:find-system :clgtk2-gtk)))
+(defparameter *src-location* (asdf:component-pathname (asdf:find-system :cl-gtk2-gtk)))
 
 (defun test ()
   (within-main-loop