7 #include <X11/keysym.h>
12 #define CURSOR_BLINK_ON_DELAY 600
13 #define CURSOR_BLINK_OFF_DELAY 300
16 char *WMTextDidChangeNotification
= "WMTextDidChangeNotification";
17 char *WMTextDidBeginEditingNotification
= "WMTextDidBeginEditingNotification";
18 char *WMTextDidEndEditingNotification
= "WMTextDidEndEditingNotification";
21 typedef struct W_TextField
{
26 struct W_TextField
*nextField
; /* next textfield in the chain */
27 struct W_TextField
*prevField
;
31 int textLen
; /* size of text */
32 int bufferSize
; /* memory allocated for text */
34 int viewPosition
; /* position of text being shown */
36 int cursorPosition
; /* position of the insertion cursor */
39 short offsetWidth
; /* offset of text from border */
42 WMRange prevselection
;
47 WMHandlerID timerID
; /* for cursor blinking */
50 WMAlignment alignment
:2;
52 unsigned int bordered
:1;
54 unsigned int beveled
:1;
56 unsigned int enabled
:1;
58 unsigned int focused
:1;
60 unsigned int cursorOn
:1;
62 unsigned int secure
:1; /* password entry style */
65 unsigned int notIllegalMovement
:1;
70 #define MIN_TEXT_BUFFER 2
71 #define TEXT_BUFFER_INCR 8
74 #define WM_EMACSKEYMASK ControlMask
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
85 #define DEFAULT_WIDTH 60
86 #define DEFAULT_HEIGHT 20
87 #define DEFAULT_BORDERED True
88 #define DEFAULT_ALIGNMENT WALeft
92 static void destroyTextField(TextField
*tPtr
);
93 static void paintTextField(TextField
*tPtr
);
95 static void handleEvents(XEvent
*event
, void *data
);
96 static void handleTextFieldActionEvents(XEvent
*event
, void *data
);
97 static void resizeTextField();
99 struct W_ViewProcedureTable _TextFieldViewProcedures
= {
106 #define TEXT_WIDTH(tPtr, start) (WMWidthOfString((tPtr)->font, \
107 &((tPtr)->text[(start)]), (tPtr)->textLen - (start) + 1))
109 #define TEXT_WIDTH2(tPtr, start, end) (WMWidthOfString((tPtr)->font, \
110 &((tPtr)->text[(start)]), (end) - (start) + 1))
114 memmv(char *dest
, char *src
, int size
)
119 for (i
=size
-1; i
>=0; i
--) {
122 } else if (dest
< src
) {
123 for (i
=0; i
<size
; i
++) {
131 incrToFit(TextField
*tPtr
)
133 int vp
= tPtr
->viewPosition
;
135 while (TEXT_WIDTH(tPtr
, tPtr
->viewPosition
) > tPtr
->usableWidth
) {
136 tPtr
->viewPosition
++;
138 return vp
!=tPtr
->viewPosition
;
143 incrToFit2(TextField
*tPtr
)
145 int vp
= tPtr
->viewPosition
;
146 while (TEXT_WIDTH2(tPtr
, tPtr
->viewPosition
, tPtr
->cursorPosition
)
147 >= tPtr
->usableWidth
)
148 tPtr
->viewPosition
++;
151 return vp
!=tPtr
->viewPosition
;
156 decrToFit(TextField
*tPtr
)
158 while (TEXT_WIDTH(tPtr
, tPtr
->viewPosition
-1) < tPtr
->usableWidth
159 && tPtr
->viewPosition
>0)
160 tPtr
->viewPosition
--;
168 WMCreateTextField(WMWidget
*parent
)
172 tPtr
= wmalloc(sizeof(TextField
));
173 memset(tPtr
, 0, sizeof(TextField
));
175 tPtr
->widgetClass
= WC_TextField
;
177 tPtr
->view
= W_CreateView(W_VIEW(parent
));
182 tPtr
->view
->self
= tPtr
;
184 tPtr
->view
->attribFlags
|= CWCursor
;
185 tPtr
->view
->attribs
.cursor
= tPtr
->view
->screen
->textCursor
;
187 W_SetViewBackgroundColor(tPtr
->view
, tPtr
->view
->screen
->white
);
189 tPtr
->text
= wmalloc(MIN_TEXT_BUFFER
);
192 tPtr
->bufferSize
= MIN_TEXT_BUFFER
;
194 tPtr
->flags
.enabled
= 1;
196 WMCreateEventHandler(tPtr
->view
, ExposureMask
|StructureNotifyMask
197 |FocusChangeMask
, handleEvents
, tPtr
);
199 W_ResizeView(tPtr
->view
, DEFAULT_WIDTH
, DEFAULT_HEIGHT
);
201 tPtr
->font
= WMRetainFont(tPtr
->view
->screen
->normalFont
);
203 tPtr
->flags
.bordered
= DEFAULT_BORDERED
;
204 tPtr
->flags
.beveled
= True
;
205 tPtr
->flags
.alignment
= DEFAULT_ALIGNMENT
;
207 WMAX((tPtr
->view
->size
.height
- WMFontHeight(tPtr
->font
))/2, 1);
209 WMCreateEventHandler(tPtr
->view
, EnterWindowMask
|LeaveWindowMask
210 |ButtonPressMask
|KeyPressMask
|Button1MotionMask
,
211 handleTextFieldActionEvents
, tPtr
);
213 tPtr
->flags
.cursorOn
= 1;
220 WMInsertTextFieldText(WMTextField
*tPtr
, char *text
, int position
)
224 CHECK_CLASS(tPtr
, WC_TextField
);
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
);
237 if (position
< 0 || position
>= tPtr
->textLen
) {
238 /* append the text at the end */
239 strcat(tPtr
->text
, text
);
243 tPtr
->textLen
+= len
;
244 tPtr
->cursorPosition
+= len
;
246 /* insert text at position */
247 memmv(&(tPtr
->text
[position
+len
]), &(tPtr
->text
[position
]),
248 tPtr
->textLen
-position
+1);
250 memcpy(&(tPtr
->text
[position
]), text
, len
);
252 tPtr
->textLen
+= len
;
253 if (position
>= tPtr
->cursorPosition
) {
254 tPtr
->cursorPosition
+= len
;
261 paintTextField(tPtr
);
263 WMPostNotificationName(WMTextDidChangeNotification
, tPtr
,
264 (void*)WMInsertTextEvent
);
269 deleteTextFieldRange(WMTextField
*tPtr
, WMRange range
)
271 CHECK_CLASS(tPtr
, WC_TextField
);
273 if (range
.position
>= tPtr
->textLen
)
276 if (range
.count
< 1) {
277 if (range
.position
< 0)
279 tPtr
->text
[range
.position
] = 0;
280 tPtr
->textLen
= range
.position
;
282 tPtr
->cursorPosition
= 0;
283 tPtr
->viewPosition
= 0;
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
;
291 if (tPtr
->cursorPosition
> range
.position
)
292 tPtr
->cursorPosition
-= range
.count
;
297 paintTextField(tPtr
);
302 WMDeleteTextFieldRange(WMTextField
*tPtr
, WMRange range
)
304 deleteTextFieldRange(tPtr
, range
);
305 WMPostNotificationName(WMTextDidChangeNotification
, tPtr
,
306 (void*)WMDeleteTextEvent
);
312 WMGetTextFieldText(WMTextField
*tPtr
)
314 CHECK_CLASS(tPtr
, WC_TextField
);
316 return wstrdup(tPtr
->text
);
321 WMSetTextFieldText(WMTextField
*tPtr
, char *text
)
323 if ((text
&& strcmp(tPtr
->text
, text
) == 0) ||
324 (!text
&& tPtr
->textLen
== 0))
331 tPtr
->textLen
= strlen(text
);
333 if (tPtr
->textLen
>= tPtr
->bufferSize
) {
334 tPtr
->bufferSize
= tPtr
->textLen
+ TEXT_BUFFER_INCR
;
335 tPtr
->text
= realloc(tPtr
->text
, tPtr
->bufferSize
);
337 strcpy(tPtr
->text
, text
);
340 if (tPtr->textLen < tPtr->cursorPosition)
341 tPtr->cursorPosition = tPtr->textLen;
343 tPtr
->cursorPosition
= tPtr
->textLen
;
344 tPtr
->viewPosition
= 0;
345 tPtr
->selection
.count
= 0;
347 if (tPtr
->view
->flags
.realized
)
348 paintTextField(tPtr
);
350 WMPostNotificationName(WMTextDidChangeNotification
, tPtr
,
351 (void*)WMSetTextEvent
);
356 WMSetTextFieldFont(WMTextField
*tPtr
, WMFont
*font
)
358 /* TODO: update font change after field is mapped */
359 WMReleaseFont(tPtr
->font
);
360 tPtr
->font
= WMRetainFont(font
);
364 WMSetTextFieldAlignment(WMTextField
*tPtr
, WMAlignment alignment
)
366 tPtr
->flags
.alignment
= alignment
;
367 if (alignment
!=WALeft
) {
368 wwarning("only left alignment is supported in textfields");
372 if (tPtr
->view
->flags
.realized
) {
373 paintTextField(tPtr
);
379 WMSetTextFieldBordered(WMTextField
*tPtr
, Bool bordered
)
381 tPtr
->flags
.bordered
= bordered
;
383 if (tPtr
->view
->flags
.realized
) {
384 paintTextField(tPtr
);
390 WMSetTextFieldBeveled(WMTextField
*tPtr
, Bool flag
)
392 tPtr
->flags
.beveled
= flag
;
394 if (tPtr
->view
->flags
.realized
) {
395 paintTextField(tPtr
);
402 WMSetTextFieldSecure(WMTextField
*tPtr
, Bool flag
)
404 tPtr
->flags
.secure
= flag
;
406 if (tPtr
->view
->flags
.realized
) {
407 paintTextField(tPtr
);
413 WMGetTextFieldEnabled(WMTextField
*tPtr
)
415 return tPtr
->flags
.enabled
;
420 WMSetTextFieldEnabled(WMTextField
*tPtr
, Bool flag
)
422 tPtr
->flags
.enabled
= flag
;
424 if (tPtr
->view
->flags
.realized
) {
425 paintTextField(tPtr
);
431 WMSelectTextFieldRange(WMTextField
*tPtr
, WMRange range
)
433 if (tPtr
->flags
.enabled
) {
434 if (range
.position
< 0) {
435 range
.count
+= range
.position
;
436 range
.count
= (range
.count
< 0) ? 0 : range
.count
;
438 } else if (range
.position
> tPtr
->textLen
) {
439 range
.position
= tPtr
->textLen
;
443 if (range
.position
+ range
.count
> tPtr
->textLen
)
444 range
.count
= tPtr
->textLen
- range
.position
;
446 tPtr
->prevselection
= tPtr
->selection
; /* check if this is needed */
448 tPtr
->selection
= range
;
450 if (tPtr
->view
->flags
.realized
) {
451 paintTextField(tPtr
);
458 WMSetTextFieldCursorPosition(WMTextField
*tPtr
, unsigned int position
)
460 if (tPtr
->flags
.enabled
) {
461 if (position
> tPtr
->textLen
)
462 position
= tPtr
->textLen
;
464 tPtr
->cursorPosition
= position
;
465 if (tPtr
->view
->flags
.realized
) {
466 paintTextField(tPtr
);
473 WMSetTextFieldNextTextField(WMTextField
*tPtr
, WMTextField
*next
)
475 CHECK_CLASS(tPtr
, WC_TextField
);
477 if (tPtr
->view
->nextFocusChain
)
478 tPtr
->view
->nextFocusChain
->prevFocusChain
= NULL
;
479 tPtr
->view
->nextFocusChain
= NULL
;
483 CHECK_CLASS(next
, WC_TextField
);
485 if (tPtr
->view
->nextFocusChain
)
486 tPtr
->view
->nextFocusChain
->prevFocusChain
= NULL
;
487 if (next
->view
->prevFocusChain
)
488 next
->view
->prevFocusChain
->nextFocusChain
= NULL
;
490 tPtr
->view
->nextFocusChain
= next
->view
;
491 next
->view
->prevFocusChain
= tPtr
->view
;
496 WMSetTextFieldPrevTextField(WMTextField
*tPtr
, WMTextField
*prev
)
498 CHECK_CLASS(tPtr
, WC_TextField
);
500 if (tPtr
->view
->prevFocusChain
)
501 tPtr
->view
->prevFocusChain
->nextFocusChain
= NULL
;
502 tPtr
->view
->prevFocusChain
= NULL
;
506 CHECK_CLASS(prev
, WC_TextField
);
508 if (tPtr
->view
->prevFocusChain
)
509 tPtr
->view
->prevFocusChain
->nextFocusChain
= NULL
;
510 if (prev
->view
->nextFocusChain
)
511 prev
->view
->nextFocusChain
->prevFocusChain
= NULL
;
513 tPtr
->view
->prevFocusChain
= prev
->view
;
514 prev
->view
->nextFocusChain
= tPtr
->view
;
519 resizeTextField(WMTextField
*tPtr
, unsigned int width
, unsigned int height
)
521 W_ResizeView(tPtr
->view
, width
, height
);
524 WMAX((tPtr
->view
->size
.height
- WMFontHeight(tPtr
->font
))/2, 1);
526 tPtr
->usableWidth
= tPtr
->view
->size
.width
- 2*tPtr
->offsetWidth
+ 2;
531 paintCursor(TextField
*tPtr
)
534 WMScreen
*screen
= tPtr
->view
->screen
;
537 cx
= WMWidthOfString(tPtr
->font
, &(tPtr
->text
[tPtr
->viewPosition
]),
538 tPtr
->cursorPosition
-tPtr
->viewPosition
);
540 switch (tPtr
->flags
.alignment
) {
542 textWidth
= WMWidthOfString(tPtr
->font
, tPtr
->text
, tPtr
->textLen
);
543 if (textWidth
< tPtr
->usableWidth
)
544 cx
+= tPtr
->offsetWidth
+ tPtr
->usableWidth
- textWidth
+ 1;
546 cx
+= tPtr
->offsetWidth
+ 1;
549 cx
+= tPtr
->offsetWidth
+ 1;
554 textWidth
= WMWidthOfString(tPtr
->font
, tPtr
->text
, tPtr
->textLen
);
555 if (textWidth
< tPtr
->usableWidth
)
556 cx
+= tPtr
->offsetWidth
+ (tPtr
->usableWidth
-textWidth
)/2;
558 cx
+= tPtr
->offsetWidth
;
562 XDrawRectangle(screen->display, tPtr->view->window, screen->xorGC,
563 cx, tPtr->offsetWidth, 1,
564 tPtr->view->size.height - 2*tPtr->offsetWidth - 1);
566 XDrawLine(screen
->display
, tPtr
->view
->window
, screen
->xorGC
,
567 cx
, tPtr
->offsetWidth
, cx
,
568 tPtr
->view
->size
.height
- tPtr
->offsetWidth
- 1);
574 drawRelief(WMView
*view
, Bool beveled
)
576 WMScreen
*scr
= view
->screen
;
577 Display
*dpy
= scr
->display
;
581 int width
= view
->size
.width
;
582 int height
= view
->size
.height
;
584 dgc
= W_GC(scr
->darkGray
);
587 XDrawRectangle(dpy
, view
->window
, dgc
, 0, 0, width
-1, height
-1);
591 wgc
= W_GC(scr
->white
);
592 lgc
= W_GC(scr
->gray
);
595 XDrawLine(dpy
, view
->window
, dgc
, 0, 0, width
-1, 0);
596 XDrawLine(dpy
, view
->window
, dgc
, 0, 1, width
-2, 1);
598 XDrawLine(dpy
, view
->window
, dgc
, 0, 0, 0, height
-2);
599 XDrawLine(dpy
, view
->window
, dgc
, 1, 0, 1, height
-3);
602 XDrawLine(dpy
, view
->window
, wgc
, 0, height
-1, width
-1, height
-1);
603 XDrawLine(dpy
, view
->window
, lgc
, 1, height
-2, width
-2, height
-2);
605 XDrawLine(dpy
, view
->window
, wgc
, width
-1, 0, width
-1, height
-1);
606 XDrawLine(dpy
, view
->window
, lgc
, width
-2, 1, width
-2, height
-3);
611 paintTextField(TextField
*tPtr
)
613 W_Screen
*screen
= tPtr
->view
->screen
;
614 W_View
*view
= tPtr
->view
;
621 if (!view
->flags
.realized
|| !view
->flags
.mapped
)
624 if (!tPtr
->flags
.bordered
) {
630 totalWidth
= tPtr
->view
->size
.width
- 2*bd
;
632 if (tPtr
->textLen
> 0) {
633 tw
= WMWidthOfString(tPtr
->font
, &(tPtr
->text
[tPtr
->viewPosition
]),
634 tPtr
->textLen
- tPtr
->viewPosition
);
636 th
= WMFontHeight(tPtr
->font
);
638 ty
= tPtr
->offsetWidth
;
639 switch (tPtr
->flags
.alignment
) {
641 tx
= tPtr
->offsetWidth
+ 1;
642 if (tw
< tPtr
->usableWidth
)
643 XClearArea(screen
->display
, view
->window
, bd
+tw
, bd
,
644 totalWidth
-tw
, view
->size
.height
-2*bd
,
649 tx
= tPtr
->offsetWidth
+ (tPtr
->usableWidth
- tw
) / 2;
650 if (tw
< tPtr
->usableWidth
)
651 XClearArea(screen
->display
, view
->window
, bd
, bd
,
652 totalWidth
, view
->size
.height
-2*bd
, False
);
657 tx
= tPtr
->offsetWidth
+ tPtr
->usableWidth
- tw
- 1;
658 if (tw
< tPtr
->usableWidth
)
659 XClearArea(screen
->display
, view
->window
, bd
, bd
,
660 totalWidth
-tw
, view
->size
.height
-2*bd
, False
);
664 if (!tPtr
->flags
.secure
) {
665 if (!tPtr
->flags
.enabled
)
666 WMSetColorInGC(screen
->darkGray
, screen
->textFieldGC
);
668 WMDrawImageString(screen
, view
->window
, screen
->textFieldGC
,
670 &(tPtr
->text
[tPtr
->viewPosition
]),
671 tPtr
->textLen
- tPtr
->viewPosition
);
673 if (tPtr
->selection
.count
) {
676 count
= tPtr
->selection
.count
< 0
677 ? tPtr
->selection
.position
+ tPtr
->selection
.count
678 : tPtr
->selection
.position
;
680 rx
= tx
+ WMWidthOfString(tPtr
->font
,
681 &(tPtr
->text
[tPtr
->viewPosition
]),
684 XSetBackground(screen
->display
, screen
->textFieldGC
,
685 screen
->gray
->color
.pixel
);
687 WMDrawImageString(screen
, view
->window
, screen
->textFieldGC
,
688 tPtr
->font
, rx
, ty
, &(tPtr
->text
[count
]),
689 abs(tPtr
->selection
.count
));
691 XSetBackground(screen
->display
, screen
->textFieldGC
,
692 screen
->white
->color
.pixel
);
695 if (!tPtr
->flags
.enabled
)
696 WMSetColorInGC(screen
->black
, screen
->textFieldGC
);
699 XClearArea(screen
->display
, view
->window
, bd
, bd
, totalWidth
,
700 view
->size
.height
- 2*bd
, False
);
704 if (tPtr
->flags
.focused
&& tPtr
->flags
.enabled
&& tPtr
->flags
.cursorOn
705 && !tPtr
->flags
.secure
) {
710 if (tPtr
->flags
.bordered
) {
711 drawRelief(view
, tPtr
->flags
.beveled
);
718 blinkCursor(void *data
)
720 TextField
*tPtr
= (TextField
*)data
;
722 if (tPtr
->flags
.cursorOn
) {
723 tPtr
->timerID
= WMAddTimerHandler(CURSOR_BLINK_OFF_DELAY
, blinkCursor
,
726 tPtr
->timerID
= WMAddTimerHandler(CURSOR_BLINK_ON_DELAY
, blinkCursor
,
730 tPtr
->flags
.cursorOn
= !tPtr
->flags
.cursorOn
;
736 handleEvents(XEvent
*event
, void *data
)
738 TextField
*tPtr
= (TextField
*)data
;
740 CHECK_CLASS(data
, WC_TextField
);
743 switch (event
->type
) {
745 if (W_FocusedViewOfToplevel(W_TopLevelOfView(tPtr
->view
))!=tPtr
->view
)
747 tPtr
->flags
.focused
= 1;
749 if (!tPtr
->timerID
) {
750 tPtr
->timerID
= WMAddTimerHandler(CURSOR_BLINK_ON_DELAY
,
754 paintTextField(tPtr
);
756 WMPostNotificationName(WMTextDidBeginEditingNotification
, tPtr
, NULL
);
758 tPtr
->flags
.notIllegalMovement
= 0;
762 tPtr
->flags
.focused
= 0;
765 WMDeleteTimerHandler(tPtr
->timerID
);
766 tPtr
->timerID
= NULL
;
769 paintTextField(tPtr
);
770 if (!tPtr
->flags
.notIllegalMovement
) {
771 WMPostNotificationName(WMTextDidEndEditingNotification
, tPtr
,
772 (void*)WMIllegalTextMovement
);
777 if (event
->xexpose
.count
!=0)
779 paintTextField(tPtr
);
783 destroyTextField(tPtr
);
790 handleTextFieldKeyPress(TextField
*tPtr
, XEvent
*event
)
794 int count
, refresh
= 0;
795 int control_pressed
= 0;
797 if (((XKeyEvent
*) event
)->state
& WM_EMACSKEYMASK
) {
801 count
= XLookupString(&event
->xkey
, buffer
, 63, &ksym
, NULL
);
802 buffer
[count
] = '\0';
804 if (!(event
->xkey
.state
& ShiftMask
)) {
805 if (tPtr
->selection
.count
)
807 tPtr
->prevselection
= tPtr
->selection
;
808 tPtr
->selection
.position
= tPtr
->cursorPosition
;
809 tPtr
->selection
.count
= 0;
812 /* Be careful in any case in this switch statement, never to call
813 * to more than a function that can generate text change notifications.
814 * Only one text change notification should be sent in any case.
815 * Else hazardous things can happen.
816 * Maybe we need a better solution than the function wrapper to inform
817 * functions that change text in text fields, if they need to send a
818 * change notification or not. -Dan
822 if (event
->xkey
.state
& ShiftMask
) {
823 if (tPtr
->view
->prevFocusChain
&&
824 tPtr
->view
->prevFocusChain
->flags
.mapped
) {
825 W_SetFocusOfTopLevel(W_TopLevelOfView(tPtr
->view
),
826 tPtr
->view
->prevFocusChain
);
827 tPtr
->flags
.notIllegalMovement
= 1;
829 WMPostNotificationName(WMTextDidEndEditingNotification
, tPtr
,
830 (void*)WMBacktabTextMovement
);
832 if (tPtr
->view
->nextFocusChain
&&
833 tPtr
->view
->nextFocusChain
->flags
.mapped
) {
834 W_SetFocusOfTopLevel(W_TopLevelOfView(tPtr
->view
),
835 tPtr
->view
->nextFocusChain
);
836 tPtr
->flags
.notIllegalMovement
= 1;
838 WMPostNotificationName(WMTextDidEndEditingNotification
,
839 tPtr
, (void*)WMTabTextMovement
);
844 WMPostNotificationName(WMTextDidEndEditingNotification
, tPtr
,
845 (void*)WMReturnTextMovement
);
848 case WM_EMACSKEY_LEFT
:
849 if (!control_pressed
) {
854 if (tPtr
->cursorPosition
> 0) {
856 if (event
->xkey
.state
& ControlMask
) {
858 for (i
= tPtr
->cursorPosition
- 1; i
>= 0; i
--)
859 if (tPtr
->text
[i
] == ' ' || i
== 0) {
860 tPtr
->cursorPosition
= i
;
864 tPtr
->cursorPosition
--;
866 if (tPtr
->cursorPosition
< tPtr
->viewPosition
) {
867 tPtr
->viewPosition
= tPtr
->cursorPosition
;
875 case WM_EMACSKEY_RIGHT
:
876 if (!control_pressed
) {
881 if (tPtr
->cursorPosition
< tPtr
->textLen
) {
883 if (event
->xkey
.state
& ControlMask
) {
885 for (i
= tPtr
->cursorPosition
+ 1; i
<= tPtr
->textLen
; i
++)
886 if (tPtr
->text
[i
] == ' ' || i
== tPtr
->textLen
) {
887 tPtr
->cursorPosition
= i
;
891 tPtr
->cursorPosition
++;
893 while (WMWidthOfString(tPtr
->font
,
894 &(tPtr
->text
[tPtr
->viewPosition
]),
895 tPtr
->cursorPosition
-tPtr
->viewPosition
)
896 > tPtr
->usableWidth
) {
897 tPtr
->viewPosition
++;
905 case WM_EMACSKEY_HOME
:
906 if (!control_pressed
) {
911 if (tPtr
->cursorPosition
> 0) {
913 tPtr
->cursorPosition
= 0;
914 if (tPtr
->viewPosition
> 0) {
915 tPtr
->viewPosition
= 0;
923 case WM_EMACSKEY_END
:
924 if (!control_pressed
) {
929 if (tPtr
->cursorPosition
< tPtr
->textLen
) {
931 tPtr
->cursorPosition
= tPtr
->textLen
;
932 tPtr
->viewPosition
= 0;
933 while (WMWidthOfString(tPtr
->font
,
934 &(tPtr
->text
[tPtr
->viewPosition
]),
935 tPtr
->textLen
-tPtr
->viewPosition
)
936 > tPtr
->usableWidth
) {
937 tPtr
->viewPosition
++;
946 if (!control_pressed
) {
950 if (tPtr
->cursorPosition
> 0) {
953 if (tPtr
->prevselection
.count
) {
954 range
.position
= tPtr
->prevselection
.count
< 0
955 ? tPtr
->prevselection
.position
+ tPtr
->prevselection
.count
956 : tPtr
->prevselection
.position
;
958 range
.count
= abs(tPtr
->prevselection
.count
);
960 range
.position
= tPtr
->cursorPosition
- 1;
963 WMDeleteTextFieldRange(tPtr
, range
);
967 case WM_EMACSKEY_DEL
:
968 if (!control_pressed
) {
973 if (tPtr
->cursorPosition
< tPtr
->textLen
|| tPtr
->prevselection
.count
) {
976 if (tPtr
->prevselection
.count
) {
977 range
.position
= tPtr
->prevselection
.count
< 0
978 ? tPtr
->prevselection
.position
+ tPtr
->prevselection
.count
979 : tPtr
->prevselection
.position
;
981 range
.count
= abs(tPtr
->prevselection
.count
);
983 range
.position
= tPtr
->cursorPosition
;
986 WMDeleteTextFieldRange(tPtr
, range
);
992 if (count
> 0 && !iscntrl(buffer
[0])) {
995 if (tPtr
->prevselection
.count
) {
996 range
.position
= tPtr
->prevselection
.count
< 0
997 ? tPtr
->prevselection
.position
+ tPtr
->prevselection
.count
998 : tPtr
->prevselection
.position
;
1000 range
.count
= abs(tPtr
->prevselection
.count
);
1002 range
.position
= tPtr
->cursorPosition
;
1005 if (tPtr
->prevselection
.count
)
1006 deleteTextFieldRange(tPtr
, range
);
1007 WMInsertTextFieldText(tPtr
, buffer
, tPtr
->cursorPosition
);
1013 if (event
->xkey
.state
& ShiftMask
) {
1014 if (tPtr
->selection
.count
== 0)
1015 tPtr
->selection
.position
= tPtr
->cursorPosition
;
1016 tPtr
->selection
.count
= tPtr
->cursorPosition
- tPtr
->selection
.position
;
1019 tPtr
->prevselection
.count
= 0;
1021 paintTextField(tPtr
);
1027 pointToCursorPosition(TextField
*tPtr
, int x
)
1032 if (tPtr
->flags
.bordered
)
1035 a
= tPtr
->viewPosition
;
1036 b
= tPtr
->viewPosition
+ tPtr
->textLen
;
1037 if (WMWidthOfString(tPtr
->font
, &(tPtr
->text
[tPtr
->viewPosition
]),
1038 tPtr
->textLen
-tPtr
->viewPosition
) < x
)
1039 return tPtr
->textLen
;
1041 while (a
< b
&& b
-a
>1) {
1043 tw
= WMWidthOfString(tPtr
->font
, &(tPtr
->text
[tPtr
->viewPosition
]),
1044 mid
- tPtr
->viewPosition
);
1057 handleTextFieldActionEvents(XEvent
*event
, void *data
)
1059 TextField
*tPtr
= (TextField
*)data
;
1061 CHECK_CLASS(data
, WC_TextField
);
1063 switch (event
->type
) {
1065 if (tPtr
->flags
.enabled
&& tPtr
->flags
.focused
)
1066 handleTextFieldKeyPress(tPtr
, event
);
1070 if (tPtr
->flags
.enabled
&& (event
->xmotion
.state
& Button1Mask
)) {
1072 if (!tPtr
->selection
.count
) {
1073 tPtr
->selection
.position
= tPtr
->cursorPosition
;
1076 tPtr
->cursorPosition
= pointToCursorPosition(tPtr
,
1079 tPtr
->selection
.count
= tPtr
->cursorPosition
1080 - tPtr
->selection
.position
;
1082 paintTextField(tPtr
);
1087 if (tPtr
->flags
.enabled
&& !tPtr
->flags
.focused
) {
1088 WMSetFocusToWidget(tPtr
);
1089 tPtr
->cursorPosition
= pointToCursorPosition(tPtr
,
1091 paintTextField(tPtr
);
1092 } else if (tPtr
->flags
.focused
) {
1093 tPtr
->cursorPosition
= pointToCursorPosition(tPtr
,
1095 tPtr
->selection
.count
= 0;
1096 paintTextField(tPtr
);
1098 if (event
->xbutton
.button
== Button2
&& tPtr
->flags
.enabled
) {
1101 text
= W_GetTextSelection(tPtr
->view
->screen
,
1102 tPtr
->view
->screen
->clipboardAtom
);
1104 text
= W_GetTextSelection(tPtr
->view
->screen
, XA_CUT_BUFFER0
);
1107 WMInsertTextFieldText(tPtr
, text
, tPtr
->cursorPosition
);
1109 WMPostNotificationName(WMTextDidChangeNotification
, tPtr
,
1123 destroyTextField(TextField
*tPtr
)
1127 WMDeleteTimerHandler(tPtr
->timerID
);
1130 WMReleaseFont(tPtr
->font
);