12 lines
231 B
Standard ML
12 lines
231 B
Standard ML
signature DRAW_MESSAGE =
|
|
sig
|
|
datatype t = DRAW_BUTTON of Real32.real vector
|
|
| NO_DRAW
|
|
end
|
|
|
|
structure DrawMessage :> DRAW_MESSAGE =
|
|
struct
|
|
datatype t = DRAW_BUTTON of Real32.real vector
|
|
| NO_DRAW
|
|
end
|