chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
9c7271c
)
Retrieve root window the correct way
author
espen
<espen>
Thu, 28 Oct 2004 09:28:25 +0000
(09:28 +0000)
committer
espen
<espen>
Thu, 28 Oct 2004 09:28:25 +0000
(09:28 +0000)
gdk/gdk.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gdk/gdk.lisp
b/gdk/gdk.lisp
index a42f432ba475a11b4d7ca3f132cc1b91d743e77d..305b2f4599bf08e414fc86d8b483f2ab6f518021 100644
(file)
--- a/
gdk/gdk.lisp
+++ b/
gdk/gdk.lisp
@@
-15,7
+15,7
@@
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
;; 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.
7 2001-10-21 23:02:40
espen Exp $
+;; $Id: gdk.lisp,v 1.
8 2004-10-28 09:28:25
espen Exp $
(in-package "GDK")
(in-package "GDK")
@@
-271,8
+271,12
@@
(defbinding window-get-pointer () window
(y int :out)
(mask modifier-type :out))
(y int :out)
(mask modifier-type :out))
-(defbinding
ge
t-root-window () window)
+(defbinding
%get-defaul
t-root-window () window)
+(defun get-root-window (%optional display)
+ (if display
+ (error "Not implemented")
+ (%get-default-root-window)))
;;
;;
@@
-312,7
+316,7
@@
(defbinding %cursor-unref () nil
;;; Pixmaps
;;; Pixmaps
-#|
+
(defbinding pixmap-new (width height depth &key window) pixmap
(width int)
(height int)
(defbinding pixmap-new (width height depth &key window) pixmap
(width int)
(height int)
@@
-345,10
+349,10
@@
(defun pixmap-create (source &key color window colormap)
window colormap color (namestring (truename source))))
((vector string)
(%pixmap-colormap-create-from-xpm-d window colormap color source)))
window colormap color (namestring (truename source))))
((vector string)
(%pixmap-colormap-create-from-xpm-d window colormap color source)))
- (unreference-instance pixmap)
- (unreference-instance mask)
+
;;
(unreference-instance pixmap)
+
;;
(unreference-instance mask)
(values pixmap mask))))
(values pixmap mask))))
-|#
+
;;; Color
;;; Color