Lock

Clear RemoveLock SetNewPassword TryToOpen TypeKeys

Attributes

Days Empty Image Milliseconds Mode Target

Fields

instance Lock tag;
           mode: 0;
          image: nilObject;
       password: 0;
   intermediate: 0;
      candidate: 0;
         target: nilObject;
         keypad: nilObject;
           days: 0;
   milliseconds: 0;
end instance;

Define Class Lock;
    inherits from Object;

    field mode:         Signed, getter, setter;
    field image:        Image, getter;
    field password:     Unsigned;
    field intermediate: Unsigned;
    field candidate:    Unsigned;
    field target:       Object, weak, getter, setter;
    field keypad:       Object, weak;
    field days:         Signed, getter, setter;
    field milliseconds: Unsigned, getter, setter;

    attribute Days: Signed;
    attribute Milliseconds: Unsigned;
    attribute Mode: Signed, safe;
    attribute Image: Image, readOnly;
    attribute Target: Object, safe;

    operation TypeKeys(keys: ReadOnlyCharactersPointer; count: Unsigned): Unsigned;
    attribute Empty: Boolean, readOnly;
    operation Clear(), noFail, safe;
    operation TryToOpen(entrance: Object), safe, common;
    operation RemoveLock(), safe, common;
    operation SetNewPassword(), safe;
end class;