Update of /cvsroot/scsh/scx/scheme/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv27064
Modified Files:
colormap.scm window-type.scm
Log Message:
added comments.
Index: colormap.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/colormap.scm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** colormap.scm 2001/07/09 13:49:38 1.2
--- colormap.scm 2001/07/16 13:37:28 1.3
***************
*** 1,4 ****
--- 1,7 ----
;; 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)
***************
*** 12,16 ****
"Alloc_Color")
! ;; ...
(define (alloc-named-color colormap color-name)
--- 15,22 ----
"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)
Index: window-type.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/window-type.scm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** window-type.scm 2001/07/09 13:45:36 1.1
--- window-type.scm 2001/07/16 13:37:28 1.2
***************
*** 35,39 ****
(window-list-delete! Xwindow)))
! ;; ...
(define (destroy-window window)
--- 35,41 ----
(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)
|