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