(defpackage "GDK"
(:use "GLIB" "COMMON-LISP" "AUTOEXPORT")
(:shadowing-import-from "PCL"
- "CLASS-NAME" "CLASS-OF" "FIND-CLASS"))
+ "CLASS-NAME" "CLASS-OF" "FIND-CLASS")
+ (:shadow "ATOM"))
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-;; $Id: gdk.lisp,v 1.12 2004-12-20 00:32:15 espen Exp $
+;; $Id: gdk.lisp,v 1.13 2005-01-30 15:08:03 espen Exp $
(in-package "GDK")
(defbinding flush () nil)
(defbinding beep () nil)
+(defbinding atom-intern (atom-name &optional only-if-exists) atom
+ ((string atom-name) string)
+ (only-if-exists boolean))
+
+(defbinding atom-name () string
+ (atom atom))
+
;;; Visuals
(defbinding keyval-to-upper () unsigned-int
(keyval unsigned-int))
-(defbinding keyval-to-lower ()unsigned-int
+(defbinding keyval-to-lower () unsigned-int
(keyval unsigned-int))
(defbinding (keyval-is-upper-p "gdk_keyval_is_upper") () boolean
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-;; $Id: gdktypes.lisp,v 1.10 2004-12-26 11:47:24 espen Exp $
+;; $Id: gdktypes.lisp,v 1.11 2005-01-30 15:08:03 espen Exp $
(in-package "GDK")
(deftype point () '(vector int 2))
(deftype segment () '(vector int 4))
(deftype trapezoid () '(vector double-float 6))
-
+(deftype atom () 'unsigned-int)
;; Could this just as well have been a vector?