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
123
124
|
// fl_show_colormap.C
// Select a color from the colormap.
// Pretty much unchanged from Forms.
#include <FL/Fl.H>
#include <FL/Fl_Single_Window.H>
#include <FL/fl_draw.H>
#include <FL/fl_show_colormap.H>
#include <config.h>
#define BOXSIZE 14
#define BORDER 4
class ColorMenu : public Fl_Window {
Fl_Color initial;
Fl_Color which, previous;
int done;
void drawbox(Fl_Color);
void draw();
int handle(int);
public:
ColorMenu(Fl_Color oldcol);
Fl_Color run();
};
ColorMenu::ColorMenu(Fl_Color oldcol) :
Fl_Window(BOXSIZE*8+1+2*BORDER, BOXSIZE*32+1+2*BORDER) {
clear_border();
set_modal();
initial = which = oldcol;
}
void ColorMenu::drawbox(Fl_Color c) {
if (c < 0 || c > 255) return;
int x = (c%8)*BOXSIZE+BORDER;
int y = (c/8)*BOXSIZE+BORDER;
#if BORDER_WIDTH < 3
if (c == which) fl_draw_box(FL_DOWN_BOX, x+1, y+1, BOXSIZE-1, BOXSIZE-1, c);
else fl_draw_box(FL_BORDER_BOX, x, y, BOXSIZE+1, BOXSIZE+1, c);
#else
fl_draw_box(c == which ? FL_DOWN_BOX : FL_BORDER_BOX,
x, y, BOXSIZE+1, BOXSIZE+1, c);
#endif
}
void ColorMenu::draw() {
if (damage() != FL_DAMAGE_CHILD) {
fl_draw_box(FL_UP_BOX,0,0,w(),h(),color());
for (int c = 0; c < 256; c++) drawbox((Fl_Color)c);
} else {
drawbox(previous);
drawbox(which);
}
previous = which;
}
int ColorMenu::handle(int e) {
int c = which;
switch (e) {
case FL_PUSH:
case FL_DRAG: {
int X = (Fl::event_x_root() - x() - BORDER);
if (X >= 0) X = X/BOXSIZE;
int Y = (Fl::event_y_root() - y() - BORDER);
if (Y >= 0) Y = Y/BOXSIZE;
if (X >= 0 && X < 8 && Y >= 0 && Y < 32)
c = 8*Y + X;
else
c = initial;
} break;
case FL_RELEASE:
done = 1;
return 1;
case FL_KEYBOARD:
switch (Fl::event_key()) {
case FL_Up: if (c > 7) c -= 8; break;
case FL_Down: if (c < 256-8) c += 8; break;
case FL_Left: if (c > 0) c--; break;
case FL_Right: if (c < 255) c++; break;
case FL_Escape: which = initial; done = 1; return 1;
case FL_Enter: done = 1; return 1;
default: return 0;
}
break;
default:
return 0;
}
if (c != which) {
which = (Fl_Color)c; damage(FL_DAMAGE_CHILD);
int bx = (c%8)*BOXSIZE+BORDER;
int by = (c/8)*BOXSIZE+BORDER;
int px = x();
int py = y();
if (px+bx+BOXSIZE+BORDER >= Fl::w()) px = Fl::w()-bx-BOXSIZE-BORDER;
if (py+by+BOXSIZE+BORDER >= Fl::h()) py = Fl::h()-by-BOXSIZE-BORDER;
if (px+bx < BORDER) px = BORDER-bx;
if (py+by < BORDER) py = BORDER-by;
position(px,py);
}
return 1;
}
extern char fl_override_redirect; // hack for menus
Fl_Color ColorMenu::run() {
if (which < 0 || which > 255) {
position(Fl::event_x_root()-w()/2, Fl::event_y_root()-y()/2);
} else {
position(Fl::event_x_root()-(initial%8)*BOXSIZE-BOXSIZE/2-BORDER,
Fl::event_y_root()-(initial/8)*BOXSIZE-BOXSIZE/2-BORDER);
}
Fl::grab(*this);
show();
done = 0;
while (!done) Fl::wait();
Fl::release();
return which;
}
Fl_Color fl_show_colormap(Fl_Color oldcol) {
ColorMenu m(oldcol);
return m.run();
}
|
