home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / lang / lisp / mcl / 1560 < prev    next >
Encoding:
Text File  |  1992-11-09  |  1.5 KB  |  38 lines
  1. Newsgroups: comp.lang.lisp.mcl
  2. Path: sparky!uunet!sun-barr!cs.utexas.edu!sdd.hp.com!caen!uwm.edu!daffy!uwvax!uchinews!tango.uchicago.edu!mcdougal
  3. From: Tom McDougal <mcdougal@cs.uchicago.edu>
  4. Subject: Re: parallel text dialog items
  5. Message-ID: <1992Nov9.172923.6367@midway.uchicago.edu>
  6. X-Xxmessage-Id: <A723FB7421041453@tango.uchicago.edu>
  7. X-Xxdate: Mon, 9 Nov 92 17:26:44 GMT
  8. Sender: news@uchinews.uchicago.edu (News System)
  9. Organization: Univ. of Chicago Computer Science
  10. X-Useragent: Nuntius v1.1.1d12
  11. References: <1992Nov9.170736.5118@midway.uchicago.edu>
  12. Date: Mon, 9 Nov 1992 17:29:23 GMT
  13. Lines: 23
  14.  
  15. >I want to have text appear simultaneously in two places within a
  16. >window.  A variant on the text-edit-dialog-item (from the examples
  17. >folder) would be fine, but I'm not sure how to pass the key-events
  18. >to multiple dialog items.  Several attempts so far have failed.
  19.  
  20. For the record, here is one attempt which did not work.
  21. If someone could help me understand why, I would be grateful:
  22.  
  23. (defclass twin-text-item (aligned-text-dialog-item)
  24.   ((brother :accessor brother :initarg :brother 
  25.             :type 'text-edit-dialog-item)))
  26.  
  27. (defmethod key-event-handler :after ((self twin-text-item) char)
  28.   (key-event-handler (brother self) char))
  29.  
  30.  
  31. ----------------------------------------------------------------------
  32. -Tom McDougal          mcdougal@cs.uchicago.edu         (312) 702-0024
  33. Dept. of Computer Science, University of Chicago
  34.  
  35.         1051, Lady Godiva puts everything she has
  36.         on a horse.  Citizens of Coventry place bets
  37.         for Godiva to show.
  38.