----------------------- *** Disclaimer *** -----------------------
This e-mail and its contents are subject to the SA Reserve Bank's
Disclaimer and Confidentiality Clause, which can be viewed at:
http://www.reservebank.co.za/disclaimer
Should you be unable to access the link provided, please send a
blank e-mail to Disclaimer@resbank.co.za 
----------------------- *** Disclaimer *** -----------------------


Dear list,

Using gWidgets, I'm trying to construct a simple GUI where a user can select a variable (in a data.frame) from a drop-down list and then set a limit using a spin-button. Additionally, I want the default to, from and value arguments of the spin-button to equal the min, max and mean of the selected variable, respectively.

How do I get the spin-button to update when the user selects a different variable from the drop-down list?

Here is my amateurish attempt at doing this, but the results are not satisfactory, since it simple keeps adding new spin buttons and it doesn't start up with a spin button.

.simple <- function(x){
   addSpin <- function(h, ...){
      data <- eval(parse(text = paste("x$", svalue(varis), sep = "")))
      spin <- gspinbutton(from = min(data), to = max(data), value = mean(data))
      add(mainG, spin)
      }
   win <- gwindow("Example")
   mainG <- ggroup(horizontal = FALSE, container = win)
   varis <- gdroplist(names(x), container = mainG)
   addhandlerchanged(varis, handler = addSpin)
   }

Any help whatsoever would be most appreciated.

Kind regards,





Stefan Janse van Rensburg
Macroprudential Division
Financial Stability Department
SARB
Tel : 012-313 4687
Fax : 012 313 4772

	[[alternative HTML version deleted]]

