Salome HOME
Import dans la branche I26 de la version 7.1.16 modifiée par CCAR (au 18/9/2003)
[tools/eficas.git] / Editeur / compomclist.py
1 #@ MODIF compomclist Editeur  DATE 02/07/2001   AUTEUR D6BHHJP J.P.LEFEBVRE 
2 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3 # ======================================================================
4 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
6 #              REDISTRIBUTION OF THIS FILE.
7 # ======================================================================
8 from Tkinter import *
9 import Pmw
10 import Objecttreeitem
11 import panels
12
13 class MCLISTPanel(panels.Panel):
14     def init(self):
15         test_ajout = self.node.item.ajout_possible()
16         nom_mcfact = self.node.item.get_nom()
17         if test_ajout:
18             texte = "Pour ajouter une autre occurrence du mot-clé facteur %s, cliquez ci-dessous" %nom_mcfact
19         else:
20             texte = "Vous ne pouvez pas ajouter une autre occurrence du mot-clé facteur %s ?" %nom_mcfact
21         self.label = Label(self,text = texte)
22         self.label.place(relx=0.5,rely=0.4,anchor='center')
23         if test_ajout:
24             Button(self,text="AJOUTER",command=self.ajout_occurrence).place(relx=0.5,rely=0.6,anchor='center')
25             #Button(self,text="NON",command=None).place(relx=0.6,rely=0.6,anchor='center')
26
27     def ajout_occurrence(self,event=None):
28         self.node.parent.append_child(self.node.item.get_nom())
29
30 class MCListTreeItem(Objecttreeitem.SequenceTreeItem):
31     panel = MCLISTPanel
32
33     def get_docu(self):
34         """ Retourne la clé de doc de l'objet pointé par self """
35         return self.object.get_docu()    
36
37     def isMCFact(self):
38         """
39         Retourne 1 si l'objet pointé par self est un MCFact, 0 sinon
40         """
41         return 0
42     
43 import Accas
44 treeitem = MCListTreeItem
45 objet = Accas.MCList    
46