ARB
AW_at.cxx
Go to the documentation of this file.
1 // =============================================================== //
2 // //
3 // File : AW_at.cxx //
4 // Purpose : //
5 // //
6 // Institute of Microbiology (Technical University Munich) //
7 // http://www.arb-home.de/ //
8 // //
9 // =============================================================== //
10 
11 #include "aw_at.hxx"
12 #include "aw_window.hxx"
13 #include "aw_xfig.hxx"
14 #include "aw_root.hxx"
15 
16 #include <arbdbt.h>
17 
19  memset((char*)this, 0, sizeof(AW_at));
20 
21  length_of_buttons = 10;
23  shadow_thickness = 2;
25 }
26 
27 void AW_window::at(const char *at_id) {
28  char to_position[100];
29  memset(to_position, 0, sizeof(to_position));
30 
31  _at->attach_y = _at->attach_x = false;
32  _at->attach_ly = _at->attach_lx = false;
33  _at->attach_any = false;
34 
35  if (!xfig_data) GBK_terminatef("no xfig-data loaded, can't position at(\"%s\")", at_id);
36 
37  AW_xfig *xfig = (AW_xfig *)xfig_data;
38  AW_xfig_pos *pos;
39 
40  pos = (AW_xfig_pos*)GBS_read_hash(xfig->at_pos_hash, at_id);
41 
42  if (!pos) {
43  sprintf(to_position, "X:%s", at_id);
44  pos = (AW_xfig_pos*)GBS_read_hash(xfig->at_pos_hash, to_position);
45  if (pos) _at->attach_any = _at->attach_lx = true;
46  }
47  if (!pos) {
48  sprintf(to_position, "Y:%s", at_id);
49  pos = (AW_xfig_pos*)GBS_read_hash(xfig->at_pos_hash, to_position);
50  if (pos) _at->attach_any = _at->attach_ly = true;
51  }
52  if (!pos) {
53  sprintf(to_position, "XY:%s", at_id);
54  pos = (AW_xfig_pos*)GBS_read_hash(xfig->at_pos_hash, to_position);
55  if (pos) _at->attach_any = _at->attach_lx = _at->attach_ly = true;
56  }
57 
58  if (!pos) GBK_terminatef("ID '%s' does not exist in xfig file", at_id);
59 
60  at((pos->x - xfig->minx), (pos->y - xfig->miny - this->get_root()->font_height - 9));
61  _at->correct_for_at_center = pos->center;
62 
63  sprintf(to_position, "to:%s", at_id);
64  pos = (AW_xfig_pos*)GBS_read_hash(xfig->at_pos_hash, to_position);
65 
66  if (!pos) {
67  sprintf(to_position, "to:X:%s", at_id);
68  pos = (AW_xfig_pos*)GBS_read_hash(xfig->at_pos_hash, to_position);
69  if (pos) _at->attach_any = _at->attach_x = true;
70  }
71  if (!pos) {
72  sprintf(to_position, "to:Y:%s", at_id);
73  pos = (AW_xfig_pos*)GBS_read_hash(xfig->at_pos_hash, to_position);
74  if (pos) _at->attach_any = _at->attach_y = true;
75  }
76  if (!pos) {
77  sprintf(to_position, "to:XY:%s", at_id);
78  pos = (AW_xfig_pos*)GBS_read_hash(xfig->at_pos_hash, to_position);
79  if (pos) _at->attach_any = _at->attach_x = _at->attach_y = true;
80  }
81 
82  if (pos) {
83  _at->to_position_exists = true;
84  _at->to_position_x = (pos->x - xfig->minx);
85  _at->to_position_y = (pos->y - xfig->miny);
86  _at->correct_for_at_center = 0; // always justify left when a to-position exists
87  }
88  else {
89  _at->to_position_exists = false;
90  }
91 }
92 
93 void AW_window::at(int x, int y) {
94  at_x(x);
95  at_y(y);
96 }
97 
98 void AW_window::at_x(int x) {
99  if (_at->x_for_next_button > _at->max_x_size) _at->max_x_size = _at->x_for_next_button;
100  _at->x_for_next_button = x;
101  if (_at->x_for_next_button > _at->max_x_size) _at->max_x_size = _at->x_for_next_button;
102 }
103 
104 void AW_window::at_y(int y) {
108  if (_at->biggest_height_of_buttons<0) {
109  _at->biggest_height_of_buttons = 0;
110  if (_at->max_y_size < y) _at->max_y_size = y;
111  }
112  _at->y_for_next_button = y;
113 }
114 
115 void AW_window::at_shift(int x, int y) {
116  at(x+_at->x_for_next_button, y+_at->y_for_next_button);
117 }
118 
120  if (_at->do_auto_increment) {
122  }
123  else {
124  if (_at->do_auto_space) {
126  }
127  else {
128  GBK_terminate("neither auto_space nor auto_increment activated while using at_newline");
129  }
130  }
131  at_x(_at->x_for_newline);
132 }
133 
134 bool AW_window::at_ifdef(const char *at_id_) {
135  AW_xfig *xfig = (AW_xfig *)xfig_data;
136  if (!xfig) return false;
137 
138  char buffer[100];
139 
140 #if defined(DEBUG)
141  int printed =
142 #endif // DEBUG
143  sprintf(buffer, "XY:%s", at_id_);
144 #if defined(DEBUG)
145  aw_assert(printed<100);
146 #endif // DEBUG
147 
148  if (GBS_read_hash(xfig->at_pos_hash, buffer+3)) return true; // "tag"
149  if (GBS_read_hash(xfig->at_pos_hash, buffer+1)) return true; // "Y:tag"
150  if (GBS_read_hash(xfig->at_pos_hash, buffer)) return true; // "XY:tag"
151  buffer[1] = 'X';
152  if (GBS_read_hash(xfig->at_pos_hash, buffer+1)) return true; // "X:tag"
153 
154  return false;
155 }
156 
157 void AW_window::at_attach(int x, int y) {
158  // similar to using "$XY:noId" in xfig, but works w/o defined 'noId' (ie. w/o having xfig)
159  //
160  // meaning of x/y:
161  // - positive values = absolute position like at(x, y) does
162  // - negative values = relative position to right/lower border.
163  // Position will get attached to that border.
164  // For 'x' position widget will also become right-aligned.
165  // - zero = keep current at-position
166  //
167  // Note: window should have already reached its minimum size when using an at_attach..-function!
168 
169  bool attach_x = x<0;
170  bool attach_y = y<0;
171 
172  _at->attach_any = attach_x || attach_y;
173 
174  aw_assert(_at->attach_any); // call has no effect (use at(x, y) to set an absolute position!)
175 
176  _at->attach_lx = attach_x;
177  _at->attach_ly = attach_y;
178  _at->correct_for_at_center = attach_x ? 2 : 0;
179 
180  int width, height;
181  get_window_size(width, height);
182 
183  if (x) at_x(attach_x ? width+x : x);
184  if (y) at_y(attach_y ? height+y : y);
185 }
186 
187 void AW_window::at_attach_to(bool attach_x, bool attach_y, int xoff, int yoff) {
188  // similar to using "$to:XY:noId" in xfig, but works w/o defined 'noId'
189  //
190  // negative offsets define the to-position of the widget relative to right/lower border (of the window)
191  // positive offsets define the size of the widget (from current at-position)
192  //
193  // Note: window should have already reached its minimum size when using an at_attach..-function!
194 
195  _at->attach_any = _at->attach_any || attach_x || attach_y;
196  _at->attach_x = attach_x;
197  _at->attach_y = attach_y;
198 
199  _at->to_position_exists = true;
200  _at->to_position_x = xoff >= 0 ? _at->x_for_next_button + xoff : _at->max_x_size+xoff;
201  _at->to_position_y = yoff >= 0 ? _at->y_for_next_button + yoff : _at->max_y_size+yoff;
202 
204  aw_assert(_at->to_position_y > _at->y_for_next_button); // invalid (would calculate ultra-large button-size in create_button)
205 
206  if (_at->to_position_x > _at->max_x_size) _at->max_x_size = _at->to_position_x;
207  if (_at->to_position_y > _at->max_y_size) _at->max_y_size = _at->to_position_y;
208 
209  _at->correct_for_at_center = 0;
210 }
212  _at->attach_any =
213  _at->attach_x = _at->attach_y =
214  _at->attach_lx = _at->attach_ly = false;
215 
216  _at->to_position_exists = false;
217  _at->correct_for_at_center = 0;
218 }
219 
221  _callback = NULp;
222  _d_callback = NULp;
223 
224  _at->correct_for_at_center = 0;
225  _at->to_position_exists = false;
226  _at->highlight = false;
227 
228  freenull(_at->helptext_for_next_button);
229  freenull(_at->label_for_inputfield);
230 
231  _at->background_color = 0;
232 }
233 
234 void AW_window::increment_at_commands(int width, int height) {
235 
236  at_shift(width, 0);
237  at_shift(-width, 0); // set bounding box
238 
239  if (_at->do_auto_increment) {
240  at_shift(_at->auto_increment_x, 0);
241  }
242  if (_at->do_auto_space) {
243  at_shift(_at->auto_space_x + width, 0);
244  }
245 
246  if (_at->biggest_height_of_buttons < height) {
247  _at->biggest_height_of_buttons = height;
248  }
249 
250  if (_at->max_y_size < (_at->y_for_next_button + _at->biggest_height_of_buttons + 3.0)) {
252  }
253 
254  if (_at->max_x_size < (_at->x_for_next_button + this->get_root()->font_width)) {
255  _at->max_x_size = _at->x_for_next_button + this->get_root()->font_width;
256  }
257 }
258 
259 void AW_window::auto_space(int x, int y) {
260  _at->do_auto_space = true;
261  _at->auto_space_x = x;
262  _at->auto_space_y = y;
263 
264  _at->do_auto_increment = false;
265 
266  _at->x_for_newline = _at->x_for_next_button;
267  _at->biggest_height_of_buttons = 0;
268 }
269 
270 void AW_window::auto_increment(int x, int y) {
271  _at->do_auto_increment = true;
272  _at->auto_increment_x = x;
273  _at->auto_increment_y = y;
274  _at->x_for_newline = _at->x_for_next_button;
275  _at->do_auto_space = false;
276  _at->biggest_height_of_buttons = 0;
277 }
278 
281 }
282 
284  _at->length_of_buttons = length;
285 }
286 
288  return _at->length_of_buttons;
289 }
290 
291 void AW_window::get_at_position(int *x, int *y) const {
292  *x = _at->x_for_next_button;
293  *y = _at->y_for_next_button;
294 }
295 
297  return _at->x_for_next_button;
298 }
299 
301  return _at->y_for_next_button;
302 }
303 
304 // -------------------
305 // AW_at_size
306 
307 class AW_at_size : public AW_at_storage {
308  int to_offset_x; // here we use offsets (not positions like in AW_at)
309  int to_offset_y;
310  bool to_position_exists;
311 
312  bool attach_x; // attach right side to right form
313  bool attach_y;
314  bool attach_lx; // attach left side to right form
315  bool attach_ly;
316  bool attach_any;
317 
318 public:
320  : to_offset_x(0),
321  to_offset_y(0),
322  to_position_exists(false),
323  attach_x(false),
324  attach_y(false),
325  attach_lx(false),
326  attach_ly(false),
327  attach_any(false)
328  {}
329 
330  void store(const AW_at& at) OVERRIDE;
331  void restore(AW_at& at) const OVERRIDE;
332 };
333 
334 void AW_at_size::store(const AW_at& at) {
335  to_position_exists = at.to_position_exists;
336  if (to_position_exists) {
337  to_offset_x = at.to_position_x - at.x_for_next_button;
338  to_offset_y = at.to_position_y - at.y_for_next_button;
339  }
340  attach_x = at.attach_x;
341  attach_y = at.attach_y;
342  attach_lx = at.attach_lx;
343  attach_ly = at.attach_ly;
344  attach_any = at.attach_any;
345 }
346 
347 void AW_at_size::restore(AW_at& at) const {
348  at.to_position_exists = to_position_exists;
349  if (to_position_exists) {
350  at.to_position_x = at.x_for_next_button + to_offset_x;
351  at.to_position_y = at.y_for_next_button + to_offset_y;
352  }
353  at.attach_x = attach_x;
354  at.attach_y = attach_y;
355  at.attach_lx = attach_lx;
356  at.attach_ly = attach_ly;
357  at.attach_any = attach_any;
358 }
359 
360 // -------------------
361 // AW_at_maxsize
362 
363 class AW_at_maxsize : public AW_at_storage {
364  int maxx;
365  int maxy;
366 
367 public:
369  : maxx(0),
370  maxy(0)
371  {}
372 
373  void store(const AW_at &at) OVERRIDE;
374  void restore(AW_at &at) const OVERRIDE;
375 };
376 
377 void AW_at_maxsize::store(const AW_at &at) {
378  maxx = at.max_x_size;
379  maxy = at.max_y_size;
380 }
381 
382 void AW_at_maxsize::restore(AW_at &at) const {
383  at.max_x_size = maxx;
384  at.max_y_size = maxy;
385 }
386 
387 // -------------------
388 // AW_at_auto
389 
390 class AW_at_auto : public AW_at_storage {
391  enum { INC, SPACE, OFF } type;
392  int x, y;
393  int xfn, xfnb, yfnb, bhob;
394 public:
395  AW_at_auto() : type(OFF), x(0), y(0), xfn(0), xfnb(0), yfnb(0), bhob(0) {}
396 
397  void store(const AW_at &at) OVERRIDE;
398  void restore(AW_at &at) const OVERRIDE;
399 };
400 
401 void AW_at_auto::store(const AW_at &at) {
402  if (at.do_auto_increment) {
403  type = INC;
404  x = at.auto_increment_x;
405  y = at.auto_increment_y;
406  }
407  else if (at.do_auto_space) {
408  type = SPACE;
409  x = at.auto_space_x;
410  y = at.auto_space_y;
411  }
412  else {
413  type = OFF;
414  }
415 
416  xfn = at.x_for_newline;
417  xfnb = at.x_for_next_button;
418  yfnb = at.y_for_next_button;
419  bhob = at.biggest_height_of_buttons;
420 }
421 
422 void AW_at_auto::restore(AW_at &at) const {
423  at.do_auto_space = (type == SPACE);
424  at.do_auto_increment = (type == INC);
425 
426  if (at.do_auto_space) {
427  at.auto_space_x = x;
428  at.auto_space_y = y;
429  }
430  else if (at.do_auto_increment) {
431  at.auto_increment_x = x;
432  at.auto_increment_y = y;
433  }
434 
435  at.x_for_newline = xfn;
436  at.x_for_next_button = xfnb;
437  at.y_for_next_button = yfnb;
438  at.biggest_height_of_buttons = bhob;
439 }
440 
441 // -------------------------------
442 // AW_at_storage factory
443 
445  AW_at_storage *s = NULp;
446  switch (type) {
447  case AW_AT_SIZE_AND_ATTACH: s = new AW_at_size(); break;
448  case AW_AT_AUTO: s = new AW_at_auto(); break;
449  case AW_AT_MAXSIZE: s = new AW_at_maxsize(); break;
450  }
451  aww->store_at_to(*s);
452  return s;
453 }
454 
455 int AW_window::calculate_string_width(int columns) const {
456  if (xfig_data) {
457  AW_xfig *xfig = (AW_xfig *)xfig_data;
458  return (int)(columns * xfig->font_scale * XFIG_DEFAULT_FONT_WIDTH); // stdfont 8x13
459  }
460  else {
461  return columns * XFIG_DEFAULT_FONT_WIDTH; // stdfont 8x13
462  }
463 }
464 
465 int AW_window::calculate_string_height(int rows, int offset) const {
466  if (xfig_data) {
467  AW_xfig *xfig = (AW_xfig *)xfig_data;
468  return (int)((rows * XFIG_DEFAULT_FONT_HEIGHT + offset) * xfig->font_scale); // stdfont 8x13
469  }
470  else {
471  return rows * XFIG_DEFAULT_FONT_HEIGHT + offset; // stdfont 8x13
472  }
473 }
474 
475 char *AW_window::align_string(const char *label_text, int columns) {
476  // shortens or expands 'label_text' to 'columns' columns
477  // if label_text contains '\n', each "line" is handled separately
478 
479  const char *lf = strchr(label_text, '\n');
480  char *result = NULp;
481 
482  if (!lf) {
483  ARB_alloc(result, columns+1);
484 
485  int len = strlen(label_text);
486  if (len>columns) len = columns;
487 
488  memcpy(result, label_text, len);
489  if (len<columns) memset(result+len, ' ', columns-len);
490  result[columns] = 0;
491  }
492  else {
493  char *part1 = ARB_strpartdup(label_text, lf-1);
494  char *aligned1 = align_string(part1, columns);
495  char *aligned2 = align_string(lf+1, columns);
496 
497  result = GBS_global_string_copy("%s\n%s", aligned1, aligned2);
498 
499  free(aligned2);
500  free(aligned1);
501  free(part1);
502  }
503  return result;
504 }
505 
bool to_position_exists
Definition: aw_at.hxx:40
bool attach_x
Definition: aw_at.hxx:58
int x_for_next_button
Definition: aw_at.hxx:33
AW_cb * _callback
Definition: aw_window.hxx:281
short length_of_buttons
Definition: aw_at.hxx:21
void get_at_position(int *x, int *y) const
Definition: AW_at.cxx:291
string result
bool attach_ly
Definition: aw_at.hxx:61
GB_TYPES type
void button_length(int length)
Definition: AW_at.cxx:283
int get_at_xposition() const
Definition: AW_at.cxx:296
bool do_auto_space
Definition: aw_at.hxx:42
static char * y[maxsp+1]
void store(const AW_at &at) OVERRIDE
Definition: AW_at.cxx:377
void at_x(int x)
Definition: AW_at.cxx:98
short y
Definition: aw_xfig.hxx:58
void store(const AW_at &at) OVERRIDE
Definition: AW_at.cxx:334
int auto_space_y
Definition: aw_at.hxx:44
short length_of_label_for_inputfield
Definition: aw_at.hxx:23
int max_y_size
Definition: aw_at.hxx:36
void at(int x, int y)
Definition: AW_at.cxx:93
AW_at()
Definition: AW_at.cxx:18
void unset_at_commands()
Definition: AW_at.cxx:220
short shadow_thickness
Definition: aw_at.hxx:20
void at_shift(int x, int y)
Definition: AW_at.cxx:115
int to_position_y
Definition: aw_at.hxx:39
void GBK_terminatef(const char *templat,...)
Definition: arb_msg.cxx:477
void restore(AW_at &at) const OVERRIDE
Definition: AW_at.cxx:382
Definition: aw_at.hxx:18
char * ARB_strpartdup(const char *start, const char *end)
Definition: arb_string.h:51
void restore(AW_at &at) const OVERRIDE
Definition: AW_at.cxx:347
short height_of_buttons
Definition: aw_at.hxx:22
short x_for_newline
Definition: aw_at.hxx:56
int auto_space_x
Definition: aw_at.hxx:43
char buffer[MESSAGE_BUFFERSIZE]
Definition: seq_search.cxx:34
double font_scale
Definition: aw_xfig.hxx:90
bool do_auto_increment
Definition: aw_at.hxx:46
TYPE * ARB_alloc(size_t nelem)
Definition: arb_mem.h:56
bool highlight
Definition: aw_at.hxx:24
int auto_increment_x
Definition: aw_at.hxx:47
int miny
Definition: aw_xfig.hxx:85
void increment_at_commands(int width, int height)
Definition: AW_at.cxx:234
void GBK_terminate(const char *error) __ATTR__NORETURN
Definition: arb_msg.cxx:463
AW_cb * _d_callback
Definition: aw_window.hxx:282
#define aw_assert(bed)
Definition: aw_position.hxx:29
bool attach_y
Definition: aw_at.hxx:59
#define false
Definition: ureadseq.h:13
char * helptext_for_next_button
Definition: aw_at.hxx:26
void at_unattach()
Definition: AW_at.cxx:211
short font_width
Definition: aw_root.hxx:122
AW_at_auto()
Definition: AW_at.cxx:395
void store(const AW_at &at) OVERRIDE
Definition: AW_at.cxx:401
int max_x_size
Definition: aw_at.hxx:35
int center
Definition: aw_xfig.hxx:59
int get_button_length() const
Definition: AW_at.cxx:287
AW_active widget_mask
Definition: aw_at.hxx:27
static AW_at_storage * make(AW_window *aww, AW_at_storage_type type)
Definition: AW_at.cxx:444
AW_at_size()
Definition: AW_at.cxx:319
int biggest_height_of_buttons
Definition: aw_at.hxx:50
const int XFIG_DEFAULT_FONT_WIDTH
Definition: aw_xfig.hxx:25
unsigned long int background_color
Definition: aw_at.hxx:29
void auto_space(int xspace, int yspace)
Definition: AW_at.cxx:259
void at_attach(int x, int y)
Definition: AW_at.cxx:157
#define OVERRIDE
Definition: cxxforward.h:93
int y_for_next_button
Definition: aw_at.hxx:34
int to_position_x
Definition: aw_at.hxx:38
int auto_increment_y
Definition: aw_at.hxx:48
void auto_increment(int dx, int dy)
Definition: AW_at.cxx:270
bool at_ifdef(const char *id)
Definition: AW_at.cxx:134
AW_root * get_root()
Definition: aw_window.hxx:348
void at_y(int y)
Definition: AW_at.cxx:104
#define NULp
Definition: cxxforward.h:97
char * label_for_inputfield
Definition: aw_at.hxx:31
#define offset(field)
Definition: GLwDrawA.c:73
void store_at_to(AW_at_storage &storage)
Definition: aw_window.hxx:548
short x
Definition: aw_xfig.hxx:58
int get_at_yposition() const
Definition: AW_at.cxx:300
AW_at_storage_type
Definition: aw_window.hxx:193
size_t length
GB_HASH * at_pos_hash
Definition: aw_xfig.hxx:83
void label_length(int length)
Definition: AW_at.cxx:279
bool attach_any
Definition: aw_at.hxx:62
bool attach_lx
Definition: aw_at.hxx:60
void at_newline()
Definition: AW_at.cxx:119
int minx
Definition: aw_xfig.hxx:85
int correct_for_at_center
Definition: aw_at.hxx:55
void at_attach_to(bool attach_x, bool attach_y, int xoff, int yoff)
Definition: AW_at.cxx:187
long GBS_read_hash(const GB_HASH *hs, const char *key)
Definition: adhash.cxx:395
void get_window_size(int &width, int &height)
Definition: AW_window.cxx:106
void restore(AW_at &at) const OVERRIDE
Definition: AW_at.cxx:422
char * GBS_global_string_copy(const char *templat,...)
Definition: arb_msg.cxx:195
const int XFIG_DEFAULT_FONT_HEIGHT
Definition: aw_xfig.hxx:26
GB_write_int const char s
Definition: AW_awar.cxx:156