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                          |ButtonReleaseMask|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 WMGetTextFieldEditable(WMTextField *tPtr)
 414 {
 415     return tPtr->flags.enabled;
 416 }
 417
 418
 419 void
 420 WMSetTextFieldEditable(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         printf("%d %d\n",cx,tPtr->cursorPosition);
 566      */
 567     XDrawLine(screen->display, tPtr->view->window, screen->xorGC,
 568               cx, tPtr->offsetWidth, cx,
 569               tPtr->view->size.height - tPtr->offsetWidth - 1);
 570 }
 571
 572
 573
 574 static void
 575 drawRelief(WMView *view, Bool beveled)
 576 {
 577     WMScreen *scr = view->screen;
 578     Display *dpy = scr->display;
 579     GC wgc;
 580     GC lgc;
 581     GC dgc;
 582     int width = view->size.width;
 583     int height = view->size.height;
 584
 585     dgc = WMColorGC(scr->darkGray);
 586
 587     if (!beveled) {
 588         XDrawRectangle(dpy, view->window, dgc, 0, 0, width-1, height-1);
 589
 590         return;
 591     }
 592     wgc = WMColorGC(scr->white);
 593     lgc = WMColorGC(scr->gray);
 594
 595     /* top left */
 596     XDrawLine(dpy, view->window, dgc, 0, 0, width-1, 0);
 597     XDrawLine(dpy, view->window, dgc, 0, 1, width-2, 1);
 598
 599     XDrawLine(dpy, view->window, dgc, 0, 0, 0, height-2);
 600     XDrawLine(dpy, view->window, dgc, 1, 0, 1, height-3);
 601
 602     /* bottom right */
 603     XDrawLine(dpy, view->window, wgc, 0, height-1, width-1, height-1);
 604     XDrawLine(dpy, view->window, lgc, 1, height-2, width-2, height-2);
 605
 606     XDrawLine(dpy, view->window, wgc, width-1, 0, width-1, height-1);
 607     XDrawLine(dpy, view->window, lgc, width-2, 1, width-2, height-3);
 608 }
 609
 610
 611 static void
 612 paintTextField(TextField *tPtr)
 613 {
 614     W_Screen *screen = tPtr->view->screen;
 615     W_View *view = tPtr->view;
 616     int tx, ty, tw, th;
 617     int rx;
 618     int bd;
 619     int totalWidth;
 620
 621
 622     if (!view->flags.realized || !view->flags.mapped)
 623         return;
 624
 625     if (!tPtr->flags.bordered) {
 626         bd = 0;
 627     } else {
 628         bd = 2;
 629     }
 630
 631     totalWidth = tPtr->view->size.width - 2*bd;
 632
 633     if (tPtr->textLen > 0) {
 634         tw = WMWidthOfString(tPtr->font, &(tPtr->text[tPtr->viewPosition]),
 635                              tPtr->textLen - tPtr->viewPosition);
 636
 637         th = WMFontHeight(tPtr->font);
 638
 639         ty = tPtr->offsetWidth;
 640         switch (tPtr->flags.alignment) {
 641          case WALeft:
 642             tx = tPtr->offsetWidth + 1;
 643             if (tw < tPtr->usableWidth)
 644                 XClearArea(screen->display, view->window, bd+tw, bd,
 645                            totalWidth-tw, view->size.height-2*bd,
 646                            False);
 647             break;
 648
 649          case WACenter:
 650             tx = tPtr->offsetWidth + (tPtr->usableWidth - tw) / 2;
 651             if (tw < tPtr->usableWidth)
 652                 XClearArea(screen->display, view->window, bd, bd,
 653                            totalWidth, view->size.height-2*bd, False);
 654             break;
 655
 656          default:
 657          case WARight:
 658             tx = tPtr->offsetWidth + tPtr->usableWidth - tw - 1;
 659             if (tw < tPtr->usableWidth)
 660                 XClearArea(screen->display, view->window, bd, bd,
 661                            totalWidth-tw, view->size.height-2*bd, False);
 662             break;
 663         }
 664
 665         if (!tPtr->flags.secure) {
 666             if (!tPtr->flags.enabled)
 667                 WMSetColorInGC(screen->darkGray, screen->textFieldGC);
 668
 669             WMDrawImageString(screen, view->window, screen->textFieldGC,
 670                               tPtr->font, tx, ty,
 671                               &(tPtr->text[tPtr->viewPosition]),
 672                               tPtr->textLen - tPtr->viewPosition);
 673
 674             if (tPtr->selection.count) {
 675                 int count;
 676
 677                 count = tPtr->selection.count < 0
 678                     ? tPtr->selection.position + tPtr->selection.count
 679                     : tPtr->selection.position;
 680
 681                 /*
 682                 rx = tx + WMWidthOfString(tPtr->font,
 683                                           &(tPtr->text[tPtr->viewPosition]),
 684                                           count)
 685                         - WMWidthOfString(tPtr->font,
 686                                         tPtr->text,tPtr->viewPosition);
 687                                         */
 688                 rx = tPtr->offsetWidth + 1 + WMWidthOfString(tPtr->font,tPtr->text,count)
 689                         - WMWidthOfString(tPtr->font,tPtr->text,tPtr->viewPosition);
 690
 691                 XSetBackground(screen->display, screen->textFieldGC,
 692                                screen->gray->color.pixel);
 693
 694                 WMDrawImageString(screen, view->window, screen->textFieldGC,
 695                                   tPtr->font, rx, ty, &(tPtr->text[count]),
 696                                   abs(tPtr->selection.count));
 697
 698                 XSetBackground(screen->display, screen->textFieldGC,
 699                                screen->white->color.pixel);
 700             }
 701
 702             if (!tPtr->flags.enabled)
 703                 WMSetColorInGC(screen->black, screen->textFieldGC);
 704         }
 705     } else {
 706         XClearArea(screen->display, view->window, bd, bd, totalWidth,
 707                    view->size.height - 2*bd, False);
 708     }
 709
 710     /* draw cursor */
 711     if (tPtr->flags.focused && tPtr->flags.enabled && tPtr->flags.cursorOn
 712         && !tPtr->flags.secure) {
 713         paintCursor(tPtr);
 714     }
 715
 716     /* draw relief */
 717     if (tPtr->flags.bordered) {
 718         drawRelief(view, tPtr->flags.beveled);
 719     }
 720 }
 721
 722
 723 #if 0
 724 static void
 725 blinkCursor(void *data)
 726 {
 727     TextField *tPtr = (TextField*)data;
 728
 729     if (tPtr->flags.cursorOn) {
 730         tPtr->timerID = WMAddTimerHandler(CURSOR_BLINK_OFF_DELAY, blinkCursor,
 731                                           data);
 732     } else {
 733         tPtr->timerID = WMAddTimerHandler(CURSOR_BLINK_ON_DELAY, blinkCursor,
 734                                           data);
 735     }
 736     paintCursor(tPtr);
 737     tPtr->flags.cursorOn = !tPtr->flags.cursorOn;
 738 }
 739 #endif
 740
 741
 742 static void
 743 handleEvents(XEvent *event, void *data)
 744 {
 745     TextField *tPtr = (TextField*)data;
 746
 747     CHECK_CLASS(data, WC_TextField);
 748
 749
 750     switch (event->type) {
 751      case FocusIn:
 752         if (W_FocusedViewOfToplevel(W_TopLevelOfView(tPtr->view))!=tPtr->view)
 753             return;
 754         tPtr->flags.focused = 1;
 755 #if 0
 756         if (!tPtr->timerID) {
 757             tPtr->timerID = WMAddTimerHandler(CURSOR_BLINK_ON_DELAY,
 758                                               blinkCursor, tPtr);
 759         }
 760 #endif
 761         paintTextField(tPtr);
 762
 763         WMPostNotificationName(WMTextDidBeginEditingNotification, tPtr, NULL);
 764
 765         tPtr->flags.notIllegalMovement = 0;
 766         break;
 767
 768      case FocusOut:
 769         tPtr->flags.focused = 0;
 770 #if 0
 771         if (tPtr->timerID)
 772             WMDeleteTimerHandler(tPtr->timerID);
 773         tPtr->timerID = NULL;
 774 #endif
 775
 776         paintTextField(tPtr);
 777         if (!tPtr->flags.notIllegalMovement) {
 778             WMPostNotificationName(WMTextDidEndEditingNotification, tPtr,
 779                                    (void*)WMIllegalTextMovement);
 780         }
 781         break;
 782
 783      case Expose:
 784         if (event->xexpose.count!=0)
 785             break;
 786         paintTextField(tPtr);
 787         break;
 788
 789      case DestroyNotify:
 790         destroyTextField(tPtr);
 791         break;
 792     }
 793 }
 794
 795
 796 static void
 797 handleTextFieldKeyPress(TextField *tPtr, XEvent *event)
 798 {
 799     char buffer[64];
 800     KeySym ksym;
 801     int count, refresh = 0;
 802     int control_pressed = 0;
 803
 804     if (((XKeyEvent *) event)->state & WM_EMACSKEYMASK) {
 805         control_pressed = 1;
 806     }
 807
 808     count = XLookupString(&event->xkey, buffer, 63, &ksym, NULL);
 809     buffer[count] = '\0';
 810
 811     if (!(event->xkey.state & ShiftMask)) {
 812         if (tPtr->selection.count)
 813             refresh = 1;
 814         tPtr->prevselection = tPtr->selection;
 815         tPtr->selection.position = tPtr->cursorPosition;
 816         tPtr->selection.count = 0;
 817     }
 818
 819     /* Be careful in any case in this switch statement, never to call
 820      * to more than a function that can generate text change notifications.
 821      * Only one text change notification should be sent in any case.
 822      * Else hazardous things can happen.
 823      * Maybe we need a better solution than the function wrapper to inform
 824      * functions that change text in text fields, if they need to send a
 825      * change notification or not. -Dan
 826      */
 827     switch (ksym) {
 828      case XK_Tab:
 829         if (event->xkey.state & ShiftMask) {
 830             if (tPtr->view->prevFocusChain) {
 831                 W_SetFocusOfTopLevel(W_TopLevelOfView(tPtr->view),
 832                                      tPtr->view->prevFocusChain);
 833                 tPtr->flags.notIllegalMovement = 1;
 834             }
 835             WMPostNotificationName(WMTextDidEndEditingNotification, tPtr,
 836                                    (void*)WMBacktabTextMovement);
 837         } else {
 838             if (tPtr->view->nextFocusChain) {
 839                 W_SetFocusOfTopLevel(W_TopLevelOfView(tPtr->view),
 840                                  tPtr->view->nextFocusChain);
 841                 tPtr->flags.notIllegalMovement = 1;
 842             }
 843             WMPostNotificationName(WMTextDidEndEditingNotification,
 844                                    tPtr, (void*)WMTabTextMovement);
 845         }
 846         break;
 847
 848      case XK_Return:
 849         WMPostNotificationName(WMTextDidEndEditingNotification, tPtr,
 850                                (void*)WMReturnTextMovement);
 851         break;
 852
 853      case WM_EMACSKEY_LEFT:
 854         if (!control_pressed) {
 855             goto normal_key;
 856         }
 857      case XK_KP_Left:
 858      case XK_Left:
 859         if (tPtr->cursorPosition > 0) {
 860             paintCursor(tPtr);
 861             if (event->xkey.state & ControlMask) {
 862                 int i;
 863                 for (i = tPtr->cursorPosition - 1; i >= 0; i--)
 864                     if (tPtr->text[i] == ' ' || i == 0) {
 865                         tPtr->cursorPosition = i;
 866                         break;
 867                     }
 868             } else {
 869                 tPtr->cursorPosition--;
 870             }
 871             if (tPtr->cursorPosition < tPtr->viewPosition) {
 872                 tPtr->viewPosition = tPtr->cursorPosition;
 873                 refresh = 1;
 874             } else {
 875                 paintCursor(tPtr);
 876             }
 877         }
 878         break;
 879
 880     case WM_EMACSKEY_RIGHT:
 881       if (!control_pressed) {
 882         goto normal_key;
 883       }
 884     case XK_KP_Right:
 885      case XK_Right:
 886         if (tPtr->cursorPosition < tPtr->textLen) {
 887             paintCursor(tPtr);
 888             if (event->xkey.state & ControlMask) {
 889                 int i;
 890                 for (i = tPtr->cursorPosition + 1; i <= tPtr->textLen; i++)
 891                     if (tPtr->text[i] == ' ' || i == tPtr->textLen) {
 892                         tPtr->cursorPosition = i;
 893                         break;
 894                     }
 895             } else {
 896                tPtr->cursorPosition++;
 897             }
 898             while (WMWidthOfString(tPtr->font,
 899                                 &(tPtr->text[tPtr->viewPosition]),
 900                                 tPtr->cursorPosition-tPtr->viewPosition)
 901                    > tPtr->usableWidth) {
 902                 tPtr->viewPosition++;
 903                 refresh = 1;
 904             }
 905             if (!refresh)
 906                 paintCursor(tPtr);
 907         }
 908         break;
 909
 910     case WM_EMACSKEY_HOME:
 911       if (!control_pressed) {
 912         goto normal_key;
 913       }
 914     case XK_KP_Home:
 915      case XK_Home:
 916         if (tPtr->cursorPosition > 0) {
 917             paintCursor(tPtr);
 918             tPtr->cursorPosition = 0;
 919             if (tPtr->viewPosition > 0) {
 920                 tPtr->viewPosition = 0;
 921                 refresh = 1;
 922             } else {
 923                 paintCursor(tPtr);
 924             }
 925         }
 926         break;
 927
 928     case WM_EMACSKEY_END:
 929       if (!control_pressed) {
 930         goto normal_key;
 931       }
 932      case XK_KP_End:
 933      case XK_End:
 934         if (tPtr->cursorPosition < tPtr->textLen) {
 935             paintCursor(tPtr);
 936             tPtr->cursorPosition = tPtr->textLen;
 937             tPtr->viewPosition = 0;
 938             while (WMWidthOfString(tPtr->font,
 939                                    &(tPtr->text[tPtr->viewPosition]),
 940                                    tPtr->textLen-tPtr->viewPosition)
 941                    > tPtr->usableWidth) {
 942                 tPtr->viewPosition++;
 943                 refresh = 1;
 944             }
 945             if (!refresh)
 946                 paintCursor(tPtr);
 947         }
 948         break;
 949
 950      case WM_EMACSKEY_BS:
 951       if (!control_pressed) {
 952         goto normal_key;
 953       }
 954      case XK_BackSpace:
 955         if (tPtr->cursorPosition > 0) {
 956             WMRange range;
 957
 958             if (tPtr->prevselection.count) {
 959                 range.position = tPtr->prevselection.count < 0
 960                     ? tPtr->prevselection.position + tPtr->prevselection.count
 961                     : tPtr->prevselection.position;
 962
 963                 range.count = abs(tPtr->prevselection.count);
 964             } else {
 965                 range.position = tPtr->cursorPosition - 1;
 966                 range.count = 1;
 967             }
 968             WMDeleteTextFieldRange(tPtr, range);
 969         }
 970         break;
 971
 972     case WM_EMACSKEY_DEL:
 973       if (!control_pressed) {
 974         goto normal_key;
 975       }
 976     case XK_KP_Delete:
 977      case XK_Delete:
 978         if (tPtr->cursorPosition < tPtr->textLen || tPtr->prevselection.count) {
 979             WMRange range;
 980
 981             if (tPtr->prevselection.count) {
 982                 range.position = tPtr->prevselection.count < 0
 983                     ? tPtr->prevselection.position + tPtr->prevselection.count
 984                     : tPtr->prevselection.position;
 985
 986                 range.count = abs(tPtr->prevselection.count);
 987             } else {
 988                 range.position = tPtr->cursorPosition;
 989                 range.count = 1;
 990             }
 991             WMDeleteTextFieldRange(tPtr, range);
 992         }
 993         break;
 994
 995     normal_key:
 996      default:
 997         if (count > 0 && !iscntrl(buffer[0])) {
 998             WMRange range;
 999
1000             if (tPtr->prevselection.count) {
1001                 range.position = tPtr->prevselection.count < 0
1002                     ? tPtr->prevselection.position + tPtr->prevselection.count
1003                     : tPtr->prevselection.position;
1004
1005                 range.count = abs(tPtr->prevselection.count);
1006             } else {
1007                 range.position = tPtr->cursorPosition;
1008                 range.count = 1;
1009             }
1010             if (tPtr->prevselection.count)
1011                 deleteTextFieldRange(tPtr, range);
1012             WMInsertTextFieldText(tPtr, buffer, tPtr->cursorPosition);
1013         } else {
1014             return;
1015         }
1016         break;
1017     }
1018     if (event->xkey.state & ShiftMask) {
1019         if (tPtr->selection.count == 0)
1020             tPtr->selection.position = tPtr->cursorPosition;
1021         tPtr->selection.count = tPtr->cursorPosition - tPtr->selection.position;
1022         refresh = 1;
1023     }
1024     tPtr->prevselection.count = 0;
1025     if (refresh) {
1026         paintTextField(tPtr);
1027     }
1028 }
1029
1030
1031 static int
1032 pointToCursorPosition(TextField *tPtr, int x)
1033 {
1034     int a, b, mid;
1035     int tw;
1036
1037     if (tPtr->flags.bordered)
1038         x -= 2;
1039
1040     a = tPtr->viewPosition;
1041     b = tPtr->viewPosition + tPtr->textLen;
1042     if (WMWidthOfString(tPtr->font, &(tPtr->text[tPtr->viewPosition]),
1043                         tPtr->textLen-tPtr->viewPosition) < x)
1044         return tPtr->textLen;
1045
1046     while (a < b && b-a>1) {
1047         mid = (a+b)/2;
1048         tw = WMWidthOfString(tPtr->font, &(tPtr->text[tPtr->viewPosition]),
1049                              mid - tPtr->viewPosition);
1050         if (tw > x)
1051             b = mid;
1052         else if (tw < x)
1053             a = mid;
1054         else
1055             return mid;
1056     }
1057     return (a+b)/2;
1058 }
1059
1060
1061 static void
1062 handleTextFieldActionEvents(XEvent *event, void *data)
1063 {
1064     TextField *tPtr = (TextField*)data;
1065
1066     CHECK_CLASS(data, WC_TextField);
1067
1068     switch (event->type) {
1069      case KeyPress:
1070         if (tPtr->flags.enabled && tPtr->flags.focused)
1071             handleTextFieldKeyPress(tPtr, event);
1072         break;
1073
1074      case MotionNotify:
1075         if (tPtr->flags.enabled && (event->xmotion.state & Button1Mask)) {
1076
1077
1078         if (tPtr->viewPosition < tPtr->textLen && event->xmotion.x >
1079                 tPtr->usableWidth) {
1080             if (WMWidthOfString(tPtr->font,
1081                     &(tPtr->text[tPtr->viewPosition]),
1082                     tPtr->cursorPosition-tPtr->viewPosition)
1083                     > tPtr->usableWidth) {
1084                 tPtr->viewPosition++;
1085             }
1086         }
1087         else if (tPtr->viewPosition > 0 && event->xmotion.x < 0) {
1088             paintCursor(tPtr);
1089             tPtr->viewPosition--;
1090         }
1091
1092         if (!tPtr->selection.count) {
1093             tPtr->selection.position = tPtr->cursorPosition;
1094         }
1095
1096         tPtr->cursorPosition = pointToCursorPosition(tPtr, event->xmotion.x);
1097
1098         tPtr->selection.count = tPtr->cursorPosition - tPtr->selection.position;
1099
1100         /*
1101         printf("notify %d %d\n",event->xmotion.x,tPtr->usableWidth);
1102         */
1103
1104         paintCursor(tPtr);
1105         paintTextField(tPtr);
1106
1107         }
1108         break;
1109
1110      case ButtonPress:
1111         switch (tPtr->flags.alignment) {
1112             int textWidth;
1113          case WARight:
1114             textWidth = WMWidthOfString(tPtr->font, tPtr->text, tPtr->textLen);
1115             if (tPtr->flags.enabled && !tPtr->flags.focused) {
1116                 WMSetFocusToWidget(tPtr);
1117             } else if (tPtr->flags.focused) {
1118                 tPtr->selection.count = 0;
1119             }
1120             if(textWidth < tPtr->usableWidth){
1121                 tPtr->cursorPosition = pointToCursorPosition(tPtr,
1122                                      event->xbutton.x - tPtr->usableWidth
1123                                      + textWidth);
1124             }
1125             else tPtr->cursorPosition = pointToCursorPosition(tPtr,
1126                                      event->xbutton.x);
1127             /*
1128             tPtr->cursorPosition = pointToCursorPosition(tPtr,
1129                                      event->xbutton.x);
1130                 tPtr->cursorPosition += tPtr->usableWidth - textWidth;
1131             }
1132
1133             tPtr->cursorPosition = pointToCursorPosition(tPtr,
1134                                      event->xbutton.x);
1135                                      */
1136             paintTextField(tPtr);
1137             break;
1138
1139          case WALeft:
1140             if (tPtr->flags.enabled && !tPtr->flags.focused) {
1141                 WMSetFocusToWidget(tPtr);
1142                 tPtr->cursorPosition = pointToCursorPosition(tPtr,
1143                                      event->xbutton.x);
1144                 paintTextField(tPtr);
1145             } else if (tPtr->flags.focused) {
1146                 tPtr->cursorPosition = pointToCursorPosition(tPtr,
1147                                      event->xbutton.x);
1148                 tPtr->selection.count = 0;
1149                 paintTextField(tPtr);
1150             }
1151             if (event->xbutton.button == Button2 && tPtr->flags.enabled) {
1152                 char *text;
1153
1154                 text = W_GetTextSelection(tPtr->view->screen,
1155                               tPtr->view->screen->clipboardAtom);
1156                 if (!text) {
1157                 text = W_GetTextSelection(tPtr->view->screen, XA_CUT_BUFFER0);
1158                 }
1159                 if (text) {
1160                 WMInsertTextFieldText(tPtr, text, tPtr->cursorPosition);
1161                 XFree(text);
1162                 WMPostNotificationName(WMTextDidChangeNotification, tPtr, NULL);
1163                 }
1164             }
1165             break;
1166         }
1167         break;
1168
1169      case ButtonRelease:
1170         {
1171         int count;
1172         XSetSelectionOwner(tPtr->view->screen->display,
1173                 XA_PRIMARY, None, CurrentTime);
1174         count = tPtr->selection.count < 0
1175             ? tPtr->selection.position + tPtr->selection.count
1176             : tPtr->selection.position;
1177         XStoreBuffer(tPtr->view->screen->display,
1178                         &tPtr->text[count] , abs(tPtr->selection.count), 0);
1179         }
1180         break;
1181     }
1182 }
1183
1184
1185 static void
1186 destroyTextField(TextField *tPtr)
1187 {
1188 #if 0
1189     if (tPtr->timerID)
1190         WMDeleteTimerHandler(tPtr->timerID);
1191 #endif
1192
1193     WMReleaseFont(tPtr->font);
1194
1195     if (tPtr->text)
1196         free(tPtr->text);
1197
1198     free(tPtr);
1199 }