From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sat, 14 Nov 2009 10:02:08 +0000 (+0300)
Subject: Add Gdk/application-launching
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=886e4b2d7aefeede49a4fa57f4eca659ae8c25e2;p=cl-gtk2.git

Add Gdk/application-launching
---

diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp
index 2f59777..4e887a8 100644
--- a/gdk/gdk.objects.lisp
+++ b/gdk/gdk.objects.lisp
@@ -1060,3 +1060,20 @@
    (:cffi n-keys gdk-device-n-keys nil
           %gdk-device-n-keys nil)))
 
+(define-g-object-class "GdkAppLaunchContext"
+    gdk-app-launch-context
+  (:superclass g-object :export t
+               :interfaces nil :type-initializer
+               "gdk_app_launch_context_get_type")
+  ((:cffi display gdk-app-launch-context-display (g-object display)
+          nil "gdk_app_launch_context_set_display")
+   (:cffi screen gdk-app-launch-context-screen (g-object screen)
+          nil "gdk_app_launch_context_set_screen")
+   (:cffi desktop gdk-app-launch-context-desktop :int
+          nil "gdk_app_launch_context_set_desktop")
+   (:cffi timestamp gdk-app-launch-context-timestamp :uin32
+          nil "gdk_app_launch_context_set_timestamp")
+   (:cffi icon gdk-app-launch-context-icon g-object
+          nil "gdk_app_launch_context_set_icon")
+   (:cffi icon-name gdk-app-launch-context-icon-name :string
+          nil "gdk_app_launch_context_set_icon_name"))) ;; TODO: GIcon