|
1
|
def var i as int.
|
|
2
|
def var ch as char.
|
|
3
|
def var h as handle.
|
|
4
|
def stream rpt.
|
|
5
|
|
|
6
|
display stream rpt i with frame fi in window h.
|
|
7
|
|
|
8
|
/*
|
|
9
|
COLOR phrase:
|
|
10
|
{ NORMAL | INPUT | MESSAGES | protermcap-attribute | dos-hex-attribute |
|
|
11
|
{ [ BLINK- ] [ BRIGHT- ] [ fgnd-color ] [ bgnd-color ] } |
|
|
12
|
{ [ BLINK- ] [ RVV- ] [ UNDERLINE- ] [ BRIGHT- ] [ fgnd-color ] } |
|
|
13
|
VALUE ( expression )
|
|
14
|
}
|
|
15
|
|
|
16
|
form i with frame f1k color value(ch). -- not supported
|
|
17
|
|
|
18
|
all others convert to frame.setDcolor(new ColorPhrase())
|
|
19
|
*/
|
|
20
|
form i with frame f1a color normal.
|
|
21
|
form i with frame f1b color input.
|
|
22
|
form i with frame f1c color messages.
|
|
23
|
form i with frame f1d color red.
|
|
24
|
form i with frame f1e color blink-red.
|
|
25
|
form i with frame f1f color bright-red.
|
|
26
|
form i with frame f1g color blink-red.
|
|
27
|
form i with frame f1h color rvv-red.
|
|
28
|
form i with frame f1i color underline-red.
|
|
29
|
form i with frame f1j color bright-red.
|
|
30
|
|
|
31
|
/*
|
|
32
|
FONT phrase:
|
|
33
|
FONT expression
|
|
34
|
|
|
35
|
not supported:
|
|
36
|
form i with frame f2b font i.
|
|
37
|
form i with frame f2c font i + 1.
|
|
38
|
*/
|
|
39
|
form i with frame f2a font 1.
|
|
40
|
|
|
41
|
/*
|
|
42
|
IN WINDOW phrase: this should be emitted with the display
|
|
43
|
IN WINDOW handle
|
|
44
|
*/
|
|
45
|
function func0 returns handle. return current-window. end.
|
|
46
|
|
|
47
|
display i with frame f3a in window h.
|
|
48
|
display i with frame f3a in window func0().
|
|
49
|
display i with frame f3a in window current-window.
|
|
50
|
display i with frame f3a in window default-window.
|
|
51
|
display i with frame f3a in window active-window.
|
|
52
|
|
|
53
|
update i with frame f3a in window h.
|
|
54
|
set i with frame f3a in window h.
|
|
55
|
prompt-for i with frame f3a in window h.
|
|
56
|
display i with frame f3a in window h.
|
|
57
|
enable i with frame f3a in window h.
|
|
58
|
view frame f3a in window h.
|
|
59
|
hide frame f3a in window h.
|
|
60
|
|
|
61
|
update i with frame f3a in window func0().
|
|
62
|
set i with frame f3a in window func0().
|
|
63
|
prompt-for i with frame f3a in window func0().
|
|
64
|
display i with frame f3a in window func0().
|
|
65
|
enable i with frame f3a in window func0().
|
|
66
|
view frame f3a in window func0().
|
|
67
|
hide frame f3a in window func0().
|
|
68
|
|
|
69
|
update i with frame f3a in window current-window.
|
|
70
|
set i with frame f3a in window current-window.
|
|
71
|
prompt-for i with frame f3a in window current-window.
|
|
72
|
display i with frame f3a in window current-window.
|
|
73
|
enable i with frame f3a in window current-window.
|
|
74
|
view frame f3a in window current-window.
|
|
75
|
hide frame f3a in window current-window.
|
|
76
|
|
|
77
|
/*
|
|
78
|
STREAM-IO clause
|
|
79
|
*/
|
|
80
|
form i with frame f4a stream-io.
|
|
81
|
|
|
82
|
form i with down frame f5a.
|
|
83
|
|
|
84
|
function func1 returns handle.
|
|
85
|
return session.
|
|
86
|
end.
|
|
87
|
|
|
88
|
function func2 returns handle.
|
|
89
|
return last-event.
|
|
90
|
end.
|
|
91
|
|
|
92
|
function func3 returns handle.
|
|
93
|
return file-info.
|
|
94
|
end.
|
|
95
|
|
|
96
|
function func4 returns handle.
|
|
97
|
return active-window.
|
|
98
|
end.
|
|
99
|
|
|
100
|
function func5 returns handle.
|
|
101
|
return current-window.
|
|
102
|
end.
|
|
103
|
|
|
104
|
function func6 returns handle.
|
|
105
|
return default-window.
|
|
106
|
end.
|