home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / x / volume13 / xdtm / part11 < prev    next >
Internet Message Format  |  1991-05-18  |  21KB
  1. Path: uunet!lll-winken!sun-barr!newstop!exodus!cogs.sussex.ac.uk
  2. From: eddyg@cogs.sussex.ac.uk (EdwardJ. Groenendaal)
  3. Newsgroups: comp.sources.x
  4. Subject: v13i016: xdtm - X Desktop Manager for the X Window System, Part11/11
  5. Message-ID: <13580@exodus.Eng.Sun.COM>
  6. Date: 19 May 91 00:04:07 GMT
  7. References: <csx-13i006:xdtm@uunet.UU.NET>
  8. Sender: news@exodus.Eng.Sun.COM
  9. Lines: 727
  10. Approved: argv@sun.com
  11.  
  12. Submitted-by: Edward "J." Groenendaal <eddyg@cogs.sussex.ac.uk>
  13. Posting-number: Volume 13, Issue 16
  14. Archive-name: xdtm/part11
  15.  
  16. Pheww.. last one!
  17.  
  18. Submitted-by: eddyg@cste
  19. Archive-name: xdtm/part11
  20.  
  21. ---- Cut Here and feed the following to sh ----
  22. #!/bin/sh
  23. # This is part 11 of xdtm
  24. # ============= xdtm/patchlevel.h ==============
  25. if test ! -d 'xdtm'; then
  26.     echo 'x - creating directory xdtm'
  27.     mkdir 'xdtm'
  28. fi
  29. if test -f 'xdtm/patchlevel.h' -a X"$1" != X"-c"; then
  30.     echo 'x - skipping xdtm/patchlevel.h (File already exists)'
  31. else
  32. echo 'x - extracting xdtm/patchlevel.h (Text)'
  33. sed 's/^X//' << 'SHAR_EOF' > 'xdtm/patchlevel.h' &&
  34. X/* This file contains the current patch level. Not all patch levels are
  35. X * released, I also use this number to keep track of my changes to xdtm,
  36. X * so don't be suprised by jumps in this number.
  37. X */
  38. X#define PATCHLEVEL 5
  39. SHAR_EOF
  40. chmod 0644 xdtm/patchlevel.h ||
  41. echo 'restore of xdtm/patchlevel.h failed'
  42. Wc_c="`wc -c < 'xdtm/patchlevel.h'`"
  43. test 219 -eq "$Wc_c" ||
  44.     echo 'xdtm/patchlevel.h: original size 219, current size' "$Wc_c"
  45. fi
  46. # ============= xdtm/quit.c ==============
  47. if test -f 'xdtm/quit.c' -a X"$1" != X"-c"; then
  48.     echo 'x - skipping xdtm/quit.c (File already exists)'
  49. else
  50. echo 'x - extracting xdtm/quit.c (Text)'
  51. sed 's/^X//' << 'SHAR_EOF' > 'xdtm/quit.c' &&
  52. X/****************************************************************************
  53. X ** File          : quit.c                                                 **
  54. X ** Purpose       : Initialise and Realise quit dialogs                    **
  55. X ** Author        : Edward Groenendaal                                     **
  56. X ** Date          : April 1991                                             **
  57. X ** Documentation : Xdtm Design Folder                                     **
  58. X ** Related Files :                                                        **
  59. X ****************************************************************************/
  60. X
  61. X#include "xdtm.h"
  62. X#include <X11/Shell.h>
  63. X#include <X11/Xaw/Label.h>
  64. X#include <X11/Xaw/Command.h>
  65. X#include "Xedw/XedwForm.h"
  66. X
  67. Xextern void realize_dialog(Widget);
  68. X
  69. X/* Widgets */
  70. Xprivate Widget quitpopup;    /* For Quit Message */
  71. Xprivate Widget quitform;        /* The form */
  72. Xprivate Widget quitlabel;      /* Label at top of dialog */
  73. Xprivate Widget quitquit;           /* yes button */
  74. Xprivate Widget quitcancel;        /* no button */ 
  75. X
  76. X/*****************************************************************************
  77. X *                              init_quit                                    *
  78. X *****************************************************************************/
  79. Xpublic void init_quit(Widget top)
  80. X{
  81. X  /* Initialise the quit dialog widgets */
  82. X
  83. X  extern void quitQueryResult(Widget, Boolean, caddr_t);
  84. X
  85. X  Arg arglist[5];
  86. X  Cardinal i;
  87. X
  88. X  private String QuitLabel          = "Really quit?";
  89. X  private String QuitButtonLabel    = "Quit";
  90. X  private String CancelButtonLabel  = "Cancel";
  91. X
  92. X  quitpopup    =   XtCreatePopupShell("quitpopup",
  93. X                      transientShellWidgetClass,
  94. X                      top,
  95. X                      NULL, 0);
  96. X
  97. X  quitform      =   XtCreateManagedWidget("quitform",
  98. X                      xedwFormWidgetClass,
  99. X                      quitpopup,
  100. X                      NULL, 0);
  101. X
  102. X  i = 0;
  103. X  XtSetArg(arglist[i], XtNlabel,         QuitLabel);  i++;
  104. X  XtSetArg(arglist[i], XtNborderWidth,           0);  i++;
  105. X  XtSetArg(arglist[i], XtNjustify, XtJustifyCenter);  i++;
  106. X  XtSetArg(arglist[i], XtNfullWidth,          True);  i++;
  107. X  quitlabel    =   XtCreateManagedWidget("quitlabel",
  108. X                      labelWidgetClass,
  109. X                      quitform,
  110. X                      arglist, i);
  111. X
  112. X  i = 0;
  113. X  XtSetArg(arglist[i], XtNlabel, CancelButtonLabel);  i++;
  114. X  XtSetArg(arglist[i], XtNfromVert,      quitlabel);  i++;
  115. X  XtSetArg(arglist[i], XtNjustify, XtJustifyCenter);  i++;
  116. X  quitcancel  =   XtCreateManagedWidget("quitcancel",
  117. X                    commandWidgetClass,
  118. X                    quitform,
  119. X                    arglist, i);
  120. X
  121. X  i = 1;
  122. X  XtSetArg(arglist[i], XtNlabel,   QuitButtonLabel);  i++;
  123. X  XtSetArg(arglist[i], XtNfromVert,     quitlabel);  i++;
  124. X  XtSetArg(arglist[i], XtNwidthLinked, quitcancel);  i++;
  125. X  XtSetArg(arglist[i], XtNfromHoriz,   quitcancel);  i++;
  126. X  quitquit    =   XtCreateManagedWidget("quitquit",
  127. X                    commandWidgetClass,
  128. X                    quitform,
  129. X                    arglist, i);
  130. X
  131. X  XtAddCallback(quitcancel, XtNcallback, quitQueryResult, False);
  132. X  XtAddCallback(quitquit,   XtNcallback, quitQueryResult, True);
  133. X 
  134. X}
  135. X
  136. X/*****************************************************************************
  137. X *                                quit_dialog                                *
  138. X *****************************************************************************/
  139. Xpublic void quit_dialog(void)
  140. X{
  141. X  /* This procedure pops the quit dialog up on screen */
  142. X
  143. X  realize_dialog(quitpopup);
  144. X}
  145. X
  146. X/*****************************************************************************
  147. X *                                                                           *
  148. X *****************************************************************************/
  149. Xpublic void destroy_quit_dialog(void)
  150. X{
  151. X  /* This procedure pop's the quit dialog down */
  152. X
  153. X  XtPopdown(quitpopup);
  154. X}
  155. SHAR_EOF
  156. chmod 0644 xdtm/quit.c ||
  157. echo 'restore of xdtm/quit.c failed'
  158. Wc_c="`wc -c < 'xdtm/quit.c'`"
  159. test 3727 -eq "$Wc_c" ||
  160.     echo 'xdtm/quit.c: original size 3727, current size' "$Wc_c"
  161. fi
  162. # ============= xdtm/scroll_hack.c ==============
  163. if test -f 'xdtm/scroll_hack.c' -a X"$1" != X"-c"; then
  164.     echo 'x - skipping xdtm/scroll_hack.c (File already exists)'
  165. else
  166. echo 'x - extracting xdtm/scroll_hack.c (Text)'
  167. sed 's/^X//' << 'SHAR_EOF' > 'xdtm/scroll_hack.c' &&
  168. X/*****************************************************************************
  169. X ** File          : scroll_hack.c                                           **
  170. X ** Purpose       : Reset the scrollbar in a viewport widget to the top     **
  171. X ** Author        : Edward Groenendaal                                      **
  172. X ** Date          : April 1991                                              **
  173. X ** Documentation : Xdtm Design Folder                                      **
  174. X ** Related Files :                                                         **
  175. X *****************************************************************************/
  176. X
  177. X#include "xdtm.h"
  178. X#include <X11/IntrinsicP.h>
  179. X#include <X11/StringDefs.h>
  180. X#include <X11/Xaw/XawInit.h>
  181. X#include <X11/Xaw/Viewport.h>
  182. X#include <X11/Xaw/ViewportP.h>
  183. X#include <X11/Xaw/Scrollbar.h>
  184. X#include <X11/Xaw/ScrollbarP.h>
  185. X
  186. X/*****************************************************************************
  187. X *                               setscroll                                   *
  188. X *****************************************************************************/
  189. Xpublic void setscroll(Widget w, float pos)
  190. X{
  191. X  /* This procedure takes a viewpoet widget, find's it's vertical scrollbar
  192. X   * sets the value of this to the position supplied, then calls the 
  193. X   * callbacks on that scrollbar to inform the viewport of the change.
  194. X   *
  195. X   * This is a *bit* of a hack, but I couldn't think of another way around
  196. X   * it without sub-classing the viewport widget.
  197. X   */
  198. X
  199. X  ViewportWidget  vw = (ViewportWidget) w;
  200. X  ScrollbarWidget sw = (ScrollbarWidget) vw->viewport.vert_bar;
  201. X  Arg arglist[1];
  202. X
  203. X
  204. X  XtSetArg(arglist[0], XtNtopOfThumb, pos);
  205. X  XtSetValues(sw, arglist, 1);
  206. X  XtCallCallbacks(sw, XtNthumbProc, sw->scrollbar.top);
  207. X  XtCallCallbacks(sw, XtNjumpProc, &sw->scrollbar.top);
  208. X
  209. X}
  210. SHAR_EOF
  211. chmod 0644 xdtm/scroll_hack.c ||
  212. echo 'restore of xdtm/scroll_hack.c failed'
  213. Wc_c="`wc -c < 'xdtm/scroll_hack.c'`"
  214. test 1816 -eq "$Wc_c" ||
  215.     echo 'xdtm/scroll_hack.c: original size 1816, current size' "$Wc_c"
  216. fi
  217. # ============= xdtm/xdtm.h ==============
  218. if test -f 'xdtm/xdtm.h' -a X"$1" != X"-c"; then
  219.     echo 'x - skipping xdtm/xdtm.h (File already exists)'
  220. else
  221. echo 'x - extracting xdtm/xdtm.h (Text)'
  222. sed 's/^X//' << 'SHAR_EOF' > 'xdtm/xdtm.h' &&
  223. X/*****************************************************************************
  224. X ** File          : xdtm.h                                                  **
  225. X ** Purpose       :                                                         **
  226. X ** Author        : Edward Groenendaal                                      **
  227. X ** Date          : 18th Feb 1991                                           **
  228. X ** Documentation : Xdtm Design Folder                                      **
  229. X ** Related Files : menus.c                                                 **
  230. X *****************************************************************************/
  231. X
  232. X#ifndef _xdtm_h
  233. X#define _xdtm_h
  234. X
  235. X/* Current release of xdtm */
  236. X#define RELEASE       1
  237. X
  238. X/* Change SYSTEM_HELP to the path of your help file */
  239. X#define SYSTEM_HELP   "/usr/local/X11R4/lib/X11/xdtm/help"
  240. X
  241. X/* Change SYSTEM_XDTMRC to the path of your system config. file */
  242. X#define SYSTEM_XDTMRC "/usr/local/X11R4/lib/X11/xdtm/xdtmrc"
  243. X
  244. X/* You shouldn't need to change anything below here */
  245. X
  246. X#define DUMMY ~0
  247. X
  248. X#ifdef TRUE_SYSV
  249. X#ifndef USE_CWD
  250. X#define USE_CWD  /* True SYSV machines use getcwd NOT getwd */
  251. X#endif
  252. X#endif
  253. X
  254. X#include "patchlevel.h"
  255. X
  256. X/* UNIX include files */
  257. X#include <stdio.h>
  258. X#include <errno.h>
  259. X#include <string.h>
  260. X
  261. X/* Standard X11 include files */
  262. X#include <X11/Intrinsic.h>
  263. X#include <X11/StringDefs.h>
  264. X
  265. X#define private         static
  266. X#define public          /* global */
  267. X
  268. Xextern Arg chain_position[];
  269. Xextern Cardinal chain_size;
  270. X
  271. Xtypedef enum {NormalMode, CopyMode, MoveMode} Mode;
  272. X
  273. Xtypedef struct {
  274. X  int view_width;
  275. X  int view_height;
  276. X  XFontStruct *view_font;
  277. X  int delay;
  278. X  Boolean dironexit;
  279. X  String mode;
  280. X  String cffile;
  281. X  XFontStruct *dm_font;
  282. X} AppData, *AppDataPtr;
  283. X
  284. Xextern AppData app_data;
  285. X
  286. X/* Application Resources */
  287. X
  288. X#define XtNviewWidth "viewWidth"
  289. X#define XtNviewHeight "viewHeight"
  290. X#define XtNviewFont "viewFont"
  291. X#define XtNmode "mode"
  292. X#define XtNdirOnExit "dirOnExit"
  293. X#define XtNconfigFile "configFile"
  294. X#define XtNdmFont "dmFont"
  295. X#define XtNdelay "delay"
  296. X
  297. X#define XtCConfigFile "ConfigFile"
  298. X#define XtCViewWidth "ViewWidth"
  299. X#define XtCViewHeight "ViewHeight"
  300. X#define XtCMode "Mode"
  301. X#define XtCDirOnExit "DirOnExit"
  302. X#define XtCDelay "Delay"
  303. X
  304. X#endif /* _xdtm_h */
  305. SHAR_EOF
  306. chmod 0644 xdtm/xdtm.h ||
  307. echo 'restore of xdtm/xdtm.h failed'
  308. Wc_c="`wc -c < 'xdtm/xdtm.h'`"
  309. test 2222 -eq "$Wc_c" ||
  310.     echo 'xdtm/xdtm.h: original size 2222, current size' "$Wc_c"
  311. fi
  312. # ============= xdtm/xdtm.man ==============
  313. if test -f 'xdtm/xdtm.man' -a X"$1" != X"-c"; then
  314.     echo 'x - skipping xdtm/xdtm.man (File already exists)'
  315. else
  316. echo 'x - extracting xdtm/xdtm.man (Text)'
  317. sed 's/^X//' << 'SHAR_EOF' > 'xdtm/xdtm.man' &&
  318. X.TH xdtm 1 "Version 1.4" "X Desktop Manager" 
  319. X.SH NAME
  320. Xxdtm \- graphical shell for X
  321. X.SH SYNOPSIS
  322. Xxdtm [ \f2\-cf\f1 configuration_file ] [ \f2\-delay\f1 time ] [ \f2\-dmfont\f1 font_name ] [ standard X options ]
  323. X.SH DESCRIPTION
  324. X.PP
  325. XThe X Desktop Manager is a graphical shell for the X Window System.
  326. XIt provides facilities to list directories graphically, view files,
  327. Xcopy, move, and delete files, and to launch programs.
  328. X.PP
  329. XIt comes with comprehensive help available from within the program, 
  330. Xthis should be consulted for instructions on how to use the program.
  331. X.PP
  332. XThe \f2\-cf\f1 option tells xdtm to use the following file as the 
  333. Xconfiguration file. If this file is not found xdtm will try the users
  334. Xhome directory for the file .xdtmrc, if that fails the system xdtmrc
  335. Xwill be used.
  336. X.PP
  337. XThe \f2\-delay\f1 option is used on systems with NFS mounted directories.
  338. XIt specifies the time in seconds to delay between updating a directories
  339. Xcontents and updating the directory listing within xdtm. A value of 1 second
  340. Xis usually enough unless the network is very heavily loaded. The valid range
  341. Xis between 1 and 5 seconds.
  342. X.PP
  343. XThe \f2\-dmfont\f1 option is used to specify the font to be used to list
  344. Xthe filenames in the directory list. Because this font is used in the 
  345. Xlong listing mode within which spaces are used to align the columns of data a
  346. Xfixed width font should be specified.
  347. X.PP
  348. XAny standard X Toolkit command line options may be used in addition to the
  349. Xones already listed above.
  350. X.SH DOCUMENTATION
  351. X.PP
  352. XFurther documentation may be found in the X Desktop Manual User's Guide, this
  353. Xis provided along with the version 1.4 sources in a format suitable for use
  354. Xwith an Apple Macintosh with Word 4.0.
  355. X.PP
  356. XExtensive online help is also available from within xdtm via the help menu
  357. Xoption. This help file may also be viewed from outside xdtm with a standard
  358. Xpager.
  359. X.SH DIAGNOSTICS
  360. XXdtm will display any standard error output from the commands it executes. 
  361. XIt will also complain about any errors in accessing files.
  362. X.SH FILES
  363. X.nf
  364. X~/.xdtmrc - User's configuration file
  365. X/usr/lib/X11/xdtm/icons - Directory containing xdtm icon bitmaps
  366. X/usr/lib/X11/xdtm/help - Help file
  367. X/usr/lib/X11/xdtm/xdtmrc - System configuration file
  368. X
  369. XNote: The files in /usr/lib/X11/xdtm may be in another directory, see
  370. Xyour system administrator to find out which.
  371. X.fi
  372. X.SH AUTHOR
  373. X.nf
  374. XEdward Groenendaal
  375. X
  376. XSchool of Cognitive and Computing Sciences,
  377. XUniversity of Sussex,
  378. XBrighton,
  379. XEngland.
  380. X
  381. XEmail: eddyg@cogs.sussex.ac.uk
  382. X.fi
  383. X.PP
  384. SHAR_EOF
  385. chmod 0644 xdtm/xdtm.man ||
  386. echo 'restore of xdtm/xdtm.man failed'
  387. Wc_c="`wc -c < 'xdtm/xdtm.man'`"
  388. test 2504 -eq "$Wc_c" ||
  389.     echo 'xdtm/xdtm.man: original size 2504, current size' "$Wc_c"
  390. fi
  391. # ============= xdtm/xdtmrc ==============
  392. if test -f 'xdtm/xdtmrc' -a X"$1" != X"-c"; then
  393.     echo 'x - skipping xdtm/xdtmrc (File already exists)'
  394. else
  395. echo 'x - extracting xdtm/xdtmrc (Text)'
  396. sed 's/^X//' << 'SHAR_EOF' > 'xdtm/xdtmrc' &&
  397. X# -*- Mode: C -*-
  398. X# This is a sample .xdtmrc file.
  399. X#
  400. X# Edward Groenendaal.
  401. X# (additions by Henry Thomas)
  402. X#
  403. X
  404. X# Change this path to include the icon directories 
  405. Xset path = "/usr/local/lib/xdtm/icons";
  406. X
  407. X# Check the whole path or just filenames when doing RE matches.
  408. X# checking for just filename is a LOT quicker that on the whole path
  409. Xset checkpath=False;
  410. X
  411. X# Default icon in case all rules fail
  412. Xset deficon="file.icon";
  413. X
  414. Xif (type==dir) {
  415. X  set deficon="folder.icon";
  416. X  #if (name=="^\.$") {
  417. X  #  set icon="dot.icon";
  418. X  #}
  419. X  if (name=="^\.\.$") {
  420. X    set icon="dotdot.icon";
  421. X  }
  422. X  if (name=="^\.$") {
  423. X    set icon="folder.icon";
  424. X  }
  425. X  if (name=="^\..*") {
  426. X    set ignore;
  427. X  }
  428. X  if (name=="^X11$") {
  429. X    set icon="x.icon";
  430. X  }
  431. X}
  432. X
  433. Xif (type==block) {
  434. X  set icon = "block.icon";
  435. X}
  436. X
  437. Xif (type==character) {
  438. X  set deficon = "character.icon";
  439. X  if (name=="^tty.*") {
  440. X    set icon="tty.icon";
  441. X  }
  442. X}
  443. X
  444. Xif (type==slink) {
  445. X  set deficon = "slink.icon";
  446. X  # We are now checking the destination of the link 
  447. X  if (type==dir) {
  448. X    set icon="folder.icon";
  449. X  }  
  450. X}
  451. X
  452. Xif (type==socket) {
  453. X  set icon = "socket.icon";
  454. X}
  455. X
  456. X
  457. Xif (type==file) {
  458. X  set deficon="file.icon";
  459. X  if (name=="^\..*") {
  460. X    set ignore;
  461. X  }
  462. X  if (name=="^%.*") {
  463. X    set ignore;
  464. X  }
  465. X  if (name=="^#.*#$") {
  466. X    set ignore;
  467. X  }
  468. X  if (type==exe) { 
  469. X    set deficon="prog.icon";
  470. X    if (name=="^\..*") {
  471. X      set ignore;
  472. X    }
  473. X    if (name=="^%.*") {
  474. X      set ignore;
  475. X    }
  476. X    if (name=="^#.*#$") {
  477. X      set ignore;
  478. X    }
  479. X    if (name=="^xdtm$") {
  480. X      set icon="xdtm.icon";
  481. X    }
  482. X  }
  483. X  
  484. X# c source files
  485. X  if (name==".*\.c[~]*$") {
  486. X    set icon="ccode.icon";
  487. X  }
  488. X
  489. X# object files
  490. X  if (name==".*\.o[~]*$") {
  491. X    set icon="ocode.icon";
  492. X  }
  493. X
  494. X# c header files
  495. X  if (name==".*\.h[~]*$") {
  496. X    set icon="hcode.icon";
  497. X  }
  498. X
  499. X# yacc source files
  500. X  if (name==".*\.y[~]*$") {
  501. X    set icon="ycode.icon";
  502. X  }
  503. X
  504. X# lex source files
  505. X  if (name==".*\.l[~]*$") {
  506. X    set icon="lcode.icon";
  507. X  }
  508. X
  509. X# emacs lisp files
  510. X  if (name==".*\.el[~]*$") {
  511. X    set icon="elisp.icon";
  512. X  }
  513. X  if (name=="^.emacs$") {
  514. X    set icon="elisp.icon";
  515. X  }
  516. X  if (name==".*\.elc$") {
  517. X    set icon="elispc.icon";
  518. X  }
  519. X
  520. X# libraries
  521. X  if (name==".*\.a$") {
  522. X    set icon="lib.icon";
  523. X  }
  524. X
  525. X# manual pages
  526. X  set checkpath = True;
  527. X  if (name==".*/man[1-8l]/.*") {
  528. X    set deficon = "manpage.icon";
  529. X  }
  530. X  set checkpath = False;
  531. X
  532. X# compressed files
  533. X  if (name==".*\.[ZF]$") {
  534. X    set icon="z.icon";
  535. X  }
  536. X
  537. X# text source files
  538. X  if (name==".*\.txt[~]*$") {
  539. X    set icon="text.icon";
  540. X  }
  541. X  if (name==".*\.tex[~]*$") {
  542. X    set icon="text.icon";
  543. X  }
  544. X
  545. X# zoo, arc, zip files
  546. X  if (name==".zoo$") {
  547. X    set icon="lib.icon";
  548. X  }
  549. X  if (name==".zip$") {
  550. X    set icon="lib.icon";
  551. X  }
  552. X  if (name==".arc$") {
  553. X    set icon="lib.icon";
  554. X  }
  555. X
  556. X# sit, tar, shar files
  557. X  if (name==".shar$") {
  558. X    set icon="lib.icon";
  559. X  }
  560. X  if (name==".tar$") {
  561. X    set icon="lib.icon";
  562. X  }
  563. X  if (name==".sit$") {
  564. X    set icon="lib.icon";
  565. X  }
  566. X
  567. X# image files
  568. X  if (name==".p[pgmn]m$") {
  569. X    set icon="flower.icon";
  570. X  }
  571. X  if (name==".gif$") {
  572. X    set icon="flower.icon";
  573. X  }
  574. X  if (name==".ras*$") {
  575. X    set icon="flower.icon";
  576. X  }
  577. X
  578. X# sound files
  579. X  if (name==".au$") {
  580. X    set icon="mermaid.icon";
  581. X  }
  582. X
  583. X# Misc icons
  584. X  if (name=="^[Mm]ake[fF]ile[~]*$") {
  585. X      set icon="makefile.icon";
  586. X  }
  587. X  if (name=="^[iI][Mm]ake[Ff]ile[~]*$") {
  588. X      set icon="makefile.icon";
  589. X  }
  590. X  if (name==".*\.icon[~]*$") {
  591. X    set icon="icon.icon";
  592. X  }
  593. X  if (name=="^core$") {
  594. X    set icon="core.icon";
  595. X  }
  596. X
  597. X# application icons
  598. X  if (name=="^xdtm$") {
  599. X    set icon="xdtm.icon";
  600. X  }
  601. X}
  602. X
  603. X# application manager defaults
  604. X
  605. Xdefine "programming" = {
  606. X  { name = "emacs";
  607. X    icon = "emacs.icon";
  608. X    prog = "emacs !@";  # doesn't catch filenames in current dir
  609. X    options = MSEL;     # emacs's fault not mine...
  610. X  }
  611. X  {
  612. X    name = "C Debugger";
  613. X    icon = "prog.icon";
  614. X    prog = "xterm -T 'Gnu C Debugger' -e gdb !@";
  615. X    options = OSEL;
  616. X  }
  617. X  {
  618. X    name = "Make All";
  619. X    icon = "make.icon";
  620. X    prog = "xterm -e sh -c 'make | less'";
  621. X    options = NSEL;
  622. X  }
  623. X  {
  624. X    name = "Make etags";
  625. X    icon = "make.icon";
  626. X    prog = "make etags";
  627. X    options = NSEL;
  628. X  }
  629. X  {
  630. X    name = "Make Clean";
  631. X    icon = "make.icon";
  632. X    prog = "make clean";
  633. X    options = NSEL;
  634. X  }
  635. X  { 
  636. X    name = "Make Makefile";
  637. X    icon = "make.icon";
  638. X    prog = "xmkmf";
  639. X    options = NSEL;
  640. X  }
  641. X}
  642. Xdefine "misc" = {
  643. X  { 
  644. X    name = "X Clock";
  645. X    icon = "clock.icon";
  646. X    prog = "xclock";
  647. X    options = NSEL;
  648. X  }
  649. X  {
  650. X    name = "X Bitmap";
  651. X    icon = "piccy.icon";
  652. X    prog = "bitmap -nodashed !@";
  653. X    options = OSEL;
  654. X  }
  655. X}
  656. X
  657. Xdefine "games" = {
  658. X  {
  659. X    name = "Nethack";
  660. X    icon = "ghost.icon";
  661. X    prog = "xterm -T 'Nethack' -e nethack";
  662. X    options = NSEL;
  663. X  }
  664. X}
  665. X
  666. Xdefine "editing" = {
  667. X  {
  668. X    name = "X Terminal";
  669. X    icon = "prog.icon";
  670. X    prog = "xterm -T 'X Terminal'";
  671. X    options = NSEL;
  672. X  }
  673. X  {
  674. X    name = "Spell Check";
  675. X    icon = "prog.icon";
  676. X    prog = "xterm -T 'Spell Check' -e ispell !@";
  677. X    options = MSEL;
  678. X  }
  679. X  {
  680. X    name = "Edit : vi";
  681. X    icon = "dragon.icon";
  682. X    prog = "xterm -T 'Vi' -e vi !@";
  683. X    options = OSEL;
  684. X  }
  685. X  {
  686. X    name = "Edit : Emacs";
  687. X    icon = "emacs.icon";
  688. X    prog = "xterm -T 'Emacs' -e emacs !@";
  689. X    options = MSEL;
  690. X  }
  691. X  {
  692. X    name = "Edit : Ved";
  693. X    icon = "alien.icon";
  694. X    prog = "xterm -T 'Poplog Ved' -e ved !@";
  695. X    options = OSEL;
  696. X  }
  697. X  {
  698. X    name = "Word Count";
  699. X    icon = "wordc.icon";
  700. X    prog = "xterm -T 'Word Count' -e sh -c 'wc !@ | less'";
  701. X    options = MSEL;
  702. X  }
  703. X}
  704. X
  705. Xdefine "rlogins" = {
  706. X  {
  707. X    name = "TSUNA";
  708. X    icon = "fish.icon";
  709. X    prog = "xterm -e rlogin tsuna";
  710. X    options = NSEL;
  711. X  }
  712. X  {
  713. X    name = "CSTE";
  714. X    icon = "snail.icon";
  715. X    prog = "xterm -e rlogin cste";
  716. X    options = NSEL;
  717. X  }
  718. X  {
  719. X    name = "LUCRETIA";
  720. X    icon = "mermaid.icon";
  721. X    prog = "xterm -e rlogin lucretia";
  722. X    options = NSEL;
  723. X  }
  724. X}
  725. SHAR_EOF
  726. chmod 0644 xdtm/xdtmrc ||
  727. echo 'restore of xdtm/xdtmrc failed'
  728. Wc_c="`wc -c < 'xdtm/xdtmrc'`"
  729. test 5773 -eq "$Wc_c" ||
  730.     echo 'xdtm/xdtmrc: original size 5773, current size' "$Wc_c"
  731. fi
  732. exit 0
  733.  
  734. --
  735. Dan Heller
  736. O'Reilly && Associates       Z-Code Software    Comp-sources-x:
  737. Senior Writer                President          comp-sources-x@uunet.uu.net
  738. argv@ora.com                 argv@zipcode.com
  739.