home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume4 / xdir / patch1 < prev    next >
Encoding:
Text File  |  1989-08-30  |  22.0 KB  |  1,007 lines
  1. Path: uunet!island!argv
  2. From: argv@island.uu.net (Dan Heller)
  3. Newsgroups: comp.sources.x
  4. Subject: v04i097: xdir, Patch1
  5. Message-ID: <1036@island.uu.net>
  6. Date: 31 Aug 89 06:30:09 GMT
  7. Organization: Island Graphics, Marin County, California
  8. Lines: 996
  9. Approved: island!argv@sun.com
  10.  
  11. Submitted-by: Erik M. van der Poel <erik@sra.junet>
  12. Posting-number: Volume 4, Issue 97
  13. Archive-name: xdir/patch1
  14.  
  15. Patch-To: xdir/part01; Volume 4, Issue 14
  16. Patch-To: xdir/part02; Volume 4, Issue 15
  17.  
  18. This is the first set of patches for the SelFile directory browser package
  19. (otherwise known as xdir).
  20.  
  21.     * The wrong files were highlighted when show_entry was used. This bug
  22.       has been fixed.
  23.  
  24.     * The cpp symbol USG has been added. SYSV is used for System V Release
  25.       2, and USG for SVR3, in line with Jim Fulton's recently posted rules
  26.       for contrib software.
  27.  
  28.     * Support for System V's getcwd() has been added.
  29.  
  30.     * MAXPATHLEN has been defined for systems that do not have it.
  31.  
  32.     * A patchlevel.h file has been added. The initial patch level is one.
  33.  
  34.     * A Makefile has been added. How many of you gave up trying to compile
  35.       SelFile when you noticed that there was an Imakefile, but no
  36.       Makefile?
  37.  
  38.     * Support for the R2 version of the Xt Intrinsics has been added. See
  39.       the Imakefile.
  40.  
  41.  
  42. Many thanks to the following individuals for bug reports, etc.:
  43.  
  44.     Jordan K. Hubbard
  45.     T. S. Wong
  46.     Ken Chin-Purcell
  47.     Richard Neitzel
  48.     Ian Darwin
  49.     Steve Lodin
  50.     Pramath (sinha)
  51.     Scott E. Garfinkle
  52.     Peter Lim
  53.     Gary Bushey
  54.     T. Scott Pyne
  55.  
  56.  
  57. By the way, has anyone made any useful modifications to SelFile, such as
  58. Widgetizing it so that it can be embedded within an application window?
  59.  
  60. --
  61. Erik M. van der Poel                  erik@sra.co.jp             (Japan)
  62. SRA, 1-1-1 Hirakawa-cho, Chiyoda-ku   erik%sra.co.jp@uunet.uu.net  (USA)
  63. Tokyo 102 Japan. TEL +81-3-234-2692   erik%sra.co.jp@mcvax.uucp (Europe)
  64.  
  65.  
  66. *** ../old/Dir.c    Wed Aug 30 16:23:22 1989
  67. --- Dir.c    Wed Aug 30 15:57:37 1989
  68. ***************
  69. *** 1,5 ****
  70.   #ifndef lint
  71. ! static char rcsid[] = "$Header: Dir.c,v 1.3 89/05/29 15:03:50 erik Exp $";
  72.   #endif
  73.   
  74.   /*
  75. --- 1,5 ----
  76.   #ifndef lint
  77. ! static char rcsid[] = "$Header: Dir.c,v 1.4 89/08/30 15:56:15 erik Exp $";
  78.   #endif
  79.   
  80.   /*
  81. ***************
  82. *** 25,30 ****
  83. --- 25,31 ----
  84.    *
  85.    * Author: Erik M. van der Poel
  86.    *         Software Research Associates, Inc., Tokyo, Japan
  87. +  *         erik@sra.co.jp
  88.    */
  89.   
  90.   #include <stdio.h>
  91. ***************
  92. *** 35,51 ****
  93.   
  94.   #include "SFinternal.h"
  95.   
  96. ! #ifdef SYSV
  97.   #include <dirent.h>
  98. ! #else /* def SYSV */
  99.   #include <sys/dir.h>
  100. ! #endif /* def SYSV */
  101.   
  102.   #include <sys/stat.h>
  103.   
  104. ! #ifdef SYSV
  105.   extern void qsort();
  106. ! #endif /* def SYSV */
  107.   
  108.   #ifdef SEL_FILE_IGNORE_CASE
  109.   int
  110. --- 36,53 ----
  111.   
  112.   #include "SFinternal.h"
  113.   
  114. ! #if defined(SYSV) || defined(USG)
  115.   #include <dirent.h>
  116. ! #else /* defined(SYSV) || defined(USG) */
  117.   #include <sys/dir.h>
  118. ! #define dirent direct
  119. ! #endif /* defined(SYSV) || defined(USG) */
  120.   
  121.   #include <sys/stat.h>
  122.   
  123. ! #if defined(SYSV) || defined(USG)
  124.   extern void qsort();
  125. ! #endif /* defined(SYSV) || defined(USG) */
  126.   
  127.   #ifdef SEL_FILE_IGNORE_CASE
  128.   int
  129. ***************
  130. *** 102,114 ****
  131.       int        alloc = 0;
  132.       int        i;
  133.       DIR        *dirp;
  134. - 
  135. - #ifdef SYSV
  136.       struct dirent    *dp;
  137. - #else /* def SYSV */
  138. -     struct direct    *dp;
  139. - #endif /* def SYSV */
  140. - 
  141.       char        *str;
  142.       int        len;
  143.       int        maxChars;
  144. --- 104,110 ----
  145. ***************
  146. *** 155,165 ****
  147.           i++;
  148.       }
  149.   
  150. ! #ifdef SYSV
  151.       qsort((char *) result, (unsigned) i, sizeof(SFEntry), SFcompareEntries);
  152. ! #else /* def SYSV */
  153.       qsort((char *) result, i, sizeof(SFEntry), SFcompareEntries);
  154. ! #endif /* def SYSV */
  155.   
  156.       dir->entries = result;
  157.       dir->nEntries = i;
  158. --- 151,161 ----
  159.           i++;
  160.       }
  161.   
  162. ! #if defined(SYSV) || defined(USG)
  163.       qsort((char *) result, (unsigned) i, sizeof(SFEntry), SFcompareEntries);
  164. ! #else /* defined(SYSV) || defined(USG) */
  165.       qsort((char *) result, i, sizeof(SFEntry), SFcompareEntries);
  166. ! #endif /* defined(SYSV) || defined(USG) */
  167.   
  168.       dir->entries = result;
  169.       dir->nEntries = i;
  170. *** ../old/Draw.c    Wed Aug 30 16:23:26 1989
  171. --- Draw.c    Wed Aug 30 15:58:13 1989
  172. ***************
  173. *** 1,5 ****
  174.   #ifndef lint
  175. ! static char rcsid[] = "$Header: Draw.c,v 1.6 89/05/29 15:04:26 erik Exp $";
  176.   #endif
  177.   
  178.   /*
  179. --- 1,5 ----
  180.   #ifndef lint
  181. ! static char rcsid[] = "$Header: Draw.c,v 1.10 89/08/30 15:58:01 erik Exp $";
  182.   #endif
  183.   
  184.   /*
  185. ***************
  186. *** 25,30 ****
  187. --- 25,31 ----
  188.    *
  189.    * Author: Erik M. van der Poel
  190.    *         Software Research Associates, Inc., Tokyo, Japan
  191. +  *         erik@sra.co.jp
  192.    */
  193.   
  194.   #include <stdio.h>
  195. ***************
  196. *** 81,87 ****
  197. --- 82,98 ----
  198.   
  199.               (void) sprintf(sbuf, "XsraSelFile: can't get font %s",
  200.                   SF_DEFAULT_FONT);
  201. + 
  202. + #ifdef SEL_FILE_R2_XT
  203. + 
  204. +             XtError(sbuf);
  205. + 
  206. + #else /* def SEL_FILE_R2_XT */
  207. + 
  208.               XtAppError(SFapp, sbuf);
  209. + 
  210. + #endif /* def SEL_FILE_R2_XT */
  211. + 
  212.           }
  213.       }
  214.   
  215. ***************
  216. *** 246,251 ****
  217. --- 257,263 ----
  218.       register SFEntry    *e;
  219.       register SFEntry    *end;
  220.       int            n;
  221. +     int            idx;
  222.   
  223.   #if defined(SEL_FILE_XW) || defined(SEL_FILE_XWSCROLLBAR)
  224.   
  225. ***************
  226. *** 254,259 ****
  227. --- 266,287 ----
  228.   
  229.   #endif /* defined(SEL_FILE_XW) || defined(SEL_FILE_XWSCROLLBAR) */
  230.   
  231. +     idx = entry - dir->entries;
  232. + 
  233. +     if (idx < dir->beginSelection) {
  234. +         dir->beginSelection--;
  235. +     }
  236. +     if (idx <= dir->endSelection) {
  237. +         dir->endSelection--;
  238. +     }
  239. +     if (dir->beginSelection > dir->endSelection) {
  240. +         dir->beginSelection = dir->endSelection = -1;
  241. +     }
  242. + 
  243. +     if (idx < dir->vOrigin) {
  244. +         dir->vOrigin--;
  245. +     }
  246. + 
  247.       XtFree(entry->real);
  248.   
  249.       end = &(dir->entries[dir->nEntries - 1]);
  250. ***************
  251. *** 275,280 ****
  252. --- 303,309 ----
  253.       XtSetArg(arglist[i], XtNsliderMax, dir->nEntries);        i++;
  254.       XtSetArg(arglist[i], XtNsliderExtent, dir->nEntries < SFlistSize ?
  255.           dir->nEntries : SFlistSize);                i++;
  256. +     XtSetArg(arglist[i], XtNsliderOrigin, dir->vOrigin);        i++;
  257.       XtSetValues(selFileVScrolls[n], arglist, i);
  258.   
  259.   #else /* defined(SEL_FILE_XW) || defined(SEL_FILE_XWSCROLLBAR) */
  260. ***************
  261. *** 580,586 ****
  262. --- 609,625 ----
  263.       }
  264.   
  265.       if (SFbuttonPressed) {
  266. + 
  267. + #ifdef SEL_FILE_R2_XT
  268. + 
  269. +         SFscrollTimerId = XtAddTimeOut(
  270. + 
  271. + #else /* def SEL_FILE_R2_XT */
  272. + 
  273.           SFscrollTimerId = XtAppAddTimeOut(SFapp,
  274. + 
  275. + #endif /* def SEL_FILE_R2_XT */
  276. + 
  277.               SFscrollTimerInterval(), SFscrollTimer, (caddr_t) n);
  278.       }
  279.   }
  280. ***************
  281. *** 620,626 ****
  282. --- 659,675 ----
  283.               SFcurrentListY = y;
  284.               if (!SFscrollTimerAdded) {
  285.                   SFscrollTimerAdded = 1;
  286. + 
  287. + #ifdef SEL_FILE_R2_XT
  288. + 
  289. +                 SFscrollTimerId = XtAddTimeOut(
  290. + 
  291. + #else /* def SEL_FILE_R2_XT */
  292. + 
  293.                   SFscrollTimerId = XtAppAddTimeOut(SFapp,
  294. + 
  295. + #endif /* def SEL_FILE_R2_XT */
  296. + 
  297.                       SFscrollTimerInterval(), SFscrollTimer,
  298.                       (caddr_t) n);
  299.               }
  300. ***************
  301. *** 1073,1078 ****
  302. --- 1122,1129 ----
  303.   
  304.   }
  305.   
  306. + #ifndef SEL_FILE_R2_XT
  307. + 
  308.   Boolean
  309.   SFworkProc()
  310.   {
  311. ***************
  312. *** 1096,1098 ****
  313. --- 1147,1151 ----
  314.   
  315.       return True;
  316.   }
  317. + 
  318. + #endif /* ndef SEL_FILE_R2_XT */
  319. *** ../old/FILES    Wed Aug 30 16:23:29 1989
  320. --- FILES    Fri Jul 21 16:37:46 1989
  321. ***************
  322. *** 2,7 ****
  323. --- 2,8 ----
  324.   Draw.c
  325.   FILES
  326.   Imakefile
  327. + Makefile
  328.   Path.c
  329.   README
  330.   SFinternal.h
  331. ***************
  332. *** 9,12 ****
  333. --- 10,14 ----
  334.   SelFile.man
  335.   TODO
  336.   callback.c
  337. + patchlevel.h
  338.   xdir.c
  339. *** ../old/Imakefile    Wed Aug 30 16:23:29 1989
  340. --- Imakefile    Wed Aug 30 16:44:18 1989
  341. ***************
  342. *** 15,20 ****
  343. --- 15,36 ----
  344.   #
  345.   # -DSEL_FILE_XW
  346.   #
  347. + # Normally, the program should be linked with the R3 or a later version of the
  348. + # Xt Intrinsics, but it can be linked with the R2 Xt by defining the following:
  349. + #
  350. + # -DSEL_FILE_R2_XT
  351. + #
  352. + # System V Release 2 users will need something like Doug Gwyn's directory
  353. + # package (posted to comp.sources.unix), and will need to define the following:
  354. + #
  355. + # -DSYSV
  356. + #
  357. + # System V Release 3 users will need to define the following:
  358. + #
  359. + # -DUSG
  360. + #
  361. + #------------------------------------------------------------------------------
  362. + #
  363.   #        DEFINES = -DSEL_FILE_XW
  364.   
  365.              SRCS = xdir.c SelFile.c Dir.c Path.c Draw.c
  366. *** ../old/Makefile    Wed Aug 30 16:26:02 1989
  367. --- Makefile    Wed May 24 13:52:22 1989
  368. ***************
  369. *** 0 ****
  370. --- 1,18 ----
  371. + CC = gcc
  372. + CC = cc
  373. + 
  374. + CFLAGS = -O -DSEL_FILE_XW
  375. + CFLAGS = -O
  376. + 
  377. + SRCS = SelFile.c Dir.c Path.c Draw.c
  378. + OBJS = SelFile.o Dir.o Path.o Draw.o
  379. + 
  380. + xdir:            xdir.o $(OBJS)
  381. + #    $(CC) $(CFLAGS) xdir.o $(OBJS) -lXw -lXt -lX11 -o $@
  382. +     $(CC) $(CFLAGS) xdir.o $(OBJS) -lXaw -lXmu -lXt -lX11 -o $@
  383. + 
  384. + lint:
  385. +     lint -auxz $(CFLAGS) xdir.c $(SRCS)
  386. + 
  387. + clean:
  388. +     rm -f xdir *.o core a.out
  389. *** ../old/Path.c    Wed Aug 30 16:23:31 1989
  390. --- Path.c    Wed Aug 30 15:59:24 1989
  391. ***************
  392. *** 1,5 ****
  393.   #ifndef lint
  394. ! static char rcsid[] = "$Header: Path.c,v 1.5 89/05/29 15:05:30 erik Exp $";
  395.   #endif
  396.   
  397.   /*
  398. --- 1,5 ----
  399.   #ifndef lint
  400. ! static char rcsid[] = "$Header: Path.c,v 1.9 89/08/30 15:58:47 erik Exp $";
  401.   #endif
  402.   
  403.   /*
  404. ***************
  405. *** 25,30 ****
  406. --- 25,31 ----
  407.    *
  408.    * Author: Erik M. van der Poel
  409.    *         Software Research Associates, Inc., Tokyo, Japan
  410. +  *         erik@sra.co.jp
  411.    */
  412.   
  413.   #include <stdio.h>
  414. ***************
  415. *** 44,53 ****
  416.   #include <X11/Scroll.h>
  417.   #endif /* defined(SEL_FILE_XW) || defined(SEL_FILE_XWSCROLLBAR) */
  418.   
  419. ! #ifdef SYSV
  420.   extern unsigned short getuid();
  421.   extern void qsort();
  422. ! #endif /* def SYSV */
  423.   
  424.   typedef struct {
  425.       char    *name;
  426. --- 45,54 ----
  427.   #include <X11/Scroll.h>
  428.   #endif /* defined(SEL_FILE_XW) || defined(SEL_FILE_XWSCROLLBAR) */
  429.   
  430. ! #if defined(SYSV) || defined(USG)
  431.   extern unsigned short getuid();
  432.   extern void qsort();
  433. ! #endif /* defined(SYSV) || defined(USG) */
  434.   
  435.   typedef struct {
  436.       char    *name;
  437. ***************
  438. *** 463,475 ****
  439.       SFhomeDir.beginSelection    = -1        ;
  440.       SFhomeDir.endSelection        = -1        ;
  441.   
  442. ! #ifdef SYSV
  443.       qsort((char *) entries, (unsigned)i, sizeof(SFEntry), SFcompareEntries);
  444.       qsort((char *) SFlogins, (unsigned)i, sizeof(SFLogin), SFcompareLogins);
  445. ! #else /* def SYSV */
  446.       qsort((char *) entries, i, sizeof(SFEntry), SFcompareEntries);
  447.       qsort((char *) SFlogins, i, sizeof(SFLogin), SFcompareLogins);
  448. ! #endif /* def SYSV */
  449.   
  450.       for (i--; i >= 0; i--) {
  451.           (void) strcat(entries[i].real, "/");
  452. --- 464,476 ----
  453.       SFhomeDir.beginSelection    = -1        ;
  454.       SFhomeDir.endSelection        = -1        ;
  455.   
  456. ! #if defined(SYSV) || defined(USG)
  457.       qsort((char *) entries, (unsigned)i, sizeof(SFEntry), SFcompareEntries);
  458.       qsort((char *) SFlogins, (unsigned)i, sizeof(SFLogin), SFcompareLogins);
  459. ! #else /* defined(SYSV) || defined(USG) */
  460.       qsort((char *) entries, i, sizeof(SFEntry), SFcompareEntries);
  461.       qsort((char *) SFlogins, i, sizeof(SFLogin), SFcompareLogins);
  462. ! #endif /* defined(SYSV) || defined(USG) */
  463.   
  464.       for (i--; i >= 0; i--) {
  465.           (void) strcat(entries[i].real, "/");
  466. ***************
  467. *** 720,732 ****
  468.       static int    alloc = 0;
  469.       int        len;
  470.   
  471. !     len = convEUCtoWS((unsigned char *) path, (wchar_t *) NULL);
  472.       while (len + 1 > alloc) {
  473.           alloc = 2 * (alloc + 1);
  474.           wstr = (wchar_t *) XtRealloc((char *) wstr, (unsigned) (alloc *
  475.               sizeof(wchar_t)));
  476.       }
  477. !     (void) convEUCtoWS((unsigned char *) path, wstr);
  478.   
  479.       XwTextClearBuffer(selFileField);
  480.       XwTextInsert(selFileField, wstr);
  481. --- 721,733 ----
  482.       static int    alloc = 0;
  483.       int        len;
  484.   
  485. !     len = convEUCtoJWS((unsigned char *) path, (wchar_t *) NULL);
  486.       while (len + 1 > alloc) {
  487.           alloc = 2 * (alloc + 1);
  488.           wstr = (wchar_t *) XtRealloc((char *) wstr, (unsigned) (alloc *
  489.               sizeof(wchar_t)));
  490.       }
  491. !     (void) convEUCtoJWS((unsigned char *) path, wstr);
  492.   
  493.       XwTextClearBuffer(selFileField);
  494.       XwTextInsert(selFileField, wstr);
  495. ***************
  496. *** 846,851 ****
  497. --- 847,862 ----
  498.           } else {
  499.               (void) SFfindFile(dir, dir->path);
  500.           }
  501. + 
  502. + #ifndef SEL_FILE_R2_XT
  503. + 
  504. +         if (!SFworkProcAdded) {
  505. +             (void) XtAppAddWorkProc(SFapp, SFworkProc, NULL);
  506. +             SFworkProcAdded = 1;
  507. +         }
  508. + 
  509. + #endif /* ndef SEL_FILE_R2_XT */
  510. + 
  511.           return 1;
  512.       }
  513.   
  514. ***************
  515. *** 951,956 ****
  516. --- 962,976 ----
  517.           }
  518.       }
  519.   
  520. + #ifdef SEL_FILE_R2_XT
  521. + 
  522. +     SFdirModTimerId = XtAddTimeOut((unsigned long) 1000,
  523. + 
  524. + #else /* def SEL_FILE_R2_XT */
  525. + 
  526.       SFdirModTimerId = XtAppAddTimeOut(SFapp, (unsigned long) 1000,
  527. + 
  528. + #endif /* def SEL_FILE_R2_XT */
  529. + 
  530.           SFdirModTimer, (caddr_t) NULL);
  531.   }
  532. *** ../old/README    Wed Aug 30 16:23:11 1989
  533. --- README    Fri Jul 21 16:39:22 1989
  534. ***************
  535. *** 32,39 ****
  536.   * Xaw and/or Xw widgets
  537.   
  538.       SelFile can be linked with Xaw (Athena) and/or Xw (Hewlett-Packard)
  539. !     widgets. However, it must be linked with the R3 or a later version of the
  540. !     Xt Intrinsics. See the Imakefile for details.
  541.   
  542.   * automatic display update after directory modification
  543.   
  544. --- 32,40 ----
  545.   * Xaw and/or Xw widgets
  546.   
  547.       SelFile can be linked with Xaw (Athena) and/or Xw (Hewlett-Packard)
  548. !     widgets. Normally, SelFile is linked with the R3 or a later version of the
  549. !     Xt Intrinsics, but it can be linked with the R2 Xt. See the Imakefile for
  550. !     details.
  551.   
  552.   * automatic display update after directory modification
  553.   
  554. *** ../old/SFinternal.h    Wed Aug 30 16:23:12 1989
  555. --- SFinternal.h    Wed Aug 30 15:59:54 1989
  556. ***************
  557. *** 1,4 ****
  558. ! /* $Header: SFinternal.h,v 1.3 89/04/26 17:48:34 erik Exp $ */
  559.   
  560.   /*
  561.    * Copyright 1989 Software Research Associates, Inc., Tokyo, Japan
  562. --- 1,4 ----
  563. ! /* $Header: SFinternal.h,v 1.6 89/08/30 15:59:46 erik Exp $ */
  564.   
  565.   /*
  566.    * Copyright 1989 Software Research Associates, Inc., Tokyo, Japan
  567. ***************
  568. *** 23,31 ****
  569. --- 23,33 ----
  570.    *
  571.    * Author: Erik M. van der Poel
  572.    *         Software Research Associates, Inc., Tokyo, Japan
  573. +  *         erik@sra.co.jp
  574.    */
  575.   
  576.   #include <X11/Intrinsic.h>
  577. + #include <X11/Xos.h>
  578.   
  579.   #if defined(SEL_FILE_XW) || defined(SEL_FILE_XWTEXTEDIT)
  580.   #include <Xw/Xw.h>
  581. ***************
  582. *** 129,139 ****
  583. --- 131,145 ----
  584.   
  585.   extern int SFcurrentInvert[];
  586.   
  587. + #ifndef SEL_FILE_R2_XT
  588. + 
  589.   extern int SFworkProcAdded;
  590.   
  591.   extern Boolean SFworkProc();
  592.   
  593.   extern XtAppContext SFapp;
  594. + 
  595. + #endif /* ndef SEL_FILE_R2_XT */
  596.   
  597.   extern int SFpathScrollWidth, SFvScrollHeight, SFhScrollWidth;
  598.   
  599. *** ../old/SelFile.c    Wed Aug 30 16:23:15 1989
  600. --- SelFile.c    Wed Aug 30 16:01:26 1989
  601. ***************
  602. *** 1,5 ****
  603.   #ifndef lint
  604. ! static char rcsid[] = "$Header: SelFile.c,v 1.7 89/05/30 14:49:17 erik Exp $";
  605.   #endif
  606.   
  607.   /*
  608. --- 1,5 ----
  609.   #ifndef lint
  610. ! static char rcsid[] = "$Header: SelFile.c,v 1.12 89/08/30 16:00:17 erik Exp $";
  611.   #endif
  612.   
  613.   /*
  614. ***************
  615. *** 25,30 ****
  616. --- 25,31 ----
  617.    *
  618.    * Author: Erik M. van der Poel
  619.    *         Software Research Associates, Inc., Tokyo, Japan
  620. +  *         erik@sra.co.jp
  621.    */
  622.   
  623.   /*
  624. ***************
  625. *** 88,96 ****
  626.   #endif /* def SEL_FILE_JAPANESE */
  627.   #endif /* defined(SEL_FILE_XW) || defined(SEL_FILE_XWTEXTEDIT) */
  628.   
  629. ! #ifndef SYSV
  630.   extern char *getwd();
  631. ! #endif /* ndef SYSV */
  632.   
  633.   int SFstatus = SEL_FILE_NULL;
  634.   
  635. --- 89,101 ----
  636.   #endif /* def SEL_FILE_JAPANESE */
  637.   #endif /* defined(SEL_FILE_XW) || defined(SEL_FILE_XWTEXTEDIT) */
  638.   
  639. ! #ifndef MAXPATHLEN
  640. ! #define MAXPATHLEN 1024
  641. ! #endif /* ndef MAXPATHLEN */
  642. ! 
  643. ! #if !defined(SYSV) && !defined(USG)
  644.   extern char *getwd();
  645. ! #endif /* !defined(SYSV) && !defined(USG) */
  646.   
  647.   int SFstatus = SEL_FILE_NULL;
  648.   
  649. ***************
  650. *** 141,150 ****
  651. --- 146,159 ----
  652.   
  653.   int SFlistSize = 10;
  654.   
  655. + #ifndef SEL_FILE_R2_XT
  656. + 
  657.   int SFworkProcAdded = 0;
  658.   
  659.   XtAppContext SFapp;
  660.   
  661. + #endif /* ndef SEL_FILE_R2_XT */
  662. + 
  663.   int SFpathScrollWidth, SFvScrollHeight, SFhScrollWidth;
  664.   
  665.   #if defined(SEL_FILE_XW) || defined(SEL_FILE_XWTEXTEDIT)
  666. ***************
  667. *** 272,278 ****
  668. --- 281,303 ----
  669.   };
  670.   
  671.   #if defined(SEL_FILE_XW) || defined(SEL_FILE_XWTEXTEDIT)
  672. + 
  673. + #ifdef SEL_FILE_R2_XT
  674. + 
  675.   typedef struct {
  676. +     int    height;
  677. + } SFfieldData, *sfFieldPtr;
  678. + 
  679. + static XtResource SFfieldResources[] = {
  680. +     {
  681. +         XtNheight, XtCHeight, XtRInt, sizeof(int),
  682. +         XtOffset(sfFieldPtr, height), XtRString, "1"
  683. +     },
  684. + };
  685. + 
  686. + #else /* def SEL_FILE_R2_XT */
  687. + 
  688. + typedef struct {
  689.       Dimension    height;
  690.   } SFfieldData, *sfFieldPtr;
  691.   
  692. ***************
  693. *** 282,287 ****
  694. --- 307,315 ----
  695.           XtOffset(sfFieldPtr, height), XtRString, "1"
  696.       },
  697.   };
  698. + 
  699. + #endif /* def SEL_FILE_R2_XT */
  700. + 
  701.   #endif /* defined(SEL_FILE_XW) || defined(SEL_FILE_XWTEXTEDIT) */
  702.   
  703.   static int
  704. ***************
  705. *** 321,329 ****
  706. --- 349,367 ----
  707.   
  708.       i = 0;
  709.       XtSetArg(arglist[i], XtNallowShellResize, True);        i++;
  710. + 
  711. + #ifdef SEL_FILE_R2_XT
  712. + 
  713. +     selFile = XtCreateApplicationShell("selFile",
  714. +         applicationShellWidgetClass, arglist, i);
  715. + 
  716. + #else /* def SEL_FILE_R2_XT */
  717. + 
  718.       selFile = XtAppCreateShell("selFile", "SelFile",
  719.           applicationShellWidgetClass, SFdisplay, arglist, i);
  720.   
  721. + #endif /* def SEL_FILE_R2_XT */
  722. + 
  723.   #if defined(SEL_FILE_XW) || defined(SEL_FILE_XWFORM)
  724.       selFileForm = XtCreateManagedWidget("selFileForm",
  725.           XwformWidgetClass, selFile, (ArgList) NULL, 0);
  726. ***************
  727. *** 847,853 ****
  728. --- 885,896 ----
  729.           SFmodVerifyCallback, (caddr_t) NULL);
  730.   #endif /* defined(SEL_FILE_XW) || defined(SEL_FILE_XWTEXTEDIT) */
  731.   
  732. + #ifndef SEL_FILE_R2_XT
  733. + 
  734.       SFapp = XtWidgetToApplicationContext(selFile);
  735. + 
  736. + #endif /* ndef SEL_FILE_R2_XT */
  737. + 
  738.   }
  739.   
  740.   SFtextChanged()
  741. ***************
  742. *** 904,914 ****
  743. --- 947,961 ----
  744.   
  745.       }
  746.   
  747. + #ifndef SEL_FILE_R2_XT
  748. + 
  749.       if (!SFworkProcAdded) {
  750.           (void) XtAppAddWorkProc(SFapp, SFworkProc, NULL);
  751.           SFworkProcAdded = 1;
  752.       }
  753.   
  754. + #endif /* ndef SEL_FILE_R2_XT */
  755. + 
  756.       SFupdatePath();
  757.   }
  758.   
  759. ***************
  760. *** 927,934 ****
  761. --- 974,991 ----
  762.       XtUnmapWidget(selFile);
  763.       XtRemoveTimeOut(SFdirModTimerId);
  764.       if (SFchdir(SFstartDir)) {
  765. + 
  766. + #ifdef SEL_FILE_R2_XT
  767. + 
  768. +         XtError(
  769. + 
  770. + #else /* def SEL_FILE_R2_XT */
  771. + 
  772.           XtAppError(
  773.               SFapp,
  774. + 
  775. + #endif /* def SEL_FILE_R2_XT */
  776. + 
  777.               "XsraSelFile: can't return to current directory"
  778.           );
  779.       }
  780. ***************
  781. *** 985,991 ****
  782. --- 1042,1058 ----
  783.           SFcreateWidgets(prompt, ok, cancel);
  784.       } else {
  785.           if (display && (SFdisplay != display)) {
  786. + 
  787. + #ifdef SEL_FILE_R2_XT
  788. + 
  789. +             XtError("XsraSelFile: display different");
  790. + 
  791. + #else /* def SEL_FILE_R2_XT */
  792. + 
  793.               XtAppError(SFapp, "XsraSelFile: display different");
  794. + 
  795. + #endif /* def SEL_FILE_R2_XT */
  796. + 
  797.           }
  798.   
  799.           i = 0;
  800. ***************
  801. *** 1062,1075 ****
  802.           XtMapWidget(selFile);
  803.       }
  804.   
  805. ! #ifdef SYSV
  806.       if (!getwd(SFstartDir)) {
  807. !     /* if (!getcwd(SFstartDir, MAXPATHLEN)) { */
  808. ! #else /* def SYSV */
  809. !     if (!getwd(SFstartDir)) {
  810. ! #endif /* def SYSV */
  811.   
  812.           XtAppError(SFapp, "XsraSelFile: can't get current directory");
  813.       }
  814.       (void) strcat(SFstartDir, "/");
  815.       (void) strcpy(SFcurrentDir, SFstartDir);
  816. --- 1129,1150 ----
  817.           XtMapWidget(selFile);
  818.       }
  819.   
  820. ! #if defined(SYSV) || defined(USG)
  821. !     if (!getcwd(SFstartDir, MAXPATHLEN)) {
  822. ! #else /* defined(SYSV) || defined(USG) */
  823.       if (!getwd(SFstartDir)) {
  824. ! #endif /* defined(SYSV) || defined(USG) */
  825.   
  826. + #ifdef SEL_FILE_R2_XT
  827. + 
  828. +         XtError("XsraSelFile: can't get current directory");
  829. + 
  830. + #else /* def SEL_FILE_R2_XT */
  831. + 
  832.           XtAppError(SFapp, "XsraSelFile: can't get current directory");
  833. + 
  834. + #endif /* def SEL_FILE_R2_XT */
  835. + 
  836.       }
  837.       (void) strcat(SFstartDir, "/");
  838.       (void) strcpy(SFcurrentDir, SFstartDir);
  839. ***************
  840. *** 1101,1111 ****
  841. --- 1176,1205 ----
  842.   
  843.       XtAddGrab(selFile, True, True);
  844.   
  845. + #ifdef SEL_FILE_R2_XT
  846. + 
  847. +     SFdirModTimerId = XtAddTimeOut((unsigned long) 1000,
  848. + 
  849. + #else /* def SEL_FILE_R2_XT */
  850. + 
  851.       SFdirModTimerId = XtAppAddTimeOut(SFapp, (unsigned long) 1000,
  852. + 
  853. + #endif /* def SEL_FILE_R2_XT */
  854. + 
  855.           SFdirModTimer, (caddr_t) NULL);
  856.   
  857.       while (1) {
  858. + 
  859. + #ifdef SEL_FILE_R2_XT
  860. + 
  861. +         XtNextEvent(&event);
  862. + 
  863. + #else /* def SEL_FILE_R2_XT */
  864. + 
  865.           XtAppNextEvent(SFapp, &event);
  866. + 
  867. + #endif /* def SEL_FILE_R2_XT */
  868. + 
  869.           XtDispatchEvent(&event);
  870.           switch (SFstatus) {
  871.           case SEL_FILE_TEXT:
  872. *** ../old/SelFile.man    Wed Aug 30 16:23:17 1989
  873. --- SelFile.man    Wed Aug 30 16:01:46 1989
  874. ***************
  875. *** 1,4 ****
  876. ! .\" $Header: SelFile.man,v 1.3 89/04/24 22:27:00 erik Exp $
  877.   .\"
  878.   .\" Copyright 1989 Software Research Associates, Inc., Tokyo, Japan
  879.   .\"
  880. --- 1,4 ----
  881. ! .\" $Header: SelFile.man,v 1.4 89/08/30 16:01:31 erik Exp $
  882.   .\"
  883.   .\" Copyright 1989 Software Research Associates, Inc., Tokyo, Japan
  884.   .\"
  885. ***************
  886. *** 22,27 ****
  887. --- 22,28 ----
  888.   .\"
  889.   .\" Author: Erik M. van der Poel
  890.   .\"         Software Research Associates, Inc., Tokyo, Japan
  891. + .\"         erik@sra.co.jp
  892.   .\"
  893.   .TH XSRASELFILE 3X "April 24 1989" SRA
  894.   .SH NAME
  895. *** ../old/callback.c    Wed Aug 30 16:23:18 1989
  896. --- callback.c    Wed Aug 30 16:02:13 1989
  897. ***************
  898. *** 1,5 ****
  899.   #ifndef lint
  900. ! static char rcsid[] = "$Header: callback.c,v 1.2 89/05/29 15:06:48 erik Exp $";
  901.   #endif
  902.   
  903.   /*
  904. --- 1,5 ----
  905.   #ifndef lint
  906. ! static char rcsid[] = "$Header: callback.c,v 1.5 89/08/30 16:02:06 erik Exp $";
  907.   #endif
  908.   
  909.   /*
  910. ***************
  911. *** 25,34 ****
  912. --- 25,36 ----
  913.    *
  914.    * Author: Erik M. van der Poel
  915.    *         Software Research Associates, Inc., Tokyo, Japan
  916. +  *         erik@sra.co.jp
  917.    */
  918.   
  919.   #include <stdio.h>
  920.   #include <X11/Intrinsic.h>
  921. + #include <X11/Xos.h>
  922.   #include <sys/stat.h>
  923.   
  924.   extern char *re_comp();
  925. ***************
  926. *** 55,61 ****
  927.   {
  928.       static char    shown[256];
  929.   
  930. !     switch (match("^..*\.plt$", realFileName)) {
  931.       case 0:
  932.       case -1:
  933.       default:
  934. --- 57,63 ----
  935.   {
  936.       static char    shown[256];
  937.   
  938. !     switch (match("^..*\\.plt$", realFileName)) {
  939.       case 0:
  940.       case -1:
  941.       default:
  942. ***************
  943. *** 69,75 ****
  944.           return 1;
  945.       }
  946.   
  947. !     switch (match("^..*\.xy$", realFileName)) {
  948.       case 0:
  949.       case -1:
  950.       default:
  951. --- 71,77 ----
  952.           return 1;
  953.       }
  954.   
  955. !     switch (match("^..*\\.xy$", realFileName)) {
  956.       case 0:
  957.       case -1:
  958.       default:
  959. ***************
  960. *** 78,84 ****
  961.           return 0;
  962.       }
  963.   
  964. !     switch (match("^..*\.z$", realFileName)) {
  965.       case 0:
  966.       case -1:
  967.       default:
  968. --- 80,86 ----
  969.           return 0;
  970.       }
  971.   
  972. !     switch (match("^..*\\.z$", realFileName)) {
  973.       case 0:
  974.       case -1:
  975.       default:
  976. *** ../old/patchlevel.h    Wed Aug 30 16:26:33 1989
  977. --- patchlevel.h    Fri Jul 21 15:20:40 1989
  978. ***************
  979. *** 0 ****
  980. --- 1 ----
  981. + #define PATCHLEVEL 1
  982. *** ../old/xdir.c    Wed Aug 30 16:23:19 1989
  983. --- xdir.c    Wed Aug 30 16:02:46 1989
  984. ***************
  985. *** 1,5 ****
  986.   #ifndef lint
  987. ! static char rcsid[] = "$Header: xdir.c,v 1.3 89/05/29 15:07:10 erik Exp $";
  988.   #endif
  989.   
  990.   /*
  991. --- 1,5 ----
  992.   #ifndef lint
  993. ! static char rcsid[] = "$Header: xdir.c,v 1.4 89/08/30 16:02:39 erik Exp $";
  994.   #endif
  995.   
  996.   /*
  997. ***************
  998. *** 25,30 ****
  999. --- 25,31 ----
  1000.    *
  1001.    * Author: Erik M. van der Poel
  1002.    *         Software Research Associates, Inc., Tokyo, Japan
  1003. +  *         erik@sra.co.jp
  1004.    */
  1005.   
  1006.   #include <stdio.h>
  1007.