iramuteq.org Git - iramuteq/blob - iramuteq.py

   1 #!/bin/env python
   2 # -*- coding: utf-8 -*-
   3 #Author: Pierre Ratinaud
   4 #Copyright (c) 2008-2012, Pierre Ratinaud
   5 #License: GNU GPL
   6
   7 from optparse import OptionParser
   8
   9 parser = OptionParser()
  10 parser.add_option("-f", "--file", dest="filename",
  11                   help="open FILE", metavar="FILE", default=False)
  12 (options, args) = parser.parse_args()
  13
  14 #print args
  15 #print options
  16 import sys
  17 reload(sys)
  18 import locale
  19 import tempfile
  20 import codecs
  21 import os
  22 import shutil
  23 from random import randint
  24 from ConfigParser import *
  25 import webbrowser
  26 import gettext
  27 import logging
  28 #------------------------------------
  29 import wx
  30 #import wx.aui
  31 import wx.lib.agw.aui as aui
  32 import wx.html
  33 import wx.grid
  34 import wx.lib.hyperlink as hl
  35 #------------------------------------
  36 from functions import BugReport, PlaySound, ReadLexique, History, DoConf, ReadDicoAsDico, progressbar
  37 from checkversion import NewVersion
  38 from guifunct import *
  39 from tableau import Tableau
  40 from dialog import PrefDialog, CorpusPref
  41 from tabfrequence import Frequences
  42 from tabchi2 import ChiSquare
  43 #from tabstudent import MakeStudent
  44 from tabchddist import ChdCluster
  45 from tabafcm import DoAFCM
  46 from tabchdalc import AnalyseQuest
  47 from tabsimi import DoSimi
  48 from tabrsimple import InputText
  49 from tabverges import Prototypical
  50 from tabsplitvar import SplitMatrixFromVar
  51 #from textafcuci import AfcUci
  52 from textdist import AnalysePam
  53 from textstat import Stat
  54 from textaslexico import Lexico
  55 from textsimi import SimiTxt, SimiFromCluster
  56 from textwordcloud import WordCloud, ClusterCloud
  57 from textreinert import Reinert
  58 #from profile_segment import ProfileSegment
  59 #from textcheckcorpus import checkcorpus
  60 from openanalyse import OpenAnalyse
  61 from corpus import Builder, SubBuilder
  62 #from sheet import MySheet
  63 from checkinstall import CreateIraDirectory, CheckRPath, FindRPAthWin32, FindRPathNix, CheckRPackages, IsNew, UpgradeConf, CopyConf, RLibsAreInstalled
  64 from chemins import RscriptsPath, ConstructConfigPath, ConstructDicoPath, ConstructGlobalPath, PathOut
  65 from parse_factiva_xml import ImportFactiva
  66 from tools import Extract
  67
  68 from tree import LeftTree
  69 ##########################################################
  70 ID_OpenData = wx.NewId()
  71 ID_Import = wx.NewId()
  72 ID_OpenText = wx.NewId()
  73 ID_OnOpenAnalyse = wx.NewId()
  74 ID_Freq = wx.NewId()
  75 ID_Chi2 = wx.NewId()
  76 ID_Student = wx.NewId()
  77 ID_CHDSIM = wx.NewId()
  78 ID_CHDReinert = wx.NewId()
  79 ID_TEXTAFCM = wx.NewId()
  80 ID_TEXTSTAT = wx.NewId()
  81 ID_ASLEX = wx.NewId()
  82 ID_TEXTREINERT = wx.NewId()
  83 ID_TEXTPAM = wx.NewId()
  84 ID_CHECKCORPUS = wx.NewId()
  85 ID_Tabcontent = wx.NewId()
  86 ID_AFCM = wx.NewId()
  87 ID_SIMI = wx.NewId()
  88 ID_CloseTab = wx.NewId()
  89 ID_SaveTab = wx.NewId()
  90 ID_CreateText = wx.NewId()
  91 ID_ACCEUIL = wx.NewId()
  92 ID_RESULT = wx.NewId()
  93 ID_VIEWDATA = wx.NewId()
  94 ID_HTMLcontent = wx.NewId()
  95 ID_SimiTxt = wx.NewId()
  96 ID_proto = wx.NewId()
  97 ID_ImportTXM = wx.NewId()
  98 ##########################################################
  99 #elements de configuration
 100 ##########################################################
 101 #encodage
 102 if sys.platform == 'darwin' :
 103     sys.setdefaultencoding('UTF-8')
 104     wx.SetDefaultPyEncoding('UTF-8')
 105 else :
 106     sys.setdefaultencoding(locale.getpreferredencoding())
 107
 108 #chemin de l'application
 109 AppliPath = os.path.abspath(os.path.dirname(os.path.realpath(sys.argv[0])))
 110 #chemin des images
 111 ImagePath = os.path.join(AppliPath, 'images')
 112 #configuration generale
 113 DictConfigPath = ConstructGlobalPath(AppliPath)
 114 ConfigGlob = ConfigParser()
 115 ConfigGlob.read(DictConfigPath['global'])
 116 #repertoire de l'utilisateur
 117 if os.getenv('HOME') != None:
 118     user_home = os.getenv('HOME')
 119 else:
 120     user_home = os.getenv('HOMEPATH')
 121 UserConfigPath = os.path.abspath(os.path.join(user_home, '.iramuteq'))
 122 #Si pas de fichiers de config utilisateur, on cree le repertoire
 123 CreateIraDirectory(UserConfigPath, AppliPath)
 124 #fichiers log pour windows (py2exe)
 125 log = logging.getLogger('iramuteq')
 126 fh = logging.FileHandler(os.path.join(UserConfigPath,'stdout.log'))
 127 formatter = logging.Formatter('%(asctime)s - %(levelname)s - %(message)s')
 128 fh.setFormatter(formatter)
 129 log.addHandler(fh)
 130 if sys.platform != 'win32' and sys.platform != 'darwin':
 131     ch = logging.StreamHandler()
 132     ch.setFormatter(formatter)
 133     log.addHandler(ch)
 134 log.setLevel(logging.INFO)
 135
 136 class writer(object):
 137     def write(self, data):
 138         if data.strip() != '' :
 139             log.info('ERROR : %s' % data)
 140
 141 class printer(object) :
 142     def write(self, data) :
 143         if data.strip() != '' :
 144             log.info('Print : %s' % data)
 145
 146 sys.stderr = writer()
 147 sys.stdout = printer()
 148
 149 ConfigPath = ConstructConfigPath(UserConfigPath)
 150
 151 langues = {'french' : wx.LANGUAGE_FRENCH,
 152             'english' : wx.LANGUAGE_ENGLISH,}
 153 #####################################################################
 154
 155 class IraFrame(wx.Frame):
 156     def __init__(self, parent, id= -1, title="", pos=wx.DefaultPosition,
 157                  size=wx.DefaultSize, style=wx.DEFAULT_FRAME_STYLE |
 158                                             wx.SUNKEN_BORDER |
 159                                             wx.CLIP_CHILDREN):
 160         log.info('Starting...')
 161         wx.Frame.__init__(self, parent, id, title, pos, size, style)
 162         #configuration
 163         self.AppliPath = AppliPath
 164         self.images_path = os.path.join(AppliPath,'images')
 165         self.UserConfigPath = UserConfigPath
 166         #self.RscriptsPath = ConstructRscriptsPath(AppliPath)
 167         self.RscriptsPath = PathOut(dirout=os.path.join(AppliPath, 'Rscripts'))
 168         self.RscriptsPath.basefiles(RscriptsPath)
 169         #self.DictPath = ConstructDicoPath(AppliPath)
 170         self.DictPath = ConstructDicoPath(UserConfigPath)
 171         self.ConfigGlob = ConfigGlob
 172         self.ConfigPath = ConstructConfigPath(UserConfigPath)
 173         self.pref = RawConfigParser()
 174         #workaround for import problem
 175         self.SimiFromCluster = SimiFromCluster
 176         #langues
 177         gettext.install('iramuteq',  os.path.join(AppliPath,'locale'), unicode=True)
 178         #langues = ['fr_FR', 'en', 'pt_PT']
 179         #for l in langues :
 180         #    pass
 181         self.presLan_fr = gettext.translation("iramuteq", os.path.join(AppliPath,'locale'), languages=['fr_FR'])
 182         self.presLan_en = gettext.translation("iramuteq", os.path.join(AppliPath,'locale'), languages=['en'])
 183         self.setlangue()
 184         # tell FrameManager to manage this frame
 185         #self._mgr = wx.aui.AuiManager()
 186         self._mgr = aui.AuiManager()
 187         self._mgr.SetManagedWindow(self)
 188         self.x = 0
 189         # create menu
 190 #--------------------------------------------------------------------------------
 191         self.mb = wx.MenuBar()
 192
 193         file_menu = wx.Menu()
 194         item = wx.MenuItem(file_menu, ID_OpenData, _(u"Open a matrix").decode('utf8'), _(u"Open a matrix").decode('utf8'))
 195         item.SetBitmap(wx.ArtProvider_GetBitmap(wx.ART_FILE_OPEN))
 196         file_menu.AppendItem(item)
 197
 198         item = wx.MenuItem(file_menu, ID_OpenText, _(u"Open a text corpus").decode('utf8'), _(u"Open a text corpus").decode('utf8'))
 199         item.SetBitmap(wx.ArtProvider_GetBitmap(wx.ART_FILE_OPEN))
 200         file_menu.AppendItem(item)
 201
 202         item = wx.MenuItem(file_menu, ID_OnOpenAnalyse, _(u"Open an analysis").decode('utf8'), _(u"Open an analysis").decode('utf8'))
 203         item.SetBitmap(wx.ArtProvider_GetBitmap(wx.ART_FILE_OPEN))
 204         file_menu.AppendItem(item)
 205
 206
 207         menuFactiva = wx.Menu()
 208         fact_from_xml = wx.MenuItem(menuFactiva, wx.ID_ANY, _(u"from xml").decode('utf8'))
 209         fact_from_mail = wx.MenuItem(menuFactiva, wx.ID_ANY, _(u"from mail").decode('utf8'))
 210         fact_from_txt = wx.MenuItem(menuFactiva, wx.ID_ANY, _(u"from copy/paste").decode('utf8'))
 211         menuFactiva.AppendItem(fact_from_xml)
 212         menuFactiva.AppendItem(fact_from_mail)
 213         menuFactiva.AppendItem(fact_from_txt)
 214         file_menu.AppendMenu(-1, _(u"Import from factiva").decode('utf8'), menuFactiva)
 215
 216         item = wx.MenuItem(file_menu, ID_ImportTXM, _(u"Import from TXM").decode('utf8'), _(u"Import from TXM").decode('utf8'))
 217         item.SetBitmap(wx.ArtProvider_GetBitmap(wx.ART_FILE_OPEN))
 218         file_menu.AppendItem(item)
 219
 220         menuTools = wx.Menu()
 221         splitvar = wx.MenuItem(menuTools, wx.ID_ANY, _(u"Split from variable").decode('utf8'))
 222         extractmod = wx.MenuItem(menuTools, wx.ID_ANY, _(u"Extract mods").decode('utf8'))
 223         extractthem = wx.MenuItem(menuTools, wx.ID_ANY, _(u"Extract thematics").decode('utf8'))
 224         menuTools.AppendItem(splitvar)
 225         menuTools.AppendItem(extractmod)
 226         menuTools.AppendItem(extractthem)
 227         self.ID_splitvar = splitvar.GetId()
 228         self.ID_extractmod = extractmod.GetId()
 229         self.ID_extractthem = extractthem.GetId()
 230         file_menu.AppendMenu(-1, _(u"Tools").decode('utf8'), menuTools)
 231
 232
 233         #item = wx.MenuItem(file_menu, ID_SaveTab, _(u"Save tab as...").decode('utf8'), _(u"Save tab as...").decode('utf8'))
 234         #item.SetBitmap(wx.ArtProvider_GetBitmap(wx.ART_FILE_SAVE_AS))
 235         #file_menu.AppendItem(item)
 236
 237         file_menu.Append(wx.ID_EXIT, _(u"Exit").decode('utf8'))
 238
 239         edit_menu = wx.Menu()
 240         edit_menu.Append(wx.ID_PREFERENCES, '', _(u'Preferences').decode('utf8'))
 241
 242         view_menu = wx.Menu()
 243         view_menu.Append(ID_ACCEUIL, _(u"Home page").decode('utf8'))
 244         view_menu.Append(ID_VIEWDATA, _(u"Show data").decode('utf8'))
 245         view_menu.Append(ID_RESULT, _(u'Show results').decode('utf8'))
 246         #view_menu.AppendSeparator()
 247         matrix_menu = wx.Menu()
 248         matrix_menu.Append(ID_Freq, _(u"Frequencies").decode('utf8'))
 249         matrix_menu.Append(ID_Chi2, _(u"Chi2").decode('utf8'))
 250         #matrix_menu.Append(ID_Student, u"t de Student")
 251         menu_classif = wx.Menu()
 252         menu_classif.Append(ID_CHDReinert, _(u"Reinert's Method").decode('utf8'))
 253         #menu_classif.Append(ID_CHDSIM, u"Par matrice des distances")
 254         matrix_menu.AppendMenu(-1, _(u"Clustering").decode('utf8'), menu_classif)
 255         #matrix_menu.Append(ID_AFCM, u"AFCM")
 256         matrix_menu.Append(ID_SIMI, _(u"Similarities Analysis").decode('utf8'))
 257         matrix_menu.Append(ID_proto, _(u"Prototypical Analysis").decode('utf8'))
 258         ID_RCODE = wx.NewId()
 259         matrix_menu.Append(ID_RCODE, u"Code R...")
 260         #menu_splittab = wx.Menu()
 261         #ID_SPLITVAR = wx.NewId()
 262         #splitvar = wx.MenuItem(menu_splittab, ID_SPLITVAR, _(u"Split from variable").decode('utf8'))
 263         #menu_splittab.AppendItem(splitvar)
 264         #matrix_menu.AppendMenu(-1, _(u"Split matrix").decode('utf8'), menu_splittab)
 265         self.matrix_menu = matrix_menu
 266
 267         text_menu = wx.Menu()
 268         #text_menu.Append(ID_CHECKCORPUS, u"Vérifier le corpus")
 269         text_menu.Append(ID_TEXTSTAT, _(u"Statistics").decode('utf8'))
 270         text_menu.Append(ID_ASLEX, _(u"Specificities and CA").decode('utf8'))
 271         #text_menu.Append(ID_TEXTAFCM, u"AFC sur UCI / Vocabulaire")
 272         menu_classiftxt = wx.Menu()
 273         menu_classiftxt.Append(ID_TEXTREINERT, _(u"Reinert's Method").decode('utf8'))
 274         #menu_classiftxt.Append(ID_TEXTPAM, u"Par matrice des distances")
 275         text_menu.AppendMenu(-1, _(u"Clustering").decode('utf8'), menu_classiftxt)
 276         text_menu.Append(ID_SimiTxt, _(u"Similarities Analysis").decode('utf8'))
 277         ID_WC = wx.NewId()
 278         text_menu.Append(ID_WC, _(u"WordCloud").decode('utf8'))
 279         self.text_menu = text_menu
 280
 281         help_menu = wx.Menu()
 282         help_menu.Append(wx.ID_ABOUT, _(u"About...").decode('utf8'))
 283         help_menu.Append(wx.ID_HELP, _(u"Online help...").decode('utf8'))
 284
 285         self.mb.Append(file_menu, _(u"File").decode('utf8'))
 286         self.mb.Append(edit_menu, _(u"Edition").decode('utf8'))
 287         self.mb.Append(view_menu, _(u"View").decode('utf8'))
 288         self.mb.Append(matrix_menu, _(u"Matrix analysis").decode('utf8'))
 289         self.mb.Append(text_menu, _(u"Text analysis").decode('utf8'))
 290         self.mb.Append(help_menu, _(u"Help").decode('utf8'))
 291
 292         self.SetMenuBar(self.mb)
 293 #--------------------------------------------------------------------
 294         self.statusbar = self.CreateStatusBar(2, wx.ST_SIZEGRIP)
 295         self.statusbar.SetStatusWidths([-2, -3])
 296         self.statusbar.SetStatusText(u"Prêt", 0)
 297         self.statusbar.SetStatusText(u"Bienvenue", 1)
 298
 299         # min size for the frame itself isn't completely done.
 300         # see the end up FrameManager::Update() for the test
 301         # code. For now, just hard code a frame minimum size
 302         self.SetMinSize(wx.Size(400, 400))
 303
 304         # create some toolbars
 305         tb1 = wx.ToolBar(self, -1, wx.DefaultPosition, wx.DefaultSize,
 306                          wx.TB_FLAT | wx.TB_NODIVIDER)
 307         tb1.SetToolBitmapSize(wx.Size(16, 16))
 308         tb1.AddLabelTool(ID_OpenData, "OpenData", wx.ArtProvider_GetBitmap(wx.ART_FILE_OPEN, wx.ART_OTHER, wx.Size(16, 16)), shortHelp="Questionnaire", longHelp="Ouvrir un questionnaire")
 309         tb1.AddSeparator()
 310         tb1.AddLabelTool(ID_OpenText, "OpenText", wx.ArtProvider_GetBitmap(wx.ART_FILE_OPEN, wx.ART_OTHER, wx.Size(16, 16)), shortHelp="Texte", longHelp="Ouvrir un corpus texte")
 311
 312         tb1.Realize()
 313
 314 #------------------------------------------------------------------------------------------------
 315
 316         self.text_ctrl_txt = wx.TextCtrl(self, -1, "", wx.Point(0, 0), wx.Size(200, 200), wx.NO_BORDER | wx.TE_MULTILINE | wx.TE_RICH2 | wx.TE_READONLY)
 317
 318         #self._mgr.AddPane(self.text_ctrl_txt, wx.aui.AuiPaneInfo().
 319         #                  Name("Text").CenterPane())
 320         self._mgr.AddPane(self.text_ctrl_txt, aui.AuiPaneInfo().
 321                           Name("Text").CenterPane())
 322         #self._mgr.AddPane(IntroPanel(self), wx.aui.AuiPaneInfo().Name("Intro_Text").
 323         #                  CenterPane())
 324         self._mgr.AddPane(IntroPanel(self), aui.AuiPaneInfo().Name("Intro_Text").
 325                           CenterPane())
 326         #if not os.path.exists(os.path.join(UserConfigPath, 'history.db')) :
 327         #    with open(os.path.join(UserConfigPath, 'history.db'), 'w') as f :
 328         #        f.write('')
 329         self.history = History(os.path.join(UserConfigPath, 'history.db'))
 330         self.tree = LeftTree(self)
 331         self._mgr.AddPane(self.tree, aui.AuiPaneInfo().Name("lefttree").Caption(_(u"Navigator").decode('utf8')).
 332                           Left().MinSize(wx.Size(200,500)).Layer(1).Position(1).CloseButton(False).MaximizeButton(True).
 333                           MinimizeButton(True))
 334
 335         #self.nb = wx.aui.AuiNotebook(self, -1, wx.DefaultPosition, wx.DefaultSize, wx.aui.AUI_NB_DEFAULT_STYLE | wx.aui.AUI_NB_TAB_EXTERNAL_MOVE | wx.aui.AUI_NB_TAB_MOVE | wx.aui.AUI_NB_TAB_FLOAT| wx.NO_BORDER)
 336         self.nb = aui.AuiNotebook(self, -1, wx.DefaultPosition, wx.DefaultSize, aui.AUI_NB_DEFAULT_STYLE | aui.AUI_NB_TAB_EXTERNAL_MOVE | aui.AUI_NB_TAB_MOVE | aui.AUI_NB_TAB_FLOAT| wx.NO_BORDER)
 337         notebook_flags =  aui.AUI_NB_DEFAULT_STYLE | aui.AUI_NB_TAB_EXTERNAL_MOVE | aui.AUI_NB_TAB_MOVE | aui.AUI_NB_TAB_FLOAT| wx.NO_BORDER
 338         self.nb.SetAGWWindowStyleFlag(notebook_flags)
 339         self.nb.SetArtProvider(aui.ChromeTabArt())
 340         #self.nb.SetArtProvider(aui.VC8TabArt())
 341         #self.nb.parent = self
 342         #self._notebook_style = aui.AUI_NB_DEFAULT_STYLE | aui.AUI_NB_TAB_EXTERNAL_MOVE | wx.NO_BORDER
 343         #self._mgr.AddPane(self.nb, wx.aui.AuiPaneInfo().
 344         #                      Name("Tab_content").
 345         #                      CenterPane())
 346         self._mgr.AddPane(self.nb, aui.AuiPaneInfo().
 347                               Name("Tab_content").
 348                               CenterPane())
 349
 350         #self._mgr.AddPane(self.Sheet, wx.aui.AuiPaneInfo().Name("Data").CenterPane())
 351         #self._mgr.AddPane(self.Sheet, aui.AuiPaneInfo().Name("Data").CenterPane())
 352         self.nb.Bind(aui.EVT_AUINOTEBOOK_PAGE_CLOSE, self.OnCloseTab)
 353         self.nb.Bind(aui.EVT_AUINOTEBOOK_PAGE_CHANGED, self.OnPageChanged)
 354         # add the toolbars to the manager
 355
 356         #self._mgr.AddPane(tb1, wx.aui.AuiPaneInfo().
 357         #                  Name("tb1").Caption("Fichiers").
 358         #                  ToolbarPane().Top().
 359         #                  LeftDockable(False).RightDockable(False))
 360         self._mgr.AddPane(tb1, aui.AuiPaneInfo().
 361                           Name("tb1").Caption("Fichiers").
 362                           ToolbarPane().Top().
 363                           LeftDockable(True).RightDockable(False))
 364
 365         self.ShowAPane("Intro_Text")
 366         self._mgr.GetPane("lefttree").Show()
 367         self._mgr.GetPane("classif_tb").Hide()
 368         # "commit" all changes made to FrameManager
 369         self._mgr.Update()
 370
 371         # Show How To Use The Closing Panes Event
 372 ##################################################################
 373         self.Bind(wx.EVT_MENU, self.OnAcceuil, id=ID_ACCEUIL)
 374         self.Bind(wx.EVT_MENU, self.OnViewData, id=ID_VIEWDATA)
 375         self.Bind(wx.EVT_MENU, self.ShowTab, id=ID_RESULT)
 376         self.Bind(wx.EVT_MENU, self.OnOpenData, id=ID_OpenData)
 377         self.Bind(wx.EVT_MENU, self.OnOpenText, id=ID_OpenText)
 378         self.Bind(wx.EVT_MENU, self.OnOpenAnalyse, id=ID_OnOpenAnalyse)
 379         self.Bind(wx.EVT_MENU, self.import_factiva_xml, fact_from_xml)
 380         self.Bind(wx.EVT_MENU, self.import_factiva_mail, fact_from_mail)
 381         self.Bind(wx.EVT_MENU, self.import_factiva_txt, fact_from_txt)
 382         self.Bind(wx.EVT_MENU, self.ExtractTools, splitvar)
 383         self.Bind(wx.EVT_MENU, self.ExtractTools, extractmod)
 384         self.Bind(wx.EVT_MENU, self.ExtractTools, extractthem)
 385         self.Bind(wx.EVT_MENU, self.OnFreq, id=ID_Freq)
 386         self.Bind(wx.EVT_MENU, self.OnChi2, id=ID_Chi2)
 387         self.Bind(wx.EVT_MENU, self.OnStudent, id=ID_Student)
 388         self.Bind(wx.EVT_MENU, self.OnCHDSIM, id=ID_CHDSIM)
 389         self.Bind(wx.EVT_MENU, self.OnCHDReinert, id=ID_CHDReinert)
 390         self.Bind(wx.EVT_MENU, self.OnAFCM, id=ID_AFCM)
 391         self.Bind(wx.EVT_MENU, self.OnProto, id=ID_proto)
 392         self.Bind(wx.EVT_MENU, self.OnRCode, id=ID_RCODE)
 393         #self.Bind(wx.EVT_MENU, self.OnSplitVar, id=ID_SPLITVAR)
 394         #self.Bind(wx.EVT_MENU, self.OnCheckcorpus, id = ID_CHECKCORPUS)
 395         self.Bind(wx.EVT_MENU, self.OnTextStat, id=ID_TEXTSTAT)
 396         self.Bind(wx.EVT_MENU, self.OnTextSpec, id=ID_ASLEX)
 397         self.Bind(wx.EVT_MENU, self.OnTextAfcm, id=ID_TEXTAFCM)
 398         self.Bind(wx.EVT_MENU, self.OnTextReinert, id=ID_TEXTREINERT)
 399         self.Bind(wx.EVT_MENU, self.OnPamSimple, id=ID_TEXTPAM)
 400         self.Bind(wx.EVT_MENU, self.OnSimiTxt, id=ID_SimiTxt)
 401         self.Bind(wx.EVT_MENU, self.OnWordCloud, id=ID_WC)
 402         self.Bind(wx.EVT_MENU, self.OnSimiTab, id=ID_SIMI)
 403         self.Bind(wx.EVT_MENU, self.OnExit, id=wx.ID_EXIT)
 404         #self.Bind(wx.EVT_MENU, self.OnSaveTabAs, id=ID_SaveTab)
 405         self.Bind(wx.EVT_MENU, self.OnAbout, id=wx.ID_ABOUT)
 406         self.Bind(wx.EVT_MENU, self.OnHelp, id=wx.ID_HELP)
 407         self.Bind(wx.EVT_MENU, self.OnPref, id=wx.ID_PREFERENCES)
 408         self.Bind(wx.EVT_MENU, self.OnImportTXM, id=ID_ImportTXM)
 409         self.Bind(wx.EVT_CLOSE, self.OnClose)
 410 ##################################################################
 411         flags = self._mgr.GetAGWFlags()
 412         #flags &= ~wx.aui.AUI_MGR_TRANSPARENT_HINT
 413         #flags &= ~wx.aui.AUI_MGR_VENETIAN_BLINDS_HINT
 414         #flags &= ~wx.aui.AUI_MGR_RECTANGLE_HINT
 415         flags &= ~(aui.AUI_MGR_RECTANGLE_HINT | aui.AUI_MGR_ALLOW_FLOATING)
 416         self._mgr.SetAGWFlags(self._mgr.GetAGWFlags() ^ (aui.AUI_MGR_RECTANGLE_HINT | aui.AUI_MGR_ALLOW_FLOATING))
 417         self._mgr.GetArtProvider().SetMetric(aui.AUI_DOCKART_GRADIENT_TYPE, aui.AUI_GRADIENT_HORIZONTAL)
 418         self.GetDockArt().SetColor(aui.AUI_DOCKART_ACTIVE_CAPTION_GRADIENT_COLOUR, "#00FFF9")
 419         self.DoUpdate()
 420
 421         self._icon = wx.Icon(os.path.join(ImagePath, "iraicone.ico"), wx.BITMAP_TYPE_ICO)
 422         self.SetIcon(self._icon)
 423 ##########################
 424         self.ctrl = ""
 425         self.input_path = [False]
 426         self.TEMPDIR = tempfile.mkdtemp('iramuteq')
 427         self.FileTabList = []
 428         self.listbar=[]
 429         self.DictTab = {}
 430         self.FreqNum = 0
 431         self.colsep = ''
 432         self.txtsep = ''
 433         self.g_header = False
 434         self.g_id = False
 435         self.table = ''
 436         self.fileforR = ''
 437         self.filename = ''
 438         self.nastrings = ''
 439         self.encode = ''
 440         self.SysEncoding = sys.getdefaultencoding()
 441         self.syscoding = sys.getdefaultencoding()
 442         #print 'SysEncoding',self.SysEncoding
 443         if self.SysEncoding == 'mac-roman' : self.SysEncoding = 'MacRoman'
 444         self.type = ''
 445
 446 ##############################################################@
 447         self.DisEnSaveTabAs(False)
 448         self.ShowMenu(_("View").decode('utf8'), False)
 449         self.ShowMenu(_("Matrix analysis").decode('utf8'), False)
 450         self.ShowMenu(_("Text analysis").decode('utf8'), False)
 451
 452         self._mgr.Update()
 453
 454         self.DataPop = False
 455         self.DataTxt = False
 456         self.Text = ''
 457
 458         self.lexique = None
 459         self.corpus = None
 460
 461     def finish_init(self) :
 462         try :
 463             self.pref.read(self.ConfigPath['preferences'])
 464             if IsNew(self) :
 465                 UpgradeConf(self)
 466                 self.pref.read(self.ConfigPath['preferences'])
 467                 New = True
 468             else :
 469                 CopyConf(self)
 470                 New = False
 471         except :
 472             UpgradeConf(self)
 473             self.pref.read(self.ConfigPath['preferences'])
 474             New = True
 475         self.sound = self.pref.getboolean('iramuteq', 'sound')
 476         self.check_update = self.pref.getboolean('iramuteq', 'checkupdate')
 477         self.version = ConfigGlob.get('DEFAULT', 'version')
 478         #configuration des chemins de R
 479         self.PathPath = ConfigParser()
 480         self.PathPath.read(ConfigPath['path'])
 481         BestRPath = False
 482         if not CheckRPath(self.PathPath) :
 483             if sys.platform == 'win32':
 484                 BestRPath = FindRPAthWin32()
 485             else:
 486                 BestRPath = FindRPathNix()
 487             if BestRPath:
 488                 self.PathPath.set('PATHS', 'rpath', BestRPath)
 489                 with open(ConfigPath['path'], 'w') as f :
 490                     self.PathPath.write(f)
 491         else:
 492             BestRPath = True
 493         if BestRPath :
 494             self.RPath = self.PathPath.get('PATHS', 'rpath')
 495             if New :
 496                 CheckRPackages(self)
 497             if not RLibsAreInstalled(self) :
 498                 CheckRPackages(self)
 499         else :
 500             msg = u"""
 501 Le chemin de l'executable de R n'a pas été trouvé.
 502 Si R n'est pas installé, vous devez l'installer (http://www.r-project.org/).
 503 Si R n'est pas installé dans le répertoire par défaut
 504 (souvent C:\Program Files\R\R-2.x.x\R.exe sous windows ou /usr/bin/R sous linux ou Mac Os X)
 505 vous devez signaler le chemin de l'éxecutable de R dans les préférences."""
 506             dlg = wx.MessageDialog(self, msg, u"Problème de configuration", wx.OK | wx.NO_DEFAULT | wx.ICON_WARNING)
 507             dlg.CenterOnParent()
 508             if dlg.ShowModal() in [wx.ID_NO, wx.ID_CANCEL]:
 509                 pass
 510             dlg.Destroy()
 511
 512
 513     def setlangue(self) :
 514         try :
 515             self.pref.read(self.ConfigPath['preferences'])
 516             guilangue = self.pref.get('iramuteq', 'guilanguage')
 517             if guilangue == 'french' :
 518                 self.presLan_fr.install()
 519             elif guilangue == 'portuguese' :
 520                 self.presLan_pt.install()
 521             else :
 522                 self.presLan_en.install()
 523             mylocale = wx.Locale(langues[guilangue])
 524             mylocale.AddCatalogLookupPathPrefix(os.path.join(AppliPath,'locale'))
 525             mylocale.AddCatalog('iramuteq')
 526         except :
 527             self.presLan_fr.install()
 528             mylocale = wx.Locale(langues['french'])
 529             mylocale.AddCatalogLookupPathPrefix(os.path.join(AppliPath,'locale'))
 530             mylocale.AddCatalog('iramuteq')
 531
 532
 533     def OnVerif(self, evt) :
 534         pack = CheckRPackages(self)
 535         if pack :
 536             dlg = wx.MessageDialog(self, u"Installation OK", u"Installation", wx.OK | wx.ICON_INFORMATION)
 537             dlg.CenterOnParent()
 538             if dlg.ShowModal() in [wx.ID_NO, wx.ID_CANCEL]:
 539                 evt.Veto()
 540
 541     def DisEnSaveTabAs(self, DISEN):
 542     #Disable SaveTabAs
 543         file_menu = self.mb.GetMenu(0)
 544         items = file_menu.GetMenuItems()
 545         for item in items :
 546             if item.GetId() == ID_SaveTab :
 547                 item.Enable(DISEN)
 548
 549     def ShowMenu(self, menu, Show=True):
 550         menu_pos = self.mb.FindMenu(menu)
 551         self.mb.EnableTop(menu_pos, Show)
 552         self.mb.UpdateMenus()
 553
 554
 555 #--------------------------------------------------------------------
 556     def OnClose(self, event):
 557         print 'onclose'
 558         with open(self.ConfigPath['path'], 'w') as f :
 559             self.PathPath.write(f)
 560         self._mgr.UnInit()
 561         del self._mgr
 562         self.Destroy()
 563
 564     def OnOpenData(self, event):
 565         inputname, self.input_path = OnOpen(self, "Data")
 566         if inputname:
 567             #filename = self.input_path[0]
 568             self.tableau = Tableau(self,os.path.abspath(self.input_path[0]))
 569             val = get_table_param(self, self.input_path[0])
 570             if val == wx.ID_OK :
 571                 self.tableau.make_content()
 572                 OpenAnalyse(self, self.tableau.parametres)
 573                 self.tree.OnItemAppend(self.tableau.parametres)
 574                 #self.tableau.show_tab()
 575
 576     def OnOpenAnalyse(self, event):
 577         self.AnalysePath = OnOpen(self, "Analyse")
 578         OpenAnalyse(self, self.AnalysePath[1][0], True)
 579         self.ShowMenu(_("View"))
 580
 581     def OnOpenText(self, event):
 582         inputname, self.input_path = OnOpen(self, "Texte")
 583         self.filename = self.input_path[0]
 584         if inputname:
 585             self.OpenText()
 586
 587     def OnViewData(self, event):
 588         print self.type
 589         print self.DataTxt
 590         if self.type == "Data":
 591             if not self.DataPop :
 592                 self.Sheet.Populate(self.content)
 593                 self.DataPop = True
 594                 self.DataTxt = False
 595             self.ShowAPane(u"Data")
 596         elif self.type == "Texte" or self.type == 'Analyse' :
 597             if not self.DataTxt :
 598                 self.text_ctrl_txt.Clear()
 599                 self.text_ctrl_txt.write(self.content)
 600                 self.text_ctrl_txt.ShowPosition(0)
 601                 self.DataTxt = True
 602                 self.DataPop = False
 603             self.ShowAPane(u"Text")
 604         self._mgr.Update()
 605
 606     def OnSubText(self, corpus, parametres = None):
 607         if corpus is None :
 608             corpus = self.tree.getcorpus()
 609         builder = SubBuilder(self, corpus, parametres)
 610         if builder.res == wx.ID_OK :
 611             busy = wx.BusyInfo(_("Please wait...").decode('utf8'), self)
 612             wx.SafeYield()
 613             corpus = builder.doanalyse()
 614             self.history.add(corpus.parametres)
 615             self.tree.OnItemAppend(corpus.parametres)
 616             OpenAnalyse(self, corpus.parametres)
 617             del busy
 618
 619     def OpenText(self):
 620         dlg = wx.ProgressDialog("Ouverture...",
 621                                    "Veuillez patienter...",
 622                                    maximum=2,
 623                                    parent=self,
 624                                    style=wx.PD_APP_MODAL | wx.PD_AUTO_HIDE | wx.PD_ELAPSED_TIME | wx.PD_CAN_ABORT
 625                                    )
 626
 627         builder =  Builder(self, dlg)
 628         if builder.res == wx.ID_OK :
 629             try :
 630                 corpus = builder.doanalyse()
 631                 self.history.add(corpus.parametres)
 632                 self.tree.OnItemAppend(corpus.parametres)
 633                 OpenAnalyse(self, corpus.parametres)
 634             except :
 635                 BugReport(self)
 636             else :
 637                 count = 1
 638                 keepGoing = dlg.Update(count, u"Lecture du fichier")
 639                 self.ShowMenu(_(u"View").decode('utf8'))
 640                 self.ShowMenu(_(u"Text analysis").decode('utf8'))
 641                 self.ShowMenu(_(u"Matrix analysis").decode('utf8'), False)
 642                 self.type = "Texte"
 643                 self.DataTxt = False
 644                 self.Text = ''
 645                 count += 1
 646                 keepGoing = dlg.Update(count, u"Chargement du dictionnaire")
 647                 dlg.Destroy()
 648         #self.OnViewData(wx.EVT_BUTTON)
 649
 650     def OnExit(self, event):
 651         self.Close()
 652
 653     def OnAbout(self, event):
 654         info = wx.AboutDialogInfo()
 655         info.Name = ConfigGlob.get('DEFAULT', 'name')
 656         info.Version = ConfigGlob.get('DEFAULT', 'version')
 657         info.Copyright = ConfigGlob.get('DEFAULT', 'copyright')
 658         info.Description = u"""
 659 Interface de R pour les Analyses Multidimensionnelles
 660 de Textes et de Questionnaires
 661
 662 Un logiciel libre
 663 construit avec des logiciels libres.
 664
 665 Laboratoire LERASS
 666
 667 REPERE
 668 """
 669         info.WebSite = ("http://www.iramuteq.org", u"Site web IRaMuTeQ")
 670         dev = ConfigGlob.get('DEFAULT', 'dev').decode('utf8').split(';')
 671         info.Developers = dev
 672         info.License = u"""Iramuteq est un logiciel libre ; vous pouvez le diffuser et/ou le modifier
 673 suivant les termes de la Licence Publique Générale GNU telle que publiée
 674 par la Free Software Foundation ; soit la version 2 de cette licence,
 675 soit (à votre convenance) une version ultérieure.
 676
 677 Iramuteq est diffusé dans l'espoir qu'il sera utile,
 678 mais SANS AUCUNE GARANTIE ; sans même une garantie implicite
 679 de COMMERCIALISATION ou d'ADÉQUATION À UN USAGE PARTICULIER.
 680 Voyez la Licence Publique Générale GNU pour plus de détails.
 681
 682 Vous devriez avoir reçu une copie de la Licence Publique Générale GNU
 683 avec Iramuteq ; sinon, veuillez écrire à la Free Software Foundation,
 684 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, États-Unis."""
 685         wx.AboutBox(info)
 686
 687     def GetDockArt(self):
 688         return self._mgr.GetArtProvider()
 689
 690     def DoUpdate(self):
 691         self._mgr.Update()
 692
 693     def OnPageChanged(self, event) :
 694         new = event.GetSelection()
 695         nobject = event.GetEventObject()
 696         parent = nobject.GetParent()
 697         if isinstance(parent, IraFrame) :
 698             npage = self.nb.GetPage(new)
 699             if 'parametres' in dir(npage) :
 700                 self.tree.GiveFocus(uuid=npage.parametres['uuid'])
 701                 if npage.parametres.get('matrix', False) :
 702                     self.ShowMenu(_(u"Text analysis").decode('utf8'), False)
 703                     self.ShowMenu(_(u"Matrix analysis").decode('utf8'), True)
 704                 elif npage.parametres.get('corpus', False) :
 705                     self.ShowMenu(_(u"Text analysis").decode('utf8'))
 706                     self.ShowMenu(_(u"Matrix analysis").decode('utf8'), False)
 707
 708     def OnCloseTab(self, evt):
 709         #log.info('Closing tab %s' % str(evt.GetEventObject()))
 710         ctrl = evt.GetEventObject()
 711         if isinstance(ctrl.GetParent(), aui.AuiNotebook) or isinstance(ctrl.GetParent(), wx.Panel):
 712             notebook = True
 713         else :
 714             notebook = False
 715         page = self.nb.GetPage(self.nb.GetSelection())
 716         if 'parametres' in dir(page) and isinstance(ctrl.GetParent(), IraFrame) :
 717             self.history.rmtab(page.parametres)
 718             self.tree.CloseItem(uuid = page.parametres['uuid'])
 719         TabTitle = self.nb.GetPageText(self.nb.GetSelection())
 720 #         if self.DictTab != {} :
 721 #             if TabTitle in self.DictTab :
 722 #                 ListFile=self.DictTab[TabTitle]
 723 #                 if False in ListFile:
 724 #                     msg = u"""
 725 # Certains résultats ne sont pas enregistrer.
 726 # Voulez-vous fermer quand même ?"""
 727 #                     dlg = wx.MessageDialog(self, msg, "Sauvegarde",wx.YES_NO | wx.NO_DEFAULT | wx.ICON_QUESTION)
 728 #
 729 #                     dlg.CenterOnParent()
 730 #                     if dlg.ShowModal() in [wx.ID_NO, wx.ID_CANCEL]:
 731 #                         remove = False
 732 #                         evt.Veto()
 733 #                         dlg.Destroy()
 734 #                     else :
 735 #                         for f in ListFile[1:] :
 736 #                             print 'remove', f
 737 #                             os.remove(f)
 738 #                             remove = True
 739 #                         dlg.Destroy()
 740 #                 elif True in ListFile :
 741 #                     remove = True
 742 #                 if remove:
 743 #                     del self.DictTab[TabTitle]
 744 #             else :
 745 #                 self.LastTabClose()
 746 #        else :
 747 #            remove = True
 748         if self.nb.GetPageCount() == 1 and not notebook :
 749             self.LastTabClose()
 750
 751     def LastTabClose(self) :
 752         if self.nb.GetPageCount() == 1 :
 753             #self.DisEnSaveTabAs(False)
 754             if self.DataTxt :
 755                 self.ShowAPane("Text")
 756             elif self.DataPop :
 757                 self.ShowAPane("Data")
 758             else :
 759                 self.ShowAPane("Intro_Text")
 760
 761 #     def OnSaveTabAs(self, event):
 762 #         SelectTab = self.nb.GetSelection()
 763 #         TabTitle = self.nb.GetPageText(SelectTab)
 764 #         FileToSave = self.DictTab[TabTitle]
 765 #         NewListFile = []
 766 #         dlg = wx.FileDialog(
 767 #             self, message="Enregistrer sous...", defaultDir=os.getcwd(),
 768 #             defaultFile="resultat.html", wildcard="Tous les fichiers|*", style=wx.SAVE | wx.OVERWRITE_PROMPT
 769 #             )
 770 #         dlg.SetFilterIndex(2)
 771 #         dlg.CenterOnParent()
 772 #
 773 #         if dlg.ShowModal() == wx.ID_OK:
 774 #             Path = dlg.GetPath()
 775 #             Dirname = os.path.dirname(Path)
 776 #             Filename = dlg.GetFilename()
 777 #         else :
 778 #             Path = False
 779 #         dlg.Destroy()
 780 #         if Path:
 781 #             shutil.copyfile(FileToSave[-1], Path)
 782 #             os.remove(FileToSave[len(FileToSave) - 1])
 783 #             NewListFile.append(True)
 784 #             NewListFile.append(Path)
 785 #             for f in FileToSave[1:-1] :
 786 #                 Fileout = os.path.join(Dirname, os.path.basename(f))
 787 #                 shutil.copyfile(f, Fileout)
 788 #                 NewListFile.append(Fileout)
 789 #                 os.remove(f)
 790 #             TabText = Filename
 791 #             self.DictTab[TabText] = NewListFile
 792 #             del self.DictTab[TabTitle]
 793 #             self.nb.SetPageText(SelectTab, TabText)
 794
 795     def GetStartPosition(self):
 796
 797         self.x = self.x + 20
 798         x = self.x
 799         pt = self.ClientToScreen(wx.Point(0, 0))
 800
 801         return wx.Point(pt.x + x, pt.y + x)
 802
 803     def ShowAPane(self, panel):
 804         for pane in self._mgr.GetAllPanes() :
 805             if not pane.IsToolbar() and pane.name != 'lefttree':
 806                 pane.Hide()
 807         self._mgr.GetPane(panel).Show()
 808         self._mgr.Update()
 809
 810     def OnAcceuil(self, event):
 811         self.ShowAPane(u"Intro_Text")
 812         event.Skip()
 813
 814     def CreateHTMLCtrl(self):
 815         ctrl = wx.html.HtmlWindow(self, -1, wx.DefaultPosition, wx.Size(400, 300))
 816         if "gtk2" in wx.PlatformInfo:
 817             ctrl.SetStandardFonts()
 818         ctrl.SetPage(u"text")
 819         return ctrl
 820
 821     def ShowTab(self, evt):
 822         self.ShowAPane("Tab_content")
 823
 824 ################################################################
 825 #debut des analyses
 826 ################################################################
 827     def analyse_matrix(self, analyse, analyse_type = '', matrix = None, dlgnb = 1):
 828         if matrix is None :
 829             matrix = self.tree.getmatrix()
 830         try :
 831             analyse(self, matrix, parametres = {'type' : analyse_type}, dlg = dlgnb)
 832         except:
 833             BugReport(self)
 834
 835     def OnFreq(self, event, matrix = None):
 836         self.analyse_matrix(Frequences, analyse_type = 'freq', matrix = matrix, dlgnb = 3)
 837
 838     def OnChi2(self, event, matrix = None):
 839         self.analyse_matrix(ChiSquare, matrix = matrix, analyse_type = 'chi2', dlgnb = 3)
 840
 841     def OnSimiTab(self, event, matrix = None):
 842         self.analyse_matrix(DoSimi, matrix = matrix, analyse_type = 'simimatrix', dlgnb = 5)
 843
 844     def OnCHDReinert(self, event, matrix = None):
 845         #if matrix is None :
 846         #    matrix = self.tree.getmatrix()
 847         #AnalyseQuest(self, matrix, parametres = {'type' : 'reinertmatrix'}, dlg = 3)
 848         self.analyse_matrix(AnalyseQuest, matrix = matrix, analyse_type = 'reinertmatrix', dlgnb = 5)
 849
 850     def OnStudent(self, event):
 851         try:
 852             MakeStudent(self)
 853         except:
 854             BugReport(self)
 855
 856     def OnRCode(self, event):
 857         try:
 858             InputText(self)
 859         except:
 860             BugReport(self)
 861
 862     def OnCHDSIM(self, event):
 863         try:
 864         #    print 'ATTENTION!!!!'
 865             chdsim = ChdCluster(self)
 866             if chdsim.val == wx.ID_OK:
 867                 PlaySound(self)
 868         except:
 869             BugReport(self)
 870
 871 #     def OnCHDReinert(self, event):
 872 #         try:
 873 #          #   print('PLUS DE BUG SUR ALCESTE QUESTIONNAIRE')
 874 #             self.quest = AnalyseQuest(self)
 875 #             if self.quest.val == wx.ID_OK:
 876 #                 PlaySound(self)
 877 #         except:
 878 #             BugReport(self)
 879
 880     def OnProto(self, evt, matrix = None) :
 881         self.analyse_matrix(Prototypical, matrix = matrix, analyse_type = 'proto', dlgnb = 3)
 882         #Prototypical(self, {'type' : 'proto'})
 883
 884     def OnSplitVar(self, evt, matrix = None):
 885         self.analyse_matrix(SplitMatrixFromVar, matrix = matrix, analyse_type = 'splitvar', dlgnb = 3)
 886         matrix = self.tree.getmatrix()
 887
 888
 889     def OnSimiTxt(self, evt, corpus = None) :
 890         #    print 'PLUS DE BUG SUR SIMITXT'
 891         try :
 892             #self.Text = SimiTxt(self)
 893             if corpus is None :
 894                 corpus = self.tree.getcorpus()
 895             self.Text = SimiTxt(self, corpus, parametres = {'type': 'simitxt'}, dlg = 3)
 896             if self.Text.val == wx.ID_OK :
 897                 PlaySound(self)
 898         except :
 899             BugReport(self)
 900
 901     def OnWordCloud(self, evt, corpus = None) :
 902         #    print 'PLUS DE BUG SUR WORDCLOUD'
 903         try :
 904             if corpus is None :
 905                 corpus = self.tree.getcorpus()
 906             self.Text = WordCloud(self, corpus, parametres = {'type' : 'wordcloud'}, dlg = 3)
 907             if self.Text.val == wx.ID_OK :
 908                 PlaySound(self)
 909         except :
 910             BugReport(self)
 911
 912     def OnClusterCloud(self, corpus, parametres = None) :
 913         self.Text = ClusterCloud(self, corpus, parametres = parametres, dlg = 3)
 914
 915     def OnAFCM(self, event):
 916         try:
 917             DoAFCM(self)
 918         except:
 919             BugReport(self)
 920
 921     def OnTextStat(self, event, corpus = None):
 922             #print 'PAS DE BUG SUR TEXT STAT'
 923         try:
 924             if corpus is None :
 925                 corpus = self.tree.getcorpus()
 926             self.Text = Stat(self, corpus, parametres = {'type': 'stat'}, dlg = 7)
 927
 928             if self.Text.val == wx.ID_OK :
 929                 PlaySound(self)
 930         except:
 931             BugReport(self)
 932
 933     def OnTextSpec(self, event, corpus = None):
 934         try:
 935             #self.Text = AsLexico(self)
 936             #print('ATTENTION : PLUS DE BUG SUR LEXICO')
 937             if corpus is None :
 938                 corpus = self.tree.getcorpus()
 939             self.Text = Lexico(self, corpus, parametres = {'type' : 'spec'}, dlg = 3)
 940             if self.Text.val == wx.ID_OK :
 941                 PlaySound(self)
 942         except:
 943             BugReport(self)
 944
 945     def OnTextAfcm(self, event):
 946         try:
 947             AfcUci(self)
 948             PlaySound(self)
 949         except:
 950             BugReport(self)
 951
 952     def import_factiva_xml(self,event):
 953         try :
 954             ImportFactiva(self, 'xml')
 955         except :
 956             BugReport(self)
 957
 958     def import_factiva_mail(self, evt) :
 959         try :
 960             ImportFactiva(self, 'mail')
 961         except :
 962             BugReport(self)
 963
 964     def import_factiva_txt(self, evt) :
 965         try :
 966             ImportFactiva(self, 'txt')
 967         except :
 968             BugReport(self)
 969
 970     def OnImportTXM(self, evt) :
 971         try :
 972             ImportFactiva(self, 'txm')
 973         except :
 974             BugReport(self)
 975
 976     def ExtractTools(self, evt) :
 977         ID = evt.GetId()
 978         if ID == self.ID_splitvar :
 979             Extract(self, 'splitvar')
 980         elif ID == self.ID_extractmod :
 981             Extract(self, 'mods')
 982         elif ID == self.ID_extractthem :
 983             Extract(self, 'them')
 984
 985     def OnTextReinert(self, event, corpus = None):
 986         try:
 987             #print('ATTENTION : PLUS DE BUG SUR ALCESTE')
 988             #RunAnalyse(self, corpus, Alceste, OptAlceste)
 989             if corpus is None :
 990                 corpus = self.tree.getcorpus()
 991             self.Text = Reinert(self, corpus, parametres = {'type': 'alceste'}, dlg = 6)
 992             if self.Text.val == wx.ID_OK:
 993                 PlaySound(self)
 994         except:
 995             BugReport(self)
 996
 997     def OnPamSimple(self, event, corpus = None):
 998         try:
 999             if corpus is None :
