From bb1ee4a1380588a12c2e859e1e1376a7f5c311f1 Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Tue, 9 Oct 2001 15:32:54 +0000
Subject: [PATCH] - added comments and newlines.

---
 scheme/xlib/client.scm       | 99 ++++++++++++++++++++++++++++++++----
 scheme/xlib/cursor.scm       | 15 ++++++
 scheme/xlib/display-type.scm |  2 +-
 scheme/xlib/drawable.scm     |  6 ++-
 scheme/xlib/grab.scm         | 63 ++++++++++++-----------
 scheme/xlib/pixmap.scm       | 34 ++++++++-----
 scheme/xlib/utility.scm      | 29 +++++++----
 scheme/xlib/wm.scm           | 61 ++++++++++++++++++++++
 8 files changed, 241 insertions(+), 68 deletions(-)

diff --git a/scheme/xlib/client.scm b/scheme/xlib/client.scm
index ebfdd6b..f78183b 100644
--- a/scheme/xlib/client.scm
+++ b/scheme/xlib/client.scm
@@ -1,3 +1,7 @@
+;; iconfiy-window send a WM_CHANGE_STATE message (in an appropiate
+;; format), to the root window of the specified screen. See
+;; XIconifyWindow.
+
 (define (iconify-window window screen-number)
   (check-screen-number (window-display window) screen-number)
   (if (not (%iconify-window (display-Xdisplay (window-display window))
@@ -9,6 +13,10 @@
 (import-lambda-definition %iconify-window (Xdisplay Xwindow scr-num)
   "scx_Iconify_Window")
 
+;; withdraw-window unmaps the specified window and sends a synthetic
+;; UnmapNotify event to the root window of the specified screen. See
+;; XWithdrawWindow.
+
 (define (withdraw-window window screen-number)
   (check-screen-number screen-number)
   (if (not (%withdraw-window (display-Xdisplay (window-display window))
@@ -20,6 +28,11 @@
 (import-lambda-definition %withdraw-window (Xdisplay Xwindow scr-num)
   "scx_Withdraw_Window")
 
+;; reconfigure-wm-window change attributes of the specified window
+;; similar to configure-window, or sends a ConfigureRequestEvent to
+;; the root window if that fails. See XReconfigureWMWindow. See
+;; configure-window.
+
 (define (reconfigure-wm-window window screen-number . args)
   (check-screen-number screen-number)
   (if (not (%reconfigure-wm-window (display-Xdisplay (window-display window))
@@ -32,6 +45,9 @@
 (import-lambda-definition %reconfigure-wm-window (Xdisplay Xwindow scrnum alist)
   "scx_Reconfigure_Wm_Window")
 
+;; wm-command reads the WM_COMMAND property from the specified window
+;; and returns is as a list of strings. See XGetCommand.
+
 (define (wm-command window)
   (vector->list (%wm-command (display-Xdisplay (window-display window))
 			     (window-Xwindow window))))
@@ -39,6 +55,25 @@
 (import-lambda-definition %wm-command (Xdisplay Xwindow)
   "scx_Wm_Command")
 
+;; set-wm-command! sets the WM_COMMAND property (the command and
+;; arguments used to invoke the application). The command has to be
+;; specified as a list of string or symbols. See XSetCommand.
+
+(define (set-wm-command! window command)
+  (%set-wm-command! (display-Xdisplay (window-display window))
+		    (window-Xwindow window)
+		    (list->vector (map (lambda (x)
+					 (if (symbol? x)
+					     (symbol->string x)
+					     x))
+				       command))))
+
+(import-lambda-definition %set-wm-command (Xdisplay Xwindow command)
+  "scx_Set_Wm_Command")
+
+;; get-text-property returns the property specified by atom of the
+;; specified window as a list of strings. See XGetTextProperty.
+
 (define (get-text-property window atom)
   (let ((res (%get-text-property (display-Xdisplay (window-display window))
 				 (window-Xwindow window)
@@ -51,6 +86,9 @@
 (import-lambda-definition %get-text-property (Xdisplay Xwindow Xatom)
   "scx_Get_Text_Property")
 
+;; set-text-property! sets the property specified by atom of the
+;; specified window to value - a list of strings or symbols.
+
 (define (set-text-property! window value atom)
   (let ((res (%set-text-property! (display-Xdisplay (window-display window))
 				  (window-Xwindow window)
@@ -63,6 +101,11 @@
 (import-lambda-definition %set-text-property! (Xdisplay Xwindow value XAtom)
   "scx_Set_Text_Property")
 
+;; wm-protocols function returns the list of atoms stored in the
+;; WM_PROTOCOLS property on the specified window. These atoms describe
+;; window manager protocols in which the owner of this window is
+;; willing to participate. See XGetWMProtocols.
+
 (define (wm-protocols window)
   (let ((res (%wm-protocols (display-Xdisplay (window-display window))
 			    (window-Xwindow window))))
@@ -74,6 +117,9 @@
 (import-lambda-definition %wm-protocols (Xdisplay Xwindow)
   "scx_Wm_Protocols")
 
+;; set-wm-protocols! sets the WM_PROTOCOLS property of the specified
+;; window. protocols has to be a list of atoms. See XSetWMProtocols.
+
 (define (set-wm-protocols! window protocols)
   (let ((res (%set-wm-protocols! (display-Xdisplay (window-display window))
 				 (window-Xwindow window)
@@ -85,6 +131,9 @@
 (import-lambda-definition %set-wm-protocols! (Xdisplay Xwindow protocols)
   "scx_Set_Wm_Protocols")
 
+;; wm-class returns the class hint for the specified window. See
+;; XGetClassHint.
+
 (define (wm-class window)
   (let ((res (%wm-class (display-Xdisplay (window-display window))
 			(window-Xwindow window))))
@@ -95,6 +144,9 @@
 (import-lambda-definition %wm-class (Xdisplay Xwindow)
   "scx_Wm_Class")
 
+;; set-wm-class! sets the class hint for the specified window. See
+;; XSetClassHint.
+
 (define (set-wm-class! window name class)
   (%set-wm-class! (display-Xdisplay (window-display window))
 		  (window-Xwindow window)
@@ -108,17 +160,10 @@
 (import-lambda-definition %set-wm-class! (Xdisplay Xwindow name class)
   "scx_Set_Wm_Class")
 
-(define (set-wm-command! window command)
-  (%set-wm-command! (display-Xdisplay (window-display window))
-		    (window-Xwindow window)
-		    (list->vector (map (lambda (x)
-					 (if (symbol? x)
-					     (symbol->string x)
-					     x))
-				       command))))
-
-(import-lambda-definition %set-wm-command (Xdisplay Xwindow command)
-  "scx_Set_Wm_Command")
+;; wm-hints reads the window manager hints and returns them as an
+;; alist mapping symbols to specific values. The hints are: 'input?
+;; 'initial-state 'icon-pixmap 'icon-window 'icon-x 'icon-y 'icon-mask
+;; 'window-group 'urgency. See XGetWMHints for a description.
 
 (define (wm-hints window)
   (let ((res (%wm-hints (display-Xdisplay (window-display window))
@@ -145,6 +190,11 @@
 (import-lambda-definition %wm-hints (Xdisplay Xwindow)
   "scx_Wm_Hints")
 
+;; set-wm-hints! sets the specified window manager hints. The hints
+;; must be specified together with their names. Either by giving two
+;; parameter 'name value, or the last argument may be an alist, as
+;; returned by wm-hints. See XSetWMHints.
+
 (define (set-wm-hints! window . args)
   (%set-wm-hints! (display-Xdisplay (window-display window))
 		  (window-Xwindow window)
@@ -160,6 +210,10 @@
 (import-lambda-definition %set-wm-hints! (Xdisplay Xwindow args)
   "scx_Set_Wm_Hints")
 
+;; transient-for returns the WM_TRANSIENT_FOR property for the
+;; specified window. The value of that property is a window. See
+;; XGetTransientForHint.
+
 (define (transient-for window)
   (make-window (%transient-for (display-Xdisplay (display-window window))
 			       (window-Xwindow window))
@@ -169,6 +223,10 @@
 (import-lambda-definition %transient-for (Xdisplay Xwindow)
   "scx_Transient_For")
 
+;; set-transient-for! sets the WM_TRANSIENT_FOR property of the
+;; specified window to the specified property-window. See
+;; XSetTransientForHint.
+
 (define (set-transient-for! window property-window)
   (%set-transient-for (display-Xdisplay (window-display window))
 		      (window-Xwindow window)
@@ -178,6 +236,9 @@
 							Xpropertywindow)
   "scx_Set_Transient_For")
 
+;; The following function a wrappers for the get/set-text-property
+;; function.
+
 (define xa-wm-name (make-atom 39))
 (define xa-wm-icon-name (make-atom 37))
 (define xa-wm-client-machine (make-atom 36))
@@ -200,6 +261,13 @@
 (define (set-wm-client-machine! w s)
   (set-text-property! w s xa-wm-client-machine))
 
+;; wm-normal-hints/set-wm-normal-hints! get or set the size hints
+;; stored in the WM_NORMAL_HINTS property on the specified window. The
+;; hints are '(x y width height us-position us-size min-width
+;; min-height max-width max-height width-inc height-inc min-aspect-x
+;; min-aspect-y max-aspect-x max-aspect-y base-width base-height
+;; gravity). See XGetWMNormalHints, XSetWMNormalHints.
+
 (define (wm-normal-hints window)
   (let* ((v (%wm-normal-hints (display-Xdisplay (window-display window))
 			      (window-Xwindow window)))
@@ -224,6 +292,12 @@
 (import-lambda-definition %set-wm-normal-hints (Xdisplay Xwindow alist)
   "scx_Set_Wm_Normal_Hints")
 
+;; icon-sizes returns the icon sizes specified by a window manager as
+;; a list. If no icon sizes are specified the list is empty. An icon
+;; size itself is a list consisting of integers meaning '(min-width
+;; min-height max-width max-height width-inc height-inc). See
+;; XGetIconSizes.
+
 (define (icon-sizes window)
   (let ((r (%icon-sizes (display-Xdisplay (window-display window))
 			(window-Xwindow window))))
@@ -233,6 +307,9 @@
 (import-lambda-definition %icon-sizes (Xdisplay Xwindow)
   "scx_Icon_Sizes")
 
+;; set-icon-sizes! is used only by window managers to set the
+;; supported icon sizes. See icon-sizes, XSetIconSizes.
+
 (define (set-icon-sizes! window icon-sizes)
   (%set-icon-sizes! (display-Xdisplay (window-display window))
 		    (window-Xwindow window)
diff --git a/scheme/xlib/cursor.scm b/scheme/xlib/cursor.scm
index 8841d8a..d59b787 100644
--- a/scheme/xlib/cursor.scm
+++ b/scheme/xlib/cursor.scm
@@ -1,3 +1,7 @@
+;; create-pixmap-cursor returns a cursor, that was build using the
+;; pixmaps src and mask, and the colors foreground and background. x
+;; and y specify the hotspot of the cursor. See XCreatePixmapCursor.
+
 (define (create-pixmap-cursor src mask x y foreground background)
   (let ((display (pixmap-display src)))
     (make-cursor (%create-pixmap-cursor (display-Xdisplay display)
@@ -14,6 +18,10 @@
 (import-lambda-definition %create-pixmap-cursor (Xdisplay src mask x y f b)
   "scx_Create_Pixmap_Cursor")
 
+;; create-glyph-cursor returns a cursor, that was build using the font
+;; src, an integer src-char, a font mask, an integer mask-char, and
+;; the colors foreground and background. See XCreateGlyphCursor.
+
 (define (create-glyph-cursor src src-char mask mask-char foreground background)
   (let ((display (font-display src)))
     (make-cursor (%create-glyph-cursor (display-Xdisplay display)
@@ -30,6 +38,11 @@
 			  (Xdisplay src srcc mask maskc f b)
   "scx_Create_Glyph_Cursor")
 
+;; create-font-cursor returns a cursor, that was build with
+;; create-glyph-cursor using a font named "cursor", src-char, the
+;; character following src-char as mask-char, and black and as
+;; foreground and background.
+
 (define (create-font-cursor display src-char)
   (let ((font (load-font display "cursor")))
     (create-glyph-cursor font src-char
@@ -41,6 +54,8 @@
     ;;(unload-font font)
     ))
 
+;; recolor-cursor resets the colors of an existing cursor. See XRecolorCursor.
+
 (define (recolor-cursor cursor foreground background)
   (%recolor-cursor (display-Xdisplay (cursor-display cursor))
 		   (cursor-Xcursor cursor)
diff --git a/scheme/xlib/display-type.scm b/scheme/xlib/display-type.scm
index 0207990..70401e5 100644
--- a/scheme/xlib/display-type.scm
+++ b/scheme/xlib/display-type.scm
@@ -90,4 +90,4 @@
 	p)))
 
 (import-lambda-definition %display-message-fd (Xdisplay)
-  "scx_Display_Message_fd")
\ No newline at end of file
+  "scx_Display_Message_fd")
diff --git a/scheme/xlib/drawable.scm b/scheme/xlib/drawable.scm
index c715ad9..0c53c0c 100644
--- a/scheme/xlib/drawable.scm
+++ b/scheme/xlib/drawable.scm
@@ -14,6 +14,10 @@
   (lambda (drawable)
     (vector-ref (get-geometry drawable) num)))
 
+;; the drawable-* functions return common information of a window or a
+;; pixmap. drawable-root returns a window, all other functions return
+;; an integer. See XGetGeometry.
+
 (define drawable-root (make-geometry-getter 0))
 (define drawable-x (make-geometry-getter 1))
 (define drawable-y (make-geometry-getter 2))
@@ -21,5 +25,3 @@
 (define drawable-height (make-geometry-getter 4))
 (define drawable-border-width (make-geometry-getter 5))
 (define drawable-depth (make-geometry-getter 6))
-
-
diff --git a/scheme/xlib/grab.scm b/scheme/xlib/grab.scm
index 6af8f6f..eeb22a5 100644
--- a/scheme/xlib/grab.scm
+++ b/scheme/xlib/grab.scm
@@ -1,8 +1,9 @@
 ; Norbert Freudemann
 
-; grab-pointer grabs control of a pointer for your client only.
-; It returns on of the symbols: 
-;     (success not-viewable already-grabbed frozen invlalide-time)
+;; grab-pointer grabs control of a pointer for your client only.
+;; It returns on of the symbols: 
+;;     (success not-viewable already-grabbed frozen invalide-time)
+;; See XGrabPointer.
 
 (define (grab-pointer window owner? events ptr-sync? kbd-sync?
 		      confine-to cursor time)
@@ -14,14 +15,12 @@
 		 (cursor-Xcursor cursor)
 		 time))
 
-
 (import-lambda-definition %grab-pointer (Xdisplay Xwindow owner? events
 					 ptr-sync? kbd-sync?
 					 Xconfine-to Xcursor time)
   "scx_Grab_Pointer")
 
-
-; ungrab-pointer releases the pointer.
+;; ungrab-pointer releases the pointer. See XUngrabPointer.
 
 (define (ungrab-pointer display time)
   (%ungrab-pointer (display-Xdisplay display)
@@ -31,7 +30,8 @@
   "scx_Ungrab_Pointer")
 
 
-; ---
+;; grab-button performs a grab-pointer depending on a corresponding
+;; button press event. See XGrabButton.
 
 (define (grab-button window button mod owner? events ptr-sync? kbd-sync?
 		     confine-to cursor)
@@ -47,9 +47,8 @@
 						 Xconfine-to Xcursor)
   "scx_Grab_Button")			   
 
-
-; ---
-
+;; ungrab-button releases the passive grab, performed by
+;; grab-button. See XUngrabButton.
 
 (define (ungrab-button window button modifiers)
   (%ungrab-button (display-Xdisplay (window-display window))
@@ -60,8 +59,9 @@
 					  button modifiers)
   "scx_Ungrab_Button")
 
-
-; ---
+;; change-active-pointer-grab changes the specified dynamic parameters
+;; if the pointer is actively grabbed by the client (by grab-pointer,
+;; not by grab-button). See XChangeActivePointerGrab.
 
 (define (change-active-pointer-grab display events cursor time)
   (%change-active-p-g (display-Xdisplay display)
@@ -71,8 +71,12 @@
 					      cursor time)
   "scx_Change_Active_Pointer_Grab")	      
 
-
-; ---
+;; grab-keyboard actively grabs control of the keyboard and generates
+;; FocusIn and FocusOut events. Further key events are reported only
+;; to the grabbing client. 
+;; ungrab-keyboard releases the keyboard and any queued events if this
+;; client has it actively grabbed from either grab-keyboard or
+;; grab-Key. See XGrabKeyboard and XUngrabKeyboard.
 		  
 (define (grab-keyboard window owner? ptr-sync? kbd-sync? time)
   (%grab-keyboard (display-Xdisplay (window-display window))
@@ -84,10 +88,6 @@
 						   time)
   "scx_Grab_Keyboard")
 
-
-; ---
-
-
 (define (ungrab-keyboard display time)
   (%ungrab-keyboard (display-Xdisplay display)
 		    time))
@@ -96,8 +96,10 @@
 (import-lambda-definition %ungrab-keyboard (Xdisplay time)
   "scx_Ungrab_Keyboard")
 
-
-; ---
+;; The grab-key function establishes a passive grab on the
+;; keyboard. In the future, the keyboard is actively
+;; grabbed. 
+;; ungrab-key releases this passive grab. See XGrabKey and XUngrabKey.
 			  
 (define (grab-key window key mod owner? ptr-sync? kbd-sync?)
   (%grab-key (display-Xdisplay (window-display window))
@@ -108,9 +110,6 @@
 				     owner ptr-sync? kbd-sync? flag)
   "scx_Grab_Key")	      
 
-; ---
-
-
 (define (ungrab-key window key mod)
   (%ungrab-key (display-Xdisplay (window-display window))
 	       (window-Xwindow window)
@@ -120,8 +119,8 @@
 				       flag)
   "scx_Ungrab_Key")	
 
-; ---
-
+;; allow-events function releases some queued events if the client has
+;; caused a device to freeze. See XAllowEvents.
 
 (define (allow-events display mode time)
   (%allow-events (display-Xdisplay display)
@@ -130,7 +129,10 @@
 (import-lambda-definition %allow-events (Xdisplay mode time)
   "scx_Allow_Events")
 
-; ---
+;; grab-server disables processing of requests and close downs on all
+;; other connections than the one this request arrived on. You should
+;; not grab the X server any more than is absolutely necessary. See
+;; XGrabServer.
 
 (define (grab-server display)
   (%grab-server (display-Xdisplay display)))
@@ -138,7 +140,9 @@
 (import-lambda-definition %grab-server (Xdisplay)
   "scx_Grab_Server")
 
-; ---
+;; ungrab-server restarts processing of requests and close downs on
+;; other connections.  You should avoid grabbing the X server as much
+;; as possible. See XUngrabServer.
 
 (define (ungrab-server display)
   (%ungrab-server (display-Xdisplay display)))
@@ -147,7 +151,6 @@
   "scx_Ungrab_Server")
 		
 
-; Implementation of with-server-grabbed follows...
+;; with-server-grabbed not implemented (yet).
 
-;(define (with-server-grabbed display . body-forms)
-;)
\ No newline at end of file
+;;(define-syntax (with-server-grabbed display . body-forms))
diff --git a/scheme/xlib/pixmap.scm b/scheme/xlib/pixmap.scm
index 3aba073..ac1e968 100644
--- a/scheme/xlib/pixmap.scm
+++ b/scheme/xlib/pixmap.scm
@@ -2,7 +2,7 @@
 ;; creation date : 16/07/2001
 ;; last change   : 16/07/2001
 
-; ---
+;; create a new pixmap.
 
 (define (create-pixmap drawable width height depth)
   (let* ((display (drawable-display drawable))
@@ -14,7 +14,9 @@
 (import-lambda-definition %create-pixmap (Xdisplay Xdrawable w h depth)
   "scx_Create_Pixmap")
 
-; ---
+;; create-bitmap-from-data creates a new pixmap, consisting of the
+;; image found in data, which has to be a string. Such an image can be
+;; generated with write-bitmap-file. See XCreateBitmapFromData.
 
 (define (create-bitmap-from-data window data width height)
   (let* ((display (window-display window))
@@ -26,7 +28,9 @@
 (import-lambda-definition %create-bitmap-from-data (Xdisplay Xdrawable data w h)
   "scx_Create_Bitmap_From_Data")
 
-; ---
+;; create-pixmap-from-bitmap-data creates a pixmap of the given depth
+;; and then does a bitmap-format XPutImage of the data into it. See
+;; XCreatePixmapFromBitmapData.
 
 (define (create-pixmap-from-bitmap-data win data widht height 
 					foregrnd backgrnd depth)
@@ -42,7 +46,10 @@
 			  (Xdisplay Xdrawabel data w h f b depth)
   "scx_Create_Pixmap_From_Bitmap_Data")
 
-; Returns a list of five elements: (pixmap widht heigth x y)
+;; read-bitmap-file reads the bitmap data from the file, creates a new
+;; pixmap and returns a list of five elements (pixmap widht heigth
+;; x-hot y-hot). if x-hot and y-hot are not defined in the file then
+;; they are set to -1,-1. See XReadBitmapFile;
 
 (define (read-bitmap-file drawable filename)
   (let ((res (%read-bitmap-file (display-Xdisplay (drawable-display drawable))
@@ -55,19 +62,18 @@
 (import-lambda-definition %read-bitmap-file (Xdisplay Xdrawable file)
   "scx_Read_Bitmap_File")
 
+;; write-bitmap-file writes a bitmap out to a file in the X Version 11
+;; format. The optional argument hotspot specifies the hotspot as a
+;; pair (x-hot . y-hot) which defaults to (-1 . -1). See
+;; XWriteBitmapFile.
 
-; --- coord is optional. It should be the empty list or (x-hot y-hot)
-
-(define (write-bitmap-file filename pixmap width height . coord)
+(define (write-bitmap-file filename pixmap width height . hotspot)
   (let ((dpy (display-Xdisplay (pixmap-display pixmap)))
 	(xy-hot (cond
-		 ((null? coord) (list -1 -1))
-		 ((null? (cdr coord)) 
-		  (error "zero or both coordinates must be defined"))
-		 (else coord))))
+		 ((null? hotspot) (cons -1 -1))
+		 (else (car hotspot)))))
     (%write-bitmap-file dpy filename pixmap widht height 
-			(car xy-hot) (cadr xy-hot))))
-
+			(car xy-hot) (cdr xy-hot))))
 
 (import-lambda-definition %write-bitmap-file (Xdisplay file Xpixmap w h x y)
-  "scx_Write_Bitmap_File")
\ No newline at end of file
+  "scx_Write_Bitmap_File")
diff --git a/scheme/xlib/utility.scm b/scheme/xlib/utility.scm
index b2e4ff5..b9059ec 100644
--- a/scheme/xlib/utility.scm
+++ b/scheme/xlib/utility.scm
@@ -18,7 +18,10 @@
 (import-lambda-definition xlib-release-6-or-later? ()
   "scx_Xlib_Release_6_Or_Later")
 
-; Get the user-default values of a specified program
+;; get-default returns the user default values of a specified program
+;; from the X-resource database. program and option should be
+;; strings. On success a string is returned, otherwise #f. See
+;; XGetDefault.
 
 (define (get-default dpy program option)
   (%get-default (display-Xdisplay dpy)
@@ -28,8 +31,9 @@
 (import-lambda-definition %get-default (Xdisplay program option)
   "scx_Get_Default")
 
-
-; ---
+;; resource-manager-string returns the RESOURCE_MANAGER property from
+;; the server's root window of screen 0, or #f if no such property
+;; exists. See XResourceManagerString.
 
 (define (resource-manager-string dpy)
   (%resource-manager-string (display-Xdisplay dpy)))
@@ -37,7 +41,12 @@
 (import-lambda-definition %resource-manager-string (Xdisplay)
   "scx_Resource_Manager_String")
 
-; ---
+;; parse-geometry parses a string for the standard X format for x, y,
+;; width and height arguments. Definition:
+;; [=][<width>{xX}<height>][{+-}<xoffset>{+-}<yoffset>]. The return
+;; value is a list (x-negative? y-negative? x y width height), where
+;; x, y, width, height can be #f if they were not specified in the
+;; string. See XParseGeometry.
 
 (define (parse-geometry string)
   (reverse (%parse-geometry string)))
@@ -45,13 +54,13 @@
 (import-lambda-definition %parse-geometry (string)
   "scx_Parse_Geometry")
 
-; ---
+;; these are some functions for clipboard handling.
 
-(define (store-buffer) #f)
-(define (store-bytes) #f)
-(define (fetch-buffer) #f)
-(define (fetch-bytes) #f)
-(define (rotate-buffers) #f)
+(define store-buffer #f)
+(define store-bytes #f)
+(define fetch-buffer #f)
+(define fetch-bytes #f)
+(define rotate-buffers #f)
 
 (let ((xa-string (make-atom 31))    ; (31 is XA_STRING)
       (xa-cut-buffers
diff --git a/scheme/xlib/wm.scm b/scheme/xlib/wm.scm
index d1e5c59..2877186 100644
--- a/scheme/xlib/wm.scm
+++ b/scheme/xlib/wm.scm
@@ -1,3 +1,8 @@
+;; If the specified window is mapped, reparent-window automatically
+;; performs an UnmapWindow request on it, removes it from its current
+;; position in the hierarchy, and inserts it as the child of the
+;; specified parent. See XReparentWindow.
+
 (define (reparent-window window parent-window x y)
   (%reparent-window (display-Xdisplay (window-display window))
 		    (window-Xwindow window)
@@ -7,6 +12,9 @@
 (import-lambda-definition %reparent-window (Xdisplay Xwindow Xwindow_parent x y)
   "scx_Reparent_Window")
 
+;; install-colormap function installs the specified colormap for
+;; its associated screen. See XInstallColormap.
+
 (define (install-colormap colormap)
   (%install-colormap (display-Xdisplay (colormap-display colormap))
 		     (colormap-Xcolormap colormap)))
@@ -14,6 +22,9 @@
 (import-lambda-definition %install-colormap (Xdisplay Xcolormap)
   "scx_Install_Colormap")
 
+;; uninstall-colormap removes the specified colormap from the required
+;; list for its screen. See XUninstallColormap.
+
 (define (uninstall-colormap colormap)
   (%uninstall-colormap (display-Xdisplay (colormap-display colormap))
 		       (colormap-Xcolormap colormap)))
@@ -21,6 +32,10 @@
 (import-lambda-definition %uninstall-colormap (Xdisplay Xcolormap)
   "scx_Uninstall_Colormap")
 
+;; list-installed-colormaps function returns a list of the currently
+;; installed colormaps for the screen of the specified window. See
+;; XListInstalledColormaps.
+
 (define (list-installed-colormaps window)
   (let* ((dpy (window-display window))
 	 (ret (%list-installed-colormaps
@@ -33,6 +48,9 @@
 (import-lambda-definition %list-installed-colormaps (Xdisplay Xwindow)
   "scx_List_Installed_Colormaps")
 
+;; set-input-focus function changes the input focus and the
+;; last-focus-change time. See XSetInputFocus.
+
 (define (set-input-focus display window revert-to time)
   (%set-input-focus (display-Xdisplay display)
 		    (begin
@@ -46,11 +64,20 @@
 (import-lambda-definition %set-input-focus (Xdisplay Xwindow)
   "scx_Set_Input_Focus")
 
+;; input-focus returns the current focus window and the current focus
+;; state as a pair. See XGetInputFocus.
+
 (define (input-focus display)
   (let ((ret (%input-focus (display-Xdisplay display))))
     (cons (make-window (car ret) display #f)
 	  (cdr ret))))
 
+(import-lambda-definition %input-focus (Xdisplay)
+  "scx_Input_Focus")
+
+;; general-warp-pointer moves the pointer in the specified way. See
+;; XWarpPointer for a detailed description.
+
 (define (general-warp-pointer display 
 			      dst-win dst-x dst-y
 			      src-win src-x src-y src-width src-height)
@@ -64,16 +91,27 @@
 				    Xsrc-win src-x src-y src-width src-height)
   "scx_General_Warp_Pointer")
 
+;; warp-pointer calls general-warp-pointer with using 'none as the
+;; src-win and 0 for the src-* coordinates. The display is taken from
+;; dst-window.
+
 (define (warp-pointer dst-window dst-x dst-y)
   (general-warp-pointer (window-display dst-window)
 			dst-window dst-x dst-y
 			'none 0 0 0 0))
 
+;; warp-pointer-relative uses general-warp-pointer to move the pointer
+;; by x-offset and y-offset away from it's current position.
+
 (define (warp-pointer-relative display x-offset y-offset)
   (general-warp-pointer display
 			'none x-offset y-offset
 			'none 0 0 0 0))
 
+;; bell rings the bell on the keyboard on the specified display, if
+;; possible. The optional percent argument specifies the volume in a
+;; range from -100 to 100. 0 is the default value. See XBell.
+
 (define (bell display . percent)
   (%bell (display-Xdisplay display)
 	 (if (null? percent)
@@ -83,6 +121,9 @@
 (import-lambda-definition %bell (Xdisplay percent)
   "scx_Bell")
 
+;; set-access-control either enables or disables the use of the access
+;; control list at each connection setup. See XSetAccessControl.
+
 (define (set-access-control display enable?)
   (%set-access-control (display-Xdisplay display)
 		       enable?))
@@ -90,6 +131,12 @@
 (import-lambda-definition %set-access-control (Xdisplay on)
   "scx_Set_Access_Control")
 
+;; Depending on the specified mode, change-save-set either inserts or
+;; deletes the specified window from the client's save-set. The
+;; specified window must have been created by some other client, or a
+;; BadMatch error results. mode is one of 'insert or 'delete. See
+;; XChangeSaveSet.
+
 (define (change-save-set window mode)
   (%change-save-set (display-Xdisplay (window-display window))
 		    (window-Xwindow window)
@@ -98,6 +145,10 @@
 (import-lambda-definition %change-save-set (Xdisplay Xwindow mode)
   "scx_Change_Save_Set")
 
+;; set-close-down-mode defines what will happen to the client's
+;; resources at connection close. mode is one of 'destroy-all,
+;; 'retain-permanent or 'retain-temporary. See XSetCloseDownMode.
+
 (define (set-close-down-mode display mode)
   (%set-close-down-mode (display-Xdisplay display)
 			mode))
@@ -105,12 +156,22 @@
 (import-lambda-definition %set-close-down-mode (Xdisplay mode)
   "scx_Set_Close_Down_Mode")
 
+;; get-pointer-mapping returns a vector, that specifies in the i-th
+;; element the logical button number for the physical button i+1. See
+;; XGetPointerMapping.
+
 (define (get-pointer-mapping display)
   (%get-pointer-mapping (display-Xdisplay display)))
 
 (import-lambda-definition %get-pointer-mapping (Xdisplay)
   "scx_Get_Pointer_Mapping")
 
+;; set-pointer-mapping sets the mapping of the pointer. mapping must
+;; be a vector of the same length that get-pointer-mapping would
+;; return. If any of the buttons to be altered are logically in the
+;; down state, then #f is returned. #t otherwise. See
+;; XSetPointerMapping.
+
 (define (set-pointer-mapping display mapping)
   (%set-pointer-mapping (display-Xdisplay display)
 			mapping))