14 lines
259 B
Standard ML
14 lines
259 B
Standard ML
signature DRAW_MSG =
|
|
sig
|
|
datatype t =
|
|
REDRAW_TEXT of Real32.real vector
|
|
| REDRAW_CURSOR of Real32.real vector
|
|
end
|
|
|
|
structure DrawMsg :> DRAW_MSG =
|
|
struct
|
|
datatype t =
|
|
REDRAW_TEXT of Real32.real vector
|
|
| REDRAW_CURSOR of Real32.real vector
|
|
end
|