diff --git a/scheme/xlib/colormap.scm b/scheme/xlib/colormap.scm index d3b8012..610b404 100644 --- a/scheme/xlib/colormap.scm +++ b/scheme/xlib/colormap.scm @@ -1,5 +1,8 @@ ;; Author: David Frese +;; alloc-color returns the pixel closest to the specified color supported by the +;; hardware. See XAllocColor. + (define (alloc-color colormap color) (let ((Xpixel (%alloc-color (colormap-Xcolormap colormap) (color-Xcolor color) @@ -11,7 +14,10 @@ (import-lambda-definition %alloc-color (Xcolormap Xcolor Xdisplay) "Alloc_Color") -;; ... +;; alloc-named-color looks up the named color with respect to the screen that +;; is associated with the specified colormap. It returns both the exact database +;; definition and the closest color supported by the screen (as a pair). +;; See XAllocNamedColor. (define (alloc-named-color colormap color-name) (let ((Xres (%alloc-named-color (colormap-Xcolormap colormap) diff --git a/scheme/xlib/window-type.scm b/scheme/xlib/window-type.scm index 6d1ec97..5ed4900 100644 --- a/scheme/xlib/window-type.scm +++ b/scheme/xlib/window-type.scm @@ -34,7 +34,9 @@ (destroy-window window) (window-list-delete! Xwindow))) -;; ... +;; The destroy-window function destroys the specified window as well as all of +;; its subwindows and causes the X server to generate a destroy-notify event for +;; each window. See XDestroyWindow (define (destroy-window window) (let ((Xdisplay (display-Xdisplay (window-display window)))