TABLE OF CONTENTS

Yass/Messages [ Packages ]

[ Top ] [ Packages ]

FUNCTION

 Provides code to show the program messages to the user

SOURCE

package Messages is

Messages/Messages.Messages_Types [ Types ]

[ Top ] [ Messages ] [ Types ]

FUNCTION

 Types of messages: NORMAL, ERROR or SUCCESS

SOURCE

   type Messages_Types is (NORMAL, ERROR, SUCCESS) with
      Default_Value => ERROR;

Messages/Messages.Default_Message_Type [ Constants ]

[ Top ] [ Messages ] [ Constants ]

FUNCTION

 Default value for the type of messages

SOURCE

   Default_Message_Type: constant Messages_Types := ERROR;

Messages/Messages.Show_Message [ Subprograms ]

[ Top ] [ Messages ] [ Subprograms ]

FUNCTION

 Show selected message to the user.

SOURCE

   procedure Show_Message
     (Text: String; Message_Type: Messages_Types := Default_Message_Type) with
      Pre => Text'Length > 0,
      Test_Case => (Name => "Test_Show_Message", Mode => Nominal);

PARAMETERS

 Text         - Text to show to the user
 Message_Type - Type of message. Default is Error