blob: 4a1df663b599746e32b669f223ab7059687756d3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
############################################################################
#
# File: gdisable.icn
#
# Subject: Procedure to disable graphics functions
#
# Author: Ralph E. Griswold
#
# Date: August 14, 1996
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# This procedure effectively disables the graphics functions. Care should
# be taken in the way the disabled functions are used, since in their
# disabled forms, they return their first argument (if any).
#
############################################################################
#
# Requires: Version 9 graphics
#
############################################################################
procedure gdisable()
every (
Active |
Alert |
Bg |
Clip |
Clone |
Color |
ColorValue |
CopyArea |
Couple |
DrawArc |
DrawCircle |
DrawCurve |
DrawImage |
DrawLine |
DrawPoint |
DrawPolygon |
DrawRectangle |
DrawSegment |
DrawString |
EraseArea |
Event |
Fg |
FillArc |
FillCircle |
FillPolygon |
FillRectangle |
Font |
FreeColor |
GotoRC |
GotoXY |
Lower |
NewColor |
PaletteChars |
PaletteColor |
PaletteKey |
Pattern |
Pending |
Pixel |
QueryPointer |
Raise |
ReadImage |
TextWidth |
Uncouple |
WAttrib |
WDefault |
WFlush |
WSync |
WriteImage) := 1
return
end
|
