[R-gui] pseudo radiobutton from check boxes

[Adrian DUSA]

As usual, the solution is found immediatly after posting...
The option I was looking for is "deselect", as in:
tkdeselect(option4CB)

Sorry to have waisted your time,
Adrian

On Sunday 28 May 2006 16:45, Adrian DUSA wrote:
> Dear list members,
>
> I have a question related to tcltk programming. I'd like to create 4 check
> boxes with different options; that's easy, but I want the 4th option to
> deactivate the first three and viceversa: if any of the first three check
> boxes has been activated, this should deactivate the fourth check box.
>
> I've written a draft code below, but I feel I misunderstand the usage of
> "command". In my mind, this is only activated when the user presses the
> button with the mouse. Instead, it seems like the command is activated each
> time when the button chages its state. Is there another option I could use
> for this purpose?
>
> Thank you in advance,
> Adrian
>
> require(tcltk)
> top <- tktoplevel()
>
> cbOptions <- c("option1", "option2", "option3", "option4")
> cbLabels <- c("Option A:", "Option B:", "Option C:", "Option D:")
> initialValues <- c(0, 0, 0, 0)
> cbVariable <- tclVar("0")
>
> option13Command <- function() {
>     tkconfigure(option4CB, variable=cbVariable)
>     }
>
> option4Command <- function() {
>     tkconfigure(option1CB, variable=cbVariable)
>     tkconfigure(option2CB, variable=cbVariable)
>     tkconfigure(option3CB, variable=cbVariable)
>     }
>
> option1CB <- tkcheckbutton(top)
> option1Variable <- tclVar(initialValues[1])
> tkconfigure(option1CB, variable=option1Variable, command=option13Command)
> tkgrid(tklabel(top, text=cbLabels[1]), option1CB, sticky="e")
>
> option2CB <- tkcheckbutton(top)
> option2Variable <- tclVar(initialValues[2])
> tkconfigure(option2CB, variable=option2Variable, command=option13Command)
> tkgrid(tklabel(top, text=cbLabels[2]), option2CB, sticky="e")
>
> option3CB <- tkcheckbutton(top)
> option3Variable <- tclVar(initialValues[3])
> tkconfigure(option3CB, variable=option3Variable, command=option13Command)
> tkgrid(tklabel(top, text=cbLabels[3]), option3CB, sticky="e")
>
> option4CB <- tkcheckbutton(top)
> option4Variable <- tclVar(initialValues[4])
> tkconfigure(option4CB, variable=option4Variable, command=option4Command)
> tkgrid(tklabel(top, text=cbLabels[4]), option4CB, sticky="e")

-- 
Adrian DUSA
Romanian Social Data Archive
1, Schitu Magureanu Bd
050025 Bucharest sector 5
Romania
Tel./Fax: +40 21 3126618 \
          +40 21 3120210 / int.101