G.7.3 les méthodes de mise à jour

CalcButtonEtiquetteVariable>>update: aSymbol with: aValue  
   aSymbol == #etiquette  
      ifTrue:  
         [chaine := aValue asString.  
          self changed: #changeEtiquette]