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

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

Author: briand
Date: 2017-06-09 15:55:49 +0200 (Fri, 09 Jun 2017)
New Revision: 392

Modified:
   pkg/stacomir/R/BilanMigrationMultConditionEnv.r
   pkg/stacomir/R/interface_BilanMigrationMultConditionEnv.r
Log:
Correction of a pb with widgets 

Modified: pkg/stacomir/R/BilanMigrationMultConditionEnv.r
===================================================================
--- pkg/stacomir/R/BilanMigrationMultConditionEnv.r	2017-06-09 13:44:19 UTC (rev 391)
+++ pkg/stacomir/R/BilanMigrationMultConditionEnv.r	2017-06-09 13:55:49 UTC (rev 392)
@@ -117,6 +117,7 @@
 	bmmCE<-connect(bmmCE)
 	bmmCE<-calcule(bmmCE)
 	assign("bmmCE",bmmCE,envir_stacomi)
+	toolbarlist<-get("toolbarlist",envir_stacomi)
 	enabled(toolbarlist[["Graph"]])<-TRUE
 	return(invisible(NULL))	
 }

Modified: pkg/stacomir/R/interface_BilanMigrationMultConditionEnv.r
===================================================================
--- pkg/stacomir/R/interface_BilanMigrationMultConditionEnv.r	2017-06-09 13:44:19 UTC (rev 391)
+++ pkg/stacomir/R/interface_BilanMigrationMultConditionEnv.r	2017-06-09 13:55:49 UTC (rev 392)
@@ -59,7 +59,6 @@
 					icon = "close",
 					label="quitter"))
 	assign("toolbarlist",toolbarlist,envir=envir_stacomi)
-	enabled(toolbarlist[["Graph"]])<-FALSE
 	gWidgets::add(ggroupboutonsbas, gtoolbar(toolbarlist))
 	assign("ggroupboutonsbas",ggroupboutonsbas,envir=envir_stacomi)	
 	gWidgets::addSpring(group)