scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added comments.

This commit is contained in:
frese 2001-07-16 13:37:28 +00:00
parent 2cab5071f3
commit a2335aa0bb
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/xlib/colormap.scm
View File

@ -1,5 +1,8 @@
;; Author: David Frese ;; Author: David Frese
;; alloc-color returns the pixel closest to the specified color supported by the
;; hardware. See XAllocColor.
(define (alloc-color colormap color) (define (alloc-color colormap color)
(let ((Xpixel (%alloc-color (colormap-Xcolormap colormap) (let ((Xpixel (%alloc-color (colormap-Xcolormap colormap)
(color-Xcolor color) (color-Xcolor color)
@ -11,7 +14,10 @@
(import-lambda-definition %alloc-color (Xcolormap Xcolor Xdisplay) (import-lambda-definition %alloc-color (Xcolormap Xcolor Xdisplay)
"Alloc_Color") "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) (define (alloc-named-color colormap color-name)
(let ((Xres (%alloc-named-color (colormap-Xcolormap colormap) (let ((Xres (%alloc-named-color (colormap-Xcolormap colormap)

4
scheme/xlib/window-type.scm
View File

@ -34,7 +34,9 @@
(destroy-window window) (destroy-window window)
(window-list-delete! Xwindow))) (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) (define (destroy-window window)
(let ((Xdisplay (display-Xdisplay (window-display window))) (let ((Xdisplay (display-Xdisplay (window-display window)))