text.c revision 350952b9 
1/*
2** xgc
3**
4** text.c
5**
6** How to make a text widget that returns a string when the cursor
7** leaves its window.
8*/
9/* $XFree86: xc/programs/xgc/text.c,v 1.3 2000/02/17 14:00:37 dawes Exp $ */
10
11#include <stdio.h>
12#include <stdlib.h>
13#include <X11/Intrinsic.h>
14#include <X11/StringDefs.h>
15#include <X11/Xaw/Form.h>
16#include <X11/Xaw/Label.h>
17#include <X11/Xaw/AsciiText.h>
18#include "xgc.h"
19
20static void WriteText(Widget, XEvent *, String *, Cardinal *);
21
22/* the strings which are displayed on the screen, edited, and sent
23   to interpret() */
24static char textstrings[NUMTEXTWIDGETS][80];
25
26static char oldtextstrings[NUMTEXTWIDGETS][80];
27
28static const char *defaultstrings[NUMTEXTWIDGETS] = {"0","6x10","0","1"};
29
30/* The labels displayed next to them */
31static const char *labels[NUMTEXTWIDGETS] = {"Line Width","Font","Foreground",
32					     "Background"};
33
34/* the first half of what gets sent to interpret() */
35static const char *names[NUMTEXTWIDGETS] = {"linewidth ","font ","foreground ",
36					    "background "};
37
38/* create_text_choice(w,type,length,width)
39** ---------------------------------------
40** Inside w (a form), creates an editable text widget of width width.  The
41** user can enter a string of up to length characters.  type is one of
42** the constants defined in xgc.h; it decides things like the label,
43** what string will be displayed and edited, etc.  When the pointer leaves
44** the widget, the widget does the appropriate thing with the text
45** inside it; the user doesn't have to press an "enter" button or anything.
46** Returns the text widget which the user will edit.
47*/
48
49Widget
50create_text_choice(Widget w, int type, int length, int width)
51{
52  char translationtable[600];	/* for adding the new action (calling
53				   WriteText() when the pointer leaves) */
54
55  static XtActionsRec actionTable[] = {	/* likewise */
56    {"WriteText",  WriteText},
57    {"Nothing",    NULL}
58  };
59
60  static Arg labelargs[] = {
61    {XtNborderWidth,   (XtArgVal) 0},
62    {XtNjustify,       (XtArgVal) XtJustifyRight}
63  };
64
65  static Arg textargs[] = {
66    {XtNeditType,   (XtArgVal) XawtextEdit},
67    {XtNstring,     (XtArgVal) NULL},
68    {XtNlength,     (XtArgVal) NULL},
69    {XtNhorizDistance, (XtArgVal) 10},
70    {XtNfromHoriz,  (XtArgVal) NULL},
71    {XtNinsertPosition, (XtArgVal) NULL},
72    {XtNuseStringInPlace, (XtArgVal) True}
73  };
74
75  static Widget text;		/* the text widget */
76  static Widget label;		/* the label widget */
77
78  /* Disable keys which would cause the cursor to go off the single
79  ** line that we want to display.  If the pointer leaves the window,
80  ** update the GC accordingly.  The integer passed to WriteText is
81  ** so it knows what type of widget was just updated. */
82
83  snprintf(translationtable,sizeof translationtable,
84     "<Leave>:      WriteText(%d)\n\
85     <Btn1Down>:    set-keyboard-focus() select-start()\n\
86     Ctrl<Key>J:    Nothing()\n\
87     Ctrl<Key>M:    Nothing()\n\
88     <Key>Linefeed: Nothing()\n\
89     <Key>Return:   Nothing()\n\
90     Ctrl<Key>O:    Nothing()\n\
91     Meta<Key>I:    Nothing()\n\
92     Ctrl<Key>N:    Nothing()\n\
93     Ctrl<Key>P:    Nothing()\n\
94     Ctrl<Key>Z:    Nothing()\n\
95     Meta<Key>Z:    Nothing()\n\
96     Ctrl<Key>V:    Nothing()\n\
97     Meta<Key>V:    Nothing()",type);
98
99  /* label uses type to find out what its title is */
100  label = XtCreateManagedWidget(labels[type],labelWidgetClass,w,
101				labelargs,XtNumber(labelargs));
102
103  /* text uses type to find out what its string is */
104  switch (type) {
105  case TForeground:
106    snprintf(textstrings[type],sizeof textstrings[type],
107	"%d",(int) X.gcv.foreground);
108    snprintf(oldtextstrings[type],sizeof oldtextstrings[type],
109	"%d",(int) X.gcv.foreground);
110    break;
111  case TBackground:
112    snprintf(textstrings[type],sizeof textstrings[type],
113	"%d",(int) X.gcv.background);
114    snprintf(oldtextstrings[type],sizeof oldtextstrings[type],
115	"%d",(int) X.gcv.background);
116    break;
117  default:
118    strcpy(textstrings[type],defaultstrings[type]);
119    strcpy(oldtextstrings[type],defaultstrings[type]);
120  }
121  textargs[1].value = (XtArgVal) textstrings[type];
122  textargs[2].value = (XtArgVal) length;
123  textargs[4].value = (XtArgVal) label;
124  textargs[5].value = (XtArgVal) strlen(textstrings[type]);
125
126  text = XtCreateManagedWidget("text", asciiTextWidgetClass,w,
127			       textargs,XtNumber(textargs));
128
129  /* Register the actions and translations */
130
131  XtAppAddActions(appcontext,actionTable,XtNumber(actionTable));
132  XtOverrideTranslations(text,XtParseTranslationTable(translationtable));
133
134  return(text);
135}
136
137/* WriteText(w,event,params,num_params)
138** ------------------------------------
139** Makes an appropriate string and sends it off to interpret().
140** It's an ActionProc, thus the funny arguments.
141*/
142
143/*ARGSUSED*/
144static void
145WriteText(Widget w, XEvent *event, String *params, Cardinal *num_params)
146{
147  char mbuf[80];
148  int type;			/* which string # to send */
149
150  type = atoi(params[0]);
151  if (strcmp(textstrings[type],oldtextstrings[type])) {
152    strcpy(oldtextstrings[type],textstrings[type]);
153    snprintf(mbuf,sizeof mbuf,"%s%s\n",
154	names[type],		/* the right first half */
155	textstrings[type]);	/* the right second half */
156    interpret(mbuf);		/* send it off */
157  }
158}
159
160/* change_text(w,type,newtext)
161** ------------------------
162** Changes the text in the text widget w of type type to newtext.
163*/
164
165void
166change_text(Widget w, String newtext)
167{
168  XawTextBlock text;		/* the new text */
169  XawTextPosition first, last;	/* boundaries of the old text */
170  String oldtext;		/* the old text */
171
172  static Arg textargs[] = {
173    {XtNstring, (XtArgVal) 0}
174  };
175
176  /* Initialize the XawTextBlock. */
177
178  if (!newtext)
179      newtext = "";
180  text.firstPos = 0;
181  text.length = strlen(newtext);
182  text.ptr = newtext;
183  text.format = FMT8BIT;
184
185  /* Find the old text, so we can get its length, so we know how
186  ** much of it to update. */
187
188  textargs[0].value = (XtArgVal) &oldtext;
189  XtGetValues(w,textargs,XtNumber(textargs));
190  first = XawTextTopPosition(w);
191  if (!oldtext)
192      oldtext = "";
193  last = (XawTextPosition) strlen(oldtext)+1;
194
195  /* Replace it with the new text. */
196
197  XawTextReplace(w, first, last, &text);
198}
199
200