src/frame_ui.c

   1 /*
   2  * Grace - GRaphing, Advanced Computation and Exploration of data
   3  *
   4  * Home page: http://plasma-gate.weizmann.ac.il/Grace/
   5  *
   6  * Copyright (c) 1996-2004 Grace Development Team
   7  *
   8  * Maintained by Evgeny Stambulchik
   9  *
  10  *
  11  *                           All Rights Reserved
  12  *
  13  *    This program is free software; you can redistribute it and/or modify
  14  *    it under the terms of the GNU General Public License as published by
  15  *    the Free Software Foundation; either version 2 of the License, or
  16  *    (at your option) any later version.
  17  *
  18  *    This program is distributed in the hope that it will be useful,
  19  *    but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  *    GNU General Public License for more details.
  22  *
  23  *    You should have received a copy of the GNU General Public License
  24  *    along with this program; if not, write to the Free Software
  25  *    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  26  */
  27
  28 /* Frame UI */
  29
  30 #include "core_utils.h"
  31 #include "explorer.h"
  32 #include "xprotos.h"
  33
  34 FrameUI *create_frame_ui(ExplorerUI *eui)
  35 {
  36     FrameUI *ui;
  37
  38     Widget tab;
  39     Widget rc, rc1, rc2, fr;
  40
  41     ui = xmalloc(sizeof(FrameUI));
  42
  43     /* ------------ Tabs -------------- */
  44
  45     tab = CreateTab(eui->scrolled_window);
  46     AddHelpCB(tab, "doc/UsersGuide.html#frame-properties");
  47
  48
  49     /* ------------ Main tab -------------- */
  50
  51     ui->main_tp = CreateTabPage(tab, "Main");
  52
  53     fr = CreateFrame(ui->main_tp, "Viewport");
  54     rc = CreateVContainer(fr);
  55
  56     rc1 = CreateHContainer(rc);
  57     ui->view_xv1 = CreateText2(rc1, "Xmin:", 8);
  58     AddTextActivateCB(ui->view_xv1, text_explorer_cb, eui);
  59     ui->view_xv2 = CreateText2(rc1, "Xmax:", 8);
  60     AddTextActivateCB(ui->view_xv2, text_explorer_cb, eui);
  61
  62     rc1 = CreateHContainer(rc);
  63     ui->view_yv1 = CreateText2(rc1, "Ymin:", 8);
  64     AddTextActivateCB(ui->view_yv1, text_explorer_cb, eui);
  65     ui->view_yv2 = CreateText2(rc1, "Ymax:", 8);
  66     AddTextActivateCB(ui->view_yv2, text_explorer_cb, eui);
  67
  68     fr = CreateFrame(ui->main_tp, "Frame box");
  69     rc = CreateVContainer(fr);
  70     ui->frame_framestyle_choice = CreateFrameTypeChoice(rc, "Frame type:");
  71     AddOptionChoiceCB(ui->frame_framestyle_choice, oc_explorer_cb, eui);
  72
  73     rc2 = CreateHContainer(rc);
  74     ui->frame_linew_choice = CreateLineWidthChoice(rc2, "Width:");
  75     AddSpinChoiceCB(ui->frame_linew_choice, sp_explorer_cb, eui);
  76     ui->frame_lines_choice = CreateLineStyleChoice(rc2, "Style:");
  77     AddOptionChoiceCB(ui->frame_lines_choice, oc_explorer_cb, eui);
  78
  79     rc2 = CreateHContainer(rc);
  80     ui->frame_pen = CreatePenChoice(rc2, "Outline pen:");
  81     AddPenChoiceCB(ui->frame_pen, pen_explorer_cb, eui);
  82     ui->frame_fillpen = CreatePenChoice(rc2, "Fill pen:");
  83     AddPenChoiceCB(ui->frame_fillpen, pen_explorer_cb, eui);
  84
  85     fr = CreateFrame(ui->main_tp, "Display options");
  86     rc = CreateHContainer(fr);
  87     ui->toggle_legends = CreateToggleButton(rc, "Display legend");
  88     AddToggleButtonCB(ui->toggle_legends, tb_explorer_cb, eui);
  89
  90
  91     /* ------------ Legend frame tab -------------- */
  92
  93     ui->legendbox_tp = CreateTabPage(tab, "Leg. box");
  94
  95     fr = CreateFrame(ui->legendbox_tp, "Anchor point");
  96
  97     rc1 = CreateHContainer(fr);
  98     ui->legend_anchor_x = CreateSpinChoice(rc1, "X:", 5,
  99         SPIN_TYPE_FLOAT, 0.0, 1.0, 0.01);
 100     AddSpinChoiceCB(ui->legend_anchor_x, sp_explorer_cb, eui);
 101     ui->legend_anchor_y = CreateSpinChoice(rc1, "Y:", 5,
 102         SPIN_TYPE_FLOAT, 0.0, 1.0, 0.01);
 103     AddSpinChoiceCB(ui->legend_anchor_y, sp_explorer_cb, eui);
 104
 105     fr = CreateFrame(ui->legendbox_tp, "Offset");
 106     rc1 = CreateHContainer(fr);
 107     ui->legend_dx = CreateSpinChoice(rc1, "dX:", 5,
 108         SPIN_TYPE_FLOAT, -1.0, 1.0, 0.01);
 109     AddSpinChoiceCB(ui->legend_dx, sp_explorer_cb, eui);
 110     ui->legend_dy = CreateSpinChoice(rc1, "dY:", 5,
 111         SPIN_TYPE_FLOAT, -1.0, 1.0, 0.01);
 112     AddSpinChoiceCB(ui->legend_dy, sp_explorer_cb, eui);
 113
 114     fr = CreateFrame(ui->legendbox_tp, "Frame box");
 115     rc = CreateVContainer(fr);
 116
 117     ui->legend_just = CreateJustChoice(rc, "Justification:");
 118     AddOptionChoiceCB(ui->legend_just, oc_explorer_cb, eui);
 119
 120     rc2 = CreateHContainer(rc);
 121     ui->legend_boxlinew = CreateLineWidthChoice(rc2, "Width:");
 122     AddSpinChoiceCB(ui->legend_boxlinew, sp_explorer_cb, eui);
 123     ui->legend_boxlines = CreateLineStyleChoice(rc2, "Style:");
 124     AddOptionChoiceCB(ui->legend_boxlines, oc_explorer_cb, eui);
 125
 126     rc2 = CreateHContainer(rc);
 127     ui->legend_boxpen = CreatePenChoice(rc2, "Outline pen:");
 128     AddPenChoiceCB(ui->legend_boxpen, pen_explorer_cb, eui);
 129     ui->legend_boxfillpen = CreatePenChoice(rc2, "Fill pen:");
 130     AddPenChoiceCB(ui->legend_boxfillpen, pen_explorer_cb, eui);
 131
 132     /* ------------ Legends tab -------------- */
 133
 134     ui->legends_tp = CreateTabPage(tab, "Legends");
 135
 136     fr = CreateFrame(ui->legends_tp, "Text properties");
 137     rc = CreateVContainer(fr);
 138     ui->legend_font = CreateFontChoice(rc, "Font:");
 139     AddOptionChoiceCB(ui->legend_font, oc_explorer_cb, eui);
 140     rc1 = CreateHContainer(rc);
 141     ui->legend_charsize = CreateCharSizeChoice(rc1, "Size:");
 142     AddSpinChoiceCB(ui->legend_charsize, sp_explorer_cb, eui);
 143     ui->legend_color = CreateColorChoice(rc1, "Color:");
 144     AddOptionChoiceCB(ui->legend_color, oc_explorer_cb, eui);
 145
 146     fr = CreateFrame(ui->legends_tp, "Placement");
 147     rc = CreateVContainer(fr);
 148     rc1 = CreateHContainer(rc);
 149     ui->legends_vgap = CreateSpinChoice(rc1, "V-gap:",
 150         4, SPIN_TYPE_FLOAT, 0.0, 1.0, 0.01);
 151     AddSpinChoiceCB(ui->legends_vgap, sp_explorer_cb, eui);
 152     ui->legends_hgap = CreateSpinChoice(rc1, "H-gap:",
 153         4, SPIN_TYPE_FLOAT, 0.0, 1.0, 0.01);
 154     AddSpinChoiceCB(ui->legends_hgap, sp_explorer_cb, eui);
 155     ui->legends_len = CreateSpinChoice(rc, "Line length:",
 156         4, SPIN_TYPE_FLOAT, 0.0, 1.0, 0.01);
 157     AddSpinChoiceCB(ui->legends_len, sp_explorer_cb, eui);
 158     rc1 = CreateHContainer(rc);
 159     ui->legends_invert = CreateToggleButton(rc1, "Put in reverse order");
 160     AddToggleButtonCB(ui->legends_invert, tb_explorer_cb, eui);
 161     ui->legends_singlesym = CreateToggleButton(rc1, "Single symbol");
 162     AddToggleButtonCB(ui->legends_singlesym, tb_explorer_cb, eui);
 163
 164
 165     SelectTabPage(tab, ui->main_tp);
 166
 167     ui->top = tab;
 168
 169     return ui;
 170 }
 171
 172 void update_frame_ui(FrameUI *ui, Quark *q)
 173 {
 174     frame *f = frame_get_data(q);
 175     if (f) {
 176         char buf[32];
 177         view v;
 178         legend *l;
 179
 180         frame_get_view(q, &v);
 181         l = frame_get_legend(q);
 182
 183         sprintf(buf, "%.9g", v.xv1);
 184         TextSetString(ui->view_xv1, buf);
 185         sprintf(buf, "%.9g", v.xv2);
 186         TextSetString(ui->view_xv2, buf);
 187         sprintf(buf, "%.9g", v.yv1);
 188         TextSetString(ui->view_yv1, buf);
 189         sprintf(buf, "%.9g", v.yv2);
 190         TextSetString(ui->view_yv2, buf);
 191
 192         SetOptionChoice(ui->frame_framestyle_choice, f->type);
 193         SetPenChoice(ui->frame_pen, &f->outline.pen);
 194         SetSpinChoice(ui->frame_linew_choice, f->outline.width);
 195         SetOptionChoice(ui->frame_lines_choice, f->outline.style);
 196         SetPenChoice(ui->frame_fillpen, &f->fillpen);
 197
 198         SetSpinChoice(ui->legend_charsize, l->charsize);
 199
 200         ToggleButtonSetState(ui->toggle_legends, l->active == TRUE);
 201
 202         SetSpinChoice(ui->legend_anchor_x, l->anchor.x);
 203         SetSpinChoice(ui->legend_anchor_y, l->anchor.y);
 204         SetOptionChoice(ui->legend_just, l->just);
 205         SetSpinChoice(ui->legend_dx, l->offset.x);
 206         SetSpinChoice(ui->legend_dy, l->offset.y);
 207
 208         SetSpinChoice(ui->legends_vgap, l->vgap);
 209         SetSpinChoice(ui->legends_hgap, l->hgap);
 210         SetSpinChoice(ui->legends_len, l->len);
 211         ToggleButtonSetState(ui->legends_invert, l->invert);
 212         ToggleButtonSetState(ui->legends_singlesym, l->singlesym);
 213
 214         SetOptionChoice(ui->legend_font, l->font);
 215         SetOptionChoice(ui->legend_color, l->color);
 216         SetSpinChoice(ui->legend_boxlinew, l->boxline.width);
 217         SetOptionChoice(ui->legend_boxlines, l->boxline.style);
 218         SetPenChoice(ui->legend_boxpen, &l->boxline.pen);
 219         SetPenChoice(ui->legend_boxfillpen, &l->boxfillpen);
 220     }
 221 }
 222
 223 int set_frame_data(FrameUI *ui, Quark *q, void *caller)
 224 {
 225     frame *f = frame_get_data(q);
 226     if (f) {
 227         view vtmp;
 228         legend *l;
 229
 230         frame_get_view(q, &vtmp);
 231         l = frame_get_legend(q);
 232
 233         if (!caller || caller == ui->view_xv1) {
 234             xv_evalexpr(ui->view_xv1, &vtmp.xv1);
 235         }
 236         if (!caller || caller == ui->view_xv2) {
 237             xv_evalexpr(ui->view_xv2, &vtmp.xv2);
 238         }
 239         if (!caller || caller == ui->view_yv1) {
 240             xv_evalexpr(ui->view_yv1, &vtmp.yv1);
 241         }
 242         if (!caller || caller == ui->view_yv2) {
 243             xv_evalexpr(ui->view_yv2, &vtmp.yv2);
 244         }
 245         if (!isvalid_viewport(&vtmp)) {
 246             errmsg("Invalid viewport coordinates");
 247             return RETURN_FAILURE;
 248         } else {
 249             frame_set_view(q, &vtmp);
 250         }
 251
 252         if (!caller || caller == ui->frame_framestyle_choice) {
 253             f->type = GetOptionChoice(ui->frame_framestyle_choice);
 254         }
 255         if (!caller || caller == ui->frame_pen) {
 256             GetPenChoice(ui->frame_pen, &f->outline.pen);
 257         }
 258         if (!caller || caller == ui->frame_linew_choice) {
 259             f->outline.width = GetSpinChoice(ui->frame_linew_choice);
 260         }
 261         if (!caller || caller == ui->frame_lines_choice) {
 262             f->outline.style = GetOptionChoice(ui->frame_lines_choice);
 263         }
 264         if (!caller || caller == ui->frame_fillpen) {
 265             GetPenChoice(ui->frame_fillpen, &f->fillpen);
 266         }
 267         if (!caller || caller == ui->legend_charsize) {
 268             l->charsize = GetSpinChoice(ui->legend_charsize);
 269         }
 270         if (!caller || caller == ui->toggle_legends) {
 271             l->active = ToggleButtonGetState(ui->toggle_legends);
 272         }
 273         if (!caller || caller == ui->legends_vgap) {
 274             l->vgap = GetSpinChoice(ui->legends_vgap);
 275         }
 276         if (!caller || caller == ui->legends_hgap) {
 277             l->hgap = GetSpinChoice(ui->legends_hgap);
 278         }
 279         if (!caller || caller == ui->legends_len) {
 280             l->len = GetSpinChoice(ui->legends_len);
 281         }
 282         if (!caller || caller == ui->legends_invert) {
 283             l->invert = ToggleButtonGetState(ui->legends_invert);
 284         }
 285         if (!caller || caller == ui->legends_singlesym) {
 286             l->singlesym = ToggleButtonGetState(ui->legends_singlesym);
 287         }
 288         if (!caller || caller == ui->legend_anchor_x) {
 289             l->anchor.x = GetSpinChoice(ui->legend_anchor_x);
 290         }
 291         if (!caller || caller == ui->legend_anchor_y) {
 292             l->anchor.y = GetSpinChoice(ui->legend_anchor_y);
 293         }
 294         if (!caller || caller == ui->legend_just) {
 295             l->just = GetOptionChoice(ui->legend_just);
 296         }
 297         if (!caller || caller == ui->legend_dx) {
 298             l->offset.x = GetSpinChoice(ui->legend_dx);
 299         }
 300         if (!caller || caller == ui->legend_dy) {
 301             l->offset.y = GetSpinChoice(ui->legend_dy);
 302         }
 303         if (!caller || caller == ui->legend_font) {
 304             l->font = GetOptionChoice(ui->legend_font);
 305         }
 306         if (!caller || caller == ui->legend_color) {
 307             l->color = GetOptionChoice(ui->legend_color);
 308         }
 309         if (!caller || caller == ui->legend_boxpen) {
 310             GetPenChoice(ui->legend_boxpen, &l->boxline.pen);
 311         }
 312         if (!caller || caller == ui->legend_boxlinew) {
 313             l->boxline.width = GetSpinChoice(ui->legend_boxlinew);
 314         }
 315         if (!caller || caller == ui->legend_boxlines) {
 316             l->boxline.style = GetOptionChoice(ui->legend_boxlines);
 317         }
 318         if (!caller || caller == ui->legend_boxfillpen) {
 319             GetPenChoice(ui->legend_boxfillpen, &l->boxfillpen);
 320         }
 321
 322         quark_dirtystate_set(q, TRUE);
 323
 324         return RETURN_SUCCESS;
 325     } else {
 326         return RETURN_FAILURE;
 327     }
 328 }