mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 09:52:24 +00:00
ulmPlotters
This commit is contained in:
parent
5c5d315fbe
commit
ea1429795c
3 changed files with 75 additions and 4 deletions
|
|
@ -26,9 +26,9 @@
|
|||
----------------------------------------------------------------------------
|
||||
*)
|
||||
|
||||
MODULE Plotters;
|
||||
MODULE ulmPlotters;
|
||||
|
||||
IMPORT Events, Objects, Resources, Services, SYS := SYSTEM;
|
||||
IMPORT Events := ulmEvents, Objects := ulmObjects, Resources := ulmResources, Services := ulmServices, SYS := ulmSYSTEM;
|
||||
|
||||
TYPE
|
||||
Plotter* = POINTER TO PlotterRec;
|
||||
|
|
@ -116,7 +116,7 @@ MODULE Plotters;
|
|||
Services.CreateType(plotterType, "Plotters.Plotter", "");
|
||||
END InitModule;
|
||||
|
||||
PROCEDURE ^ Close(plotter: Plotter);
|
||||
PROCEDURE ^ Close*(plotter: Plotter);
|
||||
|
||||
PROCEDURE TerminationHandler(event: Events.Event);
|
||||
VAR
|
||||
|
|
@ -265,4 +265,4 @@ MODULE Plotters;
|
|||
|
||||
BEGIN
|
||||
InitModule;
|
||||
END Plotters.
|
||||
END ulmPlotters.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue