- fixed typos

- added missing load's in some structures.

scheme/xlib/client.scm

@@ -68,7 +68,7 @@
 					     x))
 				       command))))
 
-(import-lambda-definition %set-wm-command (Xdisplay Xwindow 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
@@ -215,7 +215,7 @@
 ;; XGetTransientForHint.
 
 (define (transient-for window)
-  (make-window (%transient-for (display-Xdisplay (display-window window))
+  (make-window (%transient-for (display-Xdisplay (window-display window))
 			       (window-Xwindow window))
 	       (window-display window)
 	       #f))
@@ -228,9 +228,9 @@
 ;; XSetTransientForHint.
 
 (define (set-transient-for! window property-window)
-  (%set-transient-for (display-Xdisplay (window-display window))
+  (%set-transient-for! (display-Xdisplay (window-display window))
-		      (window-Xwindow window)
+		       (window-Xwindow window)
-		      (window-Xwindow property-window)))
+		       (window-Xwindow property-window)))
 
 (import-lambda-definition %set-transient-for! (Xdisplay Xwindow 
 							Xpropertywindow)
@@ -289,7 +289,7 @@
 			   (window-Xwindow window)
 			   alist)))
 
-(import-lambda-definition %set-wm-normal-hints (Xdisplay Xwindow alist)
+(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

scheme/xlib/colormap.scm

@@ -111,15 +111,15 @@
 ;; do-blue). See XStoreColors.
 
 (define (store-color colormap pixel color . flags)
-  (%set-color-cell (display-Xdisplay (colormap-display colormap))
+  (%store-color (display-Xdisplay (colormap-display colormap))
-		   (colormap-Xcolormap colormap)
+		(colormap-Xcolormap colormap)
-		   (pixel-Xpixel pixel) (color-Xcolor color)
+		(pixel-Xpixel pixel) (color-Xcolor color)
-		   (if (null? flags)
+		(if (null? flags)
-		       '(do-red do-green do-blue)
+		    '(do-red do-green do-blue)
-		       (car flags))))
+		    (car flags))))
 
-(import-lambda-definition %set-color-cells (Xdisplay Xcolormap Xpixel Xcolor 
+(import-lambda-definition %store-color (Xdisplay Xcolormap Xpixel Xcolor 
-						     flags)
+						 flags)
   "scx_Store_Color")
 
 ;; store-colors does the same as store-color, but for multiple

scheme/xlib/font.scm

@@ -131,9 +131,9 @@
 	   (if (or (< i min)
 		   (> i max))
 	       (error (string-append s
-				     (integer->string min)
+				     (number->string min)
 				     " and "
-				     (integer->string max)
+				     (number->string max)
 				     "; given")
 		      index)))))
     (if (and (= 0 min1) (= 0 max1))

scheme/xlib/grab.scm

@@ -115,7 +115,7 @@
 	       (window-Xwindow window)
 	       key mod (symbol? key)))
 
-(import-lambda-definition %ungrag-key (Xdisplay Xwindow key mod
+(import-lambda-definition %ungrab-key (Xdisplay Xwindow key mod
 				       flag)
   "scx_Ungrab_Key")	
 

scheme/xlib/graphics.scm

@@ -42,7 +42,7 @@
 	       (drawable-Xobject src-drawable)
 	       (gcontext-Xgcontext gcontext)
 	       plane
-	       src-x srx-y width height
+	       src-x src-y width height
 	       (drawable-Xobject dst-drawable)
 	       dst-x dst-y))
 

scheme/xlib/pixmap.scm

@@ -32,13 +32,13 @@
 ;; and then does a bitmap-format XPutImage of the data into it. See
 ;; XCreatePixmapFromBitmapData.
 
