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
|
// Copyright (C) 1999-2017
// Smithsonian Astrophysical Observatory, Cambridge, MA, USA
// For conditions of distribution and use, see copyright notice in "copyright"
#include "framergbtruecolor8.h"
#include "fitsimage.h"
// Tk Canvas Widget Function Declarations
int FrameRGBTrueColor8CreateProc(Tcl_Interp*, Tk_Canvas, Tk_Item*, int,
Tcl_Obj *const []);
// FrameRGBTrueColor8 Specs
static Tk_CustomOption tagsOption = {
NULL, NULL, NULL
};
static Tk_ConfigSpec frameRGBTrueColor8Specs[] = {
{TK_CONFIG_STRING, (char*)"-command", NULL, NULL, "framergb",
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, "512",
Tk_Offset(WidgetOptions, width), TK_CONFIG_OPTION_SPECIFIED, NULL},
{TK_CONFIG_INT, (char*)"-height", NULL, NULL, "512",
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 frameRGBTrueColor8Type = {
(char*)"framergbtruecolor8", // name
sizeof(WidgetOptions), // item size
FrameRGBTrueColor8CreateProc, // configProc
frameRGBTrueColor8Specs, // 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 FrameRGBTrueColor8_Init(Tcl_Interp* interp)
{
tagsOption.parseProc = Tk_CanvasTagsParseProc;
tagsOption.printProc = Tk_CanvasTagsPrintProc;
Tk_CreateItemType(&frameRGBTrueColor8Type);
return TCL_OK;
}
int FrameRGBTrueColor8CreateProc(Tcl_Interp* interp, Tk_Canvas canvas,
Tk_Item* item, int argc,
Tcl_Obj *const argv[])
{
FrameRGBTrueColor8* frame = new FrameRGBTrueColor8(interp, canvas, item);
// and set default configuration
if (frame->configure(argc, (const char**)argv, 0) != TCL_OK) {
delete frame;
Tcl_AppendResult(interp, " error occured while creating frame.", NULL);
return TCL_ERROR;
}
return TCL_OK;
}
// FrameRGBTrueColor8 Member Functions
FrameRGBTrueColor8::FrameRGBTrueColor8(Tcl_Interp* i, Tk_Canvas c,
Tk_Item* item)
: FrameRGB(i,c,item), TrueColor8(visual)
{
configSpecs = frameRGBTrueColor8Specs; // frame configure options
}
FrameRGBTrueColor8::~FrameRGBTrueColor8()
{
// we must do this at this level, because updateColorScale is called
unloadAllFits();
}
|
