Commit c6b6ecab authored by Alastair Bridgewater's avatar Alastair Bridgewater
Browse files

sheet/: Go back and enable the parts of mirrored sheets that use PORT.

  * Now that we have the PORT reader function, go back and enable
the parts of the mirrored sheet system that implement it.
parent 12e0e590
......@@ -7,7 +7,8 @@
(cl:defpackage :nq-clim/sheet/mirror-functions
(:use :cl
:nq-clim/sheet/sheet
:nq-clim/sheet/sheet-hierarchy-protocol)
:nq-clim/sheet/sheet-hierarchy-protocol
:nq-clim/port/port)
(:export
"SHEET-DIRECT-MIRROR"
"SHEET-MIRRORED-ANCESTOR"
......@@ -44,7 +45,6 @@
;; (defgeneric raise-mirror (port sheet))
;; (defgeneric bury-mirror (port sheet))
#+(or) ;; PORT generic function yet to be defined.
(defmethod port ((sheet sheet))
nil)
......
......@@ -6,7 +6,8 @@
(cl:defpackage :nq-clim/sheet/mirrored-sheet-mixin
(:use :cl
:nq-clim/sheet/mirror-functions)
:nq-clim/sheet/mirror-functions
:nq-clim/port/port)
(:export
"MIRRORED-SHEET-MIXIN"))
(cl:in-package :nq-clim/sheet/mirrored-sheet-mixin)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment