home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1736 / Xmon.ad < prev   
Encoding:
Text File  |  1990-12-28  |  7.5 KB  |  275 lines
  1. !
  2. !    Xmon - Graphically monitor a list
  3. !
  4. !    Includes defaults for xru and xrf.
  5. !
  6. !    George Ferguson (ferguson@cs.rochester.edu),  6 May 1990.
  7. !    Improvements by: Cesar Quiroz (quiroz@cs.rochester.edu),  8 May 1990.
  8. !    Massive changes by: gf, 20 Jul 1990.
  9. !
  10. !    $Id: Xmon.ad,v 1.5 90/08/21 11:11:21 ferguson Exp $
  11. !
  12.  
  13. ! This has must be the first line in the "official" app-defaults file.
  14. Xmon.revision:            $Revision: 1.5 $
  15.  
  16. !
  17. ! Application defaults
  18. !
  19. Xmon.addNames:            False
  20. Xmon.opaqueNames:        True
  21. Xmon.updateInterval:        60
  22. Xmon.smallFont:    -adobe-courier-medium-r-normal--8-80-75-75-m-50-iso8859-1
  23. Xmon.faceDirectory:        /u/ferguson/lib/images
  24. Xmon.updateCommand:        whoami
  25. Xmon.debug:            False
  26.  
  27. !
  28. ! widgets to create (must include at least infoLabel and faceBox)
  29. !
  30. Xmon.widgets: \
  31.     Form        form        toplevel \n\
  32.     Command        quitButton    form \n\
  33.     Label        infoLabel    form \n\
  34.     Viewport     view        form \n\
  35.     Box        faceBox        form.view
  36.  
  37. !
  38. ! Defaults for classes of widgets
  39. !
  40. Xmon*Command*top:        chainTop
  41. Xmon*Command*bottom:        chainTop
  42. Xmon*Command*left:        chainLeft
  43. Xmon*Command*right:        chainLeft
  44.  
  45. !
  46. ! Defaults for specific widgets
  47. !
  48. Xmon*form.defaultDistance:    2
  49. Xmon*form.borderWidth:        0
  50.  
  51. Xmon*quitButton.label:        Quit
  52. Xmon*quitButton.translations:#override\n\
  53.     <Btn1Up>:    xmon-quit() notify() unset()\n
  54.  
  55. Xmon*updateButton.label:    Update
  56. Xmon*updateButton.fromHoriz:    quitButton
  57. Xmon*updateButton.translations:#override\n\
  58.     <Btn1Up>:    xmon-update() notify() unset()\n
  59.  
  60. Xmon*reinitButton.label:    Re-init
  61. Xmon*reinitButton.fromHoriz:    updateButton
  62. Xmon*reinitButton.translations:#override\n\
  63.     <Btn1Up>:    xmon-reinit() notify() unset()\n
  64.  
  65. Xmon*infoLabel.label:        -- Info shown here --
  66. Xmon*infoLabel.width:        270
  67. Xmon*infoLabel.fromVert:    quitButton
  68. Xmon*infoLabel.top:        chainTop
  69. Xmon*infoLabel.bottom:        chainTop
  70. Xmon*infoLabel.left:        chainLeft
  71.  
  72. !
  73. ! Here's where the "faces" are displayed
  74. !
  75. Xmon*view.allowVert:        True
  76. Xmon*view.allowHoriz:        False
  77. Xmon*view.width:        270
  78. Xmon*view.height:        150
  79. Xmon*view.fromVert:        infoLabel
  80. Xmon*view.top:            chainTop
  81. Xmon*view.left:            chainLeft
  82.  
  83. Xmon*faceBox.orientation:    orientVertical
  84. Xmon*faceBox.hSpace:        2
  85. Xmon*faceBox.vSpace:        2
  86.  
  87. !
  88. ! All the "face" buttons
  89. !
  90. Xmon*face.width:        34
  91. Xmon*face.height:        34
  92. Xmon*face.internalWidth:    1
  93. Xmon*face.internalHeight:    1
  94. Xmon*face.borderWidth:        0
  95. Xmon*face.translations:#override\n\
  96.     <Btn1Down>,<Btn1Up>: toggle() xmon-info() \n
  97.  
  98. !    -    -    -    -    -    -    -    -    -
  99. !
  100. ! xru - Graphically display who's on the system
  101. !
  102.  
  103. xru.updateCommand:        /usr/grads/bin/ru -b0
  104.  
  105. xru.widgets: \
  106.     Form        form        toplevel \n\
  107.     Command        quitButton    form \n\
  108.     Command        updateButton    form \n\
  109.     Command        reinitButton    form \n\
  110.     Command        talkButton    form \n\
  111.     Command        fingerButton    form \n\
  112.     Command        wButton        form \n\
  113.     Label        infoLabel    form \n\
  114.     Viewport     view        form \n\
  115.     Box        faceBox        form.view
  116.  
  117. ! quitButton, updateButton, and reinitButton use Xmon default
  118.  
  119. xru*talkButton.label:        Talk
  120. xru*talkButton.fromHoriz:    reinitButton
  121. xru*talkButton.translations:#override\n\
  122.     <Btn1Down>,<Btn1Up>: \
  123.         xmon-cmd("xterm -title 'talk $1@$3' -e talk $1@$3 &") unset()\n
  124.  
  125. xru*fingerButton.label:        Finger
  126. xru*fingerButton.fromHoriz:    talkButton
  127. xru*fingerButton.translations:#override\n\
  128.     <Btn1Down>,<Btn1Up>: \
  129.         xmon-cmd("xterm -title 'finger $1@$3' -e sh -c 'finger $1@$3|tr -d \\\\015 | less' &") unset()\n
  130.  
  131. xru*wButton.label:        W
  132. xru*wButton.fromHoriz:        fingerButton
  133. xru*wButton.translations:#override\n\
  134.     <Btn1Down>,<Btn1Up>: \
  135.        xmon-cmd("xterm -title 'w $3' -e sh -c 'rsh $3 w | less' &") unset()\n
  136.  
  137. xru*face.translations:#override\n\
  138.     <Btn1Down>,<Btn1Up>: toggle() xmon-info() \n\
  139.     <Key>T: set() xmon-info() \
  140.         xmon-cmd("xterm -title 'talk $1@$3' -e talk $1@$3 &") \n\
  141.     <Key>F: set() xmon-info() \
  142.         xmon-cmd("xterm -title 'finger $1@$3' -e sh -c 'finger $1@$3|tr -d \\\\015 | less' &") \n\
  143.     <Key>W: set() xmon-info() \
  144.         xmon-cmd("xterm -title 'w $3' -e sh -c 'rsh $3 w | less' &")\n
  145.  
  146. !    -    -    -    -    -    -    -    -    -
  147. !
  148. ! xrf - Graphically display free machines on the network
  149. !
  150.  
  151. xrf.addNames:            True
  152. xrf.updateInterval:        0
  153. xrf.updateCommand:        /usr/grads/bin/rf -m
  154.  
  155. xrf.widgets: \
  156.     Form        form        toplevel \n\
  157.     Command        quitButton    form \n\
  158.     Command        updateButton    form \n\
  159.     Command        reinitButton    form \n\
  160.     Command        rloginButton    form \n\
  161.     Command        fingerButton    form \n\
  162.     Command        wButton        form \n\
  163.     Label        infoLabel    form \n\
  164.     Viewport     view        form \n\
  165.     Box        faceBox        form.view
  166.  
  167. ! quitButton, updateButton, and reinitButton use Xmon default
  168.  
  169. xrf*rloginButton.label:        Rlogin
  170. xrf*rloginButton.fromHoriz:    reinitButton
  171. xrf*rloginButton.translations:#override\n\
  172.     <Btn1Down>,<Btn1Up>: \
  173.         xmon-cmd("xterm -title $1 -e rlogin $1 &") unset()\n
  174.  
  175. xrf*fingerButton.label:        Finger
  176. xrf*fingerButton.fromHoriz:    rloginButton
  177. xrf*fingerButton.translations:#override\n\
  178.     <Btn1Down>,<Btn1Up>: \
  179.         xmon-cmd("xterm -title 'finger @$1' -e sh -c 'finger @$1|tr -d \\\\015 | less' &") unset()\n
  180.  
  181. xrf*wButton.label:        W
  182. xrf*wButton.fromHoriz:        fingerButton
  183. xrf*wButton.translations:#override\n\
  184.     <Btn1Down>,<Btn1Up>: \
  185.         xmon-cmd("xterm -title 'w $1' -e sh -c 'rsh $1 w | less' &") unset()\n
  186.  
  187. xrf*face.translations:#override\n\
  188.     <Btn1Down>,<Btn1Up>: toggle() xmon-info() \n\
  189.     <Key>R: set() xmon-info() \
  190.         xmon-cmd("xterm -title rlogin $1 -e rlogin $1 &") \n\
  191.     <Key>F: set() xmon-info() \
  192.         xmon-cmd("xterm -title 'finger @$1' -e sh -c 'finger @$1|tr -d \\\\015 | less' &") \n\
  193.     <Key>W: set() xmon-info() \
  194.         xmon-cmd("xterm -title 'w $1' -e sh -c 'rsh $1 w | less' &")\n
  195.  
  196. !    -    -    -    -    -    -    -    -    -
  197. !
  198. ! xls - Graphically display files and directories
  199. !
  200.  
  201. xls.addNames:            True
  202. xls.updateInterval:        0
  203. xls.updateCommand:        /bin/ls -a
  204. xls.nameCommand:        /u/ferguson/lib/xmon/name2icon
  205.  
  206. xls.widgets: \
  207.     Form        form        toplevel \n\
  208.     Command        quitButton    form \n\
  209.     Command        updateButton    form \n\
  210.     Command        reinitButton    form \n\
  211.     Command        cdButton    form \n\
  212.     Command        lslButton    form \n\
  213.     Command        fileButton    form \n\
  214.     Label        infoLabel    form \n\
  215.     Viewport     view        form \n\
  216.     Box        faceBox        form.view
  217.  
  218. ! quitButton, updateButton, and reinitButton use Xmon default
  219.  
  220. xls*cdButton.label:        Cd
  221. xls*cdButton.fromHoriz:        reinitButton
  222. xls*cdButton.translations:#override\n\
  223.     <Btn1Down>,<Btn1Up>: xmon-cd() xmon-update() unset()\n
  224.  
  225. xls*lslButton.label:        Ls-lg
  226. xls*lslButton.fromHoriz:    cdButton
  227. xls*lslButton.translations:#override\n\
  228.     <Btn1Down>,<Btn1Up>: \
  229.         xmon-cmd("xterm -title 'ls -lg $1' -geometry 80x3 -e sh -c 'ls -lg $1 | less' &") unset()\n
  230.  
  231. xls*fileButton.label:        File
  232. xls*fileButton.fromHoriz:    lslButton
  233. xls*fileButton.translations:#override\n\
  234.     <Btn1Down>,<Btn1Up>: \
  235.         xmon-cmd("xterm -title 'file $1' -geometry 80x3 -e sh -c 'file $1 | less' &") unset()\n
  236.  
  237. xls*face.translations:#override\n\
  238.     <Btn1Down>,<Btn1Up>: toggle() xmon-info() \n\
  239.     <Btn2Down>,<Btn2Up>: \
  240.         set() xmon-cmd("/u/ferguson/lib/xmon/xls-cmd $1 &") \n
  241.  
  242. !    -    -    -    -    -    -    -    -    -
  243. !
  244. ! xfrom - Graphically display whom mail is from
  245. !
  246.  
  247. xfrom.addNames:            False
  248. xfrom.updateInterval:        120
  249. xfrom.updateCommand:        sed -n 's/^From \\([^ ]*\\)/\\1/p' /usr/spool/mail/$USER
  250.  
  251. xfrom.widgets: \
  252.     Form        form        toplevel \n\
  253.     Command        quitButton    form \n\
  254.     Command        updateButton    form \n\
  255.     Command        reinitButton    form \n\
  256.     Command        mailButton    form \n\
  257.     Command        mailtoButton    form \n\
  258.     Label        infoLabel    form \n\
  259.     Viewport     view        form \n\
  260.     Box        faceBox        form.view
  261.  
  262. ! quitButton, updateButton, and reinitButton use Xmon default
  263.  
  264. xfrom*mailButton.label:        Mail
  265. xfrom*mailButton.fromHoriz:    reinitButton
  266. xfrom*mailButton.translations:#override\n\
  267.     <Btn1Down>,<Btn1Up>: \
  268.         xmon-cmd("xterm -title 'Mail' -e Mail &") unset()\n
  269.  
  270. xfrom*mailtoButton.label:    Mail To
  271. xfrom*mailtoButton.fromHoriz:    mailButton
  272. xfrom*mailtoButton.translations:#override\n\
  273.     <Btn1Down>,<Btn1Up>: \
  274.         xmon-cmd("xterm -title 'Mail $1' -e Mail $1 &") unset()\n
  275.