|
|
| Returns true or false if the routine it's called from a manteinance |
event Startup
begin
SetLangMode(LangEnglish,"ENG",0);
Module("HAL Education","",730,modHALEd);
Maintenance("Test",Test05VClass,Test05Mn,modHALEd);
return;
end;
WindowBegin("Test example",Test05VClass,CGMnt,RcType);
SetWRect(20,80,500,300);
v = 6; vs = 20; h = 145;
StaticText(h-30,v+50,"Testing IsManteinance function",false);
EndWindow;
global updating
procedure Test05Mn(record RcVc RepSpec)
begin
if(ismaintenance) then begin
StopAlert("yes, it's manteinance");
end;
return;
end;
««
