[gtk-cffi-cvs] CVS gtk-cffi/gio

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/gio
In directory tiger.common-lisp.net:/tmp/cvs-serv31071/gio

Modified Files:
	package.lisp simple-action-group.lisp 
Added Files:
	action-group.lisp loadlib.lisp 
Log Message:
Refactored freeable
Added loadlib to gio
Fixed compilation without loading



--- /project/gtk-cffi/cvsroot/gtk-cffi/gio/package.lisp	2012/01/21 18:37:52	1.1
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gio/package.lisp	2012/01/25 19:15:08	1.2
@@ -9,4 +9,8 @@
 
 (defpackage #:gio-cffi
   (:nicknames #:gio)
-  (:use #:common-lisp #:g-object #:g-lib))
\ No newline at end of file
+  (:use #:common-lisp #:cffi #:cffi-object #:g-object-cffi #:g-lib-cffi))
+
+(in-package #:gio-cffi)
+(register-package "G" *package*)
+(register-prefix *package* 'g)
\ No newline at end of file
--- /project/gtk-cffi/cvsroot/gtk-cffi/gio/simple-action-group.lisp	2012/01/21 18:37:52	1.1
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gio/simple-action-group.lisp	2012/01/25 19:15:08	1.2
@@ -7,5 +7,5 @@
 
 (in-package :gio-cffi)
 
-(defclass simple-action-group (object) ())
+(defclass simple-action-group (g-object action-group) ())
 

--- /project/gtk-cffi/cvsroot/gtk-cffi/gio/action-group.lisp	2012/01/25 19:15:08	NONE
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gio/action-group.lisp	2012/01/25 19:15:08	1.1
;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
;;;
;;; action-group.lisp --- GActionGroup
;;;
;;; Copyright (C) 2012, Roman Klochkov <kalimehtar at mail.ru>
;;;

(in-package :gio-cffi)

(defclass action-group (object) ())

(deffuns action-group
  (has-action :boolean (action-name gtk-string))
  (list-actions (string-list :free t))
  (:get action-enabled :boolean (action-name gtk-string)))
;  (:get action-parameter-type variant-type (action-name gtk-string))
;  (:get action-state-type variant-type (action-name gtk-string)))
  
  --- /project/gtk-cffi/cvsroot/gtk-cffi/gio/loadlib.lisp	2012/01/25 19:15:08	NONE
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gio/loadlib.lisp	2012/01/25 19:15:08	1.1
(in-package #:gio-cffi)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (define-foreign-library :gio
    (:unix "libgio-2.0.so")
    (:windows "libgio-2.0-0.dll"))

  (load-foreign-library :gio))