1000                 corpus = self.tree.getcorpus()
1001             self.Text = AnalysePam(self, corpus, parametres = {'type' : 'pamtxt'}, dlg = 6)
1002             if self.Text.val == wx.ID_OK:
1003                 PlaySound(self)
1004         except:
1005             BugReport(self)
1006
1007     def SimiCluster(self, parametres = {}, fromprof = False, pathout = '', listactives = [], actives = [], tableau = None) :
1008         DoSimi(self, param = parametres, fromprof =  fromprof, listactives = listactives, actives = actives, tableau = tableau)
1009
1010 #    def OnSimi(self,evt):
1011 #        try :
1012             #print 'ATTENTION !!!! VERGES'
1013             #print 'PLUS DE BUG SUR SIMI'
1014 #            self.res = DoSimi(self, param = None)
1015             #self.res = Verges(self)
1016 #            if self.res.val == wx.ID_OK :
1017 #                PlaySound(self)
1018 #        except :
1019 #            BugReport(self)
1020 #################################################################
1021
1022     def OnHelp(self, event):
1023         webbrowser.open('http://www.iramuteq.org/documentation')
1024
1025     def OnPref(self, event):
1026         dlg = PrefDialog(self)
1027         dlg.CenterOnParent()
1028         self.val = dlg.ShowModal()
1029
1030     def Upgrade(self) :
1031         if self.check_update:
1032             NewVersion(self)
1033         else:
1034             print 'pas de verif'
1035         #IsNew(self)
1036         #CheckRPackages(self)
1037
1038     def OnOpenFromCmdl(self):
1039         truepath = True
1040         if options.filename :
1041             if os.path.exists(options.filename):
1042                 self.filename = os.path.abspath(options.filename)
1043             else:
1044                 truepath = False
1045         elif args :
1046             if os.path.exists(os.path.realpath(args[0])):
1047                 self.filename = os.path.abspath(os.path.realpath(args[0]))
1048             else:
1049                 truepath = False
1050         else:
1051             pass
1052         if truepath :
1053             if os.path.splitext(self.filename)[1] in ['.csv', '.xls', '.ods']:
1054                 self.tableau = Tableau(self, self.filename)
1055                 val = get_table_param(self, self.filename)
1056                 if val == wx.ID_OK :
1057                     self.tableau.make_content()
1058                     OpenAnalyse(self, self.tableau.parametres)
1059                     self.tree.OnItemAppend(self.tableau.parametres)
1060                 #get_table_param(self, self.filename)
1061                 #self.tableau.make_content()
1062                 #self.tableau.show_tab()
1063                 #open_data(self, self.filename)
1064             elif os.path.splitext(self.filename)[1] == '.txt':
1065                 self.OpenText()
1066             elif os.path.splitext(self.filename)[1] == '.ira' :
1067                 #self.corpus = Corpus(self)
1068                 #self.Text = OpenAnalyse(self, self.filename)
1069                 OpenAnalyse(self, self.filename)
1070         if not truepath:
1071             print 'ce fichier n\'existe pas'
1072
1073
1074
1075 class IntroPanel(wx.Panel):
1076     def __init__(self, parent):
1077         wx.Panel.__init__(self, parent)
1078         col = randint(0, 255)
1079         col1 = randint(0,255)
1080         col2 = randint(0,255)
1081         col = 57
1082         bckgrdcolor = wx.Colour(col, col1, col2)
1083         self.SetBackgroundColour(bckgrdcolor)
1084         txtcolour = wx.Colour(250, 250, 250)
1085         linkcolor = wx.Colour(255, 0, 0)
1086         sizer1 = wx.BoxSizer(wx.VERTICAL)
1087         sizer2 = wx.BoxSizer(wx.VERTICAL)
1088         sizer3 = wx.BoxSizer(wx.HORIZONTAL)
1089         sizer4 = wx.BoxSizer(wx.VERTICAL)
1090         sizer5 = wx.BoxSizer(wx.HORIZONTAL)
1091         grid_sizer_1 = wx.FlexGridSizer(1, 4, 0, 0)
1092         grid_sizer_3 = wx.FlexGridSizer(1, 4, 0, 0)
1093         grid_sizer_2 = wx.FlexGridSizer(1, 3, 0, 0)
1094         PanelPres = wx.Panel(self)
1095         PanelPres.SetBackgroundColour(bckgrdcolor)
1096         label_1 = wx.StaticText(self, -1, u"IRaMuTeQ", size=(-1, -1))
1097         label_1.SetFont(wx.Font(46, wx.TELETYPE, wx.NORMAL, wx.BOLD, 0, "Purisa"))
1098         label_1.SetForegroundColour(wx.RED)
1099         label2 = wx.StaticText(PanelPres, -1 , u'\nVersion ' + ConfigGlob.get('DEFAULT', 'version') + '\n')
1100         label2.SetForegroundColour(txtcolour)
1101         label2.SetBackgroundColour(bckgrdcolor)
1102         #label3 = wx.StaticText(PanelPres, -1 , u'Equipe ')
1103         #label3.SetForegroundColour(txtcolour)
1104         #label3.SetBackgroundColour(bckgrdcolor)
1105         self.hyper2 = hl.HyperLinkCtrl(PanelPres, wx.ID_ANY, u"REPERE", URL="http://repere.no-ip.org/")
1106         self.hyper2.SetColours(linkcolor, linkcolor, "RED")
1107         self.hyper2.SetBackgroundColour(bckgrdcolor)
1108         self.hyper2.EnableRollover(True)
1109         self.hyper2.SetUnderlines(False, False, True)
1110         self.hyper2.SetBold(True)
1111         self.hyper2.UpdateLink()
1112         label_lerass = wx.StaticText(PanelPres, -1, u'Laboratoire ')
1113         label_lerass.SetForegroundColour(txtcolour)
1114         label_lerass.SetBackgroundColour(bckgrdcolor)
1115         self.hyper_lerass = hl.HyperLinkCtrl(PanelPres, -1, u'LERASS', URL="http://www.lerass.com")
1116         self.hyper_lerass.SetColours(linkcolor, linkcolor, "RED")
1117         self.hyper_lerass.SetBackgroundColour(bckgrdcolor)
1118         self.hyper_lerass.EnableRollover(True)
1119         self.hyper_lerass.SetUnderlines(False, False, True)
1120         self.hyper_lerass.SetBold(True)
1121         self.hyper_lerass.UpdateLink()
1122         blank = wx.StaticText(PanelPres, -1, u'\n')
1123         blank1 = wx.StaticText(PanelPres, -1, u'\n')
1124         labellicence = wx.StaticText(PanelPres, -1, _(u"License GNU GPL").decode('utf8'))
1125         labellicence.SetForegroundColour(txtcolour)
1126         labellicence.SetBackgroundColour(bckgrdcolor)
1127         labelcopy = wx.StaticText(PanelPres, -1, ConfigGlob.get('DEFAULT', 'copyright'))
1128         labelcopy.SetForegroundColour(txtcolour)
1129         labelcopy.SetBackgroundColour(bckgrdcolor)
1130         python_img = wx.Image(os.path.join(ImagePath,'python-logo.jpg'), wx.BITMAP_TYPE_ANY).ConvertToBitmap()
1131         r_img = wx.Image(os.path.join(ImagePath,'Rlogo.jpg'), wx.BITMAP_TYPE_ANY).ConvertToBitmap()
1132         lexique_img = wx.Image(os.path.join(ImagePath,'LexTexte4.jpg'), wx.BITMAP_TYPE_ANY).ConvertToBitmap()
1133         but_python = wx.BitmapButton(self, -1, python_img)
1134         but_lexique = wx.BitmapButton(self, -1, lexique_img)
1135         but_r = wx.BitmapButton(self, -1, r_img)
1136         self.Bind(wx.EVT_BUTTON, self.OnPython, but_python)
1137         self.Bind(wx.EVT_BUTTON, self.OnLexique, but_lexique)
1138         self.Bind(wx.EVT_BUTTON, self.OnR, but_r)
1139
1140
1141         #grid_sizer_1.Add(label3, 0, wx.EXPAND | wx.ALIGN_CENTER_HORIZONTAL, 0)
1142         grid_sizer_1.Add(self.hyper2, 0, wx.EXPAND | wx.ALIGN_CENTER_HORIZONTAL, 0)
1143         grid_sizer_3.Add(label_lerass, 0, wx.EXPAND | wx.ALIGN_CENTER_HORIZONTAL, 0)
1144         grid_sizer_3.Add(self.hyper_lerass, 0, wx.EXPAND | wx.ALIGN_CENTER_HORIZONTAL, 0)
1145         sizer4.Add(label_1, 0, wx.ALIGN_CENTER, 5)
1146         sizer2.Add(label2, 0, wx.ALIGN_CENTER, 5)
1147         #sizer2.Add(wx.StaticText(PanelPres, -1, u''), 0, wx.ALIGN_CENTER, 5)
1148         sizer2.Add(wx.StaticText(PanelPres, -1, u''), 0, wx.ALIGN_CENTER, 5)
1149         sizer2.Add(wx.StaticText(PanelPres, -1, u''), 0, wx.ALIGN_CENTER, 5)
1150         sizer2.Add(grid_sizer_3, 0, wx.ALIGN_CENTER, 5)
1151         sizer2.Add(wx.StaticText(PanelPres, -1, u' '), 0, wx.ALIGN_CENTER, 5)
1152         #sizer2.Add(wx.StaticText(PanelPres, -1, u''), 0, wx.ALIGN_CENTER, 5)
1153         #sizer2.Add(wx.StaticText(PanelPres, -1, u''), 0, wx.ALIGN_CENTER, 5)
1154         sizer2.Add(grid_sizer_1, 0, wx.ALIGN_CENTER, 5)
1155         sizer2.Add(labellicence, 0, wx.ALIGN_CENTER, 5)
1156         sizer2.Add(labelcopy, 0, wx.ALIGN_CENTER, 5)
1157         sizer1.Add(sizer4, 1, wx.EXPAND | wx.ALIGN_CENTER_HORIZONTAL, 0)
1158         PanelPres.SetSizer(sizer2)
1159         sizer5.Add(blank, 1, wx.EXPAND | wx.ALL | wx.ALIGN_CENTER_HORIZONTAL, 2)
1160         sizer5.Add(PanelPres, 1, wx.EXPAND | wx.ALIGN_CENTER_HORIZONTAL, 0)
1161         sizer5.Add(blank1, 1, wx.ALIGN_CENTER_HORIZONTAL,2)
1162         grid_sizer_2.Add(but_python, 1, wx.ALIGN_CENTER_HORIZONTAL| wx.ALIGN_CENTER_VERTICAL)
1163         grid_sizer_2.Add(but_lexique, 1,wx.ALIGN_CENTER_HORIZONTAL| wx.ALIGN_CENTER_VERTICAL)
1164         grid_sizer_2.Add(but_r, 1, wx.ALIGN_CENTER_HORIZONTAL| wx.ALIGN_CENTER_VERTICAL)
1165
1166         sizer1.Add(sizer5, 3, wx.EXPAND | wx.ALIGN_CENTER_HORIZONTAL, 1)
1167         sizer1.Add(grid_sizer_2, 1, wx.ALIGN_CENTER_HORIZONTAL | wx.ALIGN_CENTER_VERTICAL)
1168         self.SetSizer(sizer1)
1169         sizer1.Fit(self)
1170
1171     def OnPython(self,evt):
1172         webbrowser.open('http://www.python.org')
1173
1174     def OnLexique(self,evt):
1175         webbrowser.open('http://www.lexique.org')
1176
1177     def OnR(self,evt):
1178         webbrowser.open('http://www.r-project.org')
1179
1180 class MySplashScreen(wx.SplashScreen):
1181     def __init__(self):
1182         bmp = wx.Image(os.path.join(ImagePath, 'splash.png')).ConvertToBitmap()
1183         wx.SplashScreen.__init__(self, bmp,
1184                                  wx.SPLASH_CENTRE_ON_SCREEN | wx.SPLASH_TIMEOUT,
1185                                  2000, None, -1)
1186         self.Bind(wx.EVT_CLOSE, self.OnClose)
1187         self.fc = wx.FutureCall(1, self.ShowMain)
1188
1189     def OnClose(self, evt):
1190         evt.Skip()
1191         self.Hide()
1192
1193         if self.fc.IsRunning():
1194             self.fc.Stop()
1195             self.ShowMain()
1196
1197     def ShowMain(self):
1198         displaySize = wx.DisplaySize()
1199         w = displaySize[0]/1.2
1200         h = displaySize[1]/1.2
1201         frame = IraFrame(None, -1, "IRaMuTeQ " + ConfigGlob.get('DEFAULT', 'version'), size=(w, h))
1202         frame.Show()
1203         frame.finish_init()
1204         frame.Upgrade()
1205         frame.OnOpenFromCmdl()
1206 #        if self.fc.IsRunning():
1207 #            self.Raise()
1208         #wx.CallAfter(frame.ShowTip)
1209
1210 class MyApp(wx.App):
1211     def OnInit(self):
1212         """
1213         Create and show the splash screen.  It will then create and show
1214         the main frame when it is time to do so.
1215         """
1216         wx.SystemOptions.SetOptionInt("mac.window-plain-transition", 1)
1217         self.SetAppName("Iramuteq")
1218         splash = MySplashScreen()
1219         splash.Show()
1220         return True
1221
1222 def main():
1223     app = MyApp(False)
1224     app.MainLoop()
1225
1226 if __name__ == '__main__':
1227     __name__ = 'Main'
1228     main()