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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
// Copyright (C) 1999-2016
// Smithsonian Astrophysical Observatory, Cambridge, MA, USA
// For conditions of distribution and use, see copyright notice in "copyright"
#include <tkInt.h>
#include "pannertrue.h"
#include "util.h"
// Tk Canvas Widget Function Declarations
int PannerTrueColorCreateProc(Tcl_Interp*, Tk_Canvas, Tk_Item*, int,
Tcl_Obj *const []);
// PannerTrueColor Specs
static Tk_CustomOption tagsOption = {
NULL, NULL, NULL
};
static Tk_ConfigSpec pannerTrueColorSpecs[] = {
{TK_CONFIG_STRING, (char*)"-command", NULL, NULL, "panner",
Tk_Offset(WidgetOptions, cmdName), TK_CONFIG_OPTION_SPECIFIED, NULL},
{TK_CONFIG_INT, (char*)"-x", NULL, NULL, "1",
Tk_Offset(WidgetOptions, x), TK_CONFIG_OPTION_SPECIFIED, NULL},
{TK_CONFIG_INT, (char*)"-y", NULL, NULL, "1",
Tk_Offset(WidgetOptions, y), TK_CONFIG_OPTION_SPECIFIED, NULL},
{TK_CONFIG_INT, (char*)"-width", NULL, NULL, "256",
Tk_Offset(WidgetOptions, width), TK_CONFIG_OPTION_SPECIFIED, NULL},
{TK_CONFIG_INT, (char*)"-height", NULL, NULL, "256",
Tk_Offset(WidgetOptions, height), TK_CONFIG_OPTION_SPECIFIED, NULL},
{TK_CONFIG_ANCHOR, (char*)"-anchor", NULL, NULL, "nw",
Tk_Offset(WidgetOptions, anchor), 0, NULL},
{TK_CONFIG_CUSTOM, (char*)"-tags", NULL, NULL, NULL,
0, TK_CONFIG_NULL_OK, &tagsOption},
{TK_CONFIG_STRING, (char*)"-helvetica", NULL, NULL, "helvetica",
Tk_Offset(WidgetOptions, helvetica), 0, NULL},
{TK_CONFIG_STRING, (char*)"-courier", NULL, NULL, "courier",
Tk_Offset(WidgetOptions, courier), 0, NULL},
{TK_CONFIG_STRING, (char*)"-times", NULL, NULL, "times",
Tk_Offset(WidgetOptions, times), 0, NULL},
{TK_CONFIG_END, NULL, NULL, NULL, NULL, 0, 0, NULL},
};
// Tk Static Structure
static Tk_ItemType pannerTrueColorType = {
(char*)"pannertruecolor", // name
sizeof(WidgetOptions), // size
PannerTrueColorCreateProc, // configProc
pannerTrueColorSpecs, // configSpecs
WidgetConfigProc, // configProc
WidgetCoordProc, // coordProc
WidgetDeleteProc, // deleteProc
WidgetDisplayProc, // displayProc
0, // alwaysRedraw
WidgetPointProc, // pointProc
WidgetAreaProc, // areaProc
WidgetPostscriptProc, // postscriptProc
WidgetScaleProc, // scaleProc
WidgetTranslateProc, // translateProc
(Tk_ItemIndexProc*)NULL, // indexProc
WidgetICursorProc, // icursorProc
(Tk_ItemSelectionProc*)NULL, // selectionProc
(Tk_ItemInsertProc*)NULL, // insertProc
(Tk_ItemDCharsProc*)NULL, // dCharsProc
(Tk_ItemType*)NULL // nextPtr
};
// Non-Member Functions
int PannerTrueColor_Init(Tcl_Interp* interp)
{
tagsOption.parseProc = Tk_CanvasTagsParseProc;
tagsOption.printProc = Tk_CanvasTagsPrintProc;
Tk_CreateItemType(&pannerTrueColorType);
return TCL_OK;
}
int PannerTrueColorCreateProc(Tcl_Interp* interp, Tk_Canvas canvas,
Tk_Item* item, int argc, Tcl_Obj *const argv[])
{
PannerTrueColor* panner = new PannerTrueColor(interp, canvas, item);
// and set default configuration
if (panner->configure(argc, (const char**)argv, 0) != TCL_OK) {
delete panner;
Tcl_AppendResult(interp, " error occured while creating pannerTrueColor.",
NULL);
return TCL_ERROR;
}
return TCL_OK;
}
PannerTrueColor::PannerTrueColor(Tcl_Interp* i, Tk_Canvas c, Tk_Item* item)
: Panner(i, c, item)
{
configSpecs = pannerTrueColorSpecs; // panner configure options
}
void PannerTrueColor::clearPixmap()
{
XImage* xmap = XGetImage(display, pixmap, 0, 0,
options->width, options->height,
AllPlanes, ZPixmap);
if (!xmap) {
internalError("Panner: Unable to Create XImage");
return;
}
memset(xmap->data, 255, xmap->bytes_per_line * xmap->height);
TkPutImage(NULL, 0, display, pixmap, widgetGC, xmap,
0, 0, 0, 0, options->width, options->height);
XDestroyImage(xmap);
}
|