-# tmpgraph = tempfile.mktemp(dir=self.parent.parent.TEMPDIR)
-# txt = barplot(table, rownames, colnames, self.parent.parent.RscriptsPath['Rgraph'], tmpgraph)
-# tmpscript = tempfile.mktemp(dir=self.parent.parent.TEMPDIR)
-# with open(tmpscript,'w') as f :
-# f.write(txt)
-# exec_rcode(self.parent.parent.RPath, tmpscript, wait = True)
-# win = MessageImage(self, u"Graphique", size=(700, 500))
-# win.addsaveimage(tmpgraph)
-# txt = "<img src='%s'>" % tmpgraph
-# win.HtmlPage.SetPage(txt)
-# win.Show(True)