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                 W_SetFocusOfTopLevel(W_TopLevelOfView(tPtr->view),
 825                                      tPtr->view->prevFocusChain);
 826                 tPtr->flags.notIllegalMovement = 1;
 827             }
 828             WMPostNotificationName(WMTextDidEndEditingNotification, tPtr,
 829                                    (void*)WMBacktabTextMovement);
 830         } else {
 831             if (tPtr->view->nextFocusChain) {
 832                 W_SetFocusOfTopLevel(W_TopLevelOfView(tPtr->view),
 833                                  tPtr->view->nextFocusChain);
 834                 tPtr->flags.notIllegalMovement = 1;
 835             }
 836             WMPostNotificationName(WMTextDidEndEditingNotification,
 837                                    tPtr, (void*)WMTabTextMovement);
 838         }
 839         break;
 840
 841      case XK_Return:
 842         WMPostNotificationName(WMTextDidEndEditingNotification, tPtr,
 843                                (void*)WMReturnTextMovement);
 844         break;
 845
 846      case WM_EMACSKEY_LEFT:
 847         if (!control_pressed) {
 848             goto normal_key;
 849         }
 850      case XK_KP_Left:
 851      case XK_Left:
 852         if (tPtr->cursorPosition > 0) {
 853             paintCursor(tPtr);
 854             if (event->xkey.state & ControlMask) {
 855                 int i;
 856                 for (i = tPtr->cursorPosition - 1; i >= 0; i--)
 857                     if (tPtr->text[i] == ' ' || i == 0) {
 858                         tPtr->cursorPosition = i;
 859                         break;
 860                     }
 861             } else {
 862                 tPtr->cursorPosition--;
 863             }
 864             if (tPtr->cursorPosition < tPtr->viewPosition) {
 865                 tPtr->viewPosition = tPtr->cursorPosition;
 866                 refresh = 1;
 867             } else {
 868                 paintCursor(tPtr);
 869             }
 870         }
 871         break;
 872
 873     case WM_EMACSKEY_RIGHT:
 874       if (!control_pressed) {
 875         goto normal_key;
 876       }
 877     case XK_KP_Right:
 878      case XK_Right:
 879         if (tPtr->cursorPosition < tPtr->textLen) {
 880             paintCursor(tPtr);
 881             if (event->xkey.state & ControlMask) {
 882                 int i;
 883                 for (i = tPtr->cursorPosition + 1; i <= tPtr->textLen; i++)
 884                     if (tPtr->text[i] == ' ' || i == tPtr->textLen) {
 885                         tPtr->cursorPosition = i;
 886                         break;
 887                     }
 888             } else {
 889                tPtr->cursorPosition++;
 890             }
 891             while (WMWidthOfString(tPtr->font,
 892                                 &(tPtr->text[tPtr->viewPosition]),
 893                                 tPtr->cursorPosition-tPtr->viewPosition)
 894                    > tPtr->usableWidth) {
 895                 tPtr->viewPosition++;
 896                 refresh = 1;
 897             }
 898             if (!refresh)
 899                 paintCursor(tPtr);
 900         }
 901         break;
 902
 903     case WM_EMACSKEY_HOME:
 904       if (!control_pressed) {
 905         goto normal_key;
 906       }
 907     case XK_KP_Home:
 908      case XK_Home:
 909         if (tPtr->cursorPosition > 0) {
 910             paintCursor(tPtr);
 911             tPtr->cursorPosition = 0;
 912             if (tPtr->viewPosition > 0) {
 913                 tPtr->viewPosition = 0;
 914                 refresh = 1;
 915             } else {
 916                 paintCursor(tPtr);
 917             }
 918         }
 919         break;
 920
 921     case WM_EMACSKEY_END:
 922       if (!control_pressed) {
 923         goto normal_key;
 924       }
 925      case XK_KP_End:
 926      case XK_End:
 927         if (tPtr->cursorPosition < tPtr->textLen) {
 928             paintCursor(tPtr);
 929             tPtr->cursorPosition = tPtr->textLen;
 930             tPtr->viewPosition = 0;
 931             while (WMWidthOfString(tPtr->font,
 932                                    &(tPtr->text[tPtr->viewPosition]),
 933                                    tPtr->textLen-tPtr->viewPosition)
 934                    > tPtr->usableWidth) {
 935                 tPtr->viewPosition++;
 936                 refresh = 1;
 937             }
 938             if (!refresh)
 939                 paintCursor(tPtr);
 940         }
 941         break;
 942
 943      case WM_EMACSKEY_BS:
 944       if (!control_pressed) {
 945         goto normal_key;
 946       }
 947      case XK_BackSpace:
 948         if (tPtr->cursorPosition > 0) {
 949             WMRange range;
 950
 951             if (tPtr->prevselection.count) {
 952                 range.position = tPtr->prevselection.count < 0
 953                     ? tPtr->prevselection.position + tPtr->prevselection.count
 954                     : tPtr->prevselection.position;
 955
 956                 range.count = abs(tPtr->prevselection.count);
 957             } else {
 958                 range.position = tPtr->cursorPosition - 1;
 959                 range.count = 1;
 960             }
 961             WMDeleteTextFieldRange(tPtr, range);
 962         }
 963         break;
 964
 965     case WM_EMACSKEY_DEL:
 966       if (!control_pressed) {
 967         goto normal_key;
 968       }
 969     case XK_KP_Delete:
 970      case XK_Delete:
 971         if (tPtr->cursorPosition < tPtr->textLen || tPtr->prevselection.count) {
 972             WMRange range;
 973
 974             if (tPtr->prevselection.count) {
 975                 range.position = tPtr->prevselection.count < 0
 976                     ? tPtr->prevselection.position + tPtr->prevselection.count
 977                     : tPtr->prevselection.position;
 978
 979                 range.count = abs(tPtr->prevselection.count);
 980             } else {
 981                 range.position = tPtr->cursorPosition;
 982                 range.count = 1;
 983             }
 984             WMDeleteTextFieldRange(tPtr, range);
 985         }
 986         break;
 987
 988     normal_key:
 989      default:
 990         if (count > 0 && !iscntrl(buffer[0])) {
 991             WMRange range;
 992
 993             if (tPtr->prevselection.count) {
 994                 range.position = tPtr->prevselection.count < 0
 995                     ? tPtr->prevselection.position + tPtr->prevselection.count
 996                     : tPtr->prevselection.position;
 997
 998                 range.count = abs(tPtr->prevselection.count);
 999             } else {
1000                 range.position = tPtr->cursorPosition;
1001                 range.count = 1;
1002             }
1003             if (tPtr->prevselection.count)
1004                 deleteTextFieldRange(tPtr, range);
1005             WMInsertTextFieldText(tPtr, buffer, tPtr->cursorPosition);
1006         } else {
1007             return;
1008         }
1009         break;
1010     }
1011     if (event->xkey.state & ShiftMask) {
1012         if (tPtr->selection.count == 0)
1013             tPtr->selection.position = tPtr->cursorPosition;
1014         tPtr->selection.count = tPtr->cursorPosition - tPtr->selection.position;
1015         refresh = 1;
1016     }
1017     tPtr->prevselection.count = 0;
1018     if (refresh) {
1019         paintTextField(tPtr);
1020     }
1021 }
1022
1023
1024 static int
1025 pointToCursorPosition(TextField *tPtr, int x)
1026 {
1027     int a, b, mid;
1028     int tw;
1029
1030     if (tPtr->flags.bordered)
1031         x -= 2;
1032
1033     a = tPtr->viewPosition;
1034     b = tPtr->viewPosition + tPtr->textLen;
1035     if (WMWidthOfString(tPtr->font, &(tPtr->text[tPtr->viewPosition]),
1036                         tPtr->textLen-tPtr->viewPosition) < x)
1037         return tPtr->textLen;
1038
1039     while (a < b && b-a>1) {
1040         mid = (a+b)/2;
1041         tw = WMWidthOfString(tPtr->font, &(tPtr->text[tPtr->viewPosition]),
1042                              mid - tPtr->viewPosition);
1043         if (tw > x)
1044             b = mid;
1045         else if (tw < x)
1046             a = mid;
1047         else
1048             return mid;
1049     }
1050     return (a+b)/2;
1051 }
1052
1053
1054 static void
1055 handleTextFieldActionEvents(XEvent *event, void *data)
1056 {
1057     TextField *tPtr = (TextField*)data;
1058
1059     CHECK_CLASS(data, WC_TextField);
1060
1061     switch (event->type) {
1062      case KeyPress:
1063         if (tPtr->flags.enabled && tPtr->flags.focused)
1064             handleTextFieldKeyPress(tPtr, event);
1065         break;
1066
1067      case MotionNotify:
1068         if (tPtr->flags.enabled && (event->xmotion.state & Button1Mask)) {
1069
1070             if (!tPtr->selection.count) {
1071                 tPtr->selection.position = tPtr->cursorPosition;
1072             }
1073
1074             tPtr->cursorPosition = pointToCursorPosition(tPtr,
1075                                                          event->xmotion.x);
1076
1077             tPtr->selection.count = tPtr->cursorPosition
1078                 - tPtr->selection.position;
1079
1080             paintTextField(tPtr);
1081         }
1082         break;
1083
1084      case ButtonPress:
1085         if (tPtr->flags.enabled && !tPtr->flags.focused) {
1086             WMSetFocusToWidget(tPtr);
1087             tPtr->cursorPosition = pointToCursorPosition(tPtr,
1088                                                          event->xbutton.x);
1089             paintTextField(tPtr);
1090         } else if (tPtr->flags.focused) {
1091             tPtr->cursorPosition = pointToCursorPosition(tPtr,
1092                                                          event->xbutton.x);
1093             tPtr->selection.count = 0;
1094             paintTextField(tPtr);
1095         }
1096         if (event->xbutton.button == Button2 && tPtr->flags.enabled) {
1097             char *text;
1098
1099             text = W_GetTextSelection(tPtr->view->screen,
1100                                       tPtr->view->screen->clipboardAtom);
1101             if (!text) {
1102                 text = W_GetTextSelection(tPtr->view->screen, XA_CUT_BUFFER0);
1103             }
1104             if (text) {
1105                 WMInsertTextFieldText(tPtr, text, tPtr->cursorPosition);
1106                 XFree(text);
1107                 WMPostNotificationName(WMTextDidChangeNotification, tPtr,
1108                                        NULL);
1109             }
1110         }
1111         break;
1112
1113      case ButtonRelease:
1114
1115         break;
1116     }
1117 }
1118
1119
1120 static void
1121 destroyTextField(TextField *tPtr)
1122 {
1123 #if 0
1124     if (tPtr->timerID)
1125         WMDeleteTimerHandler(tPtr->timerID);
1126 #endif
1127
1128     WMReleaseFont(tPtr->font);
1129
1130     if (tPtr->text)
1131         free(tPtr->text);
1132
1133     free(tPtr);
1134 }