Package RASCAL.Error

DescriptionStandard single tasking error window.
Authorbbracke
Date2005/11/21 20:14:33
Revision1.1
 

Clauses

Quick access : Clauses -  Generics -  Definitions -  Subprograms

 
Context clauses
Ada.Strings.Unbounded
Interfaces.C
RASCAL.OS
RASCAL.Utility
 
Use clauses
Ada.Strings.Unbounded
Interfaces.C
RASCAL.OS
RASCAL.Utility
 

Basic Objects

Quick access : Clauses -  Generics -  Definitions -  Subprograms

Basic Objects
Name Type Default
Error_Flag_OkError_Flags_Type1constant
Error_Flag_CancelError_Flags_Type2constant
Error_Flag_HighlightError_Flags_Type4constant
Error_Flag_NoPromptError_Flags_Type8constant
Error_Flag_NoPrefixError_Flags_Type16constant
Error_Flag_ImmediateError_Flags_Type32constant
Error_Flag_SimulateError_Flags_Type64constant
Error_Flag_NoBeepError_Flags_Type128constant
 

Definitions

Quick access : Clauses -  Generics -  Definitions -  Subprograms

Types
Name Declaration
Error_Pointeraccess Error_Type
Error_Category_Type(None, Info, Warning, Program, Question, User1, User2)
Error_Return_Type(Nothing, Ok, Cancel, XButton1, XButton2, XButton3)
Error_Flags_Typenew integer
Error_Message_Pointeraccess Error_Message_Type
   
Error_Type record
Component Type Default
Task_NameUnbounded_String
Msg_HandleMessages_Handle_Type
   
Error_Message_Type record
Component Type Default
Param4String (1..256)S (256 * ASCII.NUL)
Param3String (1..256)S (256 * ASCII.NUL)
Param2String (1..256)S (256 * ASCII.NUL)
Param1String (1..256)S (256 * ASCII.NUL)
TokenString (1..256)S (256 * ASCII.NUL)
MessageString (1..252)S (252 * ASCII.NUL)
ButtonsString (1..256)S (256 * ASCII.NUL)
Spr_NameString (1..13)S (13 * ASCII.NUL)
CategoryError_Category_TypeNone
FlagsError_Flags_TypeError_Flag_Ok
Spr_AreaSystem_Sprite_Pointer
  
Exceptions
No_Error_Message
 

Subprograms

Quick access : Clauses -  Generics -  Definitions -  Subprograms

  
Show_Message function
ReturnError_Return_Type
Opens a standard non-multitasking WIMP Error window.

{/}How to use:{/}
#Tab
#fCode
E : Error_Pointer := Get_Error(Main_Task);
#Tab
declare
Result\t:\tError_Return_Type;
M\t:\tError_Message_Pointer := new Error_Message_Type;
#Tab
begin
M.all.Token (1..5)\t:= "DUMMY";
M.all.Spr_Name(1..5)\t:= "!Dummy";
M.all.Category\t:= Info; --
Result := Show_Message ( E , M );
end;
#f
#Tab
Parameter name Type Mode Default
ErrorError_Pointerin
MessageError_Message_Pointerin