15 lines
310 B
Standard ML
15 lines
310 B
Standard ML
|
structure NormalYankDelete =
|
||
|
|
MakeNormalDelete
|
||
|
|
(struct
|
||
|
|
open DrawMsg
|
||
|
|
open MailboxType
|
||
|
|
|
||
|
|
fun initMsgs (low, length, buffer) =
|
||
|
|
let
|
||
|
|
val str = LineGap.substring (low, length, buffer)
|
||
|
|
val msg = YANK str
|
||
|
|
in
|
||
|
|
[DRAW msg]
|
||
|
|
end
|
||
|
|
end)
|