home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / lisp / mcl / 1324 < prev    next >
Encoding:
Text File  |  1992-08-26  |  1.5 KB  |  51 lines
  1. Newsgroups: comp.lang.lisp.mcl
  2. Path: sparky!uunet!math.fu-berlin.de!fauern!dec16!wina65.informatik.uni-wuerzburg.de!user
  3. From: poeck@informatik.uni-wuerzburg.de (karsten poeck)
  4. Subject: Re: table-dialog-item
  5. Message-ID: <poeck-270892101813@wina65.informatik.uni-wuerzburg.de>
  6. Followup-To: comp.lang.lisp.mcl
  7. Sender: news@informatik.uni-wuerzburg.de (USENET News account)
  8. Organization: university of wuerzburg
  9. References: <9208252346.AA12823@dewey>
  10. Date: Thu, 27 Aug 1992 08:16:07 GMT
  11. Lines: 38
  12.  
  13. In article <9208252346.AA12823@dewey>, berger@SOE.Berkeley.Edu (Daniel
  14. Berger) wrote:
  15. > 
  16. > 
  17. > Here is a pretty silly question -
  18. > 
  19. > Is there a programable way to set the contents of a (single) cell of a
  20. > table-dialog-item or a sequence-dialog-item?  I do not want to set the
  21. > contents of the entire sequence (i.e., with set-table-sequence - I'd like
  22. > something like "set-cell-content"), as I do not know what the content is.
  23. > (I may be reading the content in from a file, and would like to create
  24. > the table first and fill the content as I go along).
  25. > 
  26. > Am I missing something obvious?
  27. > 
  28. > Daniel
  29.  
  30. (defclass my-sequence-dialog-item (sequence-dialog-item)
  31.   ()
  32.   )
  33.  
  34. (defmethod set-sequence-cell ((ich  my-sequence-dialog-item) index value)
  35.   (setf (nth index (table-sequence ich)) value)
  36.   (invalidate-view ich)
  37.   )
  38.  
  39. #|
  40.  
  41.  
  42. (setq haus  (make-instance 'my-sequence-dialog-item
  43.               :cell-size (make-point 100 20)
  44.               :table-sequence '(1 2 3 4 5 6 7 8 9)))
  45.  
  46. (make-instance 'dialog
  47.   :view-subviews (list haus))
  48.  
  49. (set-sequence-cell haus 4 99)
  50. |#
  51.