home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / text / interlea / 570 < prev    next >
Encoding:
Internet Message Format  |  1992-07-25  |  2.4 KB
  1. Path: sparky!uunet!cs.utexas.edu!qt.cs.utexas.edu!yale.edu!yale!hsdndev!news.cs.umb.edu!ram
  2. From: ram@cs.umb.edu (Robert Morris)
  3. Newsgroups: comp.text.interleaf
  4. Subject: Re: Stopping Wrap Prompts
  5. Message-ID: <RAM.92Jul24070541@ra.cs.umb.edu>
  6. Date: 24 Jul 92 12:05:41 GMT
  7. References: <aXmcoB1w163w@zitt>
  8. Sender: news@cs.umb.edu (USENET News System)
  9. Reply-To: ram@cs.umb.edu
  10. Organization: University of Massachusetts at Boston
  11. Lines: 51
  12. In-Reply-To: joe@zitt's message of 23 Jul 92 05: 11:09 GMT
  13. Nntp-Posting-Host: ra.cs.umb.edu
  14.  
  15. In article <aXmcoB1w163w@zitt> joe@zitt (Joe Zitt) writes:
  16.  
  17.    Path: news.cs.umb.edu!hsdndev!news.bbn.com!olivea!uunet!cs.utexas.edu!natinst.com!balkan!dogface!zitt!joe
  18.    From: joe@zitt (Joe Zitt)
  19.    Newsgroups: comp.text.interleaf
  20.    Date: 23 Jul 92 05:11:09 GMT
  21.    Organization: Metatron Press / Human Systems Performance Group, Austin, TX
  22.    Lines: 17
  23.  
  24.    (Interleaf 5 on a RISC System/6000)
  25.  
  26.    I'm creating a tool that goes through books of Interleaf documents, collecting
  27.    and listing instances of NO TAGs. To do this, I'm using
  28.        (tell *text-editor* mid:goto :reference nil)
  29.    or something like it (I'm not at that system now).
  30.  
  31.    Unfortunately, everytime it hits the end of a file, it shows a Wrap or
  32.    Cancel window, requiring the user to press Enter (or click the mouse)
  33.    before it can proceed to the next document. This makes it difficult to
  34.    run the program without someone there to babysit it.
  35.  
  36.    Is there anyway to get it to stop such a search when it hits the end of
  37.    the document?
  38.    --
  39.    "Go to an extreme and then retreat to a more useful position"  --  Brian Eno
  40.    Joe Zitt            ...cs.utexas.edu!kvue!zitt!joe             (512)450-1916
  41.  
  42. ------------------
  43. We use
  44.     (stk-intercept stk:doc-wrap-search-fwd   '(lambda (&rest bogus) nil))
  45.     (stk-intercept stk:doc-wrap-search-back '(lambda (&rest bogus) nil)))
  46.  
  47. to turn off the wrap stickups by subclassing them to provide an
  48. empty open method.
  49.  
  50.     (stk-disable STK-OBJ)
  51.  
  52. may be less archaic, and from its name, I would guess it is preferred.
  53.  
  54.         (stk-unintercept stk:doc-wrap-search-fwd)
  55.         (stk-unintercept stk:doc-wrap-search-back))
  56.  
  57. will turn them on. I didn't notice any explicit stk-enable, and the
  58. relevant doc string seems to suggest using this with stk-disable anyway.
  59.  
  60. At least in 5.3, and probably earlier, all of this is deducible from
  61. "apropos wrap" and "apropos stk".
  62.  
  63.  
  64. Bob Morris
  65. ram@cs.umb.edu
  66.