Création UI

Bonjour,

j'essai de créer un petit compteur dans une fenêtre StandardWindow,
j'ai 2 boutons + et - pour modifier la valeur du compteur.
Et je n'arrive pas à trouver comment mettre à jour l'affichage.

1) Comment puis-je raffraichir newTextEntryFor ?

2) L'utilisation de "newTextEntryFor" est elle juste ?
ou faut il utiliser un autre élément (newLabel par exemple) ?

Ci-dessous le code :

Object subclass: #TNumber
    instanceVariableNames: 'tnumber window tnumberRow'
    classVariableNames: ''
    poolDictionaries: ''
    category: NTest'


disableTnumber
    ^ false

initialize
   super initialize.

   tnumber := 12.
   self window addMorph: self tnumberRow frame: (0@0.1 corner: 1@0.9).
   self window openInWorld.
   self window  extent: 120@120

tnumber
    ^ tnumber.

tnumberDec
    tnumber := tnumber - 1.
   
tnumberInc
    tnumber := tnumber + 1.

tnumberRow
   ^ tnumberRow ifNil: [
          tnumberRow := self window newColumn: {
        self window newLabel: 'Compteur'.
        self window newRow: {           
            self window newButtonFor: self
                getState: nil
                action: #tnumberDec
                arguments: nil
                getEnabled: nil
                label: '-'
                help: nil.
            self window
                newTextEntryFor: self
                getText: #tnumber
                setText: nil
                getEnabled: #disableTnumber
                help: nil.
            self window
                newButtonFor: self
                getState: nil
                action: #tnumberInc
                arguments: nil
                getEnabled: nil
                label: '+'
                help: nil.
        }.}.
        tnumberRow.].

window
   ^ window ifNil: [
      window := StandardWindow labelled: 'TNumber'.
      window
   ]


Merci.

Cordialement.