Fix AVX-512 SIMD test for C
[gromacs.git] / src / programs / view / xdlgitem.cpp
blobcf75e603cdedba7b7d2ac8d24e69de35a02854d1
1 /*
2 * This file is part of the GROMACS molecular simulation package.
4 * Copyright (c) 1991-2000, University of Groningen, The Netherlands.
5 * Copyright (c) 2001-2013, The GROMACS development team.
6 * Copyright (c) 2013,2014,2015,2017, by the GROMACS development team, led by
7 * Mark Abraham, David van der Spoel, Berk Hess, and Erik Lindahl,
8 * and including many others, as listed in the AUTHORS file in the
9 * top-level source directory and at http://www.gromacs.org.
11 * GROMACS is free software; you can redistribute it and/or
12 * modify it under the terms of the GNU Lesser General Public License
13 * as published by the Free Software Foundation; either version 2.1
14 * of the License, or (at your option) any later version.
16 * GROMACS is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 * Lesser General Public License for more details.
21 * You should have received a copy of the GNU Lesser General Public
22 * License along with GROMACS; if not, see
23 * http://www.gnu.org/licenses, or write to the Free Software Foundation,
24 * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
26 * If you want to redistribute modifications to GROMACS, please
27 * consider that scientific software is very special. Version
28 * control is crucial - bugs must be traceable. We will be happy to
29 * consider code for inclusion in the official distribution, but
30 * derived work must not be called official GROMACS. Details are found
31 * in the README & COPYING files - if they are missing, get the
32 * official version at http://www.gromacs.org.
34 * To help us fund GROMACS development, we humbly ask that you cite
35 * the research papers on the package. Check out http://www.gromacs.org.
37 #include "gmxpre.h"
39 #include "xdlgitem.h"
41 #include <cctype>
42 #include <cstdio>
43 #include <cstring>
45 #include <algorithm>
47 #include "gromacs/utility/cstringutil.h"
48 #include "gromacs/utility/fatalerror.h"
49 #include "gromacs/utility/smalloc.h"
51 #include "Xstuff.h"
53 #define BUFSIZE 16
55 static t_dlgitem *newitem(void)
57 t_dlgitem *item;
59 snew(item, 1);
61 return item;
64 /*****************************
66 * Window Procedures and helpful functions
68 ****************************/
69 static void ShowCaret(t_x11 *x11, t_dlgitem *dlgitem)
71 t_edittext *et;
73 if (dlgitem->type == edlgET)
75 int x, y1, y2;
77 et = &(dlgitem->u.edittext);
78 x = XTextWidth(x11->font, dlgitem->win.text, std::strlen(dlgitem->win.text))+XCARET+
79 XTextWidth(x11->font, (char*) &(et->buf[et->strbegin]), et->pos);
80 y1 = (dlgitem->win.height-XTextHeight(x11->font))/2;
81 y2 = (dlgitem->win.height-y1);
82 y1--, y2++;
83 XDrawLine(x11->disp, dlgitem->win.self, x11->gc, x-XCARET, y1, x+XCARET, y1);
84 XDrawLine(x11->disp, dlgitem->win.self, x11->gc, x, y1, x, y2);
85 XDrawLine(x11->disp, dlgitem->win.self, x11->gc, x-XCARET, y2, x+XCARET, y2);
89 static void HideCaret(t_x11 *x11, t_dlgitem *dlgitem)
91 XSetForeground(x11->disp, x11->gc, x11->bg);
92 ShowCaret(x11, dlgitem);
93 XSetForeground(x11->disp, x11->gc, x11->fg);
96 static int DefWndProc(t_x11 *x11, t_dlgitem *dlgitem, XEvent *event)
98 XComposeStatus status;
99 KeySym keysym;
100 char c[BUFSIZE+1];
102 #ifdef DEBUG
103 std::printf("DefWndProc\n");
104 #endif
105 switch (event->type)
107 case Expose:
108 case ButtonPress:
109 case KeyPress:
110 if (HelpPressed(event))
112 return HELPPRESSED;
114 else
116 XLookupString(&(event->xkey), c, BUFSIZE, &keysym, &status);
117 if ((keysym == XK_Return) || (keysym == XK_KP_Enter))
119 return ENTERPRESSED;
122 break;
123 case EnterNotify:
124 dlgitem->win.bFocus = true;
125 ShowCaret(x11, dlgitem);
126 /* LightBorder(x11->disp,dlgitem->win.self,x11->fg); */
127 break;
128 case LeaveNotify:
129 dlgitem->win.bFocus = false;
130 HideCaret(x11, dlgitem);
131 /* LightBorder(x11->disp,dlgitem->win.self,x11->bg); */
132 break;
133 default:
134 XBell(x11->disp, 50);
136 return ITEMOK;
139 static int WndProcBN(t_x11 *x11, t_dlgitem *dlgitem, XEvent *event)
141 t_windata *win;
142 int x, w, th;
144 if (dlgitem->type != edlgBN)
146 gmx_incons("button processing");
148 win = &(dlgitem->win);
149 w = XTextWidth(x11->font, win->text, std::strlen(win->text));
150 x = (win->width-w)/2;
151 th = XTextHeight(x11->font)+OFFS_Y;
152 switch (event->type)
154 case Expose:
155 RectWin(x11->disp, x11->gc, win, x11->fg);
156 TextInRect(x11, win->self, win->text, 0, 0, win->width, th, eXCenter, eYCenter);
157 break;
158 case ButtonPress:
159 return BNPRESSED;
160 case EnterNotify:
161 XDrawLine(x11->disp, win->self, x11->gc, x-1, th, x+w, th);
162 break;
163 case LeaveNotify:
164 XSetForeground(x11->disp, x11->gc, x11->bg);
165 XDrawLine(x11->disp, win->self, x11->gc, x-1, th, x+w, th);
166 XSetForeground(x11->disp, x11->gc, x11->fg);
167 break;
168 default:
169 return DefWndProc(x11, dlgitem, event);
171 return ITEMOK;
174 static int WndProcRB(t_x11 *x11, t_dlgitem *dlgitem, XEvent *event)
176 t_radiobutton *rb;
177 t_windata *win;
178 int x, y, rad;
180 if (dlgitem->type != edlgRB)
182 gmx_incons("radiobutton processing");
184 rb = &(dlgitem->u.radiobutton);
185 win = &(dlgitem->win);
187 rad = win->height/3;
188 x = rad;
189 y = win->height/2;
190 switch (event->type)
192 case Expose:
193 XClearArea(x11->disp, win->self, x-rad, y-rad, x+rad, y+rad, False);
194 if (rb->bSelect)
196 /* Filled */
197 XFillCircle(x11->disp, win->self, x11->gc, x, y, rad);
199 XDrawCircle(x11->disp, win->self, x11->gc, x, y, rad);
200 x += rad+OFFS_X;
201 TextInRect(x11, win->self, win->text, x, 0, win->width-x, win->height,
202 eXLeft, eYCenter);
203 break;
204 case ButtonPress:
205 if (!rb->bSelect)
207 return RBPRESSED;
209 XBell(x11->disp, 50);
210 break;
211 case EnterNotify:
212 case LeaveNotify:
213 break;
214 default:
215 return DefWndProc(x11, dlgitem, event);
217 return ITEMOK;
220 static int WndProcGB(t_x11 *x11, t_dlgitem *dlgitem, XEvent *event)
222 t_windata *win;
223 int x, y;
225 if (dlgitem->type != edlgGB)
227 gmx_incons("gb processing");
229 win = &(dlgitem->win);
231 x = XTextWidth(x11->font, win->text, std::strlen(win->text));
232 y = XTextHeight(x11->font);
233 switch (event->type)
235 case Expose:
236 XSetForeground(x11->disp, x11->gc, x11->fg);
237 XDrawRoundRect(x11->disp, win->self, x11->gc, 0, y/2,
238 win->width-1, win->height-y/2-1);
239 XClearArea(x11->disp, win->self, OFFS_X, 0, x+OFFS_X, y, False);
240 TextInRect(x11, win->self, win->text, 2*OFFS_X, 0, x, y, eXCenter, eYCenter);
241 break;
242 case EnterNotify:
243 case LeaveNotify:
244 break;
245 default:
246 return DefWndProc(x11, dlgitem, event);
248 return ITEMOK;
251 static int WndProcCB(t_x11 *x11, t_dlgitem *dlgitem, XEvent *event)
253 t_checkbox *cb;
254 t_windata *win;
255 int x, y, w, h;
257 if (dlgitem->type != edlgCB)
259 gmx_incons("check box processing");
261 cb = &(dlgitem->u.checkbox);
262 win = &(dlgitem->win);
264 x = 0;
265 y = win->height/7;
266 w = 5*y;
267 h = 5*y;
268 switch (event->type)
270 case Expose:
271 XSetForeground(x11->disp, x11->gc, x11->fg);
272 XClearArea(x11->disp, win->self, x, y, w, h, False);
273 XDrawRectangle(x11->disp, win->self, x11->gc, x, y, w, h);
274 if (cb->bChecked)
276 XDrawLine(x11->disp, win->self, x11->gc, x, y, x+w, y+h);
277 XDrawLine(x11->disp, win->self, x11->gc, x+w, y, x, y+h);
279 x = w+OFFS_X;
280 TextInRect(x11, win->self, win->text, x, 0, win->width-x, win->height,
281 eXLeft, eYCenter);
282 break;
283 case ButtonPress:
284 cb->bChecked = !cb->bChecked;
285 return CBPRESSED;
286 case EnterNotify:
287 case LeaveNotify:
288 break;
289 default:
290 return DefWndProc(x11, dlgitem, event);
292 return ITEMOK;
295 static int WndProcST(t_x11 *x11, t_dlgitem *dlgitem, XEvent *event)
297 t_statictext *st;
298 t_windata *win;
299 int i, dy;
301 if (dlgitem->type != edlgST)
303 gmx_incons("st processing");
305 st = &(dlgitem->u.statictext);
306 win = &(dlgitem->win);
308 switch (event->type)
310 case Expose:
311 dy = XTextHeight(x11->font)+OFFS_Y;
312 for (i = 0; (i < st->nlines); i++)
314 TextInRect(x11, win->self, st->lines[i],
315 0, OFFS_Y+i*dy, win->width, dy, eXLeft, eYCenter);
317 break;
318 default:
319 return DefWndProc(x11, dlgitem, event);
321 return ITEMOK;
324 static bool insert(char *s, char c, int *pos)
326 int i, sl;
328 if (isprint(c))
330 sl = std::strlen(s);
331 /* +1 for zero termination */
332 for (i = sl+1; (i > *pos); i--)
334 s[i+1] = s[i];
336 s[*pos] = c;
337 (*pos)++;
338 return true;
340 return false;
343 static bool my_backspace(char *s, int *pos)
345 int i, sl;
347 sl = std::strlen(s);
348 if ((sl > 0) && ((*pos) > 0))
350 for (i = *pos-1; (i < sl); i++)
352 s[i] = s[i+1];
354 (*pos) = std::max(0, (*pos)-1);
355 return true;
357 return false;
360 static bool my_delete(char *s, int *pos)
362 int i, sl;
364 sl = std::strlen(s);
365 if ((sl > 0) && ((*pos) < sl))
367 for (i = *pos; (i < sl); i++)
369 s[i] = s[i+1];
371 return true;
373 return false;
376 static int WndProcET(t_x11 *x11, t_dlgitem *dlgitem, XEvent *event)
378 t_edittext *et;
379 t_windata *win;
380 KeySym keysym;
381 char c[BUFSIZE+1], *bp;
382 char scrbuf[STRLEN];
383 int i;
384 int xp, xtitle, ewidth;
386 if (dlgitem->type != edlgET)
388 gmx_incons("st processing");
390 et = &(dlgitem->u.edittext);
391 win = &(dlgitem->win);
393 /* Copy string part that is visible into screen buffer */
394 for (i = 0; (i < et->buflen); i++)
396 scrbuf[i] = et->buf[i+et->strbegin];
398 scrbuf[i] = '\0';
400 switch (event->type)
402 case Expose:
403 XSetForeground(x11->disp, x11->gc, x11->fg);
404 xtitle = XTextWidth(x11->font, win->text, std::strlen(win->text));
405 ewidth = win->width-xtitle;
406 TextInRect(x11, win->self, win->text,
407 0, 0, xtitle-1, win->height, eXLeft, eYCenter);
408 XClearArea(x11->disp, win->self, xtitle, 0, ewidth+XCARET, win->height, False);
409 TextInRect(x11, win->self, scrbuf,
410 xtitle+XCARET, 0, ewidth, win->height, eXLeft, eYCenter);
411 #ifdef DEBUG
412 std::printf("Expose\n");
413 #endif
414 if (win->bFocus)
416 ShowCaret(x11, dlgitem);
418 break;
419 case ButtonPress:
420 /* Calculate new position for caret */
421 et->pos = std::strlen(et->buf);
422 bp = gmx_strdup(et->buf);
423 xp = event->xbutton.x-XTextWidth(x11->font, win->text, std::strlen(win->text))-
424 XCARET;
425 while ((et->pos > 0) && (XTextWidth(x11->font, bp, std::strlen(bp)) > xp))
427 et->pos--;
428 bp[et->pos] = '\0';
430 sfree(bp);
431 et->bChanged = true;
432 return ETCHANGED;
433 case KeyPress:
434 /* Check for HelpKey */
435 if (HelpPressed(event))
437 return DefWndProc(x11, dlgitem, event);
439 XLookupString(&(event->xkey), c, BUFSIZE, &keysym, nullptr);
440 #ifdef DEBUG
441 std::printf("Keysym: %x\n", keysym);
442 #endif
443 switch (keysym)
445 case XK_Delete:
446 if (my_delete(et->buf, &(et->pos)))
448 et->bChanged = true;
449 return ETCHANGED;
451 else
453 XBell(x11->disp, 50);
455 break;
456 case XK_BackSpace:
457 if (my_backspace(et->buf, &(et->pos)))
459 et->bChanged = true;
460 return ETCHANGED;
462 else
464 XBell(x11->disp, 50);
466 break;
467 case XK_KP_Enter:
468 case XK_Return:
469 return ENTERPRESSED;
470 case XK_Home:
471 et->pos = 0;
472 et->strbegin = 0;
473 et->bChanged = true;
474 return ETCHANGED;
475 case XK_End:
476 if (strlen(et->buf) <= (unsigned int)et->buflen)
478 et->pos = std::strlen(et->buf);
480 else
482 et->pos = et->buflen;
483 et->strbegin = std::strlen(et->buf)-et->buflen;
485 et->bChanged = true;
486 return ETCHANGED;
487 case XK_Left:
488 et->pos = std::max(0, et->pos-1);
489 et->strbegin = std::min(et->strbegin, et->pos);
490 et->bChanged = true;
491 return ETCHANGED;
492 case XK_Right:
493 if ((et->pos < et->buflen) &&
494 (et->strbegin+et->buflen > (int)strlen(et->buf)))
496 et->pos++;
498 else if ((et->buflen < (int)strlen(et->buf)) &&
499 (et->strbegin < (int)strlen(et->buf)-et->buflen))
501 et->strbegin++;
503 else
505 break;
507 et->bChanged = true;
508 return ETCHANGED;
509 default:
510 if (keysym < 256)
512 if (insert(et->buf, c[0], &(et->pos)))
514 et->bChanged = true;
515 return ETCHANGED;
518 XBell(x11->disp, 50);
519 break;
521 break;
522 case LeaveNotify:
523 win->bFocus = false;
524 HideCaret(x11, dlgitem);
525 if (et->bChanged)
527 et->bChanged = false;
529 break;
530 default:
531 return DefWndProc(x11, dlgitem, event);
533 return ITEMOK;
536 /*****************************
538 * Routines to create dialog items, all items have an id
539 * which you can use to extract info. It is possible to have
540 * multiple items with the same id but it may then not be possible
541 * to extract information.
542 * All routines take the position relative to the parent dlg
543 * and the size and border width.
544 * If the width and height are set to zero initially, they will
545 * be calculated and set by the routine. With the dlgitem manipulation
546 * routines listed below, the application can then move the items around
547 * on the dlg box, and if wished resize them.
549 ****************************/
550 t_dlgitem *CreateButton(t_x11 *x11,
551 const char *szLab, bool bDef, t_id id, t_id groupid,
552 int x0, int y0, int w, int h, int bw)
554 t_dlgitem *dlgitem;
555 char *lab;
557 dlgitem = newitem();
558 if (h == 0)
560 h = XTextHeight(x11->font)+2*OFFS_Y;
562 if (w == 0)
564 w = XTextWidth(x11->font, szLab, std::strlen(szLab))+2*OFFS_X;
566 if (bDef)
568 snew(lab, std::strlen(szLab)+7); /* 6 for >> << and 1 for \0 */
569 std::sprintf(lab, ">> %s <<", szLab);
571 else
573 lab = gmx_strdup(szLab);
575 InitWin(&(dlgitem->win), x0, y0, w, h, bw, szLab);
576 sfree(lab);
577 dlgitem->ID = id;
578 dlgitem->GroupID = groupid;
579 dlgitem->type = edlgBN;
580 dlgitem->u.button.bDefault = bDef;
581 dlgitem->WndProc = WndProcBN;
583 return dlgitem;
586 t_dlgitem *CreateRadioButton(t_x11 *x11,
587 const char *szLab, bool bSet, t_id id,
588 t_id groupid,
589 int x0, int y0, int w, int h, int bw)
591 t_dlgitem *dlgitem;
593 dlgitem = newitem();
594 if (h == 0)
596 h = XTextHeight(x11->font)+OFFS_Y;
598 if (w == 0)
600 w = XTextWidth(x11->font, szLab, std::strlen(szLab))+OFFS_X+h;
602 InitWin(&(dlgitem->win), x0, y0, w, h, bw, szLab);
603 dlgitem->ID = id;
604 dlgitem->GroupID = groupid;
605 dlgitem->type = edlgRB;
606 dlgitem->u.radiobutton.bSelect = bSet;
607 dlgitem->WndProc = WndProcRB;
609 return dlgitem;
612 t_dlgitem *CreateGroupBox(t_x11 *x11,
613 const char *szLab, t_id id,
614 int nitems, t_id items[],
615 int x0, int y0, int w, int h, int bw)
617 t_dlgitem *dlgitem;
619 dlgitem = newitem();
620 if (h == 0)
622 h = XTextHeight(x11->font)+OFFS_Y;
624 if (w == 0)
626 w = XTextWidth(x11->font, szLab, std::strlen(szLab))+2*OFFS_X;
628 InitWin(&(dlgitem->win), x0, y0, w, h, bw, szLab);
629 dlgitem->GroupID = id;
630 dlgitem->ID = id;
631 dlgitem->type = edlgGB;
632 dlgitem->u.groupbox.nitems = nitems;
633 snew(dlgitem->u.groupbox.item, nitems);
634 std::memcpy((char *)dlgitem->u.groupbox.item, (char *)items,
635 nitems*sizeof(items[0]));
636 dlgitem->WndProc = WndProcGB;
638 return dlgitem;
641 t_dlgitem *CreateCheckBox(t_x11 *x11,
642 const char *szLab, bool bCheckedInitial, t_id id,
643 t_id groupid,
644 int x0, int y0, int w, int h, int bw)
646 t_dlgitem *dlgitem;
648 dlgitem = newitem();
649 if (h == 0)
651 h = XTextHeight(x11->font)+OFFS_Y;
653 if (w == 0)
655 w = XTextWidth(x11->font, szLab, std::strlen(szLab))+OFFS_X+h;
657 InitWin(&(dlgitem->win), x0, y0, w, h, bw, szLab);
658 dlgitem->ID = id;
659 dlgitem->GroupID = groupid;
660 dlgitem->type = edlgCB;
661 dlgitem->u.checkbox.bChecked = bCheckedInitial;
662 dlgitem->WndProc = WndProcCB;
664 return dlgitem;
667 t_dlgitem *CreatePixmap(Pixmap pm, t_id id,
668 t_id /*groupid*/, int x0, int y0, int w, int h, int bw)
670 t_dlgitem *dlgitem;
672 dlgitem = newitem();
673 InitWin(&(dlgitem->win), x0, y0, w, h, bw, nullptr);
674 dlgitem->ID = id;
675 dlgitem->type = edlgPM;
676 dlgitem->u.pixmap.pm = pm;
677 dlgitem->WndProc = DefWndProc;
679 return dlgitem;
682 t_dlgitem *CreateStaticText(t_x11 *x11,
683 int nlines, const char * const *lines, t_id id,
684 t_id groupid,
685 int x0, int y0, int w, int h, int bw)
687 t_dlgitem *dlgitem;
688 int i;
690 dlgitem = newitem();
691 if (h == 0)
693 h = (XTextHeight(x11->font)+OFFS_Y)*nlines+OFFS_Y;
695 if (w == 0)
697 for (i = 0; (i < nlines); i++)
699 w = std::max(w, XTextWidth(x11->font, lines[i], std::strlen(lines[i])));
701 w += 2*OFFS_X;
703 InitWin(&(dlgitem->win), x0, y0, w, h, bw, nullptr);
704 dlgitem->ID = id;
705 dlgitem->GroupID = groupid;
706 dlgitem->type = edlgST;
707 dlgitem->u.statictext.nlines = nlines;
708 snew(dlgitem->u.statictext.lines, nlines);
709 for (i = 0; (i < nlines); i++)
711 dlgitem->u.statictext.lines[i] = gmx_strdup(lines[i]);
713 dlgitem->WndProc = WndProcST;
715 return dlgitem;
718 t_dlgitem *CreateEditText(t_x11 *x11,
719 const char *title,
720 int screenbuf, char *buf, t_id id, t_id groupid,
721 int x0, int y0, int w, int h, int bw)
723 t_dlgitem *dlgitem;
724 t_edittext *et;
726 dlgitem = newitem();
727 if (h == 0)
729 h = XTextHeight(x11->font)+OFFS_Y;
731 if (w == 0)
733 char *test;
735 snew(test, screenbuf);
736 std::memset(test, 'w', screenbuf);
737 w = XTextWidth(x11->font, test, screenbuf)+
738 XTextWidth(x11->font, title, std::strlen(title))+
739 2*XCARET+2*OFFS_X;
740 sfree(test);
742 InitWin(&(dlgitem->win), x0, y0, w, h, bw, title);
743 dlgitem->ID = id;
744 dlgitem->GroupID = groupid;
745 dlgitem->type = edlgET;
746 et = &(dlgitem->u.edittext);
747 snew(et->buf, STRLEN);
748 std::strcpy(et->buf, buf);
749 et->buflen = screenbuf;
750 et->strbegin = 0;
751 et->bChanged = false;
752 dlgitem->WndProc = WndProcET;
754 return dlgitem;
757 #define SC(src) (strlen(src) ? gmx_strdup(src) : NULL)
759 void SetDlgitemOpts(t_dlgitem *dlgitem, bool bUseMon,
760 char *set, char *get, char *help)
762 dlgitem->bUseMon = bUseMon;
763 dlgitem->set = SC(set);
764 dlgitem->get = SC(get);
765 dlgitem->help = SC(help);
766 #ifdef DEBUG
767 std::printf("Help is: '%s'\n", dlgitem->help);
768 #endif