Désactiver un onglet TAB

LABEL boucle
CONTAINER_TAB 1 : FULL_SPACE 1
TAB 2 : CAPTION 2,"TAB 2" : PARENT 2,1 : TAB 3 : CAPTION 3,"TAB 3" : PARENT 3,1
TIMER 5 : TIMER_INTERVAL 5,500 : ON_TIMER 5,boucle
END

boucle:
   IF CHECKED(2)=1 THEN CAPTION 0,"tab 2 activé" : MARK_ON 3 : INACTIVE 2 : HIDE 2
RETURN

label clic,sortir
dim N

on_close 0,sortir

CONTAINER_TAB 1 : ' crée un support (container)
CONTAINER_TAB 100 : hide 100
full_space 1

for N=2 to 5
   TAB N : ' crée une page (onglet)
   PARENT N,1 : ' on attache cette page au support
   CAPTION N,"onglet "+str$(N) : ' titre pour la première page
   memo 10*N : bar_both 10*N : full_space 10*N
   parent 10*N,N
   item_add 10*N,"onglet "+str$(N)
   on_show N,clic
next N

pause 1000

' cache l'onglet
parent 3,100

pause 1000

' restore l'onglet : cacher tous les onglets
parent 2,100
parent 4,100
parent 5,100

' et les restorer pour preserver l'ordre
parent 2,1
parent 3,1
parent 4,1
parent 5,1

' au passage un bug :
hide 4 :' l'aide stipule que "Les commandes HIDE et SHOW appliquées sur un TAB cachent ou visualisent les objets appartenant à la page."
' mais cela ne fonctionne que sur l'onglet qui est en cours de visualisation

mark_on 3
END
clic:
  ' rien
return

sortir:
  terminate