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