Procedure Habilitation ModifierHabilitationObjet(O : Nul Ou Objet, CreationAutorisee : Booleen, DestructionAutorisee : Booleen, LectureAutorisee : Booleen, ModificationAutorisee : Booleen, ExecutionAutorisee : Booleen);
Le paramètre O identifie l'objet. Les paramètres CreationAutorisee, DestructionAutorisee, LectureAutorisee, ModificationAutorisee, ExecutionAutorisee spécifient si l'habilitation est d'autoriser ou non respectivement la création d'une propriété dynamique, la destruction d'une propriété dynamique, la lecture d'une propriété, la modification d'une propriété et l'exécution d'une méthode.
L'habilitation au niveau d'un objet est spécifique à cet objet. Pour les objets quelconques de ce type, il est possible de leur gérer des habilitations génériques au moyen des procédures AjouterHabilitationType, LireHabilitationType, ModifierHabilitationType et SupprimerHabilitationType.
Si l'habilitation n'existe pas, l'exception ModifierHabilitationImpossible est envoyée.
Type T Defaut Habilitation
/************************/
Procedure Habilitation P();
C : Entier;
...
Fin Type
/****************************************************************/
Procedure Habilitation T.P()
/* Objet : Methode supportant les habilitations. */
/****************************************************************/
Debut
...
Fin Procedure
Principal
/*******/
Variable
/******/
R : Nul Ou Role;
O : Nul Ou T;
Debut
...
R.ModifierHabilitationObjet(O, Vrai, Faux, Vrai, Faux, Vrai);
/* On modifie l'habilitation. */
...
Fin Principal
| - | - | - | - | - | - | - | - | - |