-(define (create-pixmap-from-bitmap-data win data widht height 
+(define (create-pixmap-from-bitmap-data window data width height 
 					foregrnd backgrnd depth)
   (let* ((display (window-display window))
 	 (pixmap (create-pixmap-from-bitmap-data (display-Xdisplay display)
 						 (window-Xwindow window)
-						 data widht height foregrnd
+						 data width height foregrnd
-						 backgrd depth)))
+						 backgrnd depth)))
     (make-pixmap pixmap display #t)))
 
 
@@ -47,7 +47,7 @@
   "scx_Create_Pixmap_From_Bitmap_Data")
 
 ;; read-bitmap-file reads the bitmap data from the file, creates a new
-;; pixmap and returns a list of five elements (pixmap widht heigth
+;; pixmap and returns a list of five elements (pixmap width 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;
 
@@ -72,7 +72,7 @@
 	(xy-hot (cond
 		 ((null? hotspot) (cons -1 -1))
 		 (else (car hotspot)))))
-    (%write-bitmap-file dpy filename pixmap widht height 
+    (%write-bitmap-file dpy filename pixmap width height 
 			(car xy-hot) (cdr xy-hot))))
 
 (import-lambda-definition %write-bitmap-file (Xdisplay file Xpixmap w h x y)

scheme/xlib/property.scm

@@ -6,7 +6,7 @@
 ; --- RETURN: atom
 
 (define (intern-atom display name)
-  (make-atom  (%intern_atom (display-Xdisplay display)
+  (make-atom  (%intern-atom (display-Xdisplay display)
 			    (if (symbol? name)
 				(symbol->string name)
 				name))))
@@ -125,7 +125,7 @@
 ; --- RETURN -> "void"
 
 (define (convert-selection selection target property requestor-window time)
-  (%convert-selection (display-Xdisplay (window-display requestor-windw))
+  (%convert-selection (display-Xdisplay (window-display requestor-window))
 		      (atom-Xatom selection)
 		      (atom-Xatom target)
 		      (if (eq? 'none property)

scheme/xlib/region.scm

@@ -51,7 +51,7 @@
 ;; XRectInRegion.
 
 (define (rectangle-in-region? region rectangle)
-  (case (%rectanlge-in-region? (region-Xregion region)
+  (case (%rectangle-in-region? (region-Xregion region)
 			       (car rectangle) (cadr rectangle)
 			       (caddr rectangle) (cadddr rectangle))
     ((0) #f)
@@ -126,7 +126,7 @@
   (%offset-region! (region-Xregion region)
 		   dx dy))
 
-(import-lambda-definition %offset-region (Xregion dx dy)
+(import-lambda-definition %offset-region! (Xregion dx dy)
   "scx_Offset_Region")
 
 ;; shrink-region! reduces the specified region by specified

scheme/xlib/text.scm

@@ -102,10 +102,10 @@
 (define (extents-intern id)
   (lambda (font text . format)
     (let ((format (if (null? format) '1-byte (car format))))
-      (%extents (font-Xfontstruct font)
+      (%extents-text (font-Xfontstruct font)
-		(text->internal-text text format)
+		     (text->internal-text text format)
-		(get-format-id format)
+		     (get-format-id format)
-		id))))
+		     id))))
 
 (define extents-lbearing (extents-intern 0))
 (define extents-rbearing (extents-intern 1))

scheme/xlib/xlib-packages.scm

@@ -66,7 +66,9 @@
 (define-structure xlib-graphics xlib-graphics-interface
   (open scheme
 	external-calls
-	xlib-types)
+	xlib-types
+	list-lib ;; for fold-right
+	)
   (files graphics))
 
 (define-structure xlib-event xlib-event-interface
@@ -80,7 +82,9 @@
   (open scheme
 	signals  ;; for error
 	external-calls
-	xlib-types)
+	xlib-types
+	bitwise  ;; for bitwise-and, arithmetix-shift
+	)
   (files font))
 
 (define-structure xlib-text xlib-text-interface
@@ -107,6 +111,7 @@
   (open scheme
 	external-calls
 	xlib-types
+	signals ;; for error
 	)
   (files wm))
 
@@ -115,6 +120,7 @@
 	external-calls
 	xlib-types
 	xlib-display ;; for check-screen-number
+	signals ;; for error
 	)
   (files client))
 

scheme/xlib/xlib-type-package.scm

@@ -15,7 +15,9 @@
 	general-tables
 	primitives
 	define-record-types
-	external-calls)
+	external-calls
+	byte-vectors ;; for color-type.scm
+	)
   (files helper
 	 display-type 
 	 color-type