さくらさんのページのobjsendの資料にあったものを
sendmsgにしてほぼ丸写し(怒られませんように)。
<エディタの機能をまとめる>
のところのみ写したけれど、sendmsgはobjsendと
ほとんど変わらないので簡単に置換出来ます。
//////////////////////////////////////////
//////////////////////////////////////////
*main
cls
notesel msgdata:msgdata=""
screen 0,640,480,1
sdim filename,64
sdim msgdata,65536
objid=0//mesboxのオブジェクトID
pos 10, 20 : mesbox msgdata,620,380,1,0
pos 10, 410 : button "Cut" ,*cut
pos 80, 410 : button "Copy" ,*copy
pos 150,410 : button "Past" ,*past
pos 220,410 : button "Delete" ,*del
pos 290,410 : button "Undo" ,*undo
pos 360,410 : button "Load" ,*hiraku
pos 430,410 : button "Save" ,*hozon
pos 500,410 : button "End" ,*owari
;切り取り
*cut
objsel objid
sendmsg objinfo(objid,2),$300,0,0
stop
;複写
*copy
objsel objid
sendmsg objinfo(objid,2),$301,0,0
stop
;貼り付け
*past
objsel objid
sendmsg objinfo(objid,2),$302,0,0
stop
;削除
*del
objsel objid
sendmsg objinfo(objid,2),$303,0,0
stop
;やり直し
*undo
objsel objid
sendmsg objinfo(objid,2),$304,0,0
stop
*hiraku
dialog "txt",16,"txtﾌｧｲﾙ"
if stat=0:stop
filename="" :msgdata=""
filename=refstr
noteload filename
objprm objid,msgdata
stop
*hozon
dialog "txt",17,"txtﾌｧｲﾙ"
if stat=0 :stop
filename=refstr
notesave filename
stop
*owari
end
