WINGs/wtextfield.c

   1
   2
   3
   4
   5 #include "WINGsP.h"
   6
   7 #include <X11/keysym.h>
   8 #include <X11/Xatom.h>
   9
  10 #include <ctype.h>
  11
  12 #define CURSOR_BLINK_ON_DELAY   600
  13 #define CURSOR_BLINK_OFF_DELAY  300
  14
  15
  16 char *WMTextDidChangeNotification = "WMTextDidChangeNotification";
  17 char *WMTextDidBeginEditingNotification = "WMTextDidBeginEditingNotification";
  18 char *WMTextDidEndEditingNotification = "WMTextDidEndEditingNotification";
  19
  20
  21 typedef struct W_TextField {
  22     W_Class widgetClass;
  23     W_View *view;
  24
  25 #if 0
  26     struct W_TextField *nextField;     /* next textfield in the chain */
  27     struct W_TextField *prevField;
  28 #endif
  29
  30     char *text;
  31     int textLen;                       /* size of text */
  32     int bufferSize;                    /* memory allocated for text */
  33
  34     int viewPosition;                  /* position of text being shown */
  35
  36     int cursorPosition;                /* position of the insertion cursor */
  37
  38     short usableWidth;
  39     short offsetWidth;                 /* offset of text from border */
  40
  41     WMRange selection;
  42     WMRange prevselection;
  43
  44     WMFont *font;
  45
  46 #if 0
  47     WMHandlerID timerID;               /* for cursor blinking */
  48 #endif
  49     struct {
  50         WMAlignment alignment:2;
  51
  52         unsigned int bordered:1;
  53
  54         unsigned int beveled:1;
  55
  56         unsigned int enabled:1;
  57
  58         unsigned int focused:1;
  59
  60         unsigned int cursorOn:1;
  61
  62         unsigned int secure:1;         /* password entry style */
  63
  64         /**/
  65         unsigned int notIllegalMovement:1;
  66     } flags;
  67 } TextField;
  68
  69
  70 #define MIN_TEXT_BUFFER         2
  71 #define TEXT_BUFFER_INCR        8
  72
  73
  74 #define WM_EMACSKEYMASK   ControlMask
  75
  76 #define WM_EMACSKEY_LEFT  XK_b
  77 #define WM_EMACSKEY_RIGHT XK_f
  78 #define WM_EMACSKEY_HOME  XK_a
  79 #define WM_EMACSKEY_END   XK_e
  80 #define WM_EMACSKEY_BS    XK_h
  81 #define WM_EMACSKEY_DEL   XK_d
  82
  83
  84
  85 #define DEFAULT_WIDTH           60
  86 #define DEFAULT_HEIGHT          20
  87 #define DEFAULT_BORDERED        True
  88 #define DEFAULT_ALIGNMENT       WALeft
  89
  90
  91
  92 static void destroyTextField(TextField *tPtr);
  93 static void paintTextField(TextField *tPtr);
  94
  95 static void handleEvents(XEvent *event, void *data);
  96 static void handleTextFieldActionEvents(XEvent *event, void *data);
  97 static void resizeTextField();
  98
  99 struct W_ViewProcedureTable _TextFieldViewProcedures = {
 100     NULL,
 101         resizeTextField,
 102         NULL
 103 };
 104
 105
 106 #define TEXT_WIDTH(tPtr, start) (WMWidthOfString((tPtr)->font, \
 107                    &((tPtr)->text[(start)]), (tPtr)->textLen - (start) + 1))
 108
 109 #define TEXT_WIDTH2(tPtr, start, end) (WMWidthOfString((tPtr)->font, \
 110                    &((tPtr)->text[(start)]), (end) - (start) + 1))
 111
 112
 113 static void
 114 memmv(char *dest, char *src, int size)
 115 {
 116     int i;
 117
 118     if (dest > src) {
 119         for (i=size-1; i>=0; i--) {
 120             dest[i] = src[i];
 121         }
 122     } else if (dest < src) {
 123         for (i=0; i<size; i++) {
 124             dest[i] = src[i];
 125         }
 126     }
 127 }
 128
 129
 130 static int
 131 incrToFit(TextField *tPtr)
 132 {
 133     int vp = tPtr->viewPosition;
 134
 135     while (TEXT_WIDTH(tPtr, tPtr->viewPosition) > tPtr->usableWidth) {
 136         tPtr->viewPosition++;
 137     }
 138     return vp!=tPtr->viewPosition;
 139 }
 140
 141
 142 static int
 143 incrToFit2(TextField *tPtr)
 144 {
 145     int vp = tPtr->viewPosition;
 146     while (TEXT_WIDTH2(tPtr, tPtr->viewPosition, tPtr->cursorPosition)
 147            >= tPtr->usableWidth)
 148         tPtr->viewPosition++;
 149
 150
 151     return vp!=tPtr->viewPosition;
 152 }
 153
 154
 155 static void
 156 decrToFit(TextField *tPtr)
 157 {
 158     while (TEXT_WIDTH(tPtr, tPtr->viewPosition-1) < tPtr->usableWidth
 159            && tPtr->viewPosition>0)
 160         tPtr->viewPosition--;
 161 }
 162
 163 #undef TEXT_WIDTH
 164 #undef TEXT_WIDTH2
 165
 166
 167 WMTextField*
 168 WMCreateTextField(WMWidget *parent)
 169 {
 170     TextField *tPtr;
 171
 172     tPtr = wmalloc(sizeof(TextField));
 173     memset(tPtr, 0, sizeof(TextField));
 174
 175     tPtr->widgetClass = WC_TextField;
 176
 177     tPtr->view = W_CreateView(W_VIEW(parent));
 178     if (!tPtr->view) {
 179         free(tPtr);
 180         return NULL;
 181     }
 182     tPtr->view->self = tPtr;
 183
 184     tPtr->view->attribFlags |= CWCursor;
 185     tPtr->view->attribs.cursor = tPtr->view->screen->textCursor;
 186
 187     W_SetViewBackgroundColor(tPtr->view, tPtr->view->screen->white);
 188
 189     tPtr->text = wmalloc(MIN_TEXT_BUFFER);
 190     tPtr->text[0] = 0;
 191     tPtr->textLen = 0;
 192     tPtr->bufferSize = MIN_TEXT_BUFFER;
 193
 194     tPtr->flags.enabled = 1;
 195
 196     WMCreateEventHandler(tPtr->view, ExposureMask|StructureNotifyMask
 197                          |FocusChangeMask, handleEvents, tPtr);
 198
 199     W_ResizeView(tPtr->view, DEFAULT_WIDTH, DEFAULT_HEIGHT);
 200
 201     tPtr->font = WMRetainFont(tPtr->view->screen->normalFont);
 202
 203     tPtr->flags.bordered = DEFAULT_BORDERED;
 204     tPtr->flags.beveled = True;
 205     tPtr->flags.alignment = DEFAULT_ALIGNMENT;
 206     tPtr->offsetWidth =
 207         WMAX((tPtr->view->size.height - WMFontHeight(tPtr->font))/2, 1);
 208
 209     WMCreateEventHandler(tPtr->view, EnterWindowMask|LeaveWindowMask
 210                          |ButtonPressMask|KeyPressMask|Button1MotionMask,
 211                          handleTextFieldActionEvents, tPtr);
 212
 213     tPtr->flags.cursorOn = 1;
 214
 215     return tPtr;
 216 }
 217
 218
 219 void
 220 WMInsertTextFieldText(WMTextField *tPtr, char *text, int position)
 221 {
 222     int len;
 223
 224     CHECK_CLASS(tPtr, WC_TextField);
 225
 226     if (!text)
 227         return;
 228
 229     len = strlen(text);
 230
 231     /* check if buffer will hold the text */
 232     if (len + tPtr->textLen >= tPtr->bufferSize) {
 233         tPtr->bufferSize = tPtr->textLen + len + TEXT_BUFFER_INCR;
 234         tPtr->text = realloc(tPtr->text, tPtr->bufferSize);
 235     }
 236
 237     if (position < 0 || position >= tPtr->textLen) {
 238         /* append the text at the end */
 239         strcat(tPtr->text, text);
 240
 241         incrToFit(tPtr);
 242
 243         tPtr->textLen += len;
 244         tPtr->cursorPosition += len;
 245     } else {
 246         /* insert text at position */
 247         memmv(&(tPtr->text[position+len]), &(tPtr->text[position]),
 248                 tPtr->textLen-position+1);
 249
 250         memcpy(&(tPtr->text[position]), text, len);
 251
 252         tPtr->textLen += len;
 253         if (position >= tPtr->cursorPosition) {
 254             tPtr->cursorPosition += len;
 255             incrToFit2(tPtr);
 256         } else {
 257             incrToFit(tPtr);
 258         }
 259     }
 260
 261     paintTextField(tPtr);
 262
 263     WMPostNotificationName(WMTextDidChangeNotification, tPtr,
 264                            (void*)WMInsertTextEvent);
 265 }
 266
 267
 268 static void
 269 deleteTextFieldRange(WMTextField *tPtr, WMRange range)
 270 {
 271     CHECK_CLASS(tPtr, WC_TextField);
 272
 273     if (range.position >= tPtr->textLen)
 274         return;
 275
 276     if (range.count < 1) {
 277         if (range.position < 0)
 278             range.position = 0;
 279         tPtr->text[range.position] = 0;
 280         tPtr->textLen = range.position;
 281
 282         tPtr->cursorPosition = 0;
 283         tPtr->viewPosition = 0;
 284     } else {
 285         if (range.position + range.count > tPtr->textLen)
 286             range.count = tPtr->textLen - range.position;
 287         memmv(&(tPtr->text[range.position]), &(tPtr->text[range.position+range.count]),
 288                 tPtr->textLen - (range.position+range.count) + 1);
 289         tPtr->textLen -= range.count;
 290
 291         if (tPtr->cursorPosition > range.position)
 292             tPtr->cursorPosition -= range.count;
 293
 294         decrToFit(tPtr);
 295     }
 296
 297     paintTextField(tPtr);
 298 }
 299
 300
 301 void
 302 WMDeleteTextFieldRange(WMTextField *tPtr, WMRange range)
 303 {
 304     deleteTextFieldRange(tPtr, range);
 305     WMPostNotificationName(WMTextDidChangeNotification, tPtr,
 306                            (void*)WMDeleteTextEvent);
 307 }
 308
 309
 310
 311 char*
 312 WMGetTextFieldText(WMTextField *tPtr)
 313 {
 314     CHECK_CLASS(tPtr, WC_TextField);
 315
 316     return wstrdup(tPtr->text);
 317 }
 318
 319
 320 void
 321 WMSetTextFieldText(WMTextField *tPtr, char *text)
 322 {
 323     if ((text && strcmp(tPtr->text, text) == 0) ||
 324         (!text && tPtr->textLen == 0))
 325         return;
 326
 327     if (text==NULL) {
 328         tPtr->text[0] = 0;
 329         tPtr->textLen = 0;
 330     } else {
 331         tPtr->textLen = strlen(text);
 332
 333         if (tPtr->textLen >= tPtr->bufferSize) {
 334             tPtr->bufferSize = tPtr->textLen + TEXT_BUFFER_INCR;
 335             tPtr->text = realloc(tPtr->text, tPtr->bufferSize);
 336         }
 337         strcpy(tPtr->text, text);
 338     }
 339     /*
 340     if (tPtr->textLen < tPtr->cursorPosition)
 341         tPtr->cursorPosition = tPtr->textLen;
 342      */
 343     tPtr->cursorPosition = tPtr->textLen;
 344     tPtr->viewPosition = 0;
 345     tPtr->selection.count = 0;
 346
 347     if (tPtr->view->flags.realized)
 348         paintTextField(tPtr);
 349
 350     WMPostNotificationName(WMTextDidChangeNotification, tPtr,
 351                            (void*)WMSetTextEvent);
 352 }
 353
 354
 355 void
 356 WMSetTextFieldFont(WMTextField *tPtr, WMFont *font)
 357 {
 358     /* TODO: update font change after field is mapped */
 359     WMReleaseFont(tPtr->font);
 360     tPtr->font = WMRetainFont(font);
 361 }
 362
 363 void
 364 WMSetTextFieldAlignment(WMTextField *tPtr, WMAlignment alignment)
 365 {
 366     tPtr->flags.alignment = alignment;
 367     if (alignment!=WALeft) {
 368         wwarning("only left alignment is supported in textfields");
 369         return;
 370     }
 371
 372     if (tPtr->view->flags.realized) {
 373         paintTextField(tPtr);
 374     }
 375 }
 376
 377
 378 void
 379 WMSetTextFieldBordered(WMTextField *tPtr, Bool bordered)
 380 {
 381     tPtr->flags.bordered = bordered;
 382
 383     if (tPtr->view->flags.realized) {
 384         paintTextField(tPtr);
 385     }
 386 }
 387
 388
 389 void
 390 WMSetTextFieldBeveled(WMTextField *tPtr, Bool flag)
 391 {
 392     tPtr->flags.beveled = flag;
 393
 394     if (tPtr->view->flags.realized) {
 395         paintTextField(tPtr);
 396     }
 397 }
 398
 399
 400
 401 void
 402 WMSetTextFieldSecure(WMTextField *tPtr, Bool flag)
 403 {
 404     tPtr->flags.secure = flag;
 405
 406     if (tPtr->view->flags.realized) {
 407         paintTextField(tPtr);
 408     }
 409 }
 410
 411
 412 Bool
 413 WMGetTextFieldEnabled(WMTextField *tPtr)
 414 {
 415     return tPtr->flags.enabled;
 416 }
 417
 418
 419 void
 420 WMSetTextFieldEnabled(WMTextField *tPtr, Bool flag)
 421 {
 422     tPtr->flags.enabled = flag;
 423
 424     if (tPtr->view->flags.realized) {
 425         paintTextField(tPtr);
 426     }
 427 }
 428
 429
 430 void
 431 WMSelectTextFieldRange(WMTextField *tPtr, WMRange range)
 432 {
 433     if (tPtr->flags.enabled) {
 434         if (range.position < 0) {
 435             range.count += range.position;
 436             range.count = (range.count < 0) ? 0 : range.count;
 437             range.position = 0;
 438         } else if (range.position > tPtr->textLen) {
 439             range.position = tPtr->textLen;
 440             range.count = 0;
 441         }
 442
 443         if (range.position + range.count > tPtr->textLen)
 444             range.count = tPtr->textLen - range.position;
 445
 446         tPtr->prevselection = tPtr->selection; /* check if this is needed */
 447
 448         tPtr->selection = range;
 449
 450         if (tPtr->view->flags.realized) {
 451             paintTextField(tPtr);
 452         }
 453     }
 454 }
 455
 456
 457 void
 458 WMSetTextFieldCursorPosition(WMTextField *tPtr, unsigned int position)
 459 {
 460     if (tPtr->flags.enabled) {
 461         if (position > tPtr->textLen)
 462             position = tPtr->textLen;
 463
 464         tPtr->cursorPosition = position;
 465         if (tPtr->view->flags.realized) {
 466             paintTextField(tPtr);
 467         }
 468     }
 469 }
 470
 471
 472 void
 473 WMSetTextFieldNextTextField(WMTextField *tPtr, WMTextField *next)
 474 {
 475     CHECK_CLASS(tPtr, WC_TextField);
 476     if (next == NULL) {
 477         if (tPtr->view->nextFocusChain)
 478             tPtr->view->nextFocusChain->prevFocusChain = NULL;
 479         tPtr->view->nextFocusChain = NULL;
 480         return;
 481     }
 482
 483     CHECK_CLASS(next, WC_TextField);
 484
 485     if (tPtr->view->nextFocusChain)
 486         tPtr->view->nextFocusChain->prevFocusChain = NULL;
 487     if (next->view->prevFocusChain)
 488         next->view->prevFocusChain->nextFocusChain = NULL;
 489
 490     tPtr->view->nextFocusChain = next->view;
 491     next->view->prevFocusChain = tPtr->view;
 492 }
 493
 494
 495 void
 496 WMSetTextFieldPrevTextField(WMTextField *tPtr, WMTextField *prev)
 497 {
 498     CHECK_CLASS(tPtr, WC_TextField);
 499     if (prev == NULL) {
 500         if (tPtr->view->prevFocusChain)
 501             tPtr->view->prevFocusChain->nextFocusChain = NULL;
 502         tPtr->view->prevFocusChain = NULL;
 503         return;
 504     }
 505
 506     CHECK_CLASS(prev, WC_TextField);
 507
 508     if (tPtr->view->prevFocusChain)
 509         tPtr->view->prevFocusChain->nextFocusChain = NULL;
 510     if (prev->view->nextFocusChain)
 511         prev->view->nextFocusChain->prevFocusChain = NULL;
 512
 513     tPtr->view->prevFocusChain = prev->view;
 514     prev->view->nextFocusChain = tPtr->view;
 515 }
 516
 517
 518 static void
 519 resizeTextField(WMTextField *tPtr, unsigned int width, unsigned int height)
 520 {
 521     W_ResizeView(tPtr->view, width, height);
 522
 523     tPtr->offsetWidth =
 524         WMAX((tPtr->view->size.height - WMFontHeight(tPtr->font))/2, 1);
 525
 526     tPtr->usableWidth = tPtr->view->size.width - 2*tPtr->offsetWidth + 2;
 527 }
 528
 529
 530 static void
 531 paintCursor(TextField *tPtr)
 532 {
 533     int cx;
 534     WMScreen *screen = tPtr->view->screen;
 535     int textWidth;
 536
 537     cx = WMWidthOfString(tPtr->font, &(tPtr->text[tPtr->viewPosition]),
 538                          tPtr->cursorPosition-tPtr->viewPosition);
 539
 540     switch (tPtr->flags.alignment) {
 541      case WARight:
 542         textWidth = WMWidthOfString(tPtr->font, tPtr->text, tPtr->textLen);
 543         if (textWidth < tPtr->usableWidth)
 544             cx += tPtr->offsetWidth + tPtr->usableWidth - textWidth + 1;
 545         else
 546             cx += tPtr->offsetWidth + 1;
 547         break;
 548      case WALeft:
 549         cx += tPtr->offsetWidth + 1;
 550         break;
 551      case WAJustified:
 552         /* not supported */
 553      case WACenter:
 554         textWidth = WMWidthOfString(tPtr->font, tPtr->text, tPtr->textLen);
 555         if (textWidth < tPtr->usableWidth)
 556             cx += tPtr->offsetWidth + (tPtr->usableWidth-textWidth)/2;
 557         else
 558             cx += tPtr->offsetWidth;
 559         break;
 560     }
 561     /*
 562     XDrawRectangle(screen->display, tPtr->view->window, screen->xorGC,
 563                    cx, tPtr->offsetWidth, 1,
 564                    tPtr->view->size.height - 2*tPtr->offsetWidth - 1);
 565      */
 566     XDrawLine(screen->display, tPtr->view->window, screen->xorGC,
 567               cx, tPtr->offsetWidth, cx,
 568               tPtr->view->size.height - tPtr->offsetWidth - 1);
 569 }
 570
 571
 572
 573 static void
 574 drawRelief(WMView *view, Bool beveled)
 575 {
 576     WMScreen *scr = view->screen;
 577     Display *dpy = scr->display;
 578     GC wgc;
 579     GC lgc;
 580     GC dgc;
 581     int width = view->size.width;
 582     int height = view->size.height;
 583
 584     dgc = W_GC(scr->darkGray);
 585
 586     if (!beveled) {
 587         XDrawRectangle(dpy, view->window, dgc, 0, 0, width-1, height-1);
 588
 589         return;
 590     }
 591     wgc = W_GC(scr->white);
 592     lgc = W_GC(scr->gray);
 593
 594     /* top left */
 595     XDrawLine(dpy, view->window, dgc, 0, 0, width-1, 0);
 596     XDrawLine(dpy, view->window, dgc, 0, 1, width-2, 1);
 597
 598     XDrawLine(dpy, view->window, dgc, 0, 0, 0, height-2);
 599     XDrawLine(dpy, view->window, dgc, 1, 0, 1, height-3);
 600
 601     /* bottom right */
 602     XDrawLine(dpy, view->window, wgc, 0, height-1, width-1, height-1);
 603     XDrawLine(dpy, view->window, lgc, 1, height-2, width-2, height-2);
 604
 605     XDrawLine(dpy, view->window, wgc, width-1, 0, width-1, height-1);
 606     XDrawLine(dpy, view->window, lgc, width-2, 1, width-2, height-3);
 607 }
 608
 609
 610 static void
 611 paintTextField(TextField *tPtr)
 612 {
 613     W_Screen *screen = tPtr->view->screen;
 614     W_View *view = tPtr->view;
 615     int tx, ty, tw, th;
 616     int rx;
 617     int bd;
 618     int totalWidth;
 619
 620
 621     if (!view->flags.realized || !view->flags.mapped)
 622         return;
 623
 624     if (!tPtr->flags.bordered) {
 625         bd = 0;
 626     } else {
 627         bd = 2;
 628     }
 629
 630     totalWidth = tPtr->view->size.width - 2*bd;
 631
 632     if (tPtr->textLen > 0) {
 633         tw = WMWidthOfString(tPtr->font, &(tPtr->text[tPtr->viewPosition]),
 634                              tPtr->textLen - tPtr->viewPosition);
 635
 636         th = WMFontHeight(tPtr->font);
 637
 638         ty = tPtr->offsetWidth;
 639         switch (tPtr->flags.alignment) {
 640          case WALeft:
 641             tx = tPtr->offsetWidth + 1;
 642             if (tw < tPtr->usableWidth)
 643                 XClearArea(screen->display, view->window, bd+tw, bd,
 644                            totalWidth-tw, view->size.height-2*bd,
 645                            False);
 646             break;
 647
 648          case WACenter:
 649             tx = tPtr->offsetWidth + (tPtr->usableWidth - tw) / 2;
 650             if (tw < tPtr->usableWidth)
 651                 XClearArea(screen->display, view->window, bd, bd,
 652                            totalWidth, view->size.height-2*bd, False);
 653             break;
 654
 655          default:
 656          case WARight:
 657             tx = tPtr->offsetWidth + tPtr->usableWidth - tw - 1;
 658             if (tw < tPtr->usableWidth)
 659                 XClearArea(screen->display, view->window, bd, bd,
 660                            totalWidth-tw, view->size.height-2*bd, False);
 661             break;
 662         }
 663
 664         if (!tPtr->flags.secure) {
 665             if (!tPtr->flags.enabled)
 666                 WMSetColorInGC(screen->darkGray, screen->textFieldGC);
 667
 668             WMDrawImageString(screen, view->window, screen->textFieldGC,
 669                               tPtr->font, tx, ty,
 670                               &(tPtr->text[tPtr->viewPosition]),
 671                               tPtr->textLen - tPtr->viewPosition);
 672
 673             if (tPtr->selection.count) {
 674                 int count;
 675
 676                 count = tPtr->selection.count < 0
 677                     ? tPtr->selection.position + tPtr->selection.count
 678                     : tPtr->selection.position;
 679
 680                 rx = tx + WMWidthOfString(tPtr->font,
 681                                           &(tPtr->text[tPtr->viewPosition]),
 682                                           count);
 683
 684                 XSetBackground(screen->display, screen->textFieldGC,
 685                                screen->gray->color.pixel);
 686
 687                 WMDrawImageString(screen, view->window, screen->textFieldGC,
 688                                   tPtr->font, rx, ty, &(tPtr->text[count]),
 689                                   abs(tPtr->selection.count));
 690
 691                 XSetBackground(screen->display, screen->textFieldGC,
 692                                screen->white->color.pixel);
 693             }
 694
 695             if (!tPtr->flags.enabled)
 696                 WMSetColorInGC(screen->black, screen->textFieldGC);
 697         }
 698     } else {
 699         XClearArea(screen->display, view->window, bd, bd, totalWidth,
 700                    view->size.height - 2*bd, False);
 701     }
 702
 703     /* draw cursor */
 704     if (tPtr->flags.focused && tPtr->flags.enabled && tPtr->flags.cursorOn
 705         && !tPtr->flags.secure) {
 706         paintCursor(tPtr);
 707     }
 708
 709     /* draw relief */
 710     if (tPtr->flags.bordered) {
 711         drawRelief(view, tPtr->flags.beveled);
 712     }
 713 }
 714
 715
 716 #if 0
 717 static void
 718 blinkCursor(void *data)
 719 {
 720     TextField *tPtr = (TextField*)data;
 721
 722     if (tPtr->flags.cursorOn) {
 723         tPtr->timerID = WMAddTimerHandler(CURSOR_BLINK_OFF_DELAY, blinkCursor,
 724                                           data);
 725     } else {
 726         tPtr->timerID = WMAddTimerHandler(CURSOR_BLINK_ON_DELAY, blinkCursor,
 727                                           data);
 728     }
 729     paintCursor(tPtr);
 730     tPtr->flags.cursorOn = !tPtr->flags.cursorOn;
 731 }
 732 #endif
 733
 734
 735 static void
 736 handleEvents(XEvent *event, void *data)
 737 {
 738     TextField *tPtr = (TextField*)data;
 739
 740     CHECK_CLASS(data, WC_TextField);
 741
 742
 743     switch (event->type) {
 744      case FocusIn:
 745         if (W_FocusedViewOfToplevel(W_TopLevelOfView(tPtr->view))!=tPtr->view)
 746             return;
 747         tPtr->flags.focused = 1;
 748 #if 0
 749         if (!tPtr->timerID) {
 750             tPtr->timerID = WMAddTimerHandler(CURSOR_BLINK_ON_DELAY,
 751                                               blinkCursor, tPtr);
 752         }
 753 #endif
 754         paintTextField(tPtr);
 755
 756         WMPostNotificationName(WMTextDidBeginEditingNotification, tPtr, NULL);
 757
 758         tPtr->flags.notIllegalMovement = 0;
 759         break;
 760
 761      case FocusOut:
 762         tPtr->flags.focused = 0;
 763 #if 0
 764         if (tPtr->timerID)
 765             WMDeleteTimerHandler(tPtr->timerID);
 766         tPtr->timerID = NULL;
 767 #endif
 768
 769         paintTextField(tPtr);
 770         if (!tPtr->flags.notIllegalMovement) {
 771             WMPostNotificationName(WMTextDidEndEditingNotification, tPtr,
 772                                    (void*)WMIllegalTextMovement);
 773         }
 774         break;
 775
 776      case Expose:
 777         if (event->xexpose.count!=0)
 778             break;
 779         paintTextField(tPtr);
 780         break;
 781
 782      case DestroyNotify:
 783         destroyTextField(tPtr);
 784         break;
 785     }
 786 }
 787
 788
 789 static void
 790 handleTextFieldKeyPress(TextField *tPtr, XEvent *event)
 791 {
 792     char buffer[64];
 793     KeySym ksym;
 794     int count, refresh = 0;
 795     int control_pressed = 0;
 796
 797     if (((XKeyEvent *) event)->state & WM_EMACSKEYMASK) {
 798         control_pressed = 1;
 799     }
 800
 801     count = XLookupString(&event->xkey, buffer, 63, &ksym, NULL);
 802     buffer[count] = '\0';
 803
 804     if (!(event->xkey.state & ShiftMask)) {
 805         if (tPtr->selection.count)
 806             refresh = 1;
 807         tPtr->prevselection = tPtr->selection;
 808         tPtr->selection.position = tPtr->cursorPosition;
 809         tPtr->selection.count = 0;
 810     }
 811
 812     /* Be careful in any case in this switch statement, never to call
 813      * to more than a function that can generate text change notifications.
 814      * Only one text change notification should be sent in any case.
 815      * Else hazardous things can happen.
 816      * Maybe we need a better solution than the function wrapper to inform
 817      * functions that change text in text fields, if they need to send a
 818      * change notification or not. -Dan
 819      */
 820     switch (ksym) {
 821      case XK_Tab:
 822         if (event->xkey.state & ShiftMask) {
 823             if (tPtr->view->prevFocusChain &&
 824                 tPtr->view->prevFocusChain->flags.mapped) {
 825                 W_SetFocusOfTopLevel(W_TopLevelOfView(tPtr->view),
 826                                      tPtr->view->prevFocusChain);
 827                 tPtr->flags.notIllegalMovement = 1;
 828             }
 829             WMPostNotificationName(WMTextDidEndEditingNotification, tPtr,
 830                                    (void*)WMBacktabTextMovement);
 831         } else {
 832             if (tPtr->view->nextFocusChain &&
 833                 tPtr->view->nextFocusChain->flags.mapped) {
 834                 W_SetFocusOfTopLevel(W_TopLevelOfView(tPtr->view),
 835                                  tPtr->view->nextFocusChain);
 836                 tPtr->flags.notIllegalMovement = 1;
 837             }
 838             WMPostNotificationName(WMTextDidEndEditingNotification,
 839                                    tPtr, (void*)WMTabTextMovement);
 840         }
 841         break;
 842
 843      case XK_Return:
 844         WMPostNotificationName(WMTextDidEndEditingNotification, tPtr,
 845                                (void*)WMReturnTextMovement);
 846         break;
 847
 848      case WM_EMACSKEY_LEFT:
 849         if (!control_pressed) {
 850             goto normal_key;
 851         }
 852      case XK_KP_Left:
 853      case XK_Left:
 854         if (tPtr->cursorPosition > 0) {
 855             paintCursor(tPtr);
 856             if (event->xkey.state & ControlMask) {
 857                 int i;
 858                 for (i = tPtr->cursorPosition - 1; i >= 0; i--)
 859                     if (tPtr->text[i] == ' ' || i == 0) {
 860                         tPtr->cursorPosition = i;
 861                         break;
 862                     }
 863             } else {
 864                 tPtr->cursorPosition--;
 865             }
 866             if (tPtr->cursorPosition < tPtr->viewPosition) {
 867                 tPtr->viewPosition = tPtr->cursorPosition;
 868                 refresh = 1;
 869             } else {
 870                 paintCursor(tPtr);
 871             }
 872         }
 873         break;
 874
 875     case WM_EMACSKEY_RIGHT:
 876       if (!control_pressed) {
 877         goto normal_key;
 878       }
 879     case XK_KP_Right:
 880      case XK_Right:
 881         if (tPtr->cursorPosition < tPtr->textLen) {
 882             paintCursor(tPtr);
 883             if (event->xkey.state & ControlMask) {
 884                 int i;
 885                 for (i = tPtr->cursorPosition + 1; i <= tPtr->textLen; i++)
 886                     if (tPtr->text[i] == ' ' || i == tPtr->textLen) {
 887                         tPtr->cursorPosition = i;
 888                         break;
 889                     }
 890             } else {
 891                tPtr->cursorPosition++;
 892             }
 893             while (WMWidthOfString(tPtr->font,
 894                                 &(tPtr->text[tPtr->viewPosition]),
 895                                 tPtr->cursorPosition-tPtr->viewPosition)
 896                    > tPtr->usableWidth) {
 897                 tPtr->viewPosition++;
 898                 refresh = 1;
 899             }
 900             if (!refresh)
 901                 paintCursor(tPtr);
 902         }
 903         break;
 904
 905     case WM_EMACSKEY_HOME:
 906       if (!control_pressed) {
 907         goto normal_key;
 908       }
 909     case XK_KP_Home:
 910      case XK_Home:
 911         if (tPtr->cursorPosition > 0) {
 912             paintCursor(tPtr);
 913             tPtr->cursorPosition = 0;
 914             if (tPtr->viewPosition > 0) {
 915                 tPtr->viewPosition = 0;
 916                 refresh = 1;
 917             } else {
 918                 paintCursor(tPtr);
 919             }
 920         }
 921         break;
 922
 923     case WM_EMACSKEY_END:
 924       if (!control_pressed) {
 925         goto normal_key;
 926       }
 927      case XK_KP_End:
 928      case XK_End:
 929         if (tPtr->cursorPosition < tPtr->textLen) {
 930             paintCursor(tPtr);
 931             tPtr->cursorPosition = tPtr->textLen;
 932             tPtr->viewPosition = 0;
 933             while (WMWidthOfString(tPtr->font,
 934                                    &(tPtr->text[tPtr->viewPosition]),
 935                                    tPtr->textLen-tPtr->viewPosition)
 936                    > tPtr->usableWidth) {
 937                 tPtr->viewPosition++;
 938                 refresh = 1;
 939             }
 940             if (!refresh)
 941                 paintCursor(tPtr);
 942         }
 943         break;
 944
 945      case WM_EMACSKEY_BS:
 946       if (!control_pressed) {
 947         goto normal_key;
 948       }
 949      case XK_BackSpace:
 950         if (tPtr->cursorPosition > 0) {
 951             WMRange range;
 952
 953             if (tPtr->prevselection.count) {
 954                 range.position = tPtr->prevselection.count < 0
 955                     ? tPtr->prevselection.position + tPtr->prevselection.count
 956                     : tPtr->prevselection.position;
 957
 958                 range.count = abs(tPtr->prevselection.count);
 959             } else {
 960                 range.position = tPtr->cursorPosition - 1;
 961                 range.count = 1;
 962             }
 963             WMDeleteTextFieldRange(tPtr, range);
 964         }
 965         break;
 966
 967     case WM_EMACSKEY_DEL:
 968       if (!control_pressed) {
 969         goto normal_key;
 970       }
 971     case XK_KP_Delete:
 972      case XK_Delete:
 973         if (tPtr->cursorPosition < tPtr->textLen || tPtr->prevselection.count) {
 974             WMRange range;
 975
 976             if (tPtr->prevselection.count) {
 977                 range.position = tPtr->prevselection.count < 0
 978                     ? tPtr->prevselection.position + tPtr->prevselection.count
 979                     : tPtr->prevselection.position;
 980
 981                 range.count = abs(tPtr->prevselection.count);
 982             } else {
 983                 range.position = tPtr->cursorPosition;
 984                 range.count = 1;
 985             }
 986             WMDeleteTextFieldRange(tPtr, range);
 987         }
 988         break;
 989
 990     normal_key:
 991      default:
 992         if (count > 0 && !iscntrl(buffer[0])) {
 993             WMRange range;
 994
 995             if (tPtr->prevselection.count) {
 996                 range.position = tPtr->prevselection.count < 0
 997                     ? tPtr->prevselection.position + tPtr->prevselection.count
 998                     : tPtr->prevselection.position;
 999
1000                 range.count = abs(tPtr->prevselection.count);
1001             } else {
1002                 range.position = tPtr->cursorPosition;
1003                 range.count = 1;
1004             }
1005             if (tPtr->prevselection.count)
1006                 deleteTextFieldRange(tPtr, range);
1007             WMInsertTextFieldText(tPtr, buffer, tPtr->cursorPosition);
1008         } else {
1009             return;
1010         }
1011         break;
1012     }
1013     if (event->xkey.state & ShiftMask) {
1014         if (tPtr->selection.count == 0)
1015             tPtr->selection.position = tPtr->cursorPosition;
1016         tPtr->selection.count = tPtr->cursorPosition - tPtr->selection.position;
1017         refresh = 1;
1018     }
1019     tPtr->prevselection.count = 0;
1020     if (refresh) {
1021         paintTextField(tPtr);
1022     }
1023 }
1024
1025
1026 static int
1027 pointToCursorPosition(TextField *tPtr, int x)
1028 {
1029     int a, b, mid;
1030     int tw;
1031
1032     if (tPtr->flags.bordered)
1033         x -= 2;
1034
1035     a = tPtr->viewPosition;
1036     b = tPtr->viewPosition + tPtr->textLen;
1037     if (WMWidthOfString(tPtr->font, &(tPtr->text[tPtr->viewPosition]),
1038                         tPtr->textLen-tPtr->viewPosition) < x)
1039         return tPtr->textLen;
1040
1041     while (a < b && b-a>1) {
1042         mid = (a+b)/2;
1043         tw = WMWidthOfString(tPtr->font, &(tPtr->text[tPtr->viewPosition]),
1044                              mid - tPtr->viewPosition);
1045         if (tw > x)
1046             b = mid;
1047         else if (tw < x)
1048             a = mid;
1049         else
1050             return mid;
1051     }
1052     return (a+b)/2;
1053 }
1054
1055
1056 static void
1057 handleTextFieldActionEvents(XEvent *event, void *data)
1058 {
1059     TextField *tPtr = (TextField*)data;
1060
1061     CHECK_CLASS(data, WC_TextField);
1062
1063     switch (event->type) {
1064      case KeyPress:
1065         if (tPtr->flags.enabled && tPtr->flags.focused)
1066             handleTextFieldKeyPress(tPtr, event);
1067         break;
1068
1069      case MotionNotify:
1070         if (tPtr->flags.enabled && (event->xmotion.state & Button1Mask)) {
1071
1072             if (!tPtr->selection.count) {
1073                 tPtr->selection.position = tPtr->cursorPosition;
1074             }
1075
1076             tPtr->cursorPosition = pointToCursorPosition(tPtr,
1077                                                          event->xmotion.x);
1078
1079             tPtr->selection.count = tPtr->cursorPosition
1080                 - tPtr->selection.position;
1081
1082             paintTextField(tPtr);
1083         }
1084         break;
1085
1086      case ButtonPress:
1087         if (tPtr->flags.enabled && !tPtr->flags.focused) {
1088             WMSetFocusToWidget(tPtr);
1089             tPtr->cursorPosition = pointToCursorPosition(tPtr,
1090                                                          event->xbutton.x);
1091             paintTextField(tPtr);
1092         } else if (tPtr->flags.focused) {
1093             tPtr->cursorPosition = pointToCursorPosition(tPtr,
1094                                                          event->xbutton.x);
1095             tPtr->selection.count = 0;
1096             paintTextField(tPtr);
1097         }
1098         if (event->xbutton.button == Button2 && tPtr->flags.enabled) {
1099             char *text;
1100
1101             text = W_GetTextSelection(tPtr->view->screen,
1102                                       tPtr->view->screen->clipboardAtom);
1103             if (!text) {
1104                 text = W_GetTextSelection(tPtr->view->screen, XA_CUT_BUFFER0);
1105             }
1106             if (text) {
1107                 WMInsertTextFieldText(tPtr, text, tPtr->cursorPosition);
1108                 XFree(text);
1109                 WMPostNotificationName(WMTextDidChangeNotification, tPtr,
1110                                        NULL);
1111             }
1112         }
1113         break;
1114
1115      case ButtonRelease:
1116
1117         break;
1118     }
1119 }
1120
1121
1122 static void
1123 destroyTextField(TextField *tPtr)
1124 {
1125 #if 0
1126     if (tPtr->timerID)
1127         WMDeleteTimerHandler(tPtr->timerID);
1128 #endif
1129
1130     WMReleaseFont(tPtr->font);
1131
1132     if (tPtr->text)
1133         free(tPtr->text);
1134
1135     free(tPtr);
1136 }