;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gdktypes.lisp,v 1.24 2006/04/26 09:21:39 espen Exp $
+;; $Id: gdktypes.lisp,v 1.27 2006/09/05 13:14:10 espen Exp $
(in-package "GDK")
(eval-when (:compile-toplevel :load-toplevel :execute)
(init-types-in-library #.(concatenate 'string
(pkg-config:pkg-variable "gtk+-2.0" "libdir")
- "/libgdk-x11-2.0.so") :prefix ("gdk_" "_gdk_"))
+ "/libgdk-x11-2.0." asdf:*dso-extension*) :prefix ("gdk_" "_gdk_"))
(init-types-in-library #.(concatenate 'string
(pkg-config:pkg-variable "gtk+-2.0" "libdir")
- "/libgdk_pixbuf-2.0.so") :prefix "gdk_"))
+ "/libgdk_pixbuf-2.0." asdf:*dso-extension*) :prefix "gdk_"))
(defclass color (boxed)
:type int))
(:metaclass boxed-class))
+(defclass region (struct)
+ ()
+ (:metaclass struct-class)
+ (:ref %region-copy)
+ (:unref %region-destroy))
+
+
(register-type 'event-mask '|gdk_event_mask_get_type|)
(define-flags-type event-mask
(:exposure 2)
:scroll
(:all-events #x3FFFFE))
-(register-type 'event-mask '|gdk_modifier_type_get_type|)
+(register-type 'modifier-type '|gdk_modifier_type_get_type|)
(define-flags-type modifier-type
:shift :lock :control :mod1 :mod2 :mod3 :mod4 :mod5
:button1 :button2 :button3 :button4 :button5
:setter "gdk_window_set_group"
:unbound nil
:accessor window-group
- :type window))))
+ :type window)
+ #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.10.0")
+ (type-hint
+ :allocation :virtual
+ :getter "gdk_window_get_type_hint"
+ :setter "gdk_window_set_type_hint"
+ :accessor window-type-hint
+ :type window-type-hint)
+ #?-(pkg-exists-p "gtk+-2.0" :atleast-version "2.10.0")
+ (type-hint
+ :allocation :virtual
+ :getter "gdk_window_get_type_hint"
+ :accessor window-type-hint
+ :type window-type-hint)
+ (decorations
+ :allocation :virtual
+ :getter %window-decoration-getter
+ :setter "gdk_window_set_decoration"
+ :boundp %window-decoration-boundp
+ :accessor window-decorations
+ :type wm-decoration))))
(deftype bitmap () 'pixmap)