[Stacomir-commits] r373 - pkg/stacomir/R

[noreply at r-forge.r-project.org]

Author: briand
Date: 2017-06-04 08:39:25 +0200 (Sun, 04 Jun 2017)
New Revision: 373

Modified:
   pkg/stacomir/R/RefChoix.r
Log:
Added a button

Modified: pkg/stacomir/R/RefChoix.r
===================================================================
--- pkg/stacomir/R/RefChoix.r	2017-06-04 06:38:44 UTC (rev 372)
+++ pkg/stacomir/R/RefChoix.r	2017-06-04 06:39:25 UTC (rev 373)
@@ -65,11 +65,12 @@
 			add(group,frame_choice)
 			list_libelle=fun_char_spe(object at listechoice)
 			choice=gradio(items=list_libelle,selected=object at selected,horizontal=TRUE,container=frame_choice,handler=hlist)
+			gbutton("OK", container=frame_list,handler=hlist)
 		})
 
 #' Choice_c method for Refchoix referential objects
 #' @param object An object of class \link{RefListe-class}
-#' @param selectedvalue TODO
+#' @param selectedvalue the value selected in the combo
 #' @author Cedric Briand \email{cedric.briand"at"eptb-vilaine.fr}
 #' @examples  
 #' \dontrun{
@@ -96,7 +97,7 @@
 
 #' Multiple Choice method for RefChoix referential objects, to put together with notebook widgets
 #' @param object An object of class \link{RefChoix-class}
-#' @param selected_value TODO
+#' @param selected_value the value selected in the combo
 #' @author Cedric Briand \email{cedric.briand"at"eptb-vilaine.fr}
 setMethod("choicemult",signature=signature("RefChoix"),definition=function(object,
 				selected_value
@@ -117,4 +118,5 @@
 					horizontal=FALSE,
 					container=groupchoice,
 					handler=hlist)		
+			gbutton("OK", container=groupchoice,handler=hlist)
 		})
\ No newline at end of file