1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
/* Copyright INRIA */
#include <stdio.h>
#include <X11/Intrinsic.h>
#include <X11/Shell.h>
#include <X11/StringDefs.h>
#include <X11/Xaw/Form.h>
#include <X11/Xaw/Command.h>
#include <X11/Xaw/AsciiText.h>
#include "metaconst.h"
#include "metawin.h"
#include "graphics.h"
extern void GetMetanetGeometry();
#define STRINGLEN 100000
#define MAXNAM 80
static int iText = 0;
static int iStr = 0;
static char Str[STRINGLEN];
void TextClose(w,shell,callData)
Widget w;
caddr_t shell;
caddr_t callData;
{
XtPopdown((Widget)shell);
XtDestroyWidget((Widget)shell);
}
void StartAddText()
{
iStr = 0;
Str[0] = '\0';
}
void AddText(description)
char *description;
{
sprintf(&Str[iStr],description);
iStr = strlen(Str);
}
void EndAddText()
{
Widget text, textclose;
Arg args[10];
int iargs = 0;
Widget shell;
XtCallbackRec callbacks[2];
char name[MAXNAM];
int x,y,w,h;
if(iText++ > 4) iText = 1;
GetMetanetGeometry(&x,&y,&w,&h);
callbacks[1].callback = NULL;
callbacks[1].closure = NULL;
XtSetArg(args[iargs], XtNx, x + iText * incX); iargs++;
XtSetArg(args[iargs], XtNy, y + iText * incY); iargs++;
XtSetArg(args[iargs], XtNfont, theG.metafont); iargs++;
sprintf(name,"Metanet Text %d",iText);
shell = XtCreatePopupShell(name,transientShellWidgetClass,toplevel,
args,iargs);
iargs = 0;
XtSetArg(args[iargs], XtNfont, theG.metafont); iargs++;
text = XtCreateManagedWidget("text",formWidgetClass,shell,args,iargs);
callbacks[0].callback = (XtCallbackProc)TextClose;
callbacks[0].closure = (caddr_t)shell;
iargs = 0;
XtSetArg(args[iargs], XtNlabel, "Close" ); iargs++;
XtSetArg(args[iargs], XtNcallback, callbacks); iargs++;
XtSetArg(args[iargs], XtNfont, theG.metafont); iargs++;
XtSetArg(args[iargs], XtNbottom, XawChainTop); iargs++;
XtSetArg(args[iargs], XtNtop, XawChainTop); iargs++;
XtSetArg(args[iargs], XtNleft, XawChainLeft); iargs++;
XtSetArg(args[iargs], XtNright, XawChainLeft); iargs++;
textclose = XtCreateManagedWidget("textcommand",commandWidgetClass,
text,args,iargs);
iargs = 0;
XtSetArg(args[iargs], XtNstring, Str); iargs++;
XtSetArg(args[iargs], XtNborderWidth, 1); iargs++;
XtSetArg(args[iargs], XtNeditType, XawtextRead); iargs++;
XtSetArg(args[iargs], XtNwrap, XawtextWrapWord); iargs++;
XtSetArg(args[iargs], XtNscrollVertical, XawtextScrollWhenNeeded); iargs++;
XtSetArg(args[iargs], XtNwidth, metaWidth/2); iargs++;
XtSetArg(args[iargs], XtNheight, metaHeight/2); iargs++;
XtSetArg(args[iargs], XtNfont, theG.metafont); iargs++;
XtSetArg(args[iargs], XtNfromVert, textclose); iargs++;
XtCreateManagedWidget("asciitext",asciiTextWidgetClass,
text,args,iargs);
XtPopup(shell,XtGrabNone);
}
|
