GetRCParameter <- function() {

     pW1 <- list(Name="Number of Clusters", Value=1,
                 toText=function(x) paste(x,collapse= ","), fromText=NULL,
                 canEdit=TRUE,
                 )

     widget1 <- list(wList = list(nk = pW1),
                     preFun  = function() "Hi",
                     postFun = function() "Bye")

       if(interactive()){
           tt <- widgetRender(widget1, "Parameters Required for Selected Methods")
           getWvalues(tt)
       }else{
           getWvalues(widget1)
       }

}