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

added option-type binding-list

This commit is contained in:
frese 2003-05-01 14:00:48 +00:00
parent ec01b31f94
commit 2ad315e33d
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/utils.scm
View File

@ -162,7 +162,7 @@
(define-enumerated-type option-type :option-type (define-enumerated-type option-type :option-type
option-type? option-types option-type-name option-type-index option-type? option-types option-type-name option-type-index
(int number inexact exact string symbol font color colors (int number inexact exact string symbol font color colors
boolean symbol-list keys keys-list sexp)) boolean symbol-list keys keys-list sexp binding-list))
(define-syntax define-options-spec (define-syntax define-options-spec
(syntax-rules (syntax-rules
@ -213,6 +213,13 @@
def))) def)))
((eq? type (option-type sexp)) ((eq? type (option-type sexp))
def) def)
((eq? type (option-type binding-list))
(and (check def list?)
(map (lambda (b)
(let ((k (allocate-option dpy colormap name
(option-type keys) (car b))))
(cons k (cdr b))))
def)))
(else (error "option type not implemented" name type))))) (else (error "option type not implemented" name type)))))
;; *** keys utilities ************************************************ ;; *** keys utilities ************************************************