home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / alt / sources / 2557 < prev    next >
Encoding:
Text File  |  1992-11-18  |  50.1 KB  |  1,898 lines
  1. Newsgroups: alt.sources
  2. Path: sparky!uunet!haven.umd.edu!darwin.sura.net!sgiblab!munnari.oz.au!manuel.anu.edu.au!csc.canberra.edu.au!pandonia!jan
  3. From: jan@pandonia.canberra.edu.au (Jan Newmarch)
  4. Subject: X11/Motif file manager - part 03 of 17
  5. Message-ID: <1992Nov19.052217.25569@csc.canberra.edu.au>
  6. Sender: news@csc.canberra.edu.au
  7. Organization: University of Canberra
  8. Date: Thu, 19 Nov 92 05:22:17 GMT
  9. Lines: 1887
  10.  
  11.  
  12.  
  13. #!/bin/sh
  14. # this is part.03 (part 3 of a multipart archive)
  15. # do not concatenate these parts, unpack them in order with /bin/sh
  16. # file xmfm/DirMgr.c continued
  17. #
  18. if test ! -r _shar_seq_.tmp; then
  19.     echo 'Please unpack part 1 first!'
  20.     exit 1
  21. fi
  22. (read Scheck
  23.  if test "$Scheck" != 3; then
  24.     echo Please unpack part "$Scheck" next!
  25.     exit 1
  26.  else
  27.     exit 0
  28.  fi
  29. ) < _shar_seq_.tmp || exit 1
  30. if test ! -f _shar_wnt_.tmp; then
  31.     echo 'x - still skipping xmfm/DirMgr.c'
  32. else
  33. echo 'x - continuing file xmfm/DirMgr.c'
  34. sed 's/^X//' << 'SHAR_EOF' >> 'xmfm/DirMgr.c' &&
  35. X
  36. X                     F I L T E R    R O U T I N E S
  37. X
  38. X *---------------------------------------------------------------------------*/
  39. X
  40. int DirectoryMgrFilterName
  41. #ifdef UseFunctionPrototypes
  42. X    (DirEntry *de, char *fsm)
  43. #else
  44. X    (de,fsm)
  45. DirEntry *de;
  46. char *fsm;
  47. X
  48. #endif
  49. {
  50. #ifndef    NO_REGEXP
  51. X    return(RegExpMatch(DirEntryFileName(de),fsm));
  52. #else
  53. X    return(TRUE);
  54. #endif
  55. } /* End DirectoryMgrFilterName */
  56. SHAR_EOF
  57. echo 'File xmfm/DirMgr.c is complete' &&
  58. chmod 0644 xmfm/DirMgr.c ||
  59. echo 'restore of xmfm/DirMgr.c failed'
  60. Wc_c="`wc -c < 'xmfm/DirMgr.c'`"
  61. test 12374 -eq "$Wc_c" ||
  62.     echo 'xmfm/DirMgr.c: original size 12374, current size' "$Wc_c"
  63. rm -f _shar_wnt_.tmp
  64. fi
  65. # ============= xmfm/Directory.c ==============
  66. if test -f 'xmfm/Directory.c' -a X"$1" != X"-c"; then
  67.     echo 'x - skipping xmfm/Directory.c (File already exists)'
  68.     rm -f _shar_wnt_.tmp
  69. else
  70. > _shar_wnt_.tmp
  71. echo 'x - extracting xmfm/Directory.c (Text)'
  72. sed 's/^X//' << 'SHAR_EOF' > 'xmfm/Directory.c' &&
  73. /****************************************************************************
  74. X
  75. X        Directory.c
  76. X
  77. X    This file contains the C code that implements the directory
  78. X    iteration and file information subsystem.
  79. X
  80. X    This code is intended to be used as a convenient, machine
  81. X    independent interface to iterate through the contents of a
  82. X    directory.
  83. X
  84. X ****************************************************************************/
  85. X
  86. #include "Directory.h"
  87. #include "RegExp.h"
  88. X
  89. /*--------------------------------------------------------------------------*
  90. X
  91. X        L O W    L E V E L    D I R E C T O R Y    I N T E R F A C E
  92. X
  93. X *--------------------------------------------------------------------------*/
  94. X
  95. int DirectoryOpen
  96. #ifdef UseFunctionPrototypes
  97. X    (char *dir_name, Directory *dp)
  98. #else
  99. X    (dir_name,dp)
  100. char *dir_name;
  101. Directory *dp;
  102. X
  103. #endif
  104. {
  105. X    DirectoryDir(dp) = opendir(dir_name);
  106. X    if (DirectoryDir(dp) == NULL) return(FALSE);
  107. X    if (DirectoryPathExpand(dir_name,DirectoryPath(dp)) == NULL)
  108. X    {
  109. X        closedir(DirectoryDir(dp));
  110. X        return(FALSE);
  111. X    }
  112. X    return(TRUE);
  113. } /* End DirectoryOpen */
  114. X
  115. X
  116. void DirectoryRestart
  117. #ifdef UseFunctionPrototypes
  118. X    (Directory *dp)
  119. #else
  120. X    (dp)
  121. Directory *dp;
  122. X
  123. #endif
  124. {
  125. X    rewinddir(DirectoryDir(dp));
  126. } /* End DirectoryRestart */
  127. X
  128. X
  129. void DirectoryClose
  130. #ifdef UseFunctionPrototypes
  131. X    (Directory *dp)
  132. #else
  133. X    (dp)
  134. Directory *dp;
  135. X
  136. #endif
  137. {
  138. X    closedir(DirectoryDir(dp));
  139. } /* End DirectoryClose */
  140. X
  141. X
  142. long DirectoryTellPosition
  143. #ifdef UseFunctionPrototypes
  144. X    (Directory *dp)
  145. #else
  146. X    (dp)
  147. Directory *dp;
  148. X
  149. #endif
  150. {
  151. X    return(telldir(DirectoryDir(dp)));
  152. } /* End DirectoryTellPosition */
  153. X
  154. X
  155. void DirectorySetPosition
  156. #ifdef UseFunctionPrototypes
  157. X    (Directory *dp, long int pos)
  158. #else
  159. X    (dp,pos)
  160. Directory *dp;
  161. long pos;
  162. X
  163. #endif
  164. {
  165. X    seekdir(dp,pos);
  166. } /* End DirectorySetPosition */
  167. X
  168. X
  169. int DirectoryReadNextEntry
  170. #ifdef UseFunctionPrototypes
  171. X    (Directory *dp, DirEntry *de)
  172. #else
  173. X    (dp,de)
  174. Directory *dp;
  175. DirEntry *de;
  176. X
  177. #endif
  178. {
  179. X    u_short orig_file_type;
  180. X    static struct dirent *_ep;
  181. X    static struct stat _lstats,_stats,_dstats;
  182. X    char full_path[MAXPATHLEN + 2];
  183. X    char temp_path[MAXPATHLEN + 2];
  184. X
  185. X    _ep = readdir(DirectoryDir(dp));
  186. X    if (_ep == NULL) return(FALSE);
  187. X    strcpy(DirEntryFileName(de),_ep->d_name);
  188. X    strcpy(full_path,DirectoryPath(dp));
  189. X    strcat(full_path,DirEntryFileName(de));
  190. X
  191. X    if (lstat(full_path,&_lstats) != 0) return(FALSE);
  192. X
  193. X    orig_file_type = _lstats.st_mode & S_IFMT;
  194. X    switch (orig_file_type)
  195. X    {
  196. X        case S_IFDIR:
  197. X        DirEntryType(de) = F_TYPE_DIR;
  198. X        break;
  199. X        case S_IFREG:
  200. X        DirEntryType(de) = F_TYPE_FILE;
  201. X        break;
  202. X        case S_IFCHR:
  203. X        DirEntryType(de) = F_TYPE_CHAR_SPECIAL;
  204. X        break;
  205. X        case S_IFBLK:
  206. X        DirEntryType(de) = F_TYPE_BLOCK_SPECIAL;
  207. X        break;
  208. X        case S_IFLNK:
  209. X        DirEntryType(de) = F_TYPE_SYM_LINK;
  210. X        break;
  211. X        case S_IFSOCK:
  212. X        DirEntryType(de) = F_TYPE_SOCKET;
  213. X        break;
  214. #ifdef S_IFIFO
  215. X        case S_IFIFO:
  216. X        DirEntryType(de) = F_TYPE_FIFO;
  217. X        break;
  218. #endif
  219. X        default:
  220. X        DirEntryType(de) = orig_file_type;
  221. X        break;
  222. X    }
  223. X
  224. X    DirEntryIsBrokenLink(de) = FALSE;
  225. X    DirEntryIsDirectoryLink(de) = FALSE;
  226. X    if (DirEntryIsSymLink(de))            /* Symbolic Link */
  227. X    {
  228. X        if (stat(full_path,&_stats) != 0)    /* Can't Stat File */
  229. X        {
  230. X            DirEntryIsBrokenLink(de) = TRUE;
  231. X            _stats = _lstats;
  232. X        }
  233. X            else                /* Link Not Broken */
  234. X        {
  235. #ifdef SLOW_DIRLINK_TEST
  236. X            if (DirectoryPathExpand(full_path,temp_path) != NULL)
  237. X            {
  238. #else
  239. X            if ((_stats.st_mode & S_IFMT) == S_IFDIR)
  240. X            {
  241. #endif
  242. X                DirEntryIsDirectoryLink(de) = TRUE;
  243. X            }
  244. X
  245. X        }
  246. X    }
  247. X        else                    /* Not Symbolic Link */
  248. X    {
  249. X        _stats = _lstats;
  250. X    }
  251. X
  252. X    FileInfoOrigMode(DirEntrySelfInfo(de)) = _lstats.st_mode;
  253. X    FileInfoProt(DirEntrySelfInfo(de)) = _lstats.st_mode & 0777;
  254. X    FileInfoUserID(DirEntrySelfInfo(de)) = _lstats.st_uid;
  255. X    FileInfoGroupID(DirEntrySelfInfo(de)) = _lstats.st_gid;
  256. X    FileInfoFileSize(DirEntrySelfInfo(de)) = _lstats.st_size;
  257. X    FileInfoLastAccess(DirEntrySelfInfo(de)) = _lstats.st_atime;
  258. X    FileInfoLastModify(DirEntrySelfInfo(de)) = _lstats.st_mtime;
  259. X    FileInfoLastStatusChange(DirEntrySelfInfo(de)) = _lstats.st_ctime;
  260. X
  261. X    FileInfoOrigMode(DirEntryActualInfo(de)) = _stats.st_mode;
  262. X    FileInfoProt(DirEntryActualInfo(de)) = _stats.st_mode & 0777;
  263. X    FileInfoUserID(DirEntryActualInfo(de)) = _stats.st_uid;
  264. X    FileInfoGroupID(DirEntryActualInfo(de)) = _stats.st_gid;
  265. X    FileInfoFileSize(DirEntryActualInfo(de)) = _stats.st_size;
  266. X    FileInfoLastAccess(DirEntryActualInfo(de)) = _stats.st_atime;
  267. X    FileInfoLastModify(DirEntryActualInfo(de)) = _stats.st_mtime;
  268. X    FileInfoLastStatusChange(DirEntryActualInfo(de)) = _stats.st_ctime;
  269. X
  270. X    return(TRUE);
  271. } /* End DirectoryReadNextEntry */
  272. X
  273. X
  274. char *DirectoryPathExpand
  275. #ifdef UseFunctionPrototypes
  276. X    (char *old_path, char *new_path)
  277. #else
  278. X    (old_path,new_path)
  279. char *old_path,*new_path;
  280. X
  281. #endif
  282. {
  283. X    register char *p;
  284. X    char path[MAXPATHLEN + 2];
  285. X
  286. X    if (getwd(path) == NULL) return(NULL);
  287. X    if (chdir(old_path) != 0) return(NULL);
  288. X    if (getwd(new_path) == NULL) strcpy(new_path,old_path);
  289. X    if (chdir(path) != 0) return(NULL);
  290. X    for (p = new_path; *p != '\0'; p++);
  291. X    if ((p != new_path) && *(p - 1) != '/')
  292. X    {
  293. X        *p++ = '/';
  294. X        *p = '\0';
  295. X    }
  296. X    return(new_path);
  297. } /* End DirectoryPathExpand */
  298. X
  299. X
  300. /*---------------------------------------------------------------------------*
  301. X
  302. X             D I R E C T O R Y    E N T R Y    R O U T I N E S
  303. X
  304. X *---------------------------------------------------------------------------*/
  305. X
  306. void DirEntryDump
  307. #ifdef UseFunctionPrototypes
  308. X    (FILE *fp, DirEntry *de)
  309. #else
  310. X    (fp,de)
  311. FILE *fp;
  312. DirEntry *de;
  313. X
  314. #endif
  315. {
  316. X    fprintf(fp,"%20s, Size %7d, Prot %3o\n",
  317. X        DirEntryFileName(de),DirEntryFileSize(de),DirEntryProt(de));
  318. } /* End DirEntryDump */
  319. SHAR_EOF
  320. chmod 0644 xmfm/Directory.c ||
  321. echo 'restore of xmfm/Directory.c failed'
  322. Wc_c="`wc -c < 'xmfm/Directory.c'`"
  323. test 5543 -eq "$Wc_c" ||
  324.     echo 'xmfm/Directory.c: original size 5543, current size' "$Wc_c"
  325. rm -f _shar_wnt_.tmp
  326. fi
  327. # ============= xmfm/RegExp.c ==============
  328. if test -f 'xmfm/RegExp.c' -a X"$1" != X"-c"; then
  329.     echo 'x - skipping xmfm/RegExp.c (File already exists)'
  330.     rm -f _shar_wnt_.tmp
  331. else
  332. > _shar_wnt_.tmp
  333. echo 'x - extracting xmfm/RegExp.c (Text)'
  334. sed 's/^X//' << 'SHAR_EOF' > 'xmfm/RegExp.c' &&
  335. /****************************************************************************
  336. X
  337. X    RegExp.c
  338. X
  339. X    This file contains the C code for the regular expression
  340. X    matching code.
  341. X
  342. X    The routines supported act as a more friendly, user level
  343. X    interface to the regexp regular expression matching system.
  344. X
  345. X ****************************************************************************/
  346. X
  347. #include "RegExp.h"
  348. #ifndef NO_REGEXP
  349. #include <regexp.h>
  350. #endif
  351. X
  352. void RegExpCompile
  353. #ifdef UseFunctionPrototypes
  354. X    (char *regexp, char *fsm_ptr, int fsm_length)
  355. #else
  356. X    (regexp,fsm_ptr,fsm_length)
  357. char *regexp,*fsm_ptr;
  358. int fsm_length;
  359. X
  360. #endif
  361. {
  362. #ifndef NO_REGEXP
  363. X    compile(regexp,fsm_ptr,&(fsm_ptr[fsm_length]),'\0');
  364. #endif
  365. } /* End RegExpCompile */
  366. X
  367. X
  368. int RegExpMatch
  369. #ifdef UseFunctionPrototypes
  370. X    (char *string, char *fsm_ptr)
  371. #else
  372. X    (string,fsm_ptr)
  373. char *string,*fsm_ptr;
  374. X
  375. #endif
  376. {
  377. #ifndef NO_REGEXP
  378. X    if (advance(string,fsm_ptr) != 0)
  379. X        return(TRUE);
  380. X        else
  381. X        return(FALSE);
  382. #else
  383. X    return(TRUE);
  384. #endif
  385. } /* End RegExpMatch */
  386. X
  387. X
  388. void _RegExpError
  389. #ifdef UseFunctionPrototypes
  390. X    (int val)
  391. #else
  392. X    (val)
  393. int val;
  394. X
  395. #endif
  396. {
  397. X    fprintf(stderr,"Regular Expression Error %d\n",val);
  398. X    exit(-1);
  399. } /* End _RegExpError */
  400. X
  401. X
  402. void RegExpPatternToRegExp
  403. #ifdef UseFunctionPrototypes
  404. X    (char *pattern, char *reg_exp)
  405. #else
  406. X    (pattern,reg_exp)
  407. char *pattern,*reg_exp;
  408. X
  409. #endif
  410. {
  411. X    int in_bracket;
  412. X
  413. X    in_bracket = 0;
  414. X    while (*pattern != '\0')
  415. X    {
  416. X        if (in_bracket)
  417. X        {
  418. X            if (*pattern == ']') in_bracket = 0;
  419. X            *reg_exp++ = *pattern++;
  420. X        }
  421. X            else
  422. X        {
  423. X            switch (*pattern)
  424. X            {
  425. X                case '[':
  426. X                in_bracket = 1;
  427. X                *reg_exp++ = '[';
  428. X                break;
  429. X                case '?':
  430. X                *reg_exp++ = '.';
  431. X                break;
  432. X                case '*':
  433. X                *reg_exp++ = '.';
  434. X                *reg_exp++ = '*';
  435. X                break;
  436. X                case '.':
  437. X                *reg_exp++ = '\\';
  438. X                *reg_exp++ = '.';
  439. X                break;
  440. X                default:
  441. X                *reg_exp++ = *pattern;
  442. X                break;
  443. X            }
  444. X            ++ pattern;
  445. X        }
  446. X    }
  447. X    *reg_exp++ = '$';
  448. X    *reg_exp++ = '\0';
  449. } /* End RegExpPatternToRegExp */
  450. SHAR_EOF
  451. chmod 0644 xmfm/RegExp.c ||
  452. echo 'restore of xmfm/RegExp.c failed'
  453. Wc_c="`wc -c < 'xmfm/RegExp.c'`"
  454. test 1948 -eq "$Wc_c" ||
  455.     echo 'xmfm/RegExp.c: original size 1948, current size' "$Wc_c"
  456. rm -f _shar_wnt_.tmp
  457. fi
  458. # ============= xmfm/applicat.c ==============
  459. if test -f 'xmfm/applicat.c' -a X"$1" != X"-c"; then
  460.     echo 'x - skipping xmfm/applicat.c (File already exists)'
  461.     rm -f _shar_wnt_.tmp
  462. else
  463. > _shar_wnt_.tmp
  464. echo 'x - extracting xmfm/applicat.c (Text)'
  465. sed 's/^X//' << 'SHAR_EOF' > 'xmfm/applicat.c' &&
  466. /*************************************************************************
  467. X * File: $Source: /usr/usrs/xsource/xmfm/RCS/applicat.c,v $
  468. X * Author: Jan Newmarch
  469. X * Last modified: $Date: 1992/11/17 00:35:34 $
  470. X * Version: $Revision: 1.10 $
  471. X * Purpose: Create the application windows and set up callbacks
  472. X *
  473. X * Revision history:
  474. X *    4 Aug 92    added filter stuff to ResetFilesInPanes
  475. X *    4 Aug 92    added R5 hooks to allow editres to look at this applic
  476. X *    5 Aug 92    put Toolbars in scrolled windows, 
  477. X *            to stop clipping on resize
  478. X *    5 Aug 92    set dir label above panes only, instead of across form
  479. X *    6 Aug 92    removed scrolled windows from Toolbars,
  480. X *            reset dir label as before. let left edge of
  481. X *            toolbars be free
  482. X *    16 Oct 92    caddr_t changed to XtPointer
  483. X *       3 Nov 92       lint-ed
  484. X *    11 Nov 92    follow symbolic links to show dirs as dirs, not files.
  485. X *            Moved Rogers drag 'n drop to drag.c
  486. X ************************************************************************/ 
  487. X
  488. #include "copyright.h"
  489. X
  490. /*************************************************************************
  491. X * System includes
  492. X ************************************************************************/ 
  493. #include <sys/types.h>
  494. #include <sys/stat.h>
  495. X
  496. /*************************************************************************
  497. X * Local includes
  498. X ************************************************************************/ 
  499. #include "xmvararg.h"
  500. #include "DirMgr.h"
  501. #include "const.h"
  502. #include "types.h"
  503. X
  504. #ifdef RDD
  505. #include "rdd.h"
  506. #endif /* RDD */
  507. X
  508. /*************************************************************************
  509. X * Functions exported
  510. X ************************************************************************/ 
  511. extern Widget CreateApplication (
  512. #ifdef UseFunctionPrototypes
  513. X    Widget parent
  514. #endif
  515. );
  516. extern void ResetFilesInPanes (
  517. #ifdef UseFunctionPrototypes
  518. X    dir_pane_info *dpi
  519. #endif
  520. );
  521. extern void ClearToolbar (
  522. #ifdef UseFunctionPrototypes
  523. X    Widget *toolbar
  524. #endif
  525. );
  526. X
  527. /*************************************************************************
  528. X * Variables exported
  529. X ************************************************************************/ 
  530. X
  531. /*************************************************************************
  532. X * Extern functions
  533. X ************************************************************************/ 
  534. extern Widget CreateMenu (
  535. #ifdef UseFunctionPrototypes
  536. X    Widget parent, XtPointer user_data
  537. #endif
  538. );
  539. extern void FileButtonPressedCB (
  540. #ifdef UseFunctionPrototypes
  541. X    Widget w, XtPointer client_data, XtPointer call_data
  542. #endif
  543. );
  544. extern void FileButtonReleasedCB (
  545. #ifdef UseFunctionPrototypes
  546. X    Widget w, XtPointer client_data, XtPointer call_data
  547. #endif
  548. );
  549. extern void FileToolButtonPressedCB (
  550. #ifdef UseFunctionPrototypes
  551. X    Widget w, XtPointer client_data, XtPointer call_data
  552. #endif
  553. );
  554. X
  555. #ifdef ALLOW_EDITRES
  556. extern void _XEditResCheckMessages ();
  557. #endif /* ALLOW_EDITRES */
  558. X
  559. #ifdef MOTIF_DD
  560. extern  void MotifDDRegisterToolbar (
  561. #ifdef UseFunctionPrototypes
  562. X    Widget button
  563. #endif
  564. );
  565. #endif /* MOTIF_DD */
  566. X
  567. #ifdef RDD
  568. extern void DirDrop (
  569. #ifdef UseFunctionPrototypes
  570. X    Widget w, XtPointer call, XtPointer client_data
  571. #endif
  572. );
  573. extern void ExecutableDrop (
  574. #ifdef UseFunctionPrototypes
  575. X    Widget w, XtPointer call, XtPointer client_data
  576. #endif
  577. );
  578. extern void MainWindowDrop (
  579. #ifdef UseFunctionPrototypes
  580. X    Widget w, XtPointer call, XtPointer client_data
  581. #endif
  582. );
  583. extern void ToolbarDrop (
  584. #ifdef UseFunctionPrototypes
  585. X    Widget w, XtPointer call, XtPointer client_data
  586. #endif
  587. );
  588. #endif /* RDD */
  589. X
  590. /*************************************************************************
  591. X * Extern variables
  592. X ************************************************************************/ 
  593. extern GC gc;
  594. extern GC gc_reversed;
  595. extern file_action *actions;
  596. X
  597. #ifdef RDD
  598. extern XtTranslations trans_table;
  599. #endif /* RDD */
  600. X
  601. #ifdef MOTIF_DD
  602. extern XtTranslations trans_table;
  603. #endif /* MOTIF_DD */
  604. X
  605. /*************************************************************************
  606. X * Forward functions
  607. X ************************************************************************/ 
  608. Widget CreateApplication (
  609. #ifdef UseFunctionPrototypes
  610. X    Widget parent
  611. #endif
  612. );    /*  create main window        */ 
  613. DirectoryMgr *GetFilesInDir (
  614. #ifdef UseFunctionPrototypes
  615. X    void
  616. #endif
  617. );
  618. X
  619. X
  620. /*************************************************************************
  621. X * Local variables
  622. X ************************************************************************/ 
  623. XXmString empty_string;
  624. X
  625. X
  626. /* #define SIZE_KLUDGE */
  627. X
  628. X
  629. /*************************************************************************
  630. X * Function: SetGeometry ()
  631. X * Purpose: set the geometry of components in the form
  632. X * In parameters: directory_label, files_toolbar, dirs_toobar, pane
  633. X * Function result:
  634. X * Precondition: all args are non-null children of a form
  635. X * Postcondition: all args are set in the following geometry
  636. X *        --------------------------
  637. X *             |               dir label  |
  638. X *             |--------------------------|
  639. X *             | files       |            |
  640. X *             | toolbar     |  pane      |
  641. X *             |-------------|            |
  642. X *             | dirs        |            |
  643. X *             | toolbar     |            |
  644. X *              --------------------------
  645. X ************************************************************************/ 
  646. static void
  647. SetGeometry 
  648. #ifdef UseFunctionPrototypes
  649. X    (Widget directory_label, Widget files_toolbar, Widget dirs_toolbar, Widget pane)
  650. #else
  651. X    (directory_label, files_toolbar, dirs_toolbar, pane)
  652. X    Widget directory_label;
  653. X    Widget files_toolbar;
  654. X    Widget dirs_toolbar;
  655. X    Widget pane;
  656. X
  657. #endif
  658. {
  659. X    XtVaSetValues (directory_label,
  660. X            XmNtopAttachment,    (XtArgVal) XmATTACH_FORM,
  661. X            XmNleftAttachment,    (XtArgVal) XmATTACH_FORM,
  662. X            XmNrightAttachment,    (XtArgVal) XmATTACH_FORM,
  663. X            NULL);
  664. X
  665. X    XtVaSetValues (files_toolbar,
  666. X            XmNtopAttachment,    (XtArgVal) XmATTACH_WIDGET,
  667. X            XmNtopWidget,        (XtArgVal) directory_label,
  668. X            XmNleftAttachment,    (XtArgVal) XmATTACH_FORM,
  669. X            XmNbottomAttachment,    (XtArgVal) XmATTACH_POSITION,
  670. X            XmNbottomPosition,    (XtArgVal) 45,
  671. X            NULL);
  672. X
  673. X    XtVaSetValues (dirs_toolbar,
  674. X            XmNtopAttachment,    (XtArgVal) XmATTACH_POSITION,
  675. X            XmNtopPosition,        (XtArgVal) 50,
  676. X            XmNleftAttachment,    (XtArgVal) XmATTACH_FORM,
  677. X                        XmNbottomAttachment,    (XtArgVal) XmATTACH_FORM,
  678. X            NULL);
  679. X
  680. X    XtVaSetValues (pane,
  681. X            XmNtopAttachment,    (XtArgVal) XmATTACH_WIDGET,
  682. X            XmNtopWidget,        (XtArgVal) directory_label,
  683. X            XmNleftAttachment,    (XtArgVal) XmATTACH_WIDGET,
  684. X            XmNleftWidget,        (XtArgVal) files_toolbar,
  685. X            XmNrightAttachment,    (XtArgVal) XmATTACH_FORM,
  686. X            XmNbottomAttachment,    (XtArgVal) XmATTACH_FORM,
  687. X            NULL);
  688. }
  689. X
  690. /*************************************************************************
  691. X * Function: CreateFilesToolbar ()
  692. X * Purpose: create the files toolbar and populate it with toolbar buttons
  693. X * In parameters: form, dpi
  694. X * Function result: files toolbar widget
  695. X * Precondition: form is non-null
  696. X * Postcondition: toolbar + buttons created, each button has dpi in user data
  697. X ************************************************************************/ 
  698. static Widget
  699. CreateFilesToolbar 
  700. #ifdef UseFunctionPrototypes
  701. X    (Widget form, dir_pane_info *dpi)
  702. #else
  703. X    (form, dpi)
  704. X    Widget form;
  705. X    dir_pane_info *dpi;
  706. X
  707. #endif
  708. {
  709. X    Widget    button,
  710. X        files_toolbar,
  711. X        *files_toolbar_buttons;
  712. X    int     i;
  713. X    tool_button_info *tbi;
  714. X        
  715. X    files_toolbar_buttons = (Widget *) XtMalloc (sizeof (Widget) *
  716. X                        FILES_TOOLBAR_SIZE);
  717. X    dpi -> files_toolbar = files_toolbar_buttons;
  718. X
  719. X    files_toolbar = XmVaCreateRowColumn (form, "files_toolbar",
  720. X            XmNpacking,        (XtArgVal) XmPACK_COLUMN,
  721. X            XmNorientation,        (XtArgVal) XmHORIZONTAL,
  722. #ifdef SIZE_KLUDGE
  723. X            /* set to 4 when we only show 3 is because of
  724. X               dummy widget in 4th row */
  725. X            XmNnumColumns,         (XtArgVal) 4,
  726. #else
  727. X                        XmNnumColumns,          (XtArgVal) 3,
  728. #endif /*SIZE_KLUDGE*/
  729. X            XmNadjustLast,        (XtArgVal) False,
  730. X            NULL);
  731. X    XtManageChild (files_toolbar);
  732. X
  733. X    for (i = 0; i < FILES_TOOLBAR_SIZE; i++)
  734. X    {
  735. X        tbi = (tool_button_info *) XtMalloc (sizeof (tool_button_info));
  736. X        tbi -> dpi = dpi;
  737. X
  738. X        button =
  739. X        files_toolbar_buttons[i] =
  740. X            XmVaCreatePushButton (files_toolbar, "file_button",
  741. X                XmNlabelString, (XtArgVal) empty_string,
  742. X                XmNuserData, (XtArgVal) tbi,
  743. X                NULL);
  744. X        XtAddCallback (button,
  745. X            XmNactivateCallback, FileToolButtonPressedCB,
  746. X            NULL);
  747. X        XtManageChild (button);
  748. X        XtSetSensitive (button, False);
  749. X
  750. #ifdef RDD
  751. X        rddAddDropHandler (button,
  752. X                ToolbarDrop, NULL);
  753. #endif /* RDD */
  754. X
  755. #ifdef MOTIF_DD
  756. X                MotifDDRegisterToolbar (button);
  757. #endif /* MOTIF_DD */
  758. X    }
  759. X
  760. #ifdef SIZE_KLUDGE
  761. X    {    /* kludge to force the row column to give
  762. X           us the size buttons we want.  It doesn't
  763. X           tamper with the size of DrawButtons
  764. X        */
  765. X
  766. X         Widget dummy;
  767. X        dummy = XmVaCreateDrawnButton (files_toolbar, "dummy",
  768. X                XmNmappedWhenManaged, (XtArgVal) False,
  769. X                NULL);
  770. X        XtManageChild (dummy);
  771. X    }
  772. #endif /*SIZE_KLUDGE */
  773. X
  774. X    return files_toolbar;
  775. }
  776. X
  777. /*************************************************************************
  778. X * Function: ClearToolbar ()
  779. X * Purpose: empty out the files toolbar of any actions
  780. X * In parameters: toolbar
  781. X * Function result: 
  782. X * Precondition: 
  783. X * Postcondition: all toolbar buttons show empty string
  784. X ************************************************************************/ 
  785. void
  786. ClearToolbar 
  787. #ifdef UseFunctionPrototypes
  788. X    (Widget *toolbar)
  789. #else
  790. X    (toolbar)
  791. X    Widget *toolbar;
  792. X
  793. #endif
  794. {
  795. X    int i;
  796. X    
  797. X    for (i = 0; i < FILES_TOOLBAR_SIZE; i++)
  798. X    {
  799. X        if ( !XtIsSensitive (*toolbar))
  800. X            return;    
  801. X        XtVaSetValues (*toolbar,
  802. X                XmNlabelString, empty_string,
  803. X                NULL);
  804. X        XtSetSensitive (*toolbar, False);
  805. X        toolbar++;
  806. X    }
  807. }
  808. X
  809. /*************************************************************************
  810. X * Function: CreateDirsToolbar ()
  811. X * Purpose: create the dirs toolbar and populate it with toolbar buttons
  812. X * In parameters: form, dpi
  813. X * Function result: dirs toolbar widget
  814. X * Precondition: form is non-null
  815. X * Postcondition: toolbar + buttons created, each button has dpi in user data
  816. X ************************************************************************/ 
  817. static Widget
  818. CreateDirsToolbar 
  819. #ifdef UseFunctionPrototypes
  820. X    (Widget form, dir_pane_info *dpi)
  821. #else
  822. X    (form, dpi)
  823. X    Widget form;
  824. X    dir_pane_info *dpi;
  825. X
  826. #endif
  827. {
  828. X    Widget    button,
  829. X        dirs_toolbar,
  830. X        *dirs_toolbar_buttons;
  831. X    int    i;
  832. X    tool_button_info *tbi;
  833. X
  834. X    dirs_toolbar_buttons = (Widget *) XtMalloc (sizeof (Widget) *
  835. X                        DIRS_TOOLBAR_SIZE);
  836. X    dpi -> dirs_toolbar = dirs_toolbar_buttons;
  837. X
  838. X    dirs_toolbar = XmVaCreateRowColumn (form, "dirs_toolbar",
  839. X            XmNpacking,        (XtArgVal) XmPACK_COLUMN,
  840. X            XmNorientation,        (XtArgVal) XmHORIZONTAL,
  841. #ifdef SIZE_KLUDGE
  842. X            /* set to 4 when we only show 3 is because of
  843. X               dummy widget in 4th row */
  844. X            XmNnumColumns,         (XtArgVal) 4,
  845. #else
  846. X                        XmNnumColumns,          (XtArgVal) 3,
  847. #endif /*SIZE_KLUDGE*/
  848. X                        XmNadjustLast,           (XtArgVal) False,
  849. X            NULL);
  850. X    XtManageChild (dirs_toolbar);
  851. X
  852. X    for (i = 0; i < DIRS_TOOLBAR_SIZE; i++)
  853. X    {    tbi = (tool_button_info *) XtMalloc (sizeof (tool_button_info));
  854. X        tbi -> dpi = dpi;
  855. X
  856. X        button =
  857. X        dirs_toolbar_buttons[i] =
  858. X            XmVaCreatePushButton (dirs_toolbar, "dir_button",
  859. X                XmNlabelString, (XtArgVal) empty_string,
  860. X                XmNuserData, (XtArgVal) tbi,
  861. X                NULL);
  862. X        XtAddCallback (button,
  863. X            XmNactivateCallback, FileToolButtonPressedCB,
  864. X            NULL);
  865. X        XtManageChild (button);
  866. X        XtSetSensitive (button, False);
  867. X
  868. #ifdef RDD
  869. X        rddAddDropHandler (button,
  870. X                ToolbarDrop, NULL);
  871. #endif /* RDD */
  872. X
  873. #ifdef MOTIF_DD
  874. X                MotifDDRegisterToolbar (button);
  875. #endif /* MOTIF_DD */
  876. X    }
  877. X
  878. #ifdef SIZE_KLUDGE
  879. X    {    /* kludge to force the row column to give
  880. X           us the size buttons we want.  It doesn't
  881. X           tamper with the size of DrawButtons
  882. X        */
  883. X         Widget dummy;
  884. X        dummy = XmVaCreateDrawnButton (dirs_toolbar, "dummy",
  885. X                XmNmappedWhenManaged, (XtArgVal) False,
  886. X                NULL);
  887. X        XtManageChild (dummy);
  888. X    }
  889. #endif /*SIZE_KLUDGE*/
  890. X
  891. X    return dirs_toolbar;
  892. }
  893. X
  894. #ifdef ALLOW_ROWCOL_RESIZE
  895. /*************************************************************************
  896. X * Function: ScrolledWindowResized ()
  897. X * Purpose: the scrolled window containing files has changed in size.
  898. X *    Need to rearrange widgets in it.
  899. X * In parameters: w, event, args, num_args
  900. X * Function result: 
  901. X * Precondition: 
  902. X * Postcondition: number of columns is maximum for new width
  903. X ************************************************************************/
  904. X
  905. /* ARGSUSED */ 
  906. static void
  907. ScrolledWindowResized 
  908. #ifdef UseFunctionPrototypes
  909. X    (Widget w, XEvent *event, char **args, Cardinal *num_args)
  910. #else
  911. X    (w, event, args, num_args)
  912. X    Widget w;
  913. X    XEvent *event;
  914. X    char **args;
  915. X    Cardinal *num_args;
  916. X
  917. #endif
  918. {       Dimension pane_width, button_width;
  919. X        int num_columns;
  920. X        Widget button;
  921. X        dir_pane_info *dpi;
  922. X
  923. #ifdef DEBUG
  924. X    fprintf (stderr, "resize on scrolled widget to width %d height %d\n",
  925. X            (XConfigureEvent *) event -> width,
  926. X            (XConfgureEvent *) event -> height);
  927. #endif
  928. X
  929. X        XtVaGetValues (w,
  930. X                        XmNuserData, &dpi,
  931. X                        XmNwidth, &pane_width,
  932. X                        NULL);
  933. X
  934. X        /* find a non-null button, or give up */
  935. X        if (dpi -> files_buttons != NULL)
  936. X                button = dpi -> files_buttons -> widget;
  937. X        else if (dpi -> dirs_buttons != NULL)
  938. X                button = dpi -> dirs_buttons -> widget;
  939. X
  940. X        else if (dpi -> executables_buttons != NULL)
  941. X                button = dpi -> executables_buttons -> widget;
  942. X
  943. X        else return;
  944. X
  945. X        XtVaGetValues (button, XmNwidth, &button_width, NULL);
  946. X
  947. X        num_columns = (int) (pane_width / button_width);
  948. X
  949. #ifdef DEBUG
  950. X        fprintf (stderr, "number of columns in panes set to %d\n",
  951. X                        num_columns);
  952. #endif /* DEBUG */
  953. X
  954. X        /* set the numColumns in each pane */
  955. X        XtVaSetValues (dpi -> executables_pane,
  956. X                        XmNnumColumns, (XtArgVal) num_columns,
  957. X                        XmNpacking, (XtArgVal) XmPACK_COLUMN,
  958. X                        NULL);
  959. X        XtVaSetValues (dpi -> files_pane,
  960. X                        XmNnumColumns, (XtArgVal) num_columns,
  961. X                        XmNpacking, (XtArgVal) XmPACK_COLUMN,
  962. X                       NULL);
  963. X        XtVaSetValues (dpi -> dirs_pane,
  964. X                        XmNnumColumns, (XtArgVal) num_columns,
  965. X                        XmNpacking, (XtArgVal) XmPACK_COLUMN,
  966. X                        NULL);
  967. }
  968. #endif /* ALLOW_ROWCOL_RESIZE */
  969. X
  970. /*************************************************************************
  971. X * Function: CreatePane ()
  972. X * Purpose: create files, directories display area
  973. X * In parameters: form, dpi
  974. X * Function result: pane widget
  975. X * Side effects; fields in dpi point to 3 pane children
  976. X * Precondition: form is non-null
  977. X * Postcondition: pane created with children in this geometric relation
  978. X *                --------------
  979. X *               | executables  |
  980. X *               | pane         |
  981. X *                --------------
  982. X *               | files pane   |
  983. X *                --------------
  984. X *               | dirs pane    |
  985. X *                --------------
  986. X ************************************************************************/ 
  987. static Widget
  988. CreatePane 
  989. #ifdef UseFunctionPrototypes
  990. X    (Widget form, dir_pane_info *dpi)
  991. #else
  992. X    (form, dpi)
  993. X    Widget form;
  994. X    dir_pane_info *dpi;
  995. X
  996. #endif
  997. {
  998. X    Widget    pane,
  999. X        dirs_pane,
  1000. X        files_pane,
  1001. X        executables_pane,
  1002. X        rc1, rc2, rc3,
  1003. X        file_filter_label,
  1004. X        dir_filter_label,
  1005. X        executable_filter_label,
  1006. X        sw1, sw2, sw3;
  1007. X    XtActionsRec actions_rec;
  1008. X    XtTranslations trans_table;
  1009. X
  1010. #ifdef ALLOW_ROWCOL_RESIZE
  1011. X    /* the action called by this is to allow the number of columns
  1012. X       to be dynamically reset when the enclosing pane is resized.
  1013. X       It throws up a RowCol bug under Motif 1.1.0
  1014. X    */
  1015. X    /* we need to spot when the user horizontally resizes panes
  1016. X       to reset number of columns of files shown */
  1017. X        actions_rec.string = "resize";
  1018. X        actions_rec.proc = ScrolledWindowResized;
  1019. X
  1020. X    XtAddActions (&actions_rec, 1);
  1021. X    trans_table = XtParseTranslationTable ("<Configure>: resize()");
  1022. #endif /* ALLOW_ROWCOL_RESIZE */
  1023. X
  1024. X    pane = XmVaCreatePanedWindow (form, "pane",
  1025. X            NULL);
  1026. X
  1027. X    /* create the executable files section */
  1028. X    /* a row column of a label and a row column of drawn buttons */
  1029. X
  1030. X    rc1 = XmVaCreatePanedWindow (pane, "exec_rc", 
  1031. X                        XmNsashHeight, (XtArgVal) 1,
  1032. X                        XmNseparatorOn, (XtArgVal) False,
  1033. X                        XmNspacing, (XtArgVal) 0,
  1034. X                        XmNuserData, (XtArgVal) dpi,
  1035. X                        NULL);
  1036. X
  1037. X    executable_filter_label = XmVaCreateLabel (rc1,
  1038. X                    "executable_filter_label",
  1039. X                    NULL);
  1040. X
  1041. X    sw1 = XmVaCreateScrolledWindow (rc1, "exec_sw",
  1042. X            XmNscrollingPolicy, (XtArgVal) XmAUTOMATIC,
  1043. X                        XmNuserData, (XtArgVal) dpi,
  1044. X            NULL);
  1045. X
  1046. #ifdef ALLOW_ROWCOL_RESIZE
  1047. X    /* look for configure (resize) events on one of the panes */
  1048. X    XtOverrideTranslations (sw1, trans_table);
  1049. #endif /* ALLOW_ROWCOL_RESIZE */
  1050. X
  1051. X    executables_pane = XmVaCreateRowColumn (sw1, "executables_pane",
  1052. X                       NULL);
  1053. X    {    /* kludge to force the row column to give
  1054. X           us the size buttons we want.  It doesn't
  1055. X           tamper with the size of DrawButtons
  1056. X        */
  1057. X         Widget dummy;
  1058. X        dummy = XmVaCreateDrawnButton (executables_pane, "dumm",
  1059. X                XmNmappedWhenManaged, (XtArgVal) False,
  1060. X                NULL);
  1061. X        XtManageChild (dummy);
  1062. X        XtUnmanageChild (dummy);
  1063. X    }
  1064. X    XtVaSetValues (sw1,
  1065. X            XmNworkWindow, (XtArgVal) executables_pane,
  1066. X            NULL);
  1067. X
  1068. X    /* create the ordinary files section */
  1069. X    /* a row column of a label and a row column of drawn buttons */
  1070. X
  1071. X    rc2 = XmVaCreatePanedWindow (pane, "file_rc", 
  1072. X                        XmNsashHeight, (XtArgVal) 1,
  1073. X                        XmNseparatorOn, (XtArgVal) False,
  1074. X                        XmNspacing, (XtArgVal) 0,
  1075. X                        NULL);
  1076. X
  1077. X    file_filter_label = XmVaCreateLabel (rc2,
  1078. X                    "file_filter_label",
  1079. X                    NULL);
  1080. X
  1081. X    sw2 = XmVaCreateScrolledWindow (rc2, "file_sw",
  1082. X            XmNscrollingPolicy, (XtArgVal) XmAUTOMATIC,
  1083. X            NULL);
  1084. X
  1085. X    files_pane = XmVaCreateRowColumn (sw2, "files_pane",
  1086. X                          NULL);
  1087. X
  1088. X    XtVaSetValues (sw2,
  1089. X            XmNworkWindow, (XtArgVal) files_pane,
  1090. X            NULL);
  1091. X
  1092. X    /* create the directories section */
  1093. X    /* a row column of a label and a row column (in a scrolled window)
  1094. X       of drawn buttons */
  1095. X
  1096. X    rc3 = XmVaCreatePanedWindow (pane, "dir_rc", 
  1097. X                        XmNsashHeight, (XtArgVal) 1,
  1098. X                        XmNseparatorOn, (XtArgVal) False,
  1099. X                        XmNspacing, (XtArgVal) 0,
  1100. X                        NULL);
  1101. X
  1102. X    dir_filter_label = XmVaCreateLabel (rc3,
  1103. X                    "dir_filter_label",
  1104. X                    NULL);
  1105. X
  1106. X    sw3 = XmVaCreateScrolledWindow (rc3, "dir_sw",
  1107. X            XmNscrollingPolicy, (XtArgVal) XmAUTOMATIC,
  1108. X            NULL);
  1109. X
  1110. X    dirs_pane = XmVaCreateRowColumn (sw3, "dirs_pane",
  1111. X             NULL);
  1112. X
  1113. X    XtVaSetValues (sw3,
  1114. X            XmNworkWindow, (XtArgVal) dirs_pane,
  1115. X            NULL);
  1116. X
  1117. X    XtManageChild (executables_pane);
  1118. X    XtManageChild (executable_filter_label);
  1119. X    XtManageChild (rc1);
  1120. X    XtManageChild (sw1);
  1121. X
  1122. X    XtManageChild (files_pane);
  1123. X    XtManageChild (file_filter_label);
  1124. X    XtManageChild (rc2);
  1125. X    XtManageChild (sw2);
  1126. X
  1127. X    XtManageChild (dirs_pane);
  1128. X    XtManageChild (dir_filter_label);
  1129. X    XtManageChild (rc3);
  1130. X    XtManageChild (sw3);
  1131. X
  1132. X    dpi -> executables_pane = executables_pane;
  1133. X    dpi -> files_pane = files_pane;
  1134. X    dpi -> dirs_pane = dirs_pane;
  1135. X        dpi -> file_filter_label = file_filter_label;
  1136. X        dpi -> dir_filter_label = dir_filter_label;
  1137. X        dpi -> executable_filter_label = executable_filter_label;
  1138. X
  1139. X    return pane;
  1140. }
  1141. X
  1142. /*************************************************************************
  1143. X * Function: CreateApplication ()
  1144. X * Purpose: create a toplevel widget
  1145. X * In parameters: parent
  1146. X * Function result: toplevel widget in managed state
  1147. X * Precondition: parent is non-null widget
  1148. X * Postcondition: widget hierarchy set up and managed
  1149. X ************************************************************************/ 
  1150. Widget CreateApplication 
  1151. #ifdef UseFunctionPrototypes
  1152. X    (Widget parent)
  1153. #else
  1154. X    (parent)  
  1155. Widget        parent;        /*  parent widget    */ 
  1156. X
  1157. #endif
  1158. { 
  1159. X    Widget        main,
  1160. X            form,
  1161. X            directory_label,
  1162. X            pane,
  1163. X            menu,
  1164. X            dirs_toolbar,
  1165. X            files_toolbar;
  1166. X 
  1167. X    char    str[128];
  1168. X    DirectoryMgr *files;
  1169. X    dir_pane_info *dpi;
  1170. X
  1171. #ifdef ALLOW_EDITRES
  1172. X    XtAddEventHandler (parent, (EventMask) 0, True,
  1173. X                _XEditResCheckMessages, NULL);
  1174. #endif
  1175. X
  1176. X    empty_string = XmStringCreateSimple ("           ");
  1177. X
  1178. X    dpi = (dir_pane_info *) XtMalloc (sizeof (dir_pane_info));
  1179. X
  1180. X    main = XmVaCreateMainWindow (parent, "main", 
  1181. X            XmNuserData, (XtArgVal) dpi,
  1182. X            NULL);
  1183. #ifdef RDD
  1184. /*    seems to override other drops 
  1185. X    rddAddDropHandler (main,
  1186. X                MainWindowDrop, NULL);
  1187. */
  1188. #endif /* RDD */
  1189. X
  1190. X    form = XmVaCreateForm (main, "form",
  1191. X            NULL);
  1192. X
  1193. X
  1194. X    directory_label = XmVaCreateLabel (form, "directory_label",
  1195. X                    NULL);
  1196. X    files_toolbar = CreateFilesToolbar (form, dpi);
  1197. X
  1198. X    dirs_toolbar = CreateDirsToolbar (form, dpi);
  1199. X
  1200. X    pane = CreatePane (form, dpi);
  1201. X
  1202. X    files = GetFilesInDir ();
  1203. X    dpi -> dirs_buttons = NULL;
  1204. X    dpi -> files_buttons = NULL;
  1205. X    dpi -> executables_buttons = NULL;
  1206. X
  1207. X    menu = CreateMenu (main, (XtPointer) dpi);
  1208. X
  1209. X    XtManageChild (menu);
  1210. X    XtManageChild (dirs_toolbar);
  1211. X    XtManageChild (files_toolbar);
  1212. X    XtManageChild (pane);
  1213. X    XtManageChild (directory_label);
  1214. X    XtManageChild (form);
  1215. X    XtManageChild (main);
  1216. X
  1217. X    SetGeometry (directory_label, files_toolbar, dirs_toolbar, pane);
  1218. X
  1219. X    /* set up the user data stuff */
  1220. X    dpi -> directory_label = directory_label;
  1221. X    dpi -> directory_manager = files;
  1222. X    dpi -> file_selected = NULL;
  1223. X    dpi -> file_button_selected = NULL;
  1224. X    dpi -> dir_selected = NULL;
  1225. X    dpi -> executable_selected = NULL;
  1226. X    dpi -> toplevel = parent;
  1227. X        dpi -> run_dialog = NULL;
  1228. X        dpi -> info_dialog = NULL;
  1229. X
  1230. X    XmMainWindowSetAreas (main, menu, NULL, NULL, NULL, form);
  1231. X
  1232. X    return (main);
  1233. } 
  1234. X
  1235. X
  1236. /*************************************************************************
  1237. X * Function: GetFilesInDir ()
  1238. X * Purpose: return a list of files in current directory
  1239. X * Function result: list of files
  1240. X * Precondition: none
  1241. X * Postcondition: list of files returned
  1242. X ************************************************************************/ 
  1243. DirectoryMgr *GetFilesInDir 
  1244. #ifdef UseFunctionPrototypes
  1245. X    (void)
  1246. #else
  1247. X    ()
  1248. X
  1249. #endif
  1250. {
  1251. X        DirectoryMgr *dm;
  1252. X    char path[MAXPATHLEN];
  1253. X
  1254. X    getcwd (path, MAXPATHLEN);
  1255. X
  1256. X    dm = DirectoryMgrSimpleOpen(path,DIR_MGR_SORT_NAME_DIRS_FIRST, (char *)NULL);
  1257. X        if (dm == NULL)
  1258. X        {
  1259. X                fprintf(stderr,"Can't open directory mgr for '%s'\n",path);
  1260. X                exit(-1);
  1261. X        }
  1262. X    return (dm);
  1263. }
  1264. X
  1265. #ifdef OLD_CODE
  1266. /*************************************************************************
  1267. X * Function: SetFilesInPane ()
  1268. X * Purpose: Set up the file names in buttons in each of the panes
  1269. X * In parameters: dm, dirs_pane, executables_pane, files_pane, dpi
  1270. X * Out parameters: dpi contents changed by indirection
  1271. X * Precondition: directory list in dm, 3 non-null pane widgets,
  1272. X *               dpi points to existing structure
  1273. X * Postcondition: some fields in dpi filled in, panes populated with
  1274. X *                buttons of file names
  1275. X ************************************************************************/ 
  1276. int
  1277. SetFilesInPanes (dm, dirs_pane, executables_pane, files_pane, dpi)
  1278. X    DirectoryMgr *dm;
  1279. X    Widget dirs_pane;
  1280. X    Widget files_pane;
  1281. X    dir_pane_info *dpi;
  1282. {
  1283. X        DirEntry *de;
  1284. X    Widget button;
  1285. X    aWidgetList *dbi, *fbi, *xbi;
  1286. X    pane_button_info *pbi;
  1287. X
  1288. X    while (1)
  1289. X        {
  1290. X                de = DirectoryMgrNextEntry(dm);
  1291. X                if (de == NULL) break;
  1292. X
  1293. X        pbi = (pane_button_info *)
  1294. X            XtMalloc (sizeof (pane_button_info));
  1295. X        pbi -> name = de -> filename;
  1296. X        pbi -> dpi = dpi;
  1297. X
  1298. X
  1299. X        /* place dirs in dir pane */
  1300. X        if (DirEntryIsDir (de) ||
  1301. X            DirEntryIsSymLink (de) &&
  1302. X                S_ISDIR (FileInfoOrigMode (DirEntryActualInfo (de))))
  1303. X        {
  1304. X            pbi -> file_type = DIR_TYPE;
  1305. X            button = XmVaCreatePushButton (dirs_pane,
  1306. X                    de -> filename,
  1307. X                    XmNuserData, (XtArgVal) pbi,
  1308. X                    NULL);
  1309. X            /* link into list */
  1310. X            if (dpi -> dirs_buttons == NULL)
  1311. X            {    dpi -> dirs_buttons =
  1312. X                dbi = (aWidgetList *)
  1313. X                    XtMalloc (sizeof (aWidgetList));
  1314. X            } else {
  1315. X                dbi -> next = (aWidgetList *)
  1316. X                         XtMalloc (sizeof (aWidgetList));
  1317. X                dbi = dbi -> next;
  1318. X            }
  1319. X            dbi -> widget = button;
  1320. X            dbi -> next = NULL;
  1321. X
  1322. X            XtAddCallback (button, XmNarmCallback,
  1323. X                        FileButtonPressedCB,
  1324. X                        NULL);
  1325. X            XtAddCallback (button,
  1326. X                XmNactivateCallback, FileButtonReleasedCB,
  1327. X                NULL);
  1328. X        }
  1329. X        /* and executables in executables pane */
  1330. X        else if ((FileInfoProt( DirEntryActualInfo (de))
  1331. X                & (S_IXUSR | S_IXOTH | S_IXGRP)) != 0)
  1332. X        {
  1333. X            pbi -> file_type = EXECUTABLE_TYPE;
  1334. X            button = XmVaCreatePushButton (executables_pane,
  1335. X                    de -> filename,
  1336. X                    XmNuserData, (XtArgVal) pbi,
  1337. X                    NULL);
  1338. X            /* link into list */
  1339. X            if (dpi -> executables_buttons == NULL)
  1340. X            {    dpi -> executables_buttons =
  1341. X                xbi = (aWidgetList *)
  1342. X                    XtMalloc (sizeof (aWidgetList));
  1343. X            } else {
  1344. X                xbi -> next = (aWidgetList *)
  1345. X                         XtMalloc (sizeof (aWidgetList));
  1346. X                xbi = xbi -> next;
  1347. X            }
  1348. X            xbi -> widget = button;
  1349. X            xbi -> next = NULL;
  1350. X
  1351. X            XtAddCallback (button, XmNarmCallback,
  1352. X                        FileButtonPressedCB,
  1353. X                        NULL);
  1354. X            XtAddCallback (button,
  1355. X                XmNactivateCallback, FileButtonReleasedCB,
  1356. X                NULL);
  1357. X        }
  1358. X        /* everything else in files pane */
  1359. X        else
  1360. X        {
  1361. X            pbi -> file_type = FILE_TYPE;
  1362. X            button = XmVaCreatePushButton (files_pane,
  1363. X                    de -> filename,
  1364. X                    XmNuserData, (XtArgVal) pbi,
  1365. X                    NULL);
  1366. X
  1367. X            /* link into list */
  1368. X            if (dpi -> files_buttons == NULL)
  1369. X            {    dpi -> files_buttons =
  1370. X                fbi = (aWidgetList *)
  1371. X                    XtMalloc (sizeof (aWidgetList));
  1372. X            } else {
  1373. X                fbi -> next = (aWidgetList *)
  1374. X                         XtMalloc (sizeof (aWidgetList));
  1375. X                fbi = fbi -> next;
  1376. X            }
  1377. X            fbi -> widget = button;
  1378. X            fbi -> next = NULL;
  1379. X            XtAddCallback (button, XmNarmCallback,
  1380. X                        FileButtonPressedCB,
  1381. X                        NULL);
  1382. X            XtAddCallback (button,
  1383. X                XmNactivateCallback, FileButtonReleasedCB,
  1384. X                NULL);
  1385. X        }
  1386. X        XtManageChild (button);
  1387. X        }
  1388. }
  1389. #endif /* OLD_CODE */
  1390. X
  1391. X
  1392. /*************************************************************************
  1393. X * Function: DrawnButtonExposedCB ()
  1394. X * Purpose: handle expose events on file buttons
  1395. X * In parameters: button, client_data, call_data
  1396. X * Function returns:
  1397. X * Precondition: expose event generated for w
  1398. X * Postcondition: label redrawn
  1399. X *************************************************************************/
  1400. X
  1401. /* ARGSUSED */
  1402. void
  1403. DrawnButtonExposedCB 
  1404. #ifdef UseFunctionPrototypes
  1405. X    (Widget button, XtPointer client_data, XtPointer call_data)
  1406. #else
  1407. X    (button, client_data, call_data)
  1408. X    Widget button;
  1409. X    XtPointer client_data, call_data;
  1410. X
  1411. #endif
  1412. {    pane_button_info *pbi;
  1413. X    Dimension height;
  1414. X
  1415. X    XtVaGetValues (button,
  1416. X            XmNuserData, (XtArgVal) &pbi,
  1417. X            XmNheight, (XtArgVal) &height,
  1418. X            NULL);
  1419. X
  1420. X    XDrawImageString (XtDisplay (button),
  1421. X            XtWindow (button),
  1422. X            pbi -> gc, 0, (int) height - 5, 
  1423. X            pbi -> name,
  1424. X            strlen (pbi -> name));
  1425. }
  1426. X
  1427. /*************************************************************************
  1428. X * Function: set_pixmap ()
  1429. X * Purpose: set the visual pixmap for this file type
  1430. X * In parameters: button, name, file_type
  1431. X * Function returns:
  1432. X * Side effects: pbi for this button has pixmap, insensitive_pixmap set
  1433. X * Precondition: none 
  1434. X * Postcondition: pixmap set as labelPixmap resource
  1435. X *************************************************************************/
  1436. static void
  1437. set_pixmap 
  1438. #ifdef UseFunctionPrototypes
  1439. X    (Widget button, char *name, char file_type)
  1440. #else
  1441. X    (button, name, file_type)
  1442. X    Widget button;
  1443. X    char *name;
  1444. X    char file_type;
  1445. X
  1446. #endif
  1447. {
  1448. X    Pixmap pixmap, pixmap_reversed;
  1449. X    file_action *pfa;
  1450. X    Pixel fg, bg;
  1451. X    pane_button_info *pbi;
  1452. X
  1453. X    /* find existing colours used in button */
  1454. X    XtVaGetValues (button,
  1455. X            XmNforeground, &fg,
  1456. X            XmNbackground, &bg,
  1457. X            NULL);
  1458. X
  1459. X        /* find file pattern matching this name */
  1460. X        pfa = actions;
  1461. X        while (pfa != NULL)
  1462. X                if (pfa -> file_type == file_type &&
  1463. X                        RegExpMatch (name, pfa -> fsm_ptr))
  1464. X                        break;
  1465. X                else    pfa = pfa -> next;
  1466. X
  1467. X        if (pfa == NULL)
  1468. X        {
  1469. X        fprintf (stderr, "cant find pattern for %s\n", name);
  1470. X        return;
  1471. X        }
  1472. X
  1473. X    /* destroy old pixmaps */
  1474. X    XtVaGetValues (button,
  1475. X            XmNuserData, (XtArgVal) &pbi,
  1476. X            NULL);
  1477. X    XmDestroyPixmap (XtScreen (button), pbi -> pixmap);
  1478. X    XmDestroyPixmap (XtScreen (button), pbi -> pixmap_reversed);
  1479. X
  1480. X    /* find the pixmap for this file */
  1481. X    pixmap = XmGetPixmap ( XtScreen (button),
  1482. X                pfa -> pixmap, fg, bg);
  1483. X    pixmap_reversed = XmGetPixmap ( XtScreen (button),
  1484. X                pfa -> pixmap, bg, fg);
  1485. X
  1486. X    if (pixmap == XmUNSPECIFIED_PIXMAP)
  1487. X    {    fprintf (stderr, "cant find pixmap %s\n", pfa -> pixmap);
  1488. X        /* reasonable default */
  1489. X        pixmap = XmGetPixmap ( XtScreen (button),
  1490. X                    "xlogo32", fg, bg);
  1491. X        pixmap_reversed = XmGetPixmap ( XtScreen (button),
  1492. X                    "xlogo32", bg, fg);
  1493. X    }
  1494. X        
  1495. X    XtVaSetValues (button,
  1496. X            XmNlabelPixmap, (XtArgVal) pixmap,
  1497. X            NULL);
  1498. X    pbi -> pixmap = pixmap;
  1499. X    pbi -> pixmap_reversed = pixmap_reversed;
  1500. }
  1501. X
  1502. /*************************************************************************
  1503. X * Function: new_pane_button ()
  1504. X * Purpose: crete a new button in one of the panes
  1505. X * In parameters: de, dpi, file_type
  1506. X * Function returns: new node of a widget list 
  1507. X * Precondition: 
  1508. X * Postcondition: new node created with callbacks set
  1509. X *************************************************************************/
  1510. aWidgetList *
  1511. new_pane_button 
  1512. #ifdef UseFunctionPrototypes
  1513. X    (char *filename, char *button_name, dir_pane_info *dpi, Widget parent, char file_type)
  1514. #else
  1515. X    (filename, button_name, dpi, parent, file_type)
  1516. X    char *filename;
  1517. X    char *button_name;
  1518. X    dir_pane_info *dpi;
  1519. X    Widget parent;
  1520. X    char file_type;
  1521. X
  1522. #endif
  1523. {
  1524. X    pane_button_info *pbi;
  1525. X    Widget button;
  1526. X    aWidgetList *dbi;
  1527. X    static Pixmap label_bug_pixmap = NULL;
  1528. X
  1529. X    /* set information needed for this button */
  1530. X    pbi = (pane_button_info *)
  1531. X        XtMalloc (sizeof (pane_button_info));
  1532. X    pbi -> name = filename;
  1533. X    pbi -> dpi = dpi;
  1534. X    pbi -> file_type = file_type;
  1535. X    pbi -> pixmap = XmUNSPECIFIED_PIXMAP;
  1536. X    pbi -> pixmap_reversed = XmUNSPECIFIED_PIXMAP;
  1537. X    pbi -> gc = gc;
  1538. X    pbi -> gc_reversed = gc_reversed;
  1539. X
  1540. X    /* if recompute_size == True, and we don't have a pixmap
  1541. X       set at create time, then it always takes its size as 0x0.
  1542. X       This is (at least) a Motif 1.1.0 fix, that sets a dummy one
  1543. X    */
  1544. X    if (label_bug_pixmap == NULL)
  1545. X    {    Pixel fg, bg;
  1546. X
  1547. X        XtVaGetValues (parent,
  1548. X                XmNforeground, (XtArgVal) &fg,
  1549. X                XmNbackground, (XtArgVal) &bg,
  1550. X                NULL);
  1551. X        label_bug_pixmap = XmGetPixmap (XtScreen (parent),
  1552. X                    "xlogo32", bg, fg);
  1553. X    }
  1554. X
  1555. X    button = XmVaCreateDrawnButton (parent,
  1556. X                button_name,
  1557. X                XmNuserData, (XtArgVal) pbi,
  1558. X                XmNlabelType, (XtArgVal) XmPIXMAP,
  1559. X                XmNlabelPixmap, (XtArgVal) label_bug_pixmap,
  1560. X                XmNmultiClick, (XtArgVal) XmMULTICLICK_KEEP,
  1561. X                XmNrecomputeSize, (XtArgVal) False,
  1562. #ifdef RDD
  1563. X                XmNtranslations, (XtArgVal) trans_table,
  1564. #endif /* RDD */
  1565. #ifdef MOTIF_DD
  1566. X                XmNtranslations, (XtArgVal) trans_table,
  1567. #endif /* MOTIF_DD */
  1568. X                NULL);
  1569. X    /* create a new node for list */
  1570. X    dbi = (aWidgetList *)
  1571. X            XtMalloc (sizeof (aWidgetList));
  1572. X    dbi -> widget = button;
  1573. X    dbi -> next = NULL;
  1574. X
  1575. X    XtAddCallback (button, XmNarmCallback,
  1576. X                FileButtonPressedCB,
  1577. X                NULL);
  1578. X    XtAddCallback (button, XmNactivateCallback,
  1579. X                FileButtonReleasedCB,
  1580. X                NULL);
  1581. X    XtAddCallback (button, XmNexposeCallback,
  1582. X                DrawnButtonExposedCB,
  1583. X                NULL);
  1584. X    XtManageChild (button);
  1585. X
  1586. X    set_pixmap (button, pbi -> name, file_type);
  1587. X
  1588. X    return dbi;
  1589. }
  1590. X
  1591. /*************************************************************************
  1592. X * Function: reset_label ()
  1593. X * Purpose: change the label in a widget
  1594. X * In parameters: w, label
  1595. X * Out parameters: 
  1596. X * Precondition: w is a child of Label.
  1597. X * Postcondition: w has label set
  1598. X *************************************************************************/
  1599. void
  1600. reset_label 
  1601. #ifdef UseFunctionPrototypes
  1602. X    (Widget w, char *label, char file_type)
  1603. #else
  1604. X    (w, label, file_type)
  1605. X    Widget w;
  1606. X    char * label;
  1607. X    char file_type;
  1608. X
  1609. #endif
  1610. {    XmString xmstr;
  1611. X    pane_button_info *pbi;
  1612. X
  1613. X    /* reset the label in the button */
  1614. X    xmstr = XmStringCreateSimple (label);
  1615. X    XtVaSetValues (w,
  1616. X            XmNlabelString, (XtArgVal) xmstr,
  1617. X            NULL);
  1618. X    XmStringFree (xmstr);
  1619. X
  1620. X    /* reset the name in the button info */
  1621. X    XtVaGetValues (w, XmNuserData, &pbi);
  1622. X    pbi -> name = label;
  1623. X
  1624. X    set_pixmap (w, label, file_type);
  1625. }
  1626. X
  1627. /*************************************************************************
  1628. X * Function: SetDirectoryLabel ()
  1629. X * Purpose: set the current dir path in the Label widget showing above panes
  1630. X * In parameters:  dir_label, dm
  1631. X * Out parameters: 
  1632. X * Precondition: 
  1633. X * Postcondition: labelString in dir_label set to current dir
  1634. X ************************************************************************/ 
  1635. static void
  1636. SetDirectoryLabel 
  1637. #ifdef UseFunctionPrototypes
  1638. X    (Widget dir_label, DirectoryMgr *dm)
  1639. #else
  1640. X    (dir_label, dm)
  1641. X    Widget dir_label;
  1642. X    DirectoryMgr *dm;
  1643. X
  1644. #endif
  1645. {
  1646. X    char *dir;
  1647. X    XmString xmdir;
  1648. X    char full_dir[MAXPATHLEN];
  1649. X
  1650. X    dir = DirectoryPath (DirectoryMgrDir (dm));
  1651. X    strcpy (full_dir, "Directory: ");
  1652. X    strcat (full_dir, dir);
  1653. X    xmdir = XmStringCreateSimple (full_dir);
  1654. X    XtVaSetValues (dir_label,
  1655. X            XmNlabelString, xmdir,
  1656. X            NULL);
  1657. X    XmStringFree (xmdir);
  1658. }
  1659. X
  1660. X
  1661. /*************************************************************************
  1662. X * Function: ResetFilesInPane ()
  1663. X * Purpose: Set up the file names in buttons in each of the panes
  1664. X * In parameters:  dpi
  1665. X * Out parameters: dpi contents changed by indirection
  1666. X * Precondition: directory list in dm, 3 non-null pane widgets,
  1667. X *               dpi points to existing structure
  1668. X * Postcondition: some fields in dpi filled in, panes populated with
  1669. X *                buttons of file names
  1670. X ************************************************************************/ 
  1671. void
  1672. ResetFilesInPanes 
  1673. #ifdef UseFunctionPrototypes
  1674. X    (dir_pane_info *dpi)
  1675. #else
  1676. X    (dpi)
  1677. X    dir_pane_info *dpi;
  1678. X
  1679. #endif
  1680. {
  1681. X    DirectoryMgr *dm;
  1682. X        DirEntry *de;
  1683. X    aWidgetList *dbi, *fbi, *xbi;
  1684. X    Bool first_dbi = True;
  1685. X    Bool first_fbi = True;
  1686. X    Bool first_xbi = True;
  1687. X
  1688. X    dm = dpi -> directory_manager;
  1689. X    dbi = dpi -> dirs_buttons;
  1690. X    fbi = dpi -> files_buttons;
  1691. X    xbi = dpi -> executables_buttons;
  1692. X
  1693. X    SetDirectoryLabel (dpi -> directory_label, dm);
  1694. X
  1695. X    /* turn off visibility to stop flickering */
  1696. X    XtUnmapWidget (XtParent (dpi -> files_pane));
  1697. X    XtUnmapWidget (XtParent (dpi -> executables_pane));
  1698. X    XtUnmapWidget (XtParent (dpi -> dirs_pane));
  1699. X
  1700. X        /* ensure we are at the beginning of the directory list */
  1701. X        DirectoryMgrRestart (dm);
  1702. X
  1703. X    while ( (de = DirectoryMgrNextEntry(dm)) != NULL)
  1704. X        {
  1705. X        /* explanation of grotty code:
  1706. X           there are three lists of buttons, and buttons are
  1707. X           added to or modified in each list.  A procedure is
  1708. X           not used because parameterisation looks grotty.
  1709. X           For each list, there are four cases, like this:
  1710. X
  1711. X           if list is NULL, create new button, with trailing
  1712. X            pointer set to it
  1713. X           else if list is non-NULL, but you are at the beginning,
  1714. X                change the label of first button
  1715. X                and keep the pointer set to it
  1716. X           else if next button is NULL, create next button and set
  1717. X                pointer to it
  1718. X           else move to next button and change its label
  1719. X        */
  1720. X
  1721. X        /* place dirs in dir pane */
  1722. X        if (DirEntryIsDir (de) ||
  1723. X            DirEntryIsSymLink (de) &&
  1724. X                S_ISDIR (FileInfoOrigMode (DirEntryActualInfo (de))))
  1725. X        {
  1726. X            /* does it match pattern? else discard it */
  1727. X            if ( !RegExpMatch (DirEntryFileName (de),
  1728. X                    dpi -> dir_filter_regexp))
  1729. X                continue;
  1730. X
  1731. X            if (dpi -> dirs_buttons == NULL) 
  1732. X            {    /* create another button with its info */
  1733. X                dpi -> dirs_buttons =
  1734. X                dbi = new_pane_button (de -> filename,
  1735. X                            "dir_pane_button", dpi,
  1736. X                            dpi -> dirs_pane,
  1737. X                            DIR_TYPE);
  1738. #ifdef RDD
  1739. X                rddAddDropHandler (dbi -> widget,
  1740. X                    DirDrop, NULL);
  1741. #endif /* RDD */
  1742. X                first_dbi = False;
  1743. X            }
  1744. X            else if (first_dbi)
  1745. X            {    reset_label (dbi -> widget,
  1746. X                        de -> filename,
  1747. X                        DIR_TYPE);
  1748. X                first_dbi = False;
  1749. X                XtManageChild (dbi -> widget);
  1750. X            }
  1751. X            else if (dbi -> next == NULL)
  1752. X            {
  1753. X                dbi -> next = new_pane_button (de -> filename,
  1754. X                            "dir_pane_button",
  1755. X                            dpi,
  1756. X                            dpi -> dirs_pane,
  1757. X                            DIR_TYPE);
  1758. X                dbi = dbi -> next;
  1759. #ifdef RDD
  1760. X                rddAddDropHandler (dbi -> widget,
  1761. X                    DirDrop, NULL);
  1762. #endif /* RDD */
  1763. X            } else
  1764. X            {
  1765. X                dbi = dbi -> next;
  1766. X                reset_label (dbi -> widget,
  1767. X                        de -> filename,
  1768. X                        DIR_TYPE);
  1769. X                /* in case it was unmanaged by earlier dir change */
  1770. X                XtManageChild (dbi -> widget);
  1771. X            }
  1772. X        }
  1773. X        /* and executables in executables pane */
  1774. X        else if ((FileInfoOrigMode( DirEntryActualInfo (de))
  1775. X                & (S_IXUSR | S_IXOTH | S_IXGRP)) != 0)
  1776. X        {
  1777. X            /* does it match pattern? else discard it */
  1778. X            if ( !RegExpMatch (DirEntryFileName (de),
  1779. X                    dpi -> executable_filter_regexp))
  1780. X                continue;
  1781. X
  1782. X            if (dpi -> executables_buttons == NULL) 
  1783. X            {    /* create another button with its info */
  1784. X                dpi -> executables_buttons =
  1785. X                xbi = new_pane_button (de -> filename,
  1786. X                            "exec_pane_button", dpi,
  1787. X                            dpi -> executables_pane,
  1788. X                            EXECUTABLE_TYPE);
  1789. #ifdef RDD
  1790. X                rddAddDropHandler (xbi -> widget,
  1791. X                    ExecutableDrop, NULL);
  1792. #endif /* RDD */
  1793. X                first_xbi = False;
  1794. X            }
  1795. X            else if (first_xbi)
  1796. X            {    reset_label (xbi -> widget,
  1797. X                        de -> filename,
  1798. X                        EXECUTABLE_TYPE);
  1799. X                first_xbi = False;
  1800. X                XtManageChild (xbi -> widget);
  1801. X            }
  1802. X            else if (xbi -> next == NULL)
  1803. X            {
  1804. X                xbi -> next = new_pane_button (de -> filename,
  1805. X                            "exec_pane_button",
  1806. X                            dpi,
  1807. X                            dpi -> executables_pane,
  1808. X                            EXECUTABLE_TYPE);
  1809. X                xbi = xbi -> next;
  1810. #ifdef RDD
  1811. X                rddAddDropHandler (xbi -> widget,
  1812. X                    ExecutableDrop, NULL);
  1813. #endif /* RDD */
  1814. X            } else
  1815. X            {
  1816. X                xbi = xbi -> next;
  1817. X                reset_label (xbi -> widget,
  1818. X                        de -> filename,
  1819. X                        EXECUTABLE_TYPE);
  1820. X
  1821. X                /* in case it was unmanaged by earlier dir change */
  1822. X                XtManageChild (xbi -> widget);
  1823. X            }
  1824. X        }
  1825. X        /* everything else in files pane */
  1826. X        else
  1827. X        /* does it match pattern? else discard it */
  1828. X        if (RegExpMatch (DirEntryFileName (de),
  1829. X                dpi -> file_filter_regexp))
  1830. X        {
  1831. X            if (dpi -> files_buttons == NULL) 
  1832. X            {    /* create another button with its info */
  1833. X                dpi -> files_buttons =
  1834. X                fbi = new_pane_button (de -> filename,
  1835. X                            "file_pane_button", dpi,
  1836. X                            dpi -> files_pane,
  1837. X                            FILE_TYPE);
  1838. X                first_fbi = False;
  1839. X            }
  1840. X            else if (first_fbi)
  1841. X            {    reset_label (fbi -> widget,
  1842. X                        de -> filename,
  1843. X                        FILE_TYPE);
  1844. X                first_fbi = False;
  1845. X                XtManageChild (fbi -> widget);
  1846. X            }
  1847. X            else if (fbi -> next == NULL)
  1848. X            {
  1849. X                fbi -> next = new_pane_button (de -> filename,
  1850. X                            "file_pane_button",
  1851. X                            dpi,
  1852. X                            dpi -> files_pane,
  1853. X                            FILE_TYPE);
  1854. X                fbi = fbi -> next;
  1855. X            } else
  1856. X            {
  1857. X                fbi = fbi -> next;
  1858. X                reset_label (fbi -> widget,
  1859. X                        de -> filename,
  1860. X                        FILE_TYPE);
  1861. X                XtManageChild (fbi -> widget);
  1862. X            }
  1863. X        }
  1864. X        }
  1865. X    /* if the new lists are shorter than the old ones, there will
  1866. X       be buttons left over that should have no contents. They
  1867. X       have to be unmanaged. First, advance trailing pointers */
  1868. X    if (!first_dbi && dbi != NULL) dbi = dbi -> next;
  1869. X    if (!first_xbi && xbi != NULL) xbi = xbi -> next;
  1870. X    if (!first_fbi && fbi != NULL) fbi = fbi -> next;
  1871. X
  1872. X    while (dbi != NULL)
  1873. X    {
  1874. X        XtUnmanageChild (dbi -> widget);
  1875. X        dbi = dbi -> next;
  1876. X    }
  1877. X    while (xbi != NULL)
  1878. X    {
  1879. X        XtUnmanageChild (xbi -> widget);
  1880. X        xbi = xbi -> next;
  1881. X    }
  1882. X    while (fbi != NULL)
  1883. X    {
  1884. X        XtUnmanageChild (fbi -> widget);
  1885. X        fbi = fbi -> next;
  1886. SHAR_EOF
  1887. true || echo 'restore of xmfm/applicat.c failed'
  1888. fi
  1889. echo 'End of  part 3'
  1890. echo 'File xmfm/applicat.c is continued in part 4'
  1891. echo 4 > _shar_seq_.tmp
  1892. exit 0
  1893. --
  1894. +----------------------+---+
  1895.   Jan Newmarch, Information Science and Engineering,
  1896.   University of Canberra, PO Box 1, Belconnen, Act 2616
  1897.   Australia. Tel: (Aust) 6-2012422. Fax: (Aust) 6-2015041
  1898.