Without text the selected flag would not work.
Instead of:
(define (radio-button id action text selected)
(if text
(net-send out (string "radio-button " id " " action " " (base64-enc text) " " selected "n"))
(net-send out (string "radio-button " id " " action "n")))
)
(define (check-box id action text selected)
(if text
(net-send out (string "check-box " id " " action " " (base64-enc text) " " selected "n"))
(net-send out (string "check-box " id " " action "n")))
)
it should read:
(define (radio-button id action text selected)
(if text
(net-send out (string "radio-button " id " " action " " (base64-enc text) " " selected "n"))
(net-send out (string "radio-button " id " " action " nil " selected "n")))
)
(define (check-box id action text selected)
(if text
(net-send out (string "check-box " id " " action " " (base64-enc text) " " selected "n"))
(net-send out (string "check-box " id " " action " nil " selected "n")))
)
Quote
This is how the syntax pattern specifies it. All functions with more than one optional parameter work this way. It makes for easier understanding of source code when you don't know the internal workings of the API functions.
Lutz
I do not get it.
Without a text I can not preset the status?
You could either do:
; or do
(gs:radio-button 'mybutton 'handler)
(gs:set-selected 'mybutton true)
In most cases users will specify some text for the radio button. So the second case will hardly ever occur.
Lutz