Syncing the code for discussing it.
[wmaker-crm.git] / WINGs / wtextfield.c
blobe14afb61945578269c9d68f12df24a10e66e89db
5 #include "WINGsP.h"
7 #include <X11/keysym.h>
8 #include <X11/Xatom.h>
10 #include <ctype.h>
12 #define CURSOR_BLINK_ON_DELAY 600
13 #define CURSOR_BLINK_OFF_DELAY 300
17 char *WMTextDidChangeNotification = "WMTextDidChangeNotification";
18 char *WMTextDidBeginEditingNotification = "WMTextDidBeginEditingNotification";
19 char *WMTextDidEndEditingNotification = "WMTextDidEndEditingNotification";
22 typedef struct W_TextField {
23 W_Class widgetClass;
24 W_View *view;
26 #if 0
27 struct W_TextField *nextField; /* next textfield in the chain */
28 struct W_TextField *prevField;
29 #endif
31 char *text;
32 int textLen; /* size of text */
33 int bufferSize; /* memory allocated for text */
35 int viewPosition; /* position of text being shown */
37 int cursorPosition; /* position of the insertion cursor */
39 short usableWidth;
40 short offsetWidth; /* offset of text from border */
42 WMRange selection;
44 WMFont *font;
46 WMTextFieldDelegate *delegate;
48 #if 0
49 WMHandlerID timerID; /* for cursor blinking */
50 #endif
51 struct {
52 WMAlignment alignment:2;
54 unsigned int bordered:1;
56 unsigned int beveled:1;
58 unsigned int enabled:1;
60 unsigned int focused:1;
62 unsigned int cursorOn:1;
64 unsigned int secure:1; /* password entry style */
66 unsigned int pointerGrabbed:1;
68 /**/
69 unsigned int notIllegalMovement:1;
70 } flags;
71 } TextField;
74 #define NOTIFY(T,C,N,A) { WMNotification *notif = WMCreateNotification(N,T,A);\
75 if ((T)->delegate && (T)->delegate->C)\
76 (*(T)->delegate->C)((T)->delegate,notif);\
77 WMPostNotification(notif);\
78 WMReleaseNotification(notif);}
81 #define MIN_TEXT_BUFFER 2
82 #define TEXT_BUFFER_INCR 8
85 #define WM_EMACSKEYMASK ControlMask
87 #define WM_EMACSKEY_LEFT XK_b
88 #define WM_EMACSKEY_RIGHT XK_f
89 #define WM_EMACSKEY_HOME XK_a
90 #define WM_EMACSKEY_END XK_e
91 #define WM_EMACSKEY_BS XK_h
92 #define WM_EMACSKEY_DEL XK_d
96 #define DEFAULT_WIDTH 60
97 #define DEFAULT_HEIGHT 20
98 #define DEFAULT_BORDERED True
99 #define DEFAULT_ALIGNMENT WALeft
103 static void destroyTextField(TextField *tPtr);
104 static void paintTextField(TextField *tPtr);
106 static void handleEvents(XEvent *event, void *data);
107 static void handleTextFieldActionEvents(XEvent *event, void *data);
108 static void didResizeTextField();
110 struct W_ViewDelegate _TextFieldViewDelegate = {
111 NULL,
112 NULL,
113 didResizeTextField,
114 NULL,
115 NULL
119 #define TEXT_WIDTH(tPtr, start) (WMWidthOfString((tPtr)->font, \
120 &((tPtr)->text[(start)]), (tPtr)->textLen - (start) + 1))
122 #define TEXT_WIDTH2(tPtr, start, end) (WMWidthOfString((tPtr)->font, \
123 &((tPtr)->text[(start)]), (end) - (start) + 1))
126 static void
127 normalizeRange(TextField *tPtr, WMRange *range)
129 if (range->position < 0 && range->count < 0)
130 range->count = 0;
132 if (range->count == 0) {
133 range->position = 0;
134 return;
137 /* (1,-2) ~> (0,1) ; (1,-1) ~> (0,1) ; (2,-1) ~> (1,1) */
138 if (range->count < 0) { /* && range->position >= 0 */
139 if (range->position + range->count < 0) {
140 range->count = range->position;
141 range->position = 0;
142 } else {
143 range->count = -range->count;
144 range->position -= range->count;
146 /* (-2,1) ~> (0,0) ; (-1,1) ~> (0,0) ; (-1,2) ~> (0,1) */
147 } else if (range->position < 0) { /* && range->count > 0 */
148 if (range->position + range->count < 0) {
149 range->position = range->count = 0;
150 } else {
151 range->count += range->position;
152 range->position = 0;
156 if (range->position + range->count > tPtr->textLen)
157 range->count = tPtr->textLen - range->position;
160 static void
161 memmv(char *dest, char *src, int size)
163 int i;
165 if (dest > src) {
166 for (i=size-1; i>=0; i--) {
167 dest[i] = src[i];
169 } else if (dest < src) {
170 for (i=0; i<size; i++) {
171 dest[i] = src[i];
177 static int
178 incrToFit(TextField *tPtr)
180 int vp = tPtr->viewPosition;
182 while (TEXT_WIDTH(tPtr, tPtr->viewPosition) > tPtr->usableWidth) {
183 tPtr->viewPosition++;
185 return vp!=tPtr->viewPosition;
189 static int
190 incrToFit2(TextField *tPtr)
192 int vp = tPtr->viewPosition;
193 while (TEXT_WIDTH2(tPtr, tPtr->viewPosition, tPtr->cursorPosition)
194 >= tPtr->usableWidth)
195 tPtr->viewPosition++;
198 return vp!=tPtr->viewPosition;
202 static void
203 decrToFit(TextField *tPtr)
205 while (TEXT_WIDTH(tPtr, tPtr->viewPosition-1) < tPtr->usableWidth
206 && tPtr->viewPosition>0)
207 tPtr->viewPosition--;
210 #undef TEXT_WIDTH
211 #undef TEXT_WIDTH2
213 static Bool
214 requestHandler(WMWidget *w, Atom selection, Atom target, Atom *type,
215 void **value, unsigned *length, int *format)
217 TextField *tPtr = w;
218 int count;
219 Display *dpy = tPtr->view->screen->display;
220 Atom _TARGETS;
221 char *text;
222 text = XGetAtomName(tPtr->view->screen->display,target);
223 XFree(text);
224 text = XGetAtomName(tPtr->view->screen->display,selection);
225 XFree(text);
227 *format = 32;
228 *length = 0;
229 *value = NULL;
230 count = tPtr->selection.count < 0
231 ? tPtr->selection.position + tPtr->selection.count
232 : tPtr->selection.position;
234 if (target == XA_STRING ||
235 target == XInternAtom(dpy, "TEXT", False) ||
236 target == XInternAtom(dpy, "COMPOUND_TEXT", False)) {
237 *value = wstrdup(&(tPtr->text[count]));
238 *length = abs(tPtr->selection.count);
239 *format = 8;
240 *type = target;
241 return True;
244 _TARGETS = XInternAtom(dpy, "TARGETS", False);
245 if (target == _TARGETS) {
246 int *ptr;
248 *length = 4;
249 ptr = *value = (char *) wmalloc(4 * sizeof(Atom));
250 ptr[0] = _TARGETS;
251 ptr[1] = XA_STRING;
252 ptr[2] = XInternAtom(dpy, "TEXT", False);
253 ptr[3] = XInternAtom(dpy, "COMPOUND_TEXT", False);
254 *type = target;
255 return True;
258 *target = XA_PRIMARY;
260 return False;
265 static void
266 lostHandler(WMWidget *w, Atom selection)
268 TextField *tPtr = (WMTextField*)w;
270 tPtr->selection.count = 0;
271 paintTextField(tPtr);
274 static void
275 _notification(void *observerData, WMNotification *notification)
277 WMTextField *to = (WMTextField*)observerData;
278 WMTextField *tw = (WMTextField*)WMGetNotificationClientData(notification);
279 if (to != tw) lostHandler(to, 0);
282 WMTextField*
283 WMCreateTextField(WMWidget *parent)
285 TextField *tPtr;
287 tPtr = wmalloc(sizeof(TextField));
288 memset(tPtr, 0, sizeof(TextField));
290 tPtr->widgetClass = WC_TextField;
292 tPtr->view = W_CreateView(W_VIEW(parent));
293 if (!tPtr->view) {
294 wfree(tPtr);
295 return NULL;
297 tPtr->view->self = tPtr;
299 tPtr->view->delegate = &_TextFieldViewDelegate;
301 tPtr->view->attribFlags |= CWCursor;
302 tPtr->view->attribs.cursor = tPtr->view->screen->textCursor;
304 W_SetViewBackgroundColor(tPtr->view, tPtr->view->screen->white);
306 tPtr->text = wmalloc(MIN_TEXT_BUFFER);
307 tPtr->text[0] = 0;
308 tPtr->textLen = 0;
309 tPtr->bufferSize = MIN_TEXT_BUFFER;
311 tPtr->flags.enabled = 1;
313 WMCreateEventHandler(tPtr->view, ExposureMask|StructureNotifyMask
314 |FocusChangeMask, handleEvents, tPtr);
316 tPtr->font = WMRetainFont(tPtr->view->screen->normalFont);
318 tPtr->flags.bordered = DEFAULT_BORDERED;
319 tPtr->flags.beveled = True;
320 tPtr->flags.alignment = DEFAULT_ALIGNMENT;
321 tPtr->offsetWidth =
322 WMAX((tPtr->view->size.height - WMFontHeight(tPtr->font))/2, 1);
324 W_ResizeView(tPtr->view, DEFAULT_WIDTH, DEFAULT_HEIGHT);
326 WMCreateEventHandler(tPtr->view, EnterWindowMask|LeaveWindowMask
327 |ButtonReleaseMask|ButtonPressMask|KeyPressMask|Button1MotionMask,
328 handleTextFieldActionEvents, tPtr);
330 WMCreateSelectionHandler(tPtr, XA_PRIMARY, CurrentTime, requestHandler,
331 lostHandler, NULL);
332 WMAddNotificationObserver(_notification, tPtr, "_lostOwnership", tPtr);
335 tPtr->flags.cursorOn = 1;
337 return tPtr;
341 void
342 WMSetTextFieldDelegate(WMTextField *tPtr, WMTextFieldDelegate *delegate)
344 CHECK_CLASS(tPtr, WC_TextField);
346 tPtr->delegate = delegate;
350 void
351 WMInsertTextFieldText(WMTextField *tPtr, char *text, int position)
353 int len;
355 CHECK_CLASS(tPtr, WC_TextField);
357 if (!text)
358 return;
360 len = strlen(text);
362 /* check if buffer will hold the text */
363 if (len + tPtr->textLen >= tPtr->bufferSize) {
364 tPtr->bufferSize = tPtr->textLen + len + TEXT_BUFFER_INCR;
365 tPtr->text = wrealloc(tPtr->text, tPtr->bufferSize);
368 if (position < 0 || position >= tPtr->textLen) {
369 /* append the text at the end */
370 strcat(tPtr->text, text);
372 incrToFit(tPtr);
374 tPtr->textLen += len;
375 tPtr->cursorPosition += len;
376 } else {
377 /* insert text at position */
378 memmv(&(tPtr->text[position+len]), &(tPtr->text[position]),
379 tPtr->textLen-position+1);
381 memcpy(&(tPtr->text[position]), text, len);
383 tPtr->textLen += len;
384 if (position >= tPtr->cursorPosition) {
385 tPtr->cursorPosition += len;
386 incrToFit2(tPtr);
387 } else {
388 incrToFit(tPtr);
392 paintTextField(tPtr);
395 void
396 WMDeleteTextFieldRange(WMTextField *tPtr, WMRange range)
398 CHECK_CLASS(tPtr, WC_TextField);
400 normalizeRange(tPtr, &range);
402 if (!range.count)
403 return;
405 memmv(&(tPtr->text[range.position]), &(tPtr->text[range.position+range.count]),
406 tPtr->textLen - (range.position+range.count) + 1);
408 tPtr->textLen -= range.count;
410 /* try to keep cursorPosition at the same place */
411 tPtr->viewPosition -= range.count;
412 if (tPtr->viewPosition < 0)
413 tPtr->viewPosition = 0;
414 tPtr->cursorPosition = range.position;
416 decrToFit(tPtr);
418 paintTextField(tPtr);
423 char*
424 WMGetTextFieldText(WMTextField *tPtr)
426 CHECK_CLASS(tPtr, WC_TextField);
428 return wstrdup(tPtr->text);
432 void
433 WMSetTextFieldText(WMTextField *tPtr, char *text)
435 CHECK_CLASS(tPtr, WC_TextField);
437 if ((text && strcmp(tPtr->text, text) == 0) ||
438 (!text && tPtr->textLen == 0))
439 return;
441 if (text==NULL) {
442 tPtr->text[0] = 0;
443 tPtr->textLen = 0;
444 } else {
445 tPtr->textLen = strlen(text);
447 if (tPtr->textLen >= tPtr->bufferSize) {
448 tPtr->bufferSize = tPtr->textLen + TEXT_BUFFER_INCR;
449 tPtr->text = wrealloc(tPtr->text, tPtr->bufferSize);
451 strcpy(tPtr->text, text);
454 tPtr->cursorPosition = tPtr->selection.position = tPtr->textLen;
455 tPtr->viewPosition = 0;
456 tPtr->selection.count = 0;
458 if (tPtr->view->flags.realized)
459 paintTextField(tPtr);
463 void
464 WMSetTextFieldAlignment(WMTextField *tPtr, WMAlignment alignment)
466 CHECK_CLASS(tPtr, WC_TextField);
468 tPtr->flags.alignment = alignment;
470 if (alignment!=WALeft) {
471 wwarning("only left alignment is supported in textfields");
472 return;
475 if (tPtr->view->flags.realized) {
476 paintTextField(tPtr);
481 void
482 WMSetTextFieldBordered(WMTextField *tPtr, Bool bordered)
484 CHECK_CLASS(tPtr, WC_TextField);
486 tPtr->flags.bordered = bordered;
488 if (tPtr->view->flags.realized) {
489 paintTextField(tPtr);
494 void
495 WMSetTextFieldBeveled(WMTextField *tPtr, Bool flag)
497 CHECK_CLASS(tPtr, WC_TextField);
499 tPtr->flags.beveled = flag;
501 if (tPtr->view->flags.realized) {
502 paintTextField(tPtr);
508 void
509 WMSetTextFieldSecure(WMTextField *tPtr, Bool flag)
511 CHECK_CLASS(tPtr, WC_TextField);
513 tPtr->flags.secure = flag;
515 if (tPtr->view->flags.realized) {
516 paintTextField(tPtr);
521 Bool
522 WMGetTextFieldEditable(WMTextField *tPtr)
524 CHECK_CLASS(tPtr, WC_TextField);
526 return tPtr->flags.enabled;
530 void
531 WMSetTextFieldEditable(WMTextField *tPtr, Bool flag)
533 CHECK_CLASS(tPtr, WC_TextField);
535 tPtr->flags.enabled = flag;
537 if (tPtr->view->flags.realized) {
538 paintTextField(tPtr);
543 void
544 WMSelectTextFieldRange(WMTextField *tPtr, WMRange range)
546 CHECK_CLASS(tPtr, WC_TextField);
548 if (tPtr->flags.enabled) {
549 normalizeRange(tPtr, &range);
551 tPtr->selection = range;
553 tPtr->cursorPosition = range.position + range.count;
555 if (tPtr->view->flags.realized) {
556 paintTextField(tPtr);
562 void
563 WMSetTextFieldCursorPosition(WMTextField *tPtr, unsigned int position)
565 CHECK_CLASS(tPtr, WC_TextField);
567 if (tPtr->flags.enabled) {
568 if (position > tPtr->textLen)
569 position = tPtr->textLen;
571 tPtr->cursorPosition = position;
572 if (tPtr->view->flags.realized) {
573 paintTextField(tPtr);
579 void
580 WMSetTextFieldNextTextField(WMTextField *tPtr, WMTextField *next)
582 CHECK_CLASS(tPtr, WC_TextField);
583 if (next == NULL) {
584 if (tPtr->view->nextFocusChain)
585 tPtr->view->nextFocusChain->prevFocusChain = NULL;
586 tPtr->view->nextFocusChain = NULL;
587 return;
590 CHECK_CLASS(next, WC_TextField);
592 if (tPtr->view->nextFocusChain)
593 tPtr->view->nextFocusChain->prevFocusChain = NULL;
594 if (next->view->prevFocusChain)
595 next->view->prevFocusChain->nextFocusChain = NULL;
597 tPtr->view->nextFocusChain = next->view;
598 next->view->prevFocusChain = tPtr->view;
602 void
603 WMSetTextFieldPrevTextField(WMTextField *tPtr, WMTextField *prev)
605 CHECK_CLASS(tPtr, WC_TextField);
606 if (prev == NULL) {
607 if (tPtr->view->prevFocusChain)
608 tPtr->view->prevFocusChain->nextFocusChain = NULL;
609 tPtr->view->prevFocusChain = NULL;
610 return;
613 CHECK_CLASS(prev, WC_TextField);
615 if (tPtr->view->prevFocusChain)
616 tPtr->view->prevFocusChain->nextFocusChain = NULL;
617 if (prev->view->nextFocusChain)
618 prev->view->nextFocusChain->prevFocusChain = NULL;
620 tPtr->view->prevFocusChain = prev->view;
621 prev->view->nextFocusChain = tPtr->view;
625 void
626 WMSetTextFieldFont(WMTextField *tPtr, WMFont *font)
628 CHECK_CLASS(tPtr, WC_TextField);
630 if (tPtr->font)
631 WMReleaseFont(tPtr->font);
632 tPtr->font = WMRetainFont(font);
634 tPtr->offsetWidth =
635 WMAX((tPtr->view->size.height - WMFontHeight(tPtr->font))/2, 1);
637 if (tPtr->view->flags.realized) {
638 paintTextField(tPtr);
644 WMFont*
645 WMGetTextFieldFont(WMTextField *tPtr)
647 return tPtr->font;
651 static void
652 didResizeTextField(W_ViewDelegate *self, WMView *view)
654 WMTextField *tPtr = (WMTextField*)view->self;
656 tPtr->offsetWidth =
657 WMAX((tPtr->view->size.height - WMFontHeight(tPtr->font))/2, 1);
659 tPtr->usableWidth = tPtr->view->size.width - 2*tPtr->offsetWidth + 2;
663 static char*
664 makeHiddenString(int length)
666 char *data = wmalloc(length+1);
668 memset(data, '*', length);
669 data[length] = '\0';
671 return data;
675 static void
676 paintCursor(TextField *tPtr)
678 int cx;
679 WMScreen *screen = tPtr->view->screen;
680 int textWidth;
681 char *text;
683 if (tPtr->flags.secure)
684 text = makeHiddenString(strlen(tPtr->text));
685 else
686 text = tPtr->text;
688 cx = WMWidthOfString(tPtr->font, &(text[tPtr->viewPosition]),
689 tPtr->cursorPosition-tPtr->viewPosition);
691 switch (tPtr->flags.alignment) {
692 case WARight:
693 textWidth = WMWidthOfString(tPtr->font, text, tPtr->textLen);
694 if (textWidth < tPtr->usableWidth)
695 cx += tPtr->offsetWidth + tPtr->usableWidth - textWidth + 1;
696 else
697 cx += tPtr->offsetWidth + 1;
698 break;
699 case WALeft:
700 cx += tPtr->offsetWidth + 1;
701 break;
702 case WAJustified:
703 /* not supported */
704 case WACenter:
705 textWidth = WMWidthOfString(tPtr->font, text, tPtr->textLen);
706 if (textWidth < tPtr->usableWidth)
707 cx += tPtr->offsetWidth + (tPtr->usableWidth-textWidth)/2;
708 else
709 cx += tPtr->offsetWidth;
710 break;
713 XDrawRectangle(screen->display, tPtr->view->window, screen->xorGC,
714 cx, tPtr->offsetWidth, 1,
715 tPtr->view->size.height - 2*tPtr->offsetWidth - 1);
716 printf("%d %d\n",cx,tPtr->cursorPosition);
718 XDrawLine(screen->display, tPtr->view->window, screen->xorGC,
719 cx, tPtr->offsetWidth, cx,
720 tPtr->view->size.height - tPtr->offsetWidth - 1);
722 if (tPtr->flags.secure)
723 wfree(text);
728 static void
729 drawRelief(WMView *view, Bool beveled)
731 WMScreen *scr = view->screen;
732 Display *dpy = scr->display;
733 GC wgc;
734 GC lgc;
735 GC dgc;
736 int width = view->size.width;
737 int height = view->size.height;
739 dgc = WMColorGC(scr->darkGray);
741 if (!beveled) {
742 XDrawRectangle(dpy, view->window, dgc, 0, 0, width-1, height-1);
744 return;
746 wgc = WMColorGC(scr->white);
747 lgc = WMColorGC(scr->gray);
749 /* top left */
750 XDrawLine(dpy, view->window, dgc, 0, 0, width-1, 0);
751 XDrawLine(dpy, view->window, dgc, 0, 1, width-2, 1);
753 XDrawLine(dpy, view->window, dgc, 0, 0, 0, height-2);
754 XDrawLine(dpy, view->window, dgc, 1, 0, 1, height-3);
756 /* bottom right */
757 XDrawLine(dpy, view->window, wgc, 0, height-1, width-1, height-1);
758 XDrawLine(dpy, view->window, lgc, 1, height-2, width-2, height-2);
760 XDrawLine(dpy, view->window, wgc, width-1, 0, width-1, height-1);
761 XDrawLine(dpy, view->window, lgc, width-2, 1, width-2, height-3);
765 static void
766 paintTextField(TextField *tPtr)
768 W_Screen *screen = tPtr->view->screen;
769 W_View *view = tPtr->view;
770 W_View viewbuffer;
771 int tx, ty, tw, th;
772 int rx;
773 int bd;
774 int totalWidth;
775 char *text;
776 Pixmap drawbuffer;
779 if (!view->flags.realized || !view->flags.mapped)
780 return;
782 if (!tPtr->flags.bordered) {
783 bd = 0;
784 } else {
785 bd = 2;
788 if (tPtr->flags.secure) {
789 text = makeHiddenString(strlen(tPtr->text));
790 } else {
791 text = tPtr->text;
794 totalWidth = tPtr->view->size.width - 2*bd;
796 drawbuffer = XCreatePixmap(screen->display, view->window,
797 view->size.width, view->size.height, screen->depth);
798 XFillRectangle(screen->display, drawbuffer, WMColorGC(screen->white),
799 0,0, view->size.width,view->size.height);
800 /* this is quite dirty */
801 viewbuffer.screen = view->screen;
802 viewbuffer.size = view->size;
803 viewbuffer.window = drawbuffer;
806 if (tPtr->textLen > 0) {
807 tw = WMWidthOfString(tPtr->font, &(text[tPtr->viewPosition]),
808 tPtr->textLen - tPtr->viewPosition);
810 th = WMFontHeight(tPtr->font);
812 ty = tPtr->offsetWidth;
813 switch (tPtr->flags.alignment) {
814 case WALeft:
815 tx = tPtr->offsetWidth + 1;
816 if (tw < tPtr->usableWidth)
817 XFillRectangle(screen->display, drawbuffer,
818 WMColorGC(screen->white),
819 bd+tw,bd, totalWidth-tw,view->size.height-2*bd);
820 break;
822 case WACenter:
823 tx = tPtr->offsetWidth + (tPtr->usableWidth - tw) / 2;
824 if (tw < tPtr->usableWidth)
825 XClearArea(screen->display, view->window, bd, bd,
826 totalWidth, view->size.height-2*bd, False);
827 break;
829 default:
830 case WARight:
831 tx = tPtr->offsetWidth + tPtr->usableWidth - tw - 1;
832 if (tw < tPtr->usableWidth)
833 XClearArea(screen->display, view->window, bd, bd,
834 totalWidth-tw, view->size.height-2*bd, False);
835 break;
838 if (!tPtr->flags.enabled)
839 WMSetColorInGC(screen->darkGray, screen->textFieldGC);
841 WMDrawImageString(screen, drawbuffer, screen->textFieldGC,
842 tPtr->font, tx, ty,
843 &(text[tPtr->viewPosition]),
844 tPtr->textLen - tPtr->viewPosition);
846 if (tPtr->selection.count) {
847 int count,count2;
849 count = tPtr->selection.count < 0
850 ? tPtr->selection.position + tPtr->selection.count
851 : tPtr->selection.position;
852 count2 = abs(tPtr->selection.count);
853 if (count < tPtr->viewPosition) {
854 count2 = abs(count2 - abs(tPtr->viewPosition - count));
855 count = tPtr->viewPosition;
859 rx = tPtr->offsetWidth + 1 + WMWidthOfString(tPtr->font,text,count)
860 - WMWidthOfString(tPtr->font,text,tPtr->viewPosition);
862 XSetBackground(screen->display, screen->textFieldGC,
863 screen->gray->color.pixel);
865 WMDrawImageString(screen, drawbuffer, screen->textFieldGC,
866 tPtr->font, rx, ty, &(text[count]),
867 count2);
869 XSetBackground(screen->display, screen->textFieldGC,
870 screen->white->color.pixel);
873 if (!tPtr->flags.enabled)
874 WMSetColorInGC(screen->black, screen->textFieldGC);
875 } else {
876 XFillRectangle(screen->display, drawbuffer,
877 WMColorGC(screen->white),
878 bd,bd, totalWidth,view->size.height-2*bd);
881 /* draw relief */
882 if (tPtr->flags.bordered) {
883 drawRelief(&viewbuffer, tPtr->flags.beveled);
886 if (tPtr->flags.secure)
887 wfree(text);
888 XCopyArea(screen->display, drawbuffer, view->window,
889 screen->copyGC, 0,0, view->size.width,
890 view->size.height,0,0);
891 XFreePixmap(screen->display, drawbuffer);
893 /* draw cursor */
894 if (tPtr->flags.focused && tPtr->flags.enabled && tPtr->flags.cursorOn) {
895 paintCursor(tPtr);
900 #if 0
901 static void
902 blinkCursor(void *data)
904 TextField *tPtr = (TextField*)data;
906 if (tPtr->flags.cursorOn) {
907 tPtr->timerID = WMAddTimerHandler(CURSOR_BLINK_OFF_DELAY, blinkCursor,
908 data);
909 } else {
910 tPtr->timerID = WMAddTimerHandler(CURSOR_BLINK_ON_DELAY, blinkCursor,
911 data);
913 paintCursor(tPtr);
914 tPtr->flags.cursorOn = !tPtr->flags.cursorOn;
916 #endif
919 static void
920 handleEvents(XEvent *event, void *data)
922 TextField *tPtr = (TextField*)data;
924 CHECK_CLASS(data, WC_TextField);
927 switch (event->type) {
928 case FocusIn:
929 if (W_FocusedViewOfToplevel(W_TopLevelOfView(tPtr->view))!=tPtr->view)
930 return;
931 tPtr->flags.focused = 1;
932 #if 0
933 if (!tPtr->timerID) {
934 tPtr->timerID = WMAddTimerHandler(CURSOR_BLINK_ON_DELAY,
935 blinkCursor, tPtr);
937 #endif
938 paintTextField(tPtr);
940 NOTIFY(tPtr, didBeginEditing, WMTextDidBeginEditingNotification, NULL);
942 tPtr->flags.notIllegalMovement = 0;
943 break;
945 case FocusOut:
946 tPtr->flags.focused = 0;
947 #if 0
948 if (tPtr->timerID)
949 WMDeleteTimerHandler(tPtr->timerID);
950 tPtr->timerID = NULL;
951 #endif
953 paintTextField(tPtr);
954 if (!tPtr->flags.notIllegalMovement) {
955 NOTIFY(tPtr, didEndEditing, WMTextDidEndEditingNotification,
956 (void*)WMIllegalTextMovement);
958 break;
960 case Expose:
961 if (event->xexpose.count!=0)
962 break;
963 paintTextField(tPtr);
964 break;
966 case DestroyNotify:
967 destroyTextField(tPtr);
968 break;
973 static void
974 handleTextFieldKeyPress(TextField *tPtr, XEvent *event)
976 char buffer[64];
977 KeySym ksym;
978 int count, refresh = 0;
979 int control_pressed = 0;
980 int cancelSelection = 1;
982 /*printf("(%d,%d) -> ", tPtr->selection.position, tPtr->selection.count);*/
983 if (((XKeyEvent *) event)->state & WM_EMACSKEYMASK)
984 control_pressed = 1;
986 count = XLookupString(&event->xkey, buffer, 63, &ksym, NULL);
987 buffer[count] = '\0';
989 /* Be careful in any case in this switch statement, never to call
990 * to more than a function that can generate text change notifications.
991 * Only one text change notification should be sent in any case.
992 * Else hazardous things can happen.
993 * Maybe we need a better solution than the function wrapper to inform
994 * functions that change text in text fields, if they need to send a
995 * change notification or not. -Dan
997 switch (ksym) {
998 case XK_Tab:
999 #ifdef XK_ISO_Left_Tab
1000 case XK_ISO_Left_Tab:
1001 #endif
1002 if (event->xkey.state & ShiftMask) {
1003 if (tPtr->view->prevFocusChain) {
1004 W_SetFocusOfTopLevel(W_TopLevelOfView(tPtr->view),
1005 tPtr->view->prevFocusChain);
1006 tPtr->flags.notIllegalMovement = 1;
1008 NOTIFY(tPtr, didEndEditing, WMTextDidEndEditingNotification,
1009 (void*)WMBacktabTextMovement);
1010 } else {
1011 if (tPtr->view->nextFocusChain) {
1012 W_SetFocusOfTopLevel(W_TopLevelOfView(tPtr->view),
1013 tPtr->view->nextFocusChain);
1014 tPtr->flags.notIllegalMovement = 1;
1016 NOTIFY(tPtr, didEndEditing, WMTextDidEndEditingNotification,
1017 (void*)WMTabTextMovement);
1019 break;
1021 case XK_Return:
1022 NOTIFY(tPtr, didEndEditing, WMTextDidEndEditingNotification,
1023 (void*)WMReturnTextMovement);
1024 break;
1026 case WM_EMACSKEY_LEFT:
1027 if (!control_pressed) {
1028 goto normal_key;
1030 #ifdef XK_KP_Left
1031 case XK_KP_Left:
1032 #endif
1033 case XK_Left:
1034 if (tPtr->cursorPosition > 0) {
1035 paintCursor(tPtr);
1036 if (event->xkey.state & ControlMask) {
1037 int i = tPtr->cursorPosition - 1;
1039 while (i > 0 && tPtr->text[i] != ' ') i--;
1040 while (i > 0 && tPtr->text[i] == ' ') i--;
1042 tPtr->cursorPosition = (i > 0) ? i + 1 : 0;
1043 } else
1044 tPtr->cursorPosition--;
1046 if (tPtr->cursorPosition < tPtr->viewPosition) {
1047 tPtr->viewPosition = tPtr->cursorPosition;
1048 refresh = 1;
1049 } else
1050 paintCursor(tPtr);
1052 if (event->xkey.state & ShiftMask)
1053 cancelSelection = 0;
1054 break;
1056 case WM_EMACSKEY_RIGHT:
1057 if (!control_pressed) {
1058 goto normal_key;
1060 #ifdef XK_KP_Right
1061 case XK_KP_Right:
1062 #endif
1063 case XK_Right:
1064 if (tPtr->cursorPosition < tPtr->textLen) {
1065 paintCursor(tPtr);
1066 if (event->xkey.state & ControlMask) {
1067 int i = tPtr->cursorPosition;
1069 while (tPtr->text[i] && tPtr->text[i] != ' ') i++;
1070 while (tPtr->text[i] == ' ') i++;
1072 tPtr->cursorPosition = i;
1073 } else {
1074 tPtr->cursorPosition++;
1076 while (WMWidthOfString(tPtr->font,
1077 &(tPtr->text[tPtr->viewPosition]),
1078 tPtr->cursorPosition-tPtr->viewPosition)
1079 > tPtr->usableWidth) {
1080 tPtr->viewPosition++;
1081 refresh = 1;
1083 if (!refresh)
1084 paintCursor(tPtr);
1086 if (event->xkey.state & ShiftMask)
1087 cancelSelection = 0;
1088 break;
1090 case WM_EMACSKEY_HOME:
1091 if (!control_pressed) {
1092 goto normal_key;
1094 #ifdef XK_KP_Home
1095 case XK_KP_Home:
1096 #endif
1097 case XK_Home:
1098 if (tPtr->cursorPosition > 0) {
1099 paintCursor(tPtr);
1100 tPtr->cursorPosition = 0;
1101 if (tPtr->viewPosition > 0) {
1102 tPtr->viewPosition = 0;
1103 refresh = 1;
1104 } else
1105 paintCursor(tPtr);
1107 if (event->xkey.state & ShiftMask)
1108 cancelSelection = 0;
1109 break;
1111 case WM_EMACSKEY_END:
1112 if (!control_pressed) {
1113 goto normal_key;
1115 #ifdef XK_KP_End
1116 case XK_KP_End:
1117 #endif
1118 case XK_End:
1119 if (tPtr->cursorPosition < tPtr->textLen) {
1120 paintCursor(tPtr);
1121 tPtr->cursorPosition = tPtr->textLen;
1122 tPtr->viewPosition = 0;
1123 while (WMWidthOfString(tPtr->font,
1124 &(tPtr->text[tPtr->viewPosition]),
1125 tPtr->textLen-tPtr->viewPosition)
1126 > tPtr->usableWidth) {
1127 tPtr->viewPosition++;
1128 refresh = 1;
1130 if (!refresh)
1131 paintCursor(tPtr);
1133 if (event->xkey.state & ShiftMask)
1134 cancelSelection = 0;
1135 break;
1137 case WM_EMACSKEY_BS:
1138 if (!control_pressed) {
1139 goto normal_key;
1141 case XK_BackSpace:
1142 if (tPtr->selection.count) {
1143 WMDeleteTextFieldRange(tPtr, tPtr->selection);
1144 NOTIFY(tPtr, didChange, WMTextDidChangeNotification,
1145 (void*)WMDeleteTextEvent);
1146 } else if (tPtr->cursorPosition > 0) {
1147 WMRange range;
1148 range.position = tPtr->cursorPosition - 1;
1149 range.count = 1;
1150 WMDeleteTextFieldRange(tPtr, range);
1151 NOTIFY(tPtr, didChange, WMTextDidChangeNotification,
1152 (void*)WMDeleteTextEvent);
1154 break;
1156 case WM_EMACSKEY_DEL:
1157 if (!control_pressed) {
1158 goto normal_key;
1160 #ifdef XK_KP_Delete
1161 case XK_KP_Delete:
1162 #endif
1163 case XK_Delete:
1164 if (tPtr->selection.count) {
1165 WMDeleteTextFieldRange(tPtr, tPtr->selection);
1166 NOTIFY(tPtr, didChange, WMTextDidChangeNotification,
1167 (void*)WMDeleteTextEvent);
1168 } else if (tPtr->cursorPosition < tPtr->textLen) {
1169 WMRange range;
1170 range.position = tPtr->cursorPosition;
1171 range.count = 1;
1172 WMDeleteTextFieldRange(tPtr, range);
1173 NOTIFY(tPtr, didChange, WMTextDidChangeNotification,
1174 (void*)WMDeleteTextEvent);
1176 break;
1178 normal_key:
1179 default:
1180 if (count > 0 && !iscntrl(buffer[0])) {
1181 if (tPtr->selection.count) {
1182 WMDeleteTextFieldRange(tPtr, tPtr->selection);
1183 tPtr->selection.count = 0;
1184 refresh = 1;
1186 /* TODO: check if this is correct. */
1187 cancelSelection = 0;
1188 WMInsertTextFieldText(tPtr, buffer, tPtr->cursorPosition);
1189 tPtr->selection.position = tPtr->cursorPosition;
1190 NOTIFY(tPtr, didChange, WMTextDidChangeNotification,
1191 (void*)WMInsertTextEvent);
1192 } else
1193 return;
1194 break;
1197 if (!cancelSelection) {
1198 if (tPtr->selection.count != tPtr->cursorPosition - tPtr->selection.position) {
1199 WMNotification *notif;
1201 tPtr->selection.count = tPtr->cursorPosition - tPtr->selection.position;
1203 XSetSelectionOwner(tPtr->view->screen->display,
1204 XA_PRIMARY, tPtr->view->window,
1205 event->xbutton.time);
1206 notif = WMCreateNotification("_lostOwnership", NULL,tPtr);
1207 WMPostNotification(notif);
1208 WMReleaseNotification(notif);
1210 refresh = 1;
1212 } else {
1213 if (tPtr->selection.count) {
1214 tPtr->selection.count = 0;
1215 refresh = 1;
1217 tPtr->selection.position = tPtr->cursorPosition;
1220 if (refresh)
1221 paintTextField(tPtr);
1223 /*printf("(%d,%d)\n", tPtr->selection.position, tPtr->selection.count);*/
1227 static int
1228 pointToCursorPosition(TextField *tPtr, int x)
1230 int a, b, mid;
1231 int tw;
1233 if (tPtr->flags.bordered)
1234 x -= 2;
1236 a = tPtr->viewPosition;
1237 b = tPtr->viewPosition + tPtr->textLen;
1238 if (WMWidthOfString(tPtr->font, &(tPtr->text[tPtr->viewPosition]),
1239 tPtr->textLen - tPtr->viewPosition) < x)
1240 return tPtr->textLen;
1242 while (a < b && b-a>1) {
1243 mid = (a+b)/2;
1244 tw = WMWidthOfString(tPtr->font, &(tPtr->text[tPtr->viewPosition]),
1245 mid - tPtr->viewPosition);
1246 if (tw > x)
1247 b = mid;
1248 else if (tw < x)
1249 a = mid;
1250 else
1251 return mid;
1253 return (a+b)/2;
1257 static void
1258 handleTextFieldActionEvents(XEvent *event, void *data)
1260 TextField *tPtr = (TextField*)data;
1261 static int move = 0;
1262 static Time lastButtonReleasedEvent = 0;
1264 CHECK_CLASS(data, WC_TextField);
1266 switch (event->type) {
1267 case KeyPress:
1268 if (tPtr->flags.enabled && tPtr->flags.focused) {
1269 handleTextFieldKeyPress(tPtr, event);
1270 XGrabPointer(WMScreenDisplay(W_VIEW(tPtr)->screen),
1271 W_VIEW(tPtr)->window, False,
1272 PointerMotionMask|ButtonPressMask|ButtonReleaseMask,
1273 GrabModeAsync, GrabModeAsync, None,
1274 W_VIEW(tPtr)->screen->invisibleCursor,
1275 CurrentTime);
1276 tPtr->flags.pointerGrabbed = 1;
1278 break;
1280 case MotionNotify:
1282 if (tPtr->flags.pointerGrabbed) {
1283 tPtr->flags.pointerGrabbed = 0;
1284 XUngrabPointer(WMScreenDisplay(W_VIEW(tPtr)->screen), CurrentTime);
1287 if (tPtr->flags.enabled && (event->xmotion.state & Button1Mask)) {
1289 if (tPtr->viewPosition < tPtr->textLen && event->xmotion.x >
1290 tPtr->usableWidth) {
1291 if (WMWidthOfString(tPtr->font,
1292 &(tPtr->text[tPtr->viewPosition]),
1293 tPtr->cursorPosition-tPtr->viewPosition)
1294 > tPtr->usableWidth) {
1295 tPtr->viewPosition++;
1297 } else if (tPtr->viewPosition > 0 && event->xmotion.x < 0) {
1298 paintCursor(tPtr);
1299 tPtr->viewPosition--;
1302 /*if (!tPtr->selection.count) {
1303 tPtr->selection.position = tPtr->cursorPosition;
1306 tPtr->cursorPosition =
1307 pointToCursorPosition(tPtr, event->xmotion.x);
1309 tPtr->selection.count = tPtr->cursorPosition - tPtr->selection.position;
1310 /*printf("(%d,%d)\n", tPtr->selection.position, tPtr->selection.count);*/
1313 printf("notify %d %d\n",event->xmotion.x,tPtr->usableWidth);
1316 paintCursor(tPtr);
1317 paintTextField(tPtr);
1320 if (move) {
1321 XSetSelectionOwner(tPtr->view->screen->display,
1322 XA_PRIMARY, tPtr->view->window, event->xmotion.time);
1324 WMNotification *notif = WMCreateNotification("_lostOwnership",
1325 NULL,tPtr);
1326 WMPostNotification(notif);
1327 WMReleaseNotification(notif);
1330 break;
1332 case ButtonPress:
1333 if (tPtr->flags.pointerGrabbed) {
1334 tPtr->flags.pointerGrabbed = 0;
1335 XUngrabPointer(WMScreenDisplay(W_VIEW(tPtr)->screen), CurrentTime);
1336 break;
1339 move = 1;
1340 switch (tPtr->flags.alignment) {
1341 int textWidth;
1342 case WARight:
1343 textWidth = WMWidthOfString(tPtr->font, tPtr->text, tPtr->textLen);
1344 if (tPtr->flags.enabled && !tPtr->flags.focused) {
1345 WMSetFocusToWidget(tPtr);
1346 } else if (tPtr->flags.focused) {
1347 tPtr->selection.position = tPtr->cursorPosition;
1348 tPtr->selection.count = 0;
1350 if(textWidth < tPtr->usableWidth){
1351 tPtr->cursorPosition = pointToCursorPosition(tPtr,
1352 event->xbutton.x - tPtr->usableWidth
1353 + textWidth);
1355 else tPtr->cursorPosition = pointToCursorPosition(tPtr,
1356 event->xbutton.x);
1358 tPtr->cursorPosition = pointToCursorPosition(tPtr,
1359 event->xbutton.x);
1360 tPtr->cursorPosition += tPtr->usableWidth - textWidth;
1363 tPtr->cursorPosition = pointToCursorPosition(tPtr,
1364 event->xbutton.x);
1366 paintTextField(tPtr);
1367 break;
1369 case WALeft:
1370 if (tPtr->flags.enabled && !tPtr->flags.focused) {
1371 WMSetFocusToWidget(tPtr);
1372 tPtr->cursorPosition = pointToCursorPosition(tPtr,
1373 event->xbutton.x);
1374 paintTextField(tPtr);
1375 } else if (tPtr->flags.focused) {
1376 tPtr->cursorPosition = pointToCursorPosition(tPtr,
1377 event->xbutton.x);
1378 tPtr->selection.position = tPtr->cursorPosition;
1379 tPtr->selection.count = 0;
1380 paintTextField(tPtr);
1382 if (event->xbutton.button == Button2 && tPtr->flags.enabled) {
1383 char *text;
1385 text = W_GetTextSelection(tPtr->view->screen, XA_PRIMARY);
1387 if (!text) {
1388 text = W_GetTextSelection(tPtr->view->screen,
1389 tPtr->view->screen->clipboardAtom);
1391 if (!text) {
1392 text = W_GetTextSelection(tPtr->view->screen,
1393 XA_CUT_BUFFER0);
1395 if (text) {
1396 WMInsertTextFieldText(tPtr, text, tPtr->cursorPosition);
1397 XFree(text);
1398 NOTIFY(tPtr, didChange, WMTextDidChangeNotification,
1399 (void*)WMInsertTextEvent);
1402 break;
1404 break;
1406 case ButtonRelease:
1407 if (tPtr->flags.pointerGrabbed) {
1408 tPtr->flags.pointerGrabbed = 0;
1409 XUngrabPointer(WMScreenDisplay(W_VIEW(tPtr)->screen), CurrentTime);
1412 move = 0;
1414 if (event->xbutton.time - lastButtonReleasedEvent
1415 <= WINGsConfiguration.doubleClickDelay) {
1416 tPtr->selection.position = 0;
1417 tPtr->selection.count = tPtr->textLen;
1418 paintTextField(tPtr);
1419 XSetSelectionOwner(tPtr->view->screen->display,
1420 XA_PRIMARY, tPtr->view->window, event->xbutton.time);
1422 WMNotification *notif = WMCreateNotification("_lostOwnership",
1423 NULL,tPtr);
1424 WMPostNotification(notif);
1425 WMReleaseNotification(notif);
1428 lastButtonReleasedEvent = event->xbutton.time;
1430 break;
1435 static void
1436 destroyTextField(TextField *tPtr)
1438 #if 0
1439 if (tPtr->timerID)
1440 WMDeleteTimerHandler(tPtr->timerID);
1441 #endif
1443 WMReleaseFont(tPtr->font);
1444 WMDeleteSelectionHandler(tPtr, XA_PRIMARY);
1445 WMRemoveNotificationObserver(tPtr);
1447 if (tPtr->text)
1448 wfree(tPtr->text);
1450 wfree(tPtr);