+ ADD-SEL-IF-OPTION!

+ DELETE-SEL-IF-OPTION!
This commit is contained in:
interp 2003-05-10 12:10:32 +00:00
parent 6bea1e6a0c
commit bd6a537197
2 changed files with 23 additions and 0 deletions

View File

@ -330,6 +330,8 @@
sel-if-option? sel-if-option?
select-sel-if-option! select-sel-if-option!
unselect-sel-if-option! unselect-sel-if-option!
add-sel-if-option!
delete-sel-if-option!
set-sel-if-option-selected?! set-sel-if-option-selected?!
make-radio-input-field-group make-radio-input-field-group

View File

@ -196,6 +196,27 @@
(define (unselect-sel-if-option! tag sel-if) (define (unselect-sel-if-option! tag sel-if)
(set-select-input-field-option-selected?! tag sel-if #f)) (set-select-input-field-option-selected?! tag sel-if #f))
(define (add-sel-if-option! sel-if sel-if-option)
(let ((attributes (input-field-attributes sel-if)))
(set-input-field-attributes-default!
attributes
(cons sel-if-option
(input-field-attributes-default attributes)))
(touch-input-field! sel-if)))
(define (delete-sel-if-option! sel-if sel-if-option)
(let* ((attributes (input-field-attributes sel-if))
(sel-if-options (input-field-attributes-default attributes)))
(if (sel-if-option? sel-if-option)
(set-input-field-attributes-default!
attributes
(delete sel-if-option sel-if-options))
(let ((tag sel-if-option))
(set-input-field-attributes-default!
attributes
(delete tag sel-if-options tag=sel-if-option?))))
(touch-input-field! sel-if)))
(define (set-select-input-field-option-selected?! tag sel-if selected?) (define (set-select-input-field-option-selected?! tag sel-if selected?)
(let ((options (input-field-attributes-default (let ((options (input-field-attributes-default
(input-field-attributes sel-if)))) (input-field-attributes sel-if))))