/[mcclim]/mcclim/sheets.lisp
ViewVC logotype

Diff of /mcclim/sheets.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by cvs, Wed Nov 29 19:46:38 2000 UTC revision 1.14 by boninfan, Thu May 3 09:45:52 2001 UTC
# Line 528  sheet-supports-only-one-child error to b Line 528  sheet-supports-only-one-child error to b
528  (defmethod sheet-direct-mirror ((sheet mirrored-sheet))  (defmethod sheet-direct-mirror ((sheet mirrored-sheet))
529    (port-lookup-mirror (port sheet) sheet))    (port-lookup-mirror (port sheet) sheet))
530    
531    (defmethod (setf sheet-direct-mirror) (mirror (sheet mirrored-sheet))
532      (port-register-mirror (port sheet) sheet mirror))
533    
534  (defmethod sheet-mirrored-ancestor ((sheet mirrored-sheet))  (defmethod sheet-mirrored-ancestor ((sheet mirrored-sheet))
535    sheet)    sheet)
536    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5