summaryrefslogtreecommitdiff
path: root/test/simple/simple.led
blob: 63f3dc296a25bcff069f4996447cdd576407f2f6 (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
82
83
84
85
86
87
88
89
90
91
92
93
94
mnOpen = MENU
(
 ITEM("CGM - Binary", SimplePlayCGMBin),
 ITEM("CGM - Text", SimplePlayCGMText),
 ITEM("METAFILE", SimplePlayMetafile),
 ITEM("WMF", SimplePlayWMF),
 ITEM("EMF", SimplePlayEMF)
)

mnSaveAs = MENU
(
 ITEM("DEBUG", SimpleDrawDebug),
 ITEM("CGM - Binary", SimpleDrawCGMBin),
 ITEM("CGM - Text", SimpleDrawCGMText),
 ITEM("DGN", SimpleDrawDGN),
 ITEM("DXF", SimpleDrawDXF),
 ITEM("EMF", SimpleDrawEMF),
 ITEM("METAFILE", SimpleDrawMetafile),
 ITEM("PDF", SimpleDrawPDF),
 ITEM("PS", SimpleDrawPS),
 ITEM("EPS", SimpleDrawEPS),
 ITEM("SVG", SimpleDrawSVG),
 ITEM("WMF", SimpleDrawWMF)
)

mnFile = MENU
(
 SUBMENU("Open", mnOpen),
 SUBMENU("Save As", mnSaveAs),
 SEPARATOR(),
 ITEM("Print", SimpleDrawPrint),
 ITEM("Print Dialog...", SimpleDrawPrintDialog),
 SEPARATOR(),
 ITEM("Exit", cmdExit)
)

mnEdit = MENU
(
 ITEM("Copy as Metafile", SimpleDrawClipboardMetafile),
 ITEM("Copy as EMF", SimpleDrawClipboardEMF),
 ITEM("Copy as Bitmap", SimpleDrawClipboardBitmap),
 ITEM("Paste", SimplePlayClipboard)
)

mnClipping = MENU
(
 ITEM("Off", SimpleClippingOff),
 ITEM("Area", SimpleClippingArea),
 ITEM("Polygon", SimpleClippingPolygon),
 ITEM("Region", SimpleClippingRegion)
)

mnWriteMode = MENU
(
 ITEM("Replace", SimpleReplace),
 ITEM("Xor", SimpleXor),
 ITEM("Not Xor", SimpleNotXor)
)

mnOptions = MENU
(
 SUBMENU("Clipping", mnClipping),
 SUBMENU("Write Mode", mnWriteMode),
 ITEM("Simulate", SimpleDrawSimulate),
 ITEM("Transform", SimpleTransform),
 ITEM("Context Plus", SimpleContextPlus)
)    

mnSurface = MENU
(
 ITEM("Window", SimpleDrawWindow),
 ITEM("Server Image", SimpleDrawImage),
 ITEM("Image RGB", SimpleDrawImageRGB)
)    

mnPrimitives = MENU
(
 ITEM("All", SimpleDrawAll),
 ITEM("Text Align", SimpleDrawTextAlign),
 ITEM("Text Fonts", SimpleDrawTextFonts),
 ITEM("Test", SimpleDrawTest)
)    

mnSimpleMenu = MENU
(
 SUBMENU("File", mnFile),
 SUBMENU("Edit", mnEdit),
 SUBMENU("Options", mnOptions),
 SUBMENU("Surface", mnSurface),
 SUBMENU("Primitives", mnPrimitives)
)

SimpleCanvas = CANVAS[BORDER=0](SimpleRepaint)
SimpleDialog = DIALOG [TITLE="Simple Draw", MENU=mnSimpleMenu](SimpleCanvas)