Procedure Habilitation AjouterHabilitationObjet(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 existe déjà, l'exception CreationHabilitationImpossible 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.AjouterHabilitationObjet(O, Vrai, Faux, Vrai, Faux, Vrai);
/* On ajoute l'habilitation. */
...
Fin Principal
| - | - | - | - | - | - | - | - | - |