PageRenderTime 57ms CodeModel.GetById 28ms RepoModel.GetById 0ms app.codeStats 0ms

/texlive-2007/texk/xdvik/gui/sfSelFile.c

#
C | 1071 lines | 841 code | 137 blank | 93 comment | 110 complexity | 13c4aa5974608d940d10245b149670d1 MD5 | raw file
Possible License(s): AGPL-1.0, BSD-3-Clause, LGPL-3.0, GPL-2.0, CPL-1.0, LGPL-2.1, LGPL-2.0 
    

  1. /*
    2. 

  2.  * Copyright 1989 Software Research Associates, Inc., Tokyo, Japan
    3. 

  3.  *
    4. 

  4.  * Permission to use, copy, modify, and distribute this software and its
    5. 

  5.  * documentation for any purpose and without fee is hereby granted, provided
    6. 

  6.  * that the above copyright notice appear in all copies and that both that
    7. 

  7.  * copyright notice and this permission notice appear in supporting
    8. 

  8.  * documentation, and that the name of Software Research Associates not be used
    9. 

  9.  * in advertising or publicity pertaining to distribution of the software
    10. 

  10.  * without specific, written prior permission.  Software Research Associates
    11. 

  11.  * makes no representations about the suitability of this software for any
    12. 

  12.  * purpose.  It is provided "as is" without express or implied warranty.
    13. 

  13.  *
    14. 

  14.  * SOFTWARE RESEARCH ASSOCIATES DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS
    15. 

  15.  * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
    16. 

  16.  * IN NO EVENT SHALL SOFTWARE RESEARCH ASSOCIATES BE LIABLE FOR ANY SPECIAL,
    17. 

  17.  * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
    18. 

  18.  * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
    19. 

  19.  * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
    20. 

  20.  * PERFORMANCE OF THIS SOFTWARE.
    21. 

  21.  *
    22. 

  22.  * Author: Erik M. van der Poel
    23. 

  23.  *         Software Research Associates, Inc., Tokyo, Japan
    24. 

  24.  *         erik@sra.co.jp
    25. 

  25.  */
    26. 

  26. 

  27. #include "xdvi-config.h"
    28. 

  28. 

  29. #include "xdvi.h"
    30. 

  30. #include "dvi-init.h" /* for dviErrFlagT */
    31. 

  31. #include "message-window.h"
    32. 

  32. 

  33. #include "kpathsea/c-stat.h"
    34. 

  34. 

  35. #include <string.h>
    36. 

  36. 

  37. #include "sfDir.h"
    38. 

  38. #include "sfPath.h"
    39. 

  39. #include "sfDraw.h"
    40. 

  40. #include "sfSelFile.h"
    41. 

  41. #include "util.h"
    42. 

  42. 

  43. #include <ctype.h>
    44. 

  44. #include "kpathsea/c-fopen.h"
    45. 

  45. #include "kpathsea/c-stat.h"
    46. 

  46. 

  47. #if !defined(MOTIF) /* entire file */
    48. 

  48. 

  49. 

  50. #include <errno.h>
    51. 

  51. 

  52. #ifdef	X_NOT_STDC_ENV
    53. 

  53. extern int errno;
    54. 

  54. #endif
    55. 

  55. 

  56. #define SEL_FILE_CANCEL		-1
    57. 

  57. #define SEL_FILE_OK		0
    58. 

  58. #define SEL_FILE_NULL		1
    59. 

  59. #define SEL_FILE_TEXT		2
    60. 

  60. 

  61. /*
    62. 

  62.  * Author's address:
    63. 

  63.  *
    64. 

  64.  *     erik@sra.co.jp
    65. 

  65.  *                                            OR
    66. 

  66.  *     erik%sra.co.jp@uunet.uu.net
    67. 

  67.  *                                            OR
    68. 

  68.  *     erik%sra.co.jp@mcvax.uucp
    69. 

  69.  *                                            OR
    70. 

  70.  *     try junet instead of co.jp
    71. 

  71.  *                                            OR
    72. 

  72.  *     Erik M. van der Poel
    73. 

  73.  *     Software Research Associates, Inc.
    74. 

  74.  *     1-1-1 Hirakawa-cho, Chiyoda-ku
    75. 

  75.  *     Tokyo 102 Japan. TEL +81-3-234-2692
    76. 

  76.  */
    77. 

  77. 

  78. #include <sys/param.h>
    79. 

  79. #include <X11/cursorfont.h>
    80. 

  80. #include <X11/Intrinsic.h>
    81. 

  81. #include <X11/StringDefs.h>
    82. 

  82. #include <X11/Composite.h>
    83. 

  83. #include <X11/Shell.h>
    84. 

  84. #include <X11/Xaw/Paned.h>
    85. 

  85. #include <X11/Xaw/Text.h>
    86. 

  86. #include <X11/Xaw/AsciiText.h>
    87. 

  87. #include <X11/Xaw/Form.h>
    88. 

  88. #include <X11/Xaw/Command.h>
    89. 

  89. #include <X11/Xaw/Scrollbar.h>
    90. 

  90. #include <X11/Xaw/Label.h>
    91. 

  91. #include <X11/Xaw/Cardinals.h>
    92. 

  92. 

  93. 

  94. #ifndef MAXPATHLEN
    95. 

  95. #define MAXPATHLEN 1024
    96. 

  96. #endif /* ndef MAXPATHLEN */
    97. 

  97. 

  98. /* global vars for communication with sfDraw.c */
    99. 

  99. char SFstartDir[MAXPATHLEN], SFcurrentPath[MAXPATHLEN], SFcurrentDir[MAXPATHLEN];
    100. 

  100. Widget selFileField, selFileForm, selFileHScroll, selFileHScrolls[3], selFileLists[3], selFileVScrolls[3];
    101. 

  101. Display *SFdisplay;
    102. 

  102. Pixel SFfore, SFback;
    103. 

  103. XSegment SFsegs[2], SFcompletionSegs[2];
    104. 

  104. XawTextPosition SFtextPos;
    105. 

  105. int SFupperX, SFlowerY, SFupperY;
    106. 

  106. int SFtextX, SFtextYoffset;
    107. 

  107. int SFentryWidth, SFentryHeight;
    108. 

  108. int SFlineToTextH = 3;
    109. 

  109. int SFlineToTextV = 3;
    110. 

  110. int SFbesideText = 3;
    111. 

  111. int SFaboveAndBelowText = 2;
    112. 

  112. int SFcharsPerEntry = 15;
    113. 

  113. int SFlistSize = 10;
    114. 

  114. int SFworkProcAdded = 0;
    115. 

  115. XtAppContext SFapp;
    116. 

  116. int SFpathScrollWidth, SFvScrollHeight, SFhScrollWidth;
    117. 

  117. char SFtextBuffer[MAXPATHLEN];
    118. 

  118. XtIntervalId SFdirModTimerId;
    119. 

  119. int (*SFfunc) ();
    120. 

  120. 

  121. static int SFstatus = SEL_FILE_NULL;
    122. 

  122. 

  123. static Widget selFile, selFileCancel, selFileOK, selFilePrompt;
    124. 

  124. /* For file filter. */
    125. 

  125. static Widget selFileLabel, selFileMask, selFileHide;
    126. 

  126. 

  127. #define MASKWIDTH 16
    128. 

  128. static char fileMask[MASKWIDTH + 2] = "*.dvi";
    129. 

  129. 

  130. static Atom SFwmDeleteWindow;
    131. 

  131. 

  132. static char *oneLineTextEditTranslations =
    133. 

  133.     "<Key>Return: redraw-display()\n"
    134. 

  134.     "Ctrl<Key>M: redraw-display()\n";
    135. 

  135. 

  136. #if !defined (HAVE_STRERROR) && !defined (strerror)
    137. 

  137. static char *
    138. 

  138. strerror(int errnum)
    139. 

  139. {
    140. 

  140.     return 0 < errnum && errnum <= sys_nerr
    141. 

  141. 	? sys_errlist[errnum] : "Unknown system error";
    142. 

  142. }
    143. 

  143. #endif /* not HAVE_STRERROR && not strerror */
    144. 

  144. 

  145. void
    146. 

  146. raise_file_selector(void)
    147. 

  147. {
    148. 

  148.     if (selFile != 0) {
    149. 

  149. 	XRaiseWindow(DISP, XtWindow(selFile));
    150. 

  150.     }
    151. 

  151. }
    152. 

  152. 

  153. static void
    154. 

  154. SFexposeList(Widget w, XtPointer n, XEvent *event, Boolean *cont)
    155. 

  155. {
    156. 

  156.     UNUSED(w);
    157. 

  157.     UNUSED(cont);
    158. 

  158.     
    159. 

  159.     if ((event->type == NoExpose) || event->xexpose.count) {
    160. 

  160. 	return;
    161. 

  161.     }
    162. 

  162. 

  163.     SFdrawList((int)n, SF_DO_NOT_SCROLL);
    164. 

  164. }
    165. 

  165. 

  166. static void
    167. 

  167. SFmodVerifyCallback(Widget w, XtPointer client_data, XEvent *event, Boolean *cont)
    168. 

  168. {
    169. 

  169.     char buf[2];
    170. 

  170. 

  171.     UNUSED(w);
    172. 

  172.     UNUSED(client_data);
    173. 

  173.     UNUSED(cont);
    174. 

  174.     
    175. 

  175.     if ((XLookupString(&(event->xkey), buf, 2, NULL, NULL) == 1) &&
    176. 

  176. 	((*buf) == '\r')) {
    177. 

  177. 	SFstatus = SEL_FILE_OK;
    178. 

  178.     }
    179. 

  179.     else {
    180. 

  180. 	SFstatus = SEL_FILE_TEXT;
    181. 

  181.     }
    182. 

  182. }
    183. 

  183. 

  184. static void
    185. 

  185. SFokCallback(Widget w, XtPointer cl, XtPointer cd)
    186. 

  186. {
    187. 

  187.     UNUSED(w);
    188. 

  188.     UNUSED(cl);
    189. 

  189.     UNUSED(cd);
    190. 

  190.     
    191. 

  191.     SFstatus = SEL_FILE_OK;
    192. 

  192. }
    193. 

  193. 

  194. static XtCallbackRec SFokSelect[] = {
    195. 

  195.     {SFokCallback, (XtPointer) NULL},
    196. 

  196.     {NULL, (XtPointer) NULL},
    197. 

  197. };
    198. 

  198. 

  199. static void
    200. 

  200. SFcancelCallback(Widget w, XtPointer cl, XtPointer cd)
    201. 

  201. {
    202. 

  202.     UNUSED(w);
    203. 

  203.     UNUSED(cl);
    204. 

  204.     UNUSED(cd);
    205. 

  205.     
    206. 

  206.     SFstatus = SEL_FILE_CANCEL;
    207. 

  207. }
    208. 

  208. 

  209. static XtCallbackRec SFcancelSelect[] = {
    210. 

  210.     {SFcancelCallback, (XtPointer) NULL},
    211. 

  211.     {NULL, (XtPointer) NULL},
    212. 

  212. };
    213. 

  213. 

  214. static void
    215. 

  215. SFdismissAction(Widget w, XEvent *event, String *params, Cardinal *num_params)
    216. 

  216. {
    217. 

  217.     UNUSED(w);
    218. 

  218.     UNUSED(params);
    219. 

  219.     UNUSED(num_params);
    220. 

  220.     
    221. 

  221.     if (event->type == ClientMessage && (unsigned)(event->xclient.data.l[0]) != SFwmDeleteWindow)
    222. 

  222. 	return;
    223. 

  223. 

  224.     SFstatus = SEL_FILE_CANCEL;
    225. 

  225. }
    226. 

  226. 

  227. static char *wmDeleteWindowTranslation = "<Message>WM_PROTOCOLS: SelFileDismiss()\n";
    228. 

  228. 

  229. static XtActionsRec sf_actions[] = {
    230. 

  230.     {"SelFileDismiss", SFdismissAction},
    231. 

  231. };
    232. 

  232. 

  233. /* Don't show files that don't get through the filter.  */
    234. 

  234. 

  235. /* return 1 if file is masked (mask does not match filename), 0 otherwise */
    236. 

  236. static int
    237. 

  237. maskFile(const char *mask, char *filename)
    238. 

  238. {
    239. 

  239.     int c, c1;
    240. 

  240. 

  241.     while ((c = *mask++)) {
    242. 

  242. 	if (c == '*') {
    243. 

  243. 	    while ((c1 = *mask++)) {
    244. 

  244. 		if (c1 != '*') {
    245. 

  245. 		    if (!(*filename))
    246. 

  246. 			return 1;
    247. 

  247. 		    if (c1 != '?') {
    248. 

  248. 			while ((filename = strchr(filename, c1))) {
    249. 

  249. 			    if (!maskFile(mask, ++filename))
    250. 

  250. 				return 0;
    251. 

  251. 			}
    252. 

  252. 			return 1;
    253. 

  253. 		    }
    254. 

  254. 		    else
    255. 

  255. 			filename++;
    256. 

  256. 		}
    257. 

  257. 	    }
    258. 

  258. 	    return 0;
    259. 

  259. 	}
    260. 

  260. 	if (c == '?') {
    261. 

  261. 	    if (!*filename)
    262. 

  262. 		return 1;
    263. 

  263. 	}
    264. 

  264. 	else if (c != *filename)
    265. 

  265. 	    return 1;
    266. 

  266. 	filename++;
    267. 

  267.     }
    268. 

  268.     return (*filename) ? 1 : 0;
    269. 

  269. }
    270. 

  270. 

  271. Boolean hideFlag = False;
    272. 

  272. static int
    273. 

  273. showEntry(char *entryReal, char **entryShown, struct stat *statBuf)
    274. 

  274. {
    275. 

  275.     UNUSED(entryShown);
    276. 

  276. 

  277.     if ((hideFlag && entryReal[0] == '.') || (!S_ISDIR(statBuf->st_mode) && maskFile(fileMask, entryReal)))
    278. 

  278. 	return 0;
    279. 

  279.     entryReal[strlen(entryReal)] = SFstatChar(statBuf);
    280. 

  280.     return 1;
    281. 

  281. }
    282. 

  282. 

  283. static void
    284. 

  284. maskChanged(Widget w, XtPointer client_data, XEvent *call_data, Boolean *cont)
    285. 

  285. {
    286. 

  286.     char buf[2];
    287. 

  287.     SFDir *dir;
    288. 

  288. 

  289.     UNUSED(w);
    290. 

  290.     UNUSED(client_data);
    291. 

  291.     UNUSED(cont);
    292. 

  292.     
    293. 

  293.     if ((XLookupString((XKeyPressedEvent *)call_data, buf, 2, NULL, NULL) == 1) && ((*buf) == '\r')) {
    294. 

  294. 	for (dir = &(SFdirs[SFdirEnd - 1]); dir >= SFdirs; dir--)
    295. 

  295. 	    *(dir->dir) = 0;	/* force a re-read */
    296. 

  296. 	SFupdatePath();
    297. 

  297.     }
    298. 

  298. }
    299. 

  299. 

  300. static void
    301. 

  301. hideFiles(Widget w, XtPointer client_data, XtPointer call_data)
    302. 

  302. {
    303. 

  303.     SFDir *dir;
    304. 

  304.     SFEntry *entry;
    305. 

  305. 

  306.     UNUSED(client_data);
    307. 

  307.     UNUSED(call_data);
    308. 

  308.     
    309. 

  309.     hideFlag = !hideFlag;
    310. 

  310.     if (hideFlag) {
    311. 

  311. 	XtVaSetValues(w, XtNlabel, "hidden", NULL);
    312. 

  312. 	for (dir = &(SFdirs[SFdirEnd - 1]); dir >= SFdirs; dir--) {
    313. 

  313. 	    if (!(dir->nEntries))
    314. 

  314. 		continue;
    315. 

  315. 	    dir->vOrigin = 0;
    316. 

  316. 	    for (entry = &(dir->entries[dir->nEntries - 1]);
    317. 

  317. 		 entry >= dir->entries; entry--)
    318. 

  318. 		entry->statDone = 0;
    319. 

  319. 	    SFdrawLists(SF_DO_SCROLL);
    320. 

  320. 	}
    321. 

  321.     }
    322. 

  322.     else {
    323. 

  323. 	XtVaSetValues(w, XtNlabel, "shown", NULL);
    324. 

  324. 	for (dir = &(SFdirs[SFdirEnd - 1]); dir >= SFdirs; dir--)
    325. 

  325. 	    *(dir->dir) = 0;	/* force a re-read */
    326. 

  326. 	SFupdatePath();
    327. 

  327.     }
    328. 

  328. }
    329. 

  329. 

  330. 

  331. static Widget
    332. 

  332. SFcreateWidgets(Widget parent, const char *title, const char *prompt, const char *ok, const char *cancel)
    333. 

  333. {
    334. 

  334.     Cardinal i, n;
    335. 

  335.     int listWidth, listHeight;
    336. 

  336.     int listSpacing = 10;
    337. 

  337.     int scrollThickness = 15;
    338. 

  338.     int hScrollX, hScrollY;
    339. 

  339.     int vScrollX, vScrollY;
    340. 

  340.     Cursor xtermCursor, sbRightArrowCursor, arrowCursor;
    341. 

  341.     Arg arglist[20];
    342. 

  342.     Widget paned, box;
    343. 

  343.     
    344. 

  344.     i = 0;
    345. 

  345.     XtSetArg(arglist[i], XtNtransientFor, parent);
    346. 

  346.     XtSetArg(arglist[i], XtNtitle, title);
    347. 

  347.     i++;
    348. 

  348. 

  349.     selFile = XtAppCreateShell("xdviSelFile", "XdviSelFile",
    350. 

  350. 			       transientShellWidgetClass, SFdisplay,
    351. 

  351. 			       arglist, i);
    352. 

  352. 

  353.     /* Add WM_DELETE_WINDOW protocol */
    354. 

  354.     XtAppAddActions(XtWidgetToApplicationContext(selFile),
    355. 

  355. 		    sf_actions, XtNumber(sf_actions));
    356. 

  356.     XtOverrideTranslations(selFile,
    357. 

  357. 			   XtParseTranslationTable(wmDeleteWindowTranslation));
    358. 

  358. 

  359.     paned = XtVaCreateManagedWidget("paned", panedWidgetClass, selFile, NULL);
    360. 

  360.     i = 0;
    361. 

  361.     XtSetArg(arglist[i], XtNdefaultDistance, 6);
    362. 

  362.     i++;
    363. 

  363.     selFileForm = XtCreateManagedWidget("selFileForm",
    364. 

  364. 					formWidgetClass, paned, arglist, i);
    365. 

  365. 

  366.     i = 0;
    367. 

  367.     XtSetArg(arglist[i], XtNlabel, prompt);
    368. 

  368.     i++;
    369. 

  369.     XtSetArg(arglist[i], XtNresizable, True);
    370. 

  370.     i++;
    371. 

  371.     XtSetArg(arglist[i], XtNtop, XtChainTop);
    372. 

  372.     i++;
    373. 

  373.     XtSetArg(arglist[i], XtNbottom, XtChainTop);
    374. 

  374.     i++;
    375. 

  375.     XtSetArg(arglist[i], XtNleft, XtChainLeft);
    376. 

  376.     i++;
    377. 

  377.     XtSetArg(arglist[i], XtNright, XtChainLeft);
    378. 

  378.     i++;
    379. 

  379.     XtSetArg(arglist[i], XtNborderWidth, 0);
    380. 

  380.     i++;
    381. 

  381.     XtSetArg(arglist[i], XtNvertDistance, 20);
    382. 

  382.     i++;
    383. 

  383.     selFilePrompt = XtCreateManagedWidget("selFilePrompt",
    384. 

  384. 					  labelWidgetClass, selFileForm,
    385. 

  385. 					  arglist, i);
    386. 

  386. 

  387. #if 1
    388. 

  388.     i = 0;
    389. 

  389.     XtSetArg(arglist[i], XtNforeground, &SFfore);
    390. 

  390.     i++;
    391. 

  391.     XtSetArg(arglist[i], XtNbackground, &SFback);
    392. 

  392.     i++;
    393. 

  393.     XtGetValues(selFilePrompt, arglist, i);
    394. 

  394. #endif
    395. 

  395. 

  396.     SFinitFont();
    397. 

  397. 

  398.     SFentryWidth = SFbesideText + SFcharsPerEntry * SFcharWidth + SFbesideText;
    399. 

  399.     SFentryHeight = SFaboveAndBelowText + SFcharHeight + SFaboveAndBelowText;
    400. 

  400. 

  401.     listWidth = SFlineToTextH + SFentryWidth + SFlineToTextH + 1 +
    402. 

  402. 	scrollThickness;
    403. 

  403.     listHeight = SFlineToTextV + SFentryHeight + SFlineToTextV + 1 +
    404. 

  404. 	SFlineToTextV + SFlistSize * SFentryHeight +
    405. 

  405. 	SFlineToTextV + 1 + scrollThickness;
    406. 

  406. 

  407.     SFpathScrollWidth = 3 * listWidth + 2 * listSpacing + 4;
    408. 

  408. 

  409.     hScrollX = -1;
    410. 

  410.     hScrollY = SFlineToTextV + SFentryHeight + SFlineToTextV + 1 +
    411. 

  411. 	SFlineToTextV + SFlistSize * SFentryHeight + SFlineToTextV;
    412. 

  412.     SFhScrollWidth = SFlineToTextH + SFentryWidth + SFlineToTextH;
    413. 

  413. 

  414.     vScrollX = SFlineToTextH + SFentryWidth + SFlineToTextH;
    415. 

  415.     vScrollY = SFlineToTextV + SFentryHeight + SFlineToTextV;
    416. 

  416.     SFvScrollHeight = SFlineToTextV + SFlistSize * SFentryHeight +
    417. 

  417. 	SFlineToTextV;
    418. 

  418. 

  419.     SFupperX = SFlineToTextH + SFentryWidth + SFlineToTextH - 1;
    420. 

  420.     SFlowerY = SFlineToTextV + SFentryHeight + SFlineToTextV + 1 +
    421. 

  421. 	SFlineToTextV;
    422. 

  422.     SFupperY = SFlineToTextV + SFentryHeight + SFlineToTextV + 1 +
    423. 

  423. 	SFlineToTextV + SFlistSize * SFentryHeight - 1;
    424. 

  424. 

  425.     SFtextX = SFlineToTextH + SFbesideText;
    426. 

  426.     SFtextYoffset = SFlowerY + SFaboveAndBelowText + SFcharAscent;
    427. 

  427. 

  428.     SFsegs[0].x1 = 0;
    429. 

  429.     SFsegs[0].y1 = vScrollY;
    430. 

  430.     SFsegs[0].x2 = vScrollX - 1;
    431. 

  431.     SFsegs[0].y2 = vScrollY;
    432. 

  432.     SFsegs[1].x1 = vScrollX;
    433. 

  433.     SFsegs[1].y1 = 0;
    434. 

  434.     SFsegs[1].x2 = vScrollX;
    435. 

  435.     SFsegs[1].y2 = vScrollY - 1;
    436. 

  436. 

  437.     SFcompletionSegs[0].x1 = SFcompletionSegs[0].x2 = SFlineToTextH;
    438. 

  438.     SFcompletionSegs[1].x1 = SFcompletionSegs[1].x2 =
    439. 

  439. 	SFlineToTextH + SFentryWidth - 1;
    440. 

  440. 

  441.     i = 0;
    442. 

  442. /*     XtSetArg(arglist[i], XtNwidth, 3 * listWidth + 2 * listSpacing + 4 - w - 10); */
    443. 

  443.     XtSetArg(arglist[i], XtNwidth, 3 * listWidth + 2 * listSpacing + 4);
    444. 

  444.     i++;
    445. 

  445. /*      XtSetArg(arglist[i], XtNborderColor, SFfore); */
    446. 

  446. /*      i++; */
    447. 

  447. 

  448. /*     XtSetArg(arglist[i], XtNfromHoriz, selFilePrompt); */
    449. 

  449. /*     i++; */
    450. 

  450. /*     XtSetArg(arglist[i], XtNhorizDistance, 10); */
    451. 

  451.     XtSetArg(arglist[i], XtNfromVert, selFilePrompt);
    452. 

  452.     i++;
    453. 

  453. /*      XtSetArg(arglist[i], XtNvertDistance, 0); */
    454. 

  454. /*      i++; */
    455. 

  455.     XtSetArg(arglist[i], XtNresizable, True);
    456. 

  456.     i++;
    457. 

  457.     XtSetArg(arglist[i], XtNtop, XtChainTop);
    458. 

  458.     i++;
    459. 

  459.     XtSetArg(arglist[i], XtNbottom, XtChainTop);
    460. 

  460.     i++;
    461. 

  461.     XtSetArg(arglist[i], XtNleft, XtChainLeft);
    462. 

  462.     i++;
    463. 

  463.     XtSetArg(arglist[i], XtNright, XtChainLeft);
    464. 

  464.     i++;
    465. 

  465.     XtSetArg(arglist[i], XtNstring, SFtextBuffer);
    466. 

  466.     i++;
    467. 

  467.     XtSetArg(arglist[i], XtNlength, MAXPATHLEN);
    468. 

  468.     i++;
    469. 

  469.     XtSetArg(arglist[i], XtNeditType, XawtextEdit);
    470. 

  470.     i++;
    471. 

  471.     XtSetArg(arglist[i], XtNwrap, XawtextWrapWord);
    472. 

  472.     i++;
    473. 

  473.     XtSetArg(arglist[i], XtNresize, XawtextResizeHeight);
    474. 

  474.     i++;
    475. 

  475.     XtSetArg(arglist[i], XtNuseStringInPlace, True);
    476. 

  476.     i++;
    477. 

  477.     XtSetArg(arglist[i], XtNvertDistance, 5);
    478. 

  478.     i++;
    479. 

  479.     selFileField = XtCreateManagedWidget("selFileField",
    480. 

  480. 					   asciiTextWidgetClass, selFileForm,
    481. 

  481. 					   arglist, i);
    482. 

  482. 

  483.     XtOverrideTranslations(selFileField,
    484. 

  484. 			   XtParseTranslationTable
    485. 

  485. 			   (oneLineTextEditTranslations));
    486. 

  486. /*	XtSetKeyboardFocus(selFileForm, selFileField);
    487. 

  487. 	need focus for selFileMask widget to set the filter */
    488. 

  488. 

  489.     i = 0;
    490. 

  490.     XtSetArg(arglist[i], XtNorientation, XtorientHorizontal);
    491. 

  491.     i++;
    492. 

  492.     XtSetArg(arglist[i], XtNwidth, SFpathScrollWidth);
    493. 

  493.     i++;
    494. 

  494.     XtSetArg(arglist[i], XtNheight, scrollThickness);
    495. 

  495.     i++;
    496. 

  496. /*      XtSetArg(arglist[i], XtNborderColor, SFfore); */
    497. 

  497. /*      i++; */
    498. 

  498.     XtSetArg(arglist[i], XtNfromVert, selFileField);
    499. 

  499.     i++;
    500. 

  500.     XtSetArg(arglist[i], XtNvertDistance, 30);
    501. 

  501.     i++;
    502. 

  502.     XtSetArg(arglist[i], XtNtop, XtChainTop);
    503. 

  503.     i++;
    504. 

  504.     XtSetArg(arglist[i], XtNbottom, XtChainTop);
    505. 

  505.     i++;
    506. 

  506.     XtSetArg(arglist[i], XtNleft, XtChainLeft);
    507. 

  507.     i++;
    508. 

  508.     XtSetArg(arglist[i], XtNright, XtChainLeft);
    509. 

  509.     i++;
    510. 

  510.     selFileHScroll = XtCreateManagedWidget("selFileHScroll",
    511. 

  511. 					   scrollbarWidgetClass, selFileForm,
    512. 

  512. 					   arglist, i);
    513. 

  513. 

  514.     XtAddCallback(selFileHScroll, XtNjumpProc,
    515. 

  515. 		  (XtCallbackProc)SFpathSliderMovedCallback, (XtPointer) NULL);
    516. 

  516.     XtAddCallback(selFileHScroll, XtNscrollProc,
    517. 

  517. 		  (XtCallbackProc)SFpathAreaSelectedCallback, (XtPointer) NULL);
    518. 

  518. 

  519.     i = 0;
    520. 

  520.     XtSetArg(arglist[i], XtNwidth, listWidth);
    521. 

  521.     i++;
    522. 

  522.     XtSetArg(arglist[i], XtNheight, listHeight);
    523. 

  523.     i++;
    524. 

  524. /*      XtSetArg(arglist[i], XtNborderColor, SFfore); */
    525. 

  525. /*      i++; */
    526. 

  526.     XtSetArg(arglist[i], XtNfromVert, selFileHScroll);
    527. 

  527.     i++;
    528. 

  528.     XtSetArg(arglist[i], XtNvertDistance, 10);
    529. 

  529.     i++;
    530. 

  530.     XtSetArg(arglist[i], XtNtop, XtChainTop);
    531. 

  531.     i++;
    532. 

  532.     XtSetArg(arglist[i], XtNbottom, XtChainTop);
    533. 

  533.     i++;
    534. 

  534.     XtSetArg(arglist[i], XtNleft, XtChainLeft);
    535. 

  535.     i++;
    536. 

  536.     XtSetArg(arglist[i], XtNright, XtChainLeft);
    537. 

  537.     i++;
    538. 

  538.     selFileLists[0] = XtCreateManagedWidget("selFileList1",
    539. 

  539. 					    compositeWidgetClass, selFileForm,
    540. 

  540. 					    arglist, i);
    541. 

  541. 

  542.     i = 0;
    543. 

  543.     XtSetArg(arglist[i], XtNwidth, listWidth);
    544. 

  544.     i++;
    545. 

  545.     XtSetArg(arglist[i], XtNheight, listHeight);
    546. 

  546.     i++;
    547. 

  547. /*      XtSetArg(arglist[i], XtNborderColor, SFfore); */
    548. 

  548. /*      i++; */
    549. 

  549.     XtSetArg(arglist[i], XtNfromHoriz, selFileLists[0]);
    550. 

  550.     i++;
    551. 

  551.     XtSetArg(arglist[i], XtNfromVert, selFileHScroll);
    552. 

  552.     i++;
    553. 

  553.     XtSetArg(arglist[i], XtNhorizDistance, listSpacing);
    554. 

  554.     i++;
    555. 

  555.     XtSetArg(arglist[i], XtNvertDistance, 10);
    556. 

  556.     i++;
    557. 

  557.     XtSetArg(arglist[i], XtNtop, XtChainTop);
    558. 

  558.     i++;
    559. 

  559.     XtSetArg(arglist[i], XtNbottom, XtChainTop);
    560. 

  560.     i++;
    561. 

  561.     XtSetArg(arglist[i], XtNleft, XtChainLeft);
    562. 

  562.     i++;
    563. 

  563.     XtSetArg(arglist[i], XtNright, XtChainLeft);
    564. 

  564.     i++;
    565. 

  565.     selFileLists[1] = XtCreateManagedWidget("selFileList2",
    566. 

  566. 					    compositeWidgetClass, selFileForm,
    567. 

  567. 					    arglist, i);
    568. 

  568. 

  569.     i = 0;
    570. 

  570.     XtSetArg(arglist[i], XtNwidth, listWidth);
    571. 

  571.     i++;
    572. 

  572.     XtSetArg(arglist[i], XtNheight, listHeight);
    573. 

  573.     i++;
    574. 

  574. /*      XtSetArg(arglist[i], XtNborderColor, SFfore); */
    575. 

  575. /*      i++; */
    576. 

  576.     XtSetArg(arglist[i], XtNfromHoriz, selFileLists[1]);
    577. 

  577.     i++;
    578. 

  578.     XtSetArg(arglist[i], XtNfromVert, selFileHScroll);
    579. 

  579.     i++;
    580. 

  580.     XtSetArg(arglist[i], XtNhorizDistance, listSpacing);
    581. 

  581.     i++;
    582. 

  582.     XtSetArg(arglist[i], XtNvertDistance, 10);
    583. 

  583.     i++;
    584. 

  584.     XtSetArg(arglist[i], XtNtop, XtChainTop);
    585. 

  585.     i++;
    586. 

  586.     XtSetArg(arglist[i], XtNbottom, XtChainTop);
    587. 

  587.     i++;
    588. 

  588.     XtSetArg(arglist[i], XtNleft, XtChainLeft);
    589. 

  589.     i++;
    590. 

  590.     XtSetArg(arglist[i], XtNright, XtChainLeft);
    591. 

  591.     i++;
    592. 

  592.     selFileLists[2] = XtCreateManagedWidget("selFileList3",
    593. 

  593. 					    compositeWidgetClass, selFileForm,
    594. 

  594. 					    arglist, i);
    595. 

  595. 

  596.     for (n = 0; n < 3; n++) {
    597. 

  597. 

  598. 	i = 0;
    599. 

  599. 	XtSetArg(arglist[i], XtNx, vScrollX);
    600. 

  600. 	i++;
    601. 

  601. 	XtSetArg(arglist[i], XtNy, vScrollY);
    602. 

  602. 	i++;
    603. 

  603. 	XtSetArg(arglist[i], XtNwidth, scrollThickness);
    604. 

  604. 	i++;
    605. 

  605. 	XtSetArg(arglist[i], XtNheight, SFvScrollHeight);
    606. 

  606. 	i++;
    607. 

  607. /*  	XtSetArg(arglist[i], XtNborderColor, SFfore); */
    608. 

  608. /*  	i++; */
    609. 

  609. 	selFileVScrolls[n] = XtCreateManagedWidget("selFileVScroll",
    610. 

  610. 						   scrollbarWidgetClass,
    611. 

  611. 						   selFileLists[n], arglist, i);
    612. 

  612. 

  613. 	XtAddCallback(selFileVScrolls[n], XtNjumpProc,
    614. 

  614. 		      (XtCallbackProc)SFvFloatSliderMovedCallback, (XtPointer) n);
    615. 

  615. 	XtAddCallback(selFileVScrolls[n], XtNscrollProc,
    616. 

  616. 		      (XtCallbackProc)SFvAreaSelectedCallback, (XtPointer) n);
    617. 

  617. 

  618. 	i = 0;
    619. 

  619. 

  620. 	XtSetArg(arglist[i], XtNorientation, XtorientHorizontal);
    621. 

  621. 	i++;
    622. 

  622. 	XtSetArg(arglist[i], XtNx, hScrollX);
    623. 

  623. 	i++;
    624. 

  624. 	XtSetArg(arglist[i], XtNy, hScrollY);
    625. 

  625. 	i++;
    626. 

  626. 	XtSetArg(arglist[i], XtNwidth, SFhScrollWidth);
    627. 

  627. 	i++;
    628. 

  628. 	XtSetArg(arglist[i], XtNheight, scrollThickness);
    629. 

  629. 	i++;
    630. 

  630. /*  	XtSetArg(arglist[i], XtNborderColor, SFfore); */
    631. 

  631. /*  	i++; */
    632. 

  632. 	selFileHScrolls[n] = XtCreateManagedWidget("selFileHScroll",
    633. 

  633. 						   scrollbarWidgetClass,
    634. 

  634. 						   selFileLists[n], arglist, i);
    635. 

  635. 

  636. 	XtAddCallback(selFileHScrolls[n], XtNjumpProc,
    637. 

  637. 		      (XtCallbackProc)SFhSliderMovedCallback, (XtPointer) n);
    638. 

  638. 	XtAddCallback(selFileHScrolls[n], XtNscrollProc,
    639. 

  639. 		      (XtCallbackProc)SFhAreaSelectedCallback, (XtPointer) n);
    640. 

  640.     }
    641. 

  641. 

  642.     /* Do the file filter stuff.  */
    643. 

  643.     selFileLabel = XtVaCreateManagedWidget("selFileLabel",
    644. 

  644. 					   labelWidgetClass, selFileForm,
    645. 

  645. 					   XtNfromVert, selFileLists[0],
    646. 

  646. 					   XtNvertDistance, 30,
    647. 

  647. /* 					   XtNfromHoriz, selFileCancel, */
    648. 

  648. /* 					   XtNhorizDistance, 60, */
    649. 

  649. 					   XtNlabel, "File Mask:",
    650. 

  650. 					   XtNborderWidth, 0,
    651. 

  651. 					   XtNtop, XtChainTop,
    652. 

  652. 					   XtNbottom, XtChainTop, NULL);
    653. 

  653. 

  654.     selFileMask = XtVaCreateManagedWidget("selFileMask",
    655. 

  655. 					  asciiTextWidgetClass, selFileForm,
    656. 

  656. 					  XtNwidth, MASKWIDTH / 2 * SFcharWidth,
    657. 

  657. 					  XtNfromVert, selFileLists[0],
    658. 

  658. 					  XtNvertDistance, 30,
    659. 

  659. 					  XtNfromHoriz, selFileLabel,
    660. 

  660. 					  XtNhorizDistance, 0,
    661. 

  661. 					  XtNtop, XtChainTop,
    662. 

  662. 					  XtNbottom, XtChainTop,
    663. 

  663. 					  XtNstring, fileMask,
    664. 

  664. 					  XtNlength, MASKWIDTH,
    665. 

  665. 					  XtNeditType, XawtextEdit,
    666. 

  666. 					  XtNwrap, XawtextWrapNever,
    667. 

  667. 					  XtNuseStringInPlace, True, NULL);
    668. 

  668. 

  669.     for (i = 0; i < 3; i++)
    670. 

  670. 	XtSetKeyboardFocus(selFileLists[i], selFileField);
    671. 

  671. 

  672.     XtOverrideTranslations(selFileMask,
    673. 

  673. 			   XtParseTranslationTable
    674. 

  674. 			   (oneLineTextEditTranslations));
    675. 

  675. 

  676.     XtAddEventHandler(selFileMask, KeyPressMask, False,
    677. 

  677. 		      (XtEventHandler)maskChanged, (XtPointer) NULL);
    678. 

  678. 

  679.     selFileLabel = XtVaCreateManagedWidget("selFileLabel",
    680. 

  680. 					   labelWidgetClass, selFileForm,
    681. 

  681. 					   XtNfromVert, selFileLists[0],
    682. 

  682. 					   XtNvertDistance, 30,
    683. 

  683. 					   XtNfromHoriz, selFileMask,
    684. 

  684. 					   XtNhorizDistance, 40,
    685. 

  685. 					   XtNlabel, "Dot files are:",
    686. 

  686.  					   XtNborderWidth, 0,
    687. 

  687. 					   XtNtop, XtChainTop,
    688. 

  688. 					   XtNbottom, XtChainTop, NULL);
    689. 

  689. 

  690.     selFileHide = XtVaCreateManagedWidget("selFileHide",
    691. 

  691. 					  commandWidgetClass, selFileForm,
    692. 

  692. /*  					  XtNwidth, 7 * SFcharWidth, */
    693. 

  693. 					  XtNfromVert, selFileLists[0],
    694. 

  694. 					  XtNvertDistance, 30,
    695. 

  695. 					  XtNfromHoriz, selFileLabel,
    696. 

  696. 					  XtNhorizDistance, 2,
    697. 

  697. 					  XtNlabel, hideFlag ? "hidden" : "shown",
    698. 

  698. /*  					  XtNborderWidth, 1, */
    699. 

  699. 					  XtNtop, XtChainTop,
    700. 

  700. /*  					  XtNjustify, XtJustifyLeft, */
    701. 

  701. 					  XtNbottom, XtChainTop,
    702. 

  702. 					  NULL);
    703. 

  703.     XtAddCallback(selFileHide, XtNcallback, (XtCallbackProc)hideFiles, NULL);
    704. 

  704. 

  705.     box = XtVaCreateManagedWidget("box", formWidgetClass,
    706. 

  706. 				  paned,
    707. 

  707. 				  XtNshowGrip, False,
    708. 

  708. 				  XtNdefaultDistance, 6,
    709. 

  709. 				  XtNskipAdjust, True,
    710. 

  710. 				  XtNaccelerators, G_accels_cr,
    711. 

  711. 				  NULL);
    712. 

  712.     selFileOK = XtVaCreateManagedWidget("selFileOK", commandWidgetClass,
    713. 

  713. 				      box,
    714. 

  714. 				      XtNlabel, ok,
    715. 

  715. 				      XtNcallback, SFokSelect,
    716. 

  716. 				      XtNtop, XtChainTop,
    717. 

  717. 				      XtNbottom, XtChainBottom,
    718. 

  718. 				      XtNleft, XtChainLeft,
    719. 

  719. 				      XtNright, XtChainLeft,
    720. 

  720. 				      NULL);
    721. 

  721.     selFileCancel = XtVaCreateManagedWidget("selFileCancel", commandWidgetClass,
    722. 

  722. 					    box,
    723. 

  723. 					    XtNlabel, cancel,
    724. 

  724. 					    XtNcallback, SFcancelSelect,
    725. 

  725. /*  					    XtNborderColor, SFfore, */
    726. 

  726. 					    XtNfromHoriz, selFileOK,
    727. 

  727. 					    XtNbottom, XtChainBottom,
    728. 

  728. 					    XtNleft, XtChainRight,
    729. 

  729. 					    XtNright, XtChainRight,
    730. 

  730. 					    NULL);
    731. 

  731. 

  732.     XtSetMappedWhenManaged(selFile, False);
    733. 

  733.     XtRealizeWidget(selFile);
    734. 

  734. 

  735.     /* Add WM_DELETE_WINDOW protocol */
    736. 

  736.     SFwmDeleteWindow = XInternAtom(SFdisplay, "WM_DELETE_WINDOW", False);
    737. 

  737.     XSetWMProtocols(SFdisplay, XtWindow(selFile), &SFwmDeleteWindow, 1);
    738. 

  738. 

  739.     SFcreateGC();
    740. 

  740. 

  741.     xtermCursor = XCreateFontCursor(SFdisplay, XC_xterm);
    742. 

  742. 

  743.     sbRightArrowCursor = XCreateFontCursor(SFdisplay, XC_sb_right_arrow);
    744. 

  744.     arrowCursor = XCreateFontCursor(SFdisplay, XC_left_ptr);
    745. 

  745. 

  746.     XDefineCursor(SFdisplay, XtWindow(selFileForm), arrowCursor);
    747. 

  747.     XDefineCursor(SFdisplay, XtWindow(selFileField), xtermCursor);
    748. 

  748. 

  749.     for (n = 0; n < 3; n++) {
    750. 

  750. 	XDefineCursor(SFdisplay, XtWindow(selFileLists[n]), sbRightArrowCursor);
    751. 

  751.     }
    752. 

  752.     XDefineCursor(SFdisplay, XtWindow(selFileOK), arrowCursor);
    753. 

  753.     XDefineCursor(SFdisplay, XtWindow(selFileCancel), arrowCursor);
    754. 

  754. 

  755.     for (n = 0; n < 3; n++) {
    756. 

  756. 	XtAddEventHandler(selFileLists[n], ExposureMask, True,
    757. 

  757. 			  (XtEventHandler)SFexposeList, (XtPointer) n);
    758. 

  758. 	XtAddEventHandler(selFileLists[n], EnterWindowMask, False,
    759. 

  759. 			  (XtEventHandler)SFenterList, (XtPointer) n);
    760. 

  760. 	XtAddEventHandler(selFileLists[n], LeaveWindowMask, False,
    761. 

  761. 			  (XtEventHandler)SFleaveList, (XtPointer) n);
    762. 

  762. 	XtAddEventHandler(selFileLists[n], PointerMotionMask, False,
    763. 

  763. 			  (XtEventHandler)SFmotionList, (XtPointer) n);
    764. 

  764. 	XtAddEventHandler(selFileLists[n], ButtonPressMask, False,
    765. 

  765. 			  (XtEventHandler)SFbuttonPressList, (XtPointer) n);
    766. 

  766. 	XtAddEventHandler(selFileLists[n], ButtonReleaseMask, False,
    767. 

  767. 			  (XtEventHandler)SFbuttonReleaseList, (XtPointer) n);
    768. 

  768.     }
    769. 

  769. 

  770.     XtAddEventHandler(selFileField, KeyPressMask, False,
    771. 

  771. 		      (XtEventHandler)SFmodVerifyCallback, (XtPointer) NULL);
    772. 

  772. 

  773.     SFapp = XtWidgetToApplicationContext(selFile);
    774. 

  774.     return selFile;
    775. 

  775. }
    776. 

  776. 

  777. /* position widget under the cursor */
    778. 

  778. void
    779. 

  779. SFpositionWidget(Widget w)
    780. 

  780. {
    781. 

  781.     Arg args[3];
    782. 

  782.     Cardinal num_args;
    783. 

  783.     Dimension width, height, b_width;
    784. 

  784.     int x, y, max_x, max_y;
    785. 

  785.     Window root, child;
    786. 

  786.     int dummyx, dummyy;
    787. 

  787.     unsigned int dummymask;
    788. 

  788. 

  789.     XQueryPointer(XtDisplay(w), XtWindow(w), &root, &child, &x, &y,
    790. 

  790. 		  &dummyx, &dummyy, &dummymask);
    791. 

  791.     num_args = 0;
    792. 

  792.     XtSetArg(args[num_args], XtNwidth, &width);
    793. 

  793.     num_args++;
    794. 

  794.     XtSetArg(args[num_args], XtNheight, &height);
    795. 

  795.     num_args++;
    796. 

  796.     XtSetArg(args[num_args], XtNborderWidth, &b_width);
    797. 

  797.     num_args++;
    798. 

  798.     XtGetValues(w, args, num_args);
    799. 

  799. 

  800.     width += 2 * b_width;
    801. 

  801.     height += 2 * b_width;
    802. 

  802. 

  803.     x -= ((Position) width / 2);
    804. 

  804.     if (x < 0)
    805. 

  805. 	x = 0;
    806. 

  806.     if (x > (max_x = (Position) (XtScreen(w)->width - width)))
    807. 

  807. 	x = max_x;
    808. 

  808. 

  809.     y -= ((Position) height / 2);
    810. 

  810.     if (y < 0)
    811. 

  811. 	y = 0;
    812. 

  812.     if (y > (max_y = (Position) (XtScreen(w)->height - height)))
    813. 

  813. 	y = max_y;
    814. 

  814. 

  815.     num_args = 0;
    816. 

  816.     XtSetArg(args[num_args], XtNx, x);
    817. 

  817.     num_args++;
    818. 

  818.     XtSetArg(args[num_args], XtNy, y);
    819. 

  819.     num_args++;
    820. 

  820.     XtSetValues(w, args, num_args);
    821. 

  821. }
    822. 

  822. 
    823. 

  823. 

  824. FILE *
    825. 

  825. SFopenFile(const char *name, const char *mode, const char *prompt, const char *failed)
    826. 

  826. {
    827. 

  827.     Arg args[1];
    828. 

  828.     FILE *fp;
    829. 

  829. 

  830.     UNUSED(args);
    831. 

  831.     UNUSED(prompt);
    832. 

  832.     UNUSED(failed);
    833. 

  833.     
    834. 

  834.     SFchdir(SFstartDir);
    835. 

  835.     errno = 0;
    836. 

  836.     if (!name || *name == 0 || (fp = XFOPEN(name, mode)) == NULL) {
    837. 

  837. 	XBell(DISP, 0);
    838. 

  838. 	return NULL;
    839. 

  839.     }
    840. 

  840.     return fp;
    841. 

  841. }
    842. 

  842. 

  843. void
    844. 

  844. SFtextChanged(void)
    845. 

  845. {
    846. 

  846.     if ((SFtextBuffer[0] == '/') || (SFtextBuffer[0] == '~')) {
    847. 

  847. 	(void)strcpy(SFcurrentPath, SFtextBuffer);
    848. 

  848. 

  849. 	SFtextPos = XawTextGetInsertionPoint(selFileField);
    850. 

  850.     }
    851. 

  851.     else {
    852. 

  852. 	(void)strcat(strcpy(SFcurrentPath, SFstartDir), SFtextBuffer);
    853. 

  853. 

  854. 	SFtextPos = XawTextGetInsertionPoint(selFileField) + strlen(SFstartDir);
    855. 

  855.     }
    856. 

  856. 

  857.     if (!SFworkProcAdded) {
    858. 

  858. 	(void)XtAppAddWorkProc(SFapp, (XtWorkProc)SFworkProc, NULL);
    859. 

  859. 	SFworkProcAdded = 1;
    860. 

  860.     }
    861. 

  861. 

  862.     SFupdatePath();
    863. 

  863. }
    864. 

  864. 

  865. static void
    866. 

  866. SFprepareToReturn(void)
    867. 

  867. {
    868. 

  868.     SFstatus = SEL_FILE_NULL;
    869. 

  869.     /* XtRemoveGrab(selFile); */
    870. 

  870.     XtUnmapWidget(selFile);
    871. 

  871. 

  872.     if (SFdirModTimerId) {
    873. 

  873. 	XtRemoveTimeOut(SFdirModTimerId);
    874. 

  874. 	SFdirModTimerId = 0;
    875. 

  875.     }
    876. 

  876.     if (SFchdir(SFstartDir)) {
    877. 

  877. 	XtAppError(SFapp, "XsraSelFile: can't return to current directory");
    878. 

  878.     }
    879. 

  879. }
    880. 

  880. 

  881. void
    882. 

  882. XsraSelFile(Widget parent, struct filesel_callback *callback)
    883. 

  883. /*  	    const char *title, const char *prompt, */
    884. 

  884. /*  	    const char *ok, const char *cancel, */
    885. 

  885. /*  	    const char *init_path, */
    886. 

  886. /*  	    const char *mask, */
    887. 

  887. /*  	    Boolean must_exist, */
    888. 

  888. /*  	    Widget *ret_widget */
    889. 

  889. {
    890. 

  890.     static Boolean firstTime = True;
    891. 

  891.     Widget w;
    892. 

  892.     Cardinal i;
    893. 

  893.     Arg arglist[20];
    894. 

  894.     XEvent event;
    895. 

  895.     
    896. 

  896.     if (!callback->prompt) {
    897. 

  897. 	callback->prompt = "Pathname:";
    898. 

  898.     }
    899. 

  899. 

  900.     if (!callback->title) {
    901. 

  901. 	callback->title = "Xdvi: select filename";
    902. 

  902.     }
    903. 

  903. 

  904.     if (!callback->ok) {
    905. 

  905. 	callback->ok = "OK";
    906. 

  906.     }
    907. 

  907. 

  908.     if (!callback->cancel) {
    909. 

  909. 	callback->cancel = "Cancel";
    910. 

  910.     }
    911. 

  911. 

  912.     if (firstTime) {
    913. 

  913. 	firstTime = False;
    914. 

  914. 	SFdisplay = XtDisplay(parent);
    915. 

  915. 	w = SFcreateWidgets(parent, callback->title, callback->prompt, callback->ok, callback->cancel);
    916. 

  916.     }
    917. 

  917.     else {
    918. 

  918. 	i = 0;
    919. 

  919. 	XtSetArg(arglist[i], XtNlabel, callback->prompt);
    920. 

  920. 	i++;
    921. 

  921. 	XtSetValues(selFilePrompt, arglist, i);
    922. 

  922. 

  923. 	i = 0;
    924. 

  924. 	XtSetArg(arglist[i], XtNlabel, callback->ok);
    925. 

  925. 	i++;
    926. 

  926. 	XtSetValues(selFileOK, arglist, i);
    927. 

  927. 

  928. 	i = 0;
    929. 

  929. 	XtSetArg(arglist[i], XtNlabel, callback->cancel);
    930. 

  930. 	i++;
    931. 

  931. 	XtSetValues(selFileCancel, arglist, i);
    932. 

  932.     }
    933. 

  933. 

  934.     SFpositionWidget(selFile);
    935. 

  935.     XtMapWidget(selFile);
    936. 

  936. 

  937.     {
    938. 

  938. 	char *cwd = xgetcwd();
    939. 

  939. 	strcpy(SFstartDir, cwd);
    940. 

  940. 	free(cwd);
    941. 

  941.     }
    942. 

  942.     if (SFstartDir[0] == 0) {
    943. 

  943. 	XtAppError(SFapp, "XsraSelFile: can't get current directory");
    944. 

  944.     }
    945. 

  945.     (void)strcat(SFstartDir, "/");
    946. 

  946.     (void)strcpy(SFcurrentDir, SFstartDir);
    947. 

  947. 

  948.     if (callback->init_path) {
    949. 

  949. 	if (callback->init_path[0] == '/') {
    950. 

  950. 	    (void)strcpy(SFcurrentPath, callback->init_path);
    951. 

  951. 	    if (strncmp(SFcurrentPath, SFstartDir, strlen(SFstartDir))) {
    952. 

  952. 		SFsetText(SFcurrentPath);
    953. 

  953. 	    }
    954. 

  954. 	    else {
    955. 

  955. 		SFsetText(&(SFcurrentPath[strlen(SFstartDir)]));
    956. 

  956. 	    }
    957. 

  957. 	}
    958. 

  958. 	else {
    959. 

  959. 	    (void)strcat(strcpy(SFcurrentPath, SFstartDir), callback->init_path);
    960. 

  960. 	    SFsetText(&(SFcurrentPath[strlen(SFstartDir)]));
    961. 

  961. 	}
    962. 

  962.     }
    963. 

  963.     else {
    964. 

  964. 	SFsetText(SFcurrentDir);
    965. 

  965. 	(void)strcpy(SFcurrentPath, SFstartDir);
    966. 

  966.     }
    967. 

  967. 

  968.     SFfunc = showEntry;
    969. 

  969. 

  970.     SFtextChanged();
    971. 

  971. 

  972.     /* don't grab the pointer so that warning popups still work */
    973. 

  973.     /* XtAddGrab(selFile, True, True); */
    974. 

  974. 

  975.     SFdirModTimerId = XtAppAddTimeOut(SFapp, 1200UL,
    976. 

  976. 				      SFdirModTimer, (XtPointer) NULL);
    977. 

  977.     
    978. 

  978.     if (strcmp(fileMask, callback->filemask) != 0) { /* if mask changed */
    979. 

  979. 	SFDir *dir;
    980. 

  980. 	strncpy(fileMask, callback->filemask, MASKWIDTH);
    981. 

  981. 	XtVaSetValues(selFileMask, XtNstring, fileMask, NULL);
    982. 

  982. 	for (dir = &(SFdirs[SFdirEnd - 1]); dir >= SFdirs; dir--)
    983. 

  983. 	    *(dir->dir) = 0;	/* force a re-read */
    984. 

  984. 	SFupdatePath();
    985. 

  985.     }
    986. 

  986. 

  987.     while (1) {
    988. 

  988. 	XtAppNextEvent(SFapp, &event);
    989. 

  989. 	switch (event.type) {
    990. 

  990. 	    Widget w;
    991. 

  991. #if 0 /* don't do this, it may send the X server into a busy loop if the File selector
    992. 

  992. 	 is positioned over a window that is `on top' by default */
    993. 

  993. 	case Expose:
    994. 

  994. 	    if (!raise_message_windows())
    995. 

  995. 		raise_file_selector();
    996. 

  996. 	    break;
    997. 

  997. #endif
    998. 

  998. 	case KeyPress:
    999. 

  999. 	case ButtonPress:
    1000. 

  1000. 	    /* beep if keypress was inside main window */
    1001. 

  1001. 	    w = XtWindowToWidget(DISP, event.xany.window);
    1002. 

  1002. 	    while ((w != NULL) && (w != selFile)) {
    1003. 

  1003. 		/* exception: message windows */
    1004. 

  1004. 		if (is_message_window(w))
    1005. 

  1005. 		    break;
    1006. 

  1006. 		w = XtParent(w);
    1007. 

  1007. 	    }
    1008. 

  1008. 	    if (w == NULL || w == globals.widgets.top_level) {
    1009. 

  1009. 		XBell(DISP, 0);
    1010. 

  1010. 	    }
    1011. 

  1011. 	    break;
    1012. 

  1012. 	}
    1013. 

  1013. 

  1014. 	XtDispatchEvent(&event);
    1015. 

  1015. 

  1016. 	switch (SFstatus) {
    1017. 

  1017. 	case SEL_FILE_TEXT:
    1018. 

  1018. 	    SFstatus = SEL_FILE_NULL;
    1019. 

  1019. 	    SFtextChanged();
    1020. 

  1020. 	    break;
    1021. 

  1021. 	case SEL_FILE_OK:
    1022. 

  1022. 	    if (callback->must_exist) {
    1023. 

  1023. 		FILE *tmp_fp = XFOPEN(SFtextBuffer, "r");
    1024. 

  1024. 		dviErrFlagT errflag = NO_ERROR;
    1025. 

  1025. 		if (tmp_fp == NULL) {
    1026. 

  1026. 		    popup_message(selFile,
    1027. 

  1027. 				  MSG_ERR, NULL, "Could not open %s: %s.\n",
    1028. 

  1028. 				  SFtextBuffer, strerror(errno));
    1029. 

  1029. 		    SFstatus = SEL_FILE_NULL;
    1030. 

  1030. 		    break;
    1031. 

  1031. 		}
    1032. 

  1032. 		else if (!process_preamble(tmp_fp, &errflag)
    1033. 

  1033. 			 || !find_postamble(tmp_fp, &errflag)
    1034. 

  1034. 			 || !read_postamble(tmp_fp, &errflag, False)) {
    1035. 

  1035. 		    popup_message(selFile,
    1036. 

  1036. 				  MSG_ERR, NULL, "Error opening %s:\n%s.",
    1037. 

  1037. 				  SFtextBuffer, get_dvi_error(errflag));
    1038. 

  1038. 		    fclose(tmp_fp);
    1039. 

  1039. 		    SFstatus = SEL_FILE_NULL;
    1040. 

  1040. 		    break;
    1041. 

  1041. 		}
    1042. 

  1042. 		else { /* file is OK */
    1043. 

  1043. 		    fclose(tmp_fp);
    1044. 

  1044. 		    SFprepareToReturn();
    1045. 

  1045. 		    callback->func_ptr(SFtextBuffer, callback->data);
    1046. 

  1046. 		    return;
    1047. 

  1047. /*  		    return xstrdup(SFtextBuffer); */
    1048. 

  1048. 		}
    1049. 

  1049. 	    }
    1050. 

  1050. 	    else {
    1051. 

  1051. 		SFprepareToReturn();
    1052. 

  1052. 		callback->func_ptr(SFtextBuffer, callback->data);
    1053. 

  1053. 		return;
    1054. 

  1054. /*  		return xstrdup(SFtextBuffer); */
    1055. 

  1055. 	    }
    1056. 

  1056. 	case SEL_FILE_CANCEL:
    1057. 

  1057. 	    SFprepareToReturn();
    1058. 

  1058. 	    if (callback->exit_on_cancel)
    1059. 

  1059. 		exit(0);
    1060. 

  1060. 	    return;
    1061. 

  1061. /*  	    return NULL; */
    1062. 

  1062. 	case SEL_FILE_NULL:
    1063. 

  1063. 	    break;
    1064. 

  1064. 	}
    1065. 

  1065.     }
    1066. 

  1066. }
    1067. 

  1067. 

  1068. #else
    1069. 

  1069. /* silence `empty compilation unit' warnings */
    1070. 

  1070. static void bar(void); static void foo() { bar(); } static void bar(void) { foo(); }
    1071. 

  1071. #endif /* !defined(MOTIF) */
    1072. 

  1072.