gschem/src/o_text.c

   1 /* gEDA - GPL Electronic Design Automation
   2  * gschem - gEDA Schematic Capture
   3  * Copyright (C) 1998-2007 Ales Hvezda
   4  * Copyright (C) 1998-2007 gEDA Contributors (see ChangeLog for details)
   5  *
   6  * This program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA
  19  */
  20 #include <config.h>
  21
  22 #include <stdarg.h>
  23 #include <stdio.h>
  24 #include <sys/stat.h>
  25 #include <math.h>
  26 #ifdef HAVE_STRING_H
  27 #include <string.h>
  28 #endif
  29 #ifdef HAVE_UNISTD_H
  30 #include <unistd.h>
  31 #endif
  32
  33 #include "gschem.h"
  34
  35 #ifdef HAVE_LIBDMALLOC
  36 #include <dmalloc.h>
  37 #endif
  38
  39
  40 /*! \todo Finish function documentation!!!
  41  *  \brief
  42  *  \par Function Description
  43  *
  44  */
  45 void o_text_draw_lowlevel(GSCHEM_TOPLEVEL *w_current, OBJECT *o_current)
  46 {
  47   int left, right, top, bottom;
  48
  49   g_return_if_fail (o_current != NULL);
  50   g_return_if_fail (o_current->text != NULL);
  51
  52   if (o_current->visibility == INVISIBLE && o_current->show_hidden &&
  53       o_current->text->prim_objs == NULL) {
  54     o_text_recreate(o_current);
  55   }
  56
  57   o_redraw(w_current, o_current->text->prim_objs, TRUE);
  58
  59   world_get_object_list_bounds(o_current->text->prim_objs,
  60                          &left, &top, &right, &bottom);
  61   o_current->w_left   = left;
  62   o_current->w_top    = top;
  63   o_current->w_right  = right;
  64   o_current->w_bottom = bottom;
  65
  66 }
  67
  68 /*! \todo Finish function documentation!!!
  69  *  \brief
  70  *  \par Function Description
  71  *
  72  */
  73 void o_text_draw_rectangle(GSCHEM_TOPLEVEL *w_current, OBJECT *o_current)
  74 {
  75   TOPLEVEL *toplevel = w_current->toplevel;
  76   PAGE *page = toplevel->page_current;
  77   int left=0, right=0, top=0, bottom=0;
  78   GdkColor *color;
  79
  80   if (o_current->visibility == INVISIBLE && o_current->show_hidden &&
  81       o_current->text->prim_objs == NULL) {
  82     o_text_recreate(o_current);
  83   }
  84
  85   /* text is too small so go through and draw a rectangle in
  86      it's place */
  87
  88   /* NOTE THAT THE TOP AND BOTTOM ARE REVERSED THROUGHOUT THE WHOLE OF GEDA FOR WORLD COORDS */
  89   WORLDtoSCREEN(page, o_current->w_left, o_current->w_bottom, &left, &top);
  90   WORLDtoSCREEN(page, o_current->w_right, o_current->w_top, &right, &bottom);
  91
  92   if (toplevel->override_color != -1 ) {  /* Override */
  93     color = x_get_color(toplevel->override_color);
  94   } else {
  95     color = x_get_color(o_current->color);
  96   }
  97   gdk_gc_set_foreground(w_current->gc, color);
  98
  99   if (toplevel->DONT_REDRAW == 0) {
 100     gdk_draw_rectangle( w_current->backingstore,
 101                         w_current->gc,
 102                         FALSE,
 103                         left,
 104                         top,
 105                         right - left,
 106                         bottom - top );
 107   }
 108 }
 109
 110 /*! \todo Finish function documentation!!!
 111  *  \brief
 112  *  \par Function Description
 113  *
 114  */
 115 void o_text_draw(GSCHEM_TOPLEVEL *w_current, OBJECT *o_current)
 116 {
 117   TOPLEVEL *toplevel = w_current->toplevel;
 118   PAGE *page = toplevel->page_current;
 119   int screen_x1, screen_y1;
 120   int small_dist, offset;
 121
 122   g_return_if_fail (o_current != NULL);
 123   g_return_if_fail (o_current->type == OBJ_TEXT);
 124   g_return_if_fail (o_current->text != NULL);
 125
 126   if (o_current->text->x == -1 && o_current->text->y -- -1) {
 127     /* Off-schematic text has its own dialog. */
 128     return;
 129   }
 130
 131   if (toplevel->DONT_REDRAW == 1 ||
 132       (o_current->visibility == INVISIBLE && !o_current->show_hidden)) {
 133     return;
 134   }
 135
 136   if (!w_current->fast_mousepan || !w_current->doing_pan) {
 137     o_text_draw_lowlevel(w_current, o_current);
 138
 139     /* Indicate on the schematic that the text is invisible by */
 140     /* drawing a little I on the screen at the origin */
 141     if (o_current->visibility == INVISIBLE && o_current->show_hidden) {
 142       if (toplevel->override_color != -1 ) {
 143         gdk_gc_set_foreground(w_current->gc,
 144                               x_get_color(toplevel->override_color));
 145       } else {
 146
 147         gdk_gc_set_foreground(w_current->gc,
 148                               x_get_color(w_current->lock_color));
 149       }
 150
 151       offset = SCREENabs(page, 10);
 152       small_dist = SCREENabs(page, 20);
 153       WORLDtoSCREEN(page, o_current->text->x, o_current->text->y, &screen_x1, &screen_y1);
 154       screen_x1 += offset;
 155       screen_y1 += offset;
 156       if (toplevel->DONT_REDRAW == 0) {
 157         /* Top part of the I */
 158         gdk_draw_line(w_current->backingstore, w_current->gc,
 159                       screen_x1,
 160                       screen_y1,
 161                       screen_x1+small_dist,
 162                       screen_y1);
 163         /* Middle part of the I */
 164         gdk_draw_line(w_current->backingstore, w_current->gc,
 165                       screen_x1+small_dist/2,
 166                       screen_y1,
 167                       screen_x1+small_dist/2,
 168                       screen_y1+small_dist);
 169         /* Bottom part of the I */
 170         gdk_draw_line(w_current->backingstore, w_current->gc,
 171                       screen_x1,
 172                       screen_y1+small_dist,
 173                       screen_x1+small_dist,
 174                       screen_y1+small_dist);
 175       }
 176     }
 177
 178   } else {
 179     if (w_current->doing_pan) {
 180       o_text_draw_rectangle(w_current, o_current);
 181       return;
 182     }
 183   }
 184
 185   /* return if text origin marker displaying is disabled */
 186   if (w_current->text_origin_marker == FALSE) {
 187     return;
 188   }
 189
 190   small_dist = SCREENabs(page, 10);
 191
 192   WORLDtoSCREEN(page, o_current->text->x, o_current->text->y, &screen_x1, &screen_y1);
 193
 194   /* this is not really a fix, but a lame patch */
 195   /* not having this will cause a bad draw of things when coords */
 196   /* get close to the 2^15 limit of X */
 197   if (screen_x1+small_dist > 32767 || screen_y1+small_dist > 32767) {
 198     return;
 199   }
 200
 201   if (toplevel->override_color != -1 ) {
 202     gdk_gc_set_foreground(w_current->gc,
 203                           x_get_color(toplevel->override_color));
 204   } else {
 205
 206     gdk_gc_set_foreground(w_current->gc,
 207                           x_get_color(w_current->lock_color));
 208   }
 209
 210   if (toplevel->DONT_REDRAW == 0) {
 211     gdk_draw_line(w_current->backingstore, w_current->gc,
 212                   screen_x1-small_dist,
 213                   screen_y1+small_dist,
 214                   screen_x1+small_dist,
 215                   screen_y1-small_dist);
 216
 217     gdk_draw_line(w_current->backingstore, w_current->gc,
 218                   screen_x1+small_dist,
 219                   screen_y1+small_dist,
 220                   screen_x1-small_dist,
 221                   screen_y1-small_dist);
 222   }
 223 }
 224
 225
 226 /*! \todo Finish function documentation!!!
 227  *  \brief
 228  *  \par Function Description
 229  *
 230  */
 231 void o_text_draw_xor(GSCHEM_TOPLEVEL *w_current, int dx, int dy, OBJECT *o_current)
 232 {
 233   TOPLEVEL *toplevel = w_current->toplevel;
 234   PAGE *page = toplevel->page_current;
 235   int top, bottom, left, right;
 236   int color, factor;
 237
 238   if (o_current->visibility == INVISIBLE && !o_current->show_hidden) {
 239     return;
 240   }
 241
 242   /* always display text which is 12 or larger */
 243   factor = (int) page->to_world_x_constant;
 244   if ((factor < w_current->text_display_zoomfactor) ||
 245       o_current->text->size >= 12 ||
 246       w_current->text_feedback == ALWAYS) {
 247     o_list_draw_xor(w_current, dx, dy, o_current->text->prim_objs);
 248   } else {
 249     /* text is too small so go through and draw a line in
 250        it's place */
 251     WORLDtoSCREEN(page, o_current->w_left + dx, o_current->w_bottom + dy, &left, &top);
 252     WORLDtoSCREEN(page, o_current->w_right + dx, o_current->w_top + dy, &right, &bottom);
 253
 254     if (o_current->saved_color != -1) {
 255       color = o_current->saved_color;
 256     } else {
 257       color = o_current->color;
 258     }
 259
 260     gdk_gc_set_foreground(w_current->outline_xor_gc,
 261                           x_get_darkcolor(color));
 262
 263     gdk_draw_rectangle( w_current->backingstore,
 264                         w_current->outline_xor_gc,
 265                         FALSE,
 266                         left,
 267                         top,
 268                         right - left,
 269                         bottom - top );
 270   }
 271 }
 272
 273 void o_text_notice_changed(OBJECT *subject, GSCHEM_TOPLEVEL *w_current)
 274 {
 275   TOPLEVEL *toplevel = w_current->toplevel;
 276   char *string = subject->text->string;
 277
 278   /* erase old object */
 279   o_erase_single(w_current, subject);
 280
 281   o_text_recreate(subject);
 282   o_text_draw(w_current, subject);
 283
 284   /* handle slot= attribute, it's a special case */
 285   if (string && g_ascii_strncasecmp (string, "slot=", 5) == 0) {
 286     o_slot_end (w_current, string, strlen (string));
 287   }
 288
 289   if (subject->attached_to) {
 290     OBJECT *owner;
 291
 292     owner = subject->attached_to;
 293
 294     /* Another slotting special case. */
 295     if (g_ascii_strncasecmp(string, "slotname=", 9) == 0 ||
 296         g_ascii_strncasecmp(string, "slotowner=", 10) == 0) {
 297       s_slot_reparent_from_attribs(toplevel, owner);
 298     }
 299
 300     /* Rewrite symbols in slots, to pick up new values. */
 301     if (owner->type == OBJ_COMPLEX) {
 302       s_slot_rewrite_symbols(owner);
 303     }
 304
 305     if (owner->type == OBJ_SLOT && owner->slot->owner) {
 306       s_slot_rewrite_symbols(owner->slot->owner);
 307     }
 308   }
 309
 310   toplevel->page_current->CHANGED = 1;
 311 }
 312
 313 /*! \todo Finish function documentation!!!
 314  *  \brief
 315  *  \par Function Description
 316  *
 317  */
 318 void o_text_prepare_place(GSCHEM_TOPLEVEL *w_current, char *text)
 319 {
 320   TOPLEVEL *toplevel = w_current->toplevel;
 321
 322   /* Insert the new object into the buffer at world coordinates (0,0).
 323    * It will be translated to the mouse coordinates during placement. */
 324
 325   w_current->first_wx = 0;
 326   w_current->first_wy = 0;
 327
 328   w_current->last_drawb_mode = LAST_DRAWB_MODE_NONE;
 329
 330   /* remove the old place list if it exists */
 331   s_delete_object_glist(toplevel, toplevel->page_current->place_list);
 332   toplevel->page_current->place_list = NULL;
 333
 334   /* here you need to add OBJ_TEXT when it's done */
 335   toplevel->page_current->place_list =
 336     g_list_append(toplevel->page_current->place_list,
 337                   o_text_new(toplevel,
 338                              OBJ_TEXT, w_current->text_color,
 339                              0, 0, LOWER_LEFT, 0, /* zero is angle */
 340                              text,
 341                              w_current->text_size,
 342                              /* has to be visible so you can place it */
 343                              /* visibility is set when you create the object */
 344                              VISIBLE, SHOW_NAME_VALUE));
 345
 346   w_current->inside_action = 1;
 347   i_set_state(w_current, DRAWTEXT);
 348 }
 349
 350
 351 /*! \todo Finish function documentation!!!
 352  *  \brief
 353 *  \par Function Description
 354 *
 355 */
 356 void o_text_start (GSCHEM_TOPLEVEL *w_current, int w_x, int w_y)
 357 {
 358   o_place_start (w_current, w_x, w_y);
 359 }
 360
 361
 362 /*! \todo Finish function documentation!!!
 363  *  \brief
 364  *  \par Function Description
 365  *
 366  */
 367 void o_text_edit(GSCHEM_TOPLEVEL *w_current, OBJECT *o_current)
 368 {
 369   /* you need to check to make sure only one object is selected */
 370   /* no actually this is okay... not here in o_edit */
 371   text_edit_dialog(w_current, o_text_get_string(o_current),
 372                    o_current->text->size, o_current->text->alignment);
 373 }
 374
 375 /*! \todo Finish function documentation!!!
 376  *  \brief
 377  *  \par Function Description
 378  *
 379  */
 380 void o_text_edit_end(GSCHEM_TOPLEVEL *w_current, char *string, int len, int text_size,
 381                      int text_alignment)
 382 {
 383   TOPLEVEL *toplevel = w_current->toplevel;
 384   OBJECT *object;
 385   GList *s_current;
 386   int numselect;
 387
 388   /* skip over head */
 389   s_current = geda_list_get_glist( toplevel->page_current->selection_list );
 390   numselect = g_list_length( geda_list_get_glist( toplevel->page_current->selection_list ));
 391
 392   while(s_current != NULL) {
 393     object = s_current->data;
 394
 395     if (object) {
 396       if (object->type == OBJ_TEXT) {
 397         o_erase_single(w_current, object);
 398
 399         object->text->size = text_size;
 400         object->text->alignment = text_alignment;
 401
 402         /* probably the text object should be extended to carry a color */
 403         /* and we should pass it here with a function parameter (?) */
 404         object->saved_color = w_current->edit_color;
 405
 406         /* only change text string if there is only ONE text object selected */
 407         if (numselect == 1 && string) {
 408           o_text_set_string(object, string);
 409           /* handle slot= attribute, it's a special case */
 410           if (g_ascii_strncasecmp (string, "slot=", 5) == 0) {
 411             o_slot_end (w_current, string, strlen (string));
 412           }
 413         }
 414
 415         g_signal_emit_by_name(G_OBJECT(object), "changed");
 416       }
 417     }
 418
 419     s_current = g_list_next(s_current);
 420   }
 421
 422   toplevel->page_current->CHANGED = 1;
 423   o_undo_savestate(w_current, UNDO_ALL);
 424 }
 425
 426 void o_text_notice_create(GSCHEM_TOPLEVEL *w_current, OBJECT *o)
 427 {
 428   g_signal_connect(o, "changed", G_CALLBACK(o_text_notice_changed), w_current);
 429 }