📄 bgmsg.pro
字号:
/*****************************************************************************
Copyright (c) Prolog Development Center A/S
******************************************************************************/
implement bgMsg
open core
constants
className = "background/bgMsg".
classVersion = "$JustDate: 2004-10-02 $$Revision: 1 $".
facts
msg : string.
clauses
newWrite(...) :-
S = outputStream_string::new(),
S:write(...),
msg := S:getString(),
S:close().
clauses
newWritef(F, ...) :-
S = outputStream_string::new(),
S:writef(F, ...),
msg := S:getString(),
S:close().
clauses
result() :-
stdIO::write(msg).
clauses
classInfo(className, classVersion).
end implement bgMsg
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -