80431c30cbf37d7e9b211e8c2a351ef5ad0d1515
[clinton/lisp-on-lines.git] / src / ucw / contextl-components.lisp
1 (in-package :lisp-on-lines-ucw)
2
3 #+nil (defclass contextl-session-frame (ucw-core::standard-session-frame)
4 ())
5
6 #+nil(defmethod ucw-core::register-callback-in-frame ((frame contextl-session-frame) callback &key &allow-other-keys)
7 (let ((lambda (ucw::callback-lambda callback)))
8 (let ((context (contextl:current-layer-context)))
9 (setf (ucw::callback-lambda callback)
10 (lambda (arg)
11 (contextl:funcall-with-layer-context context lambda arg)))
12 (call-next-method))))
13
14 #+nil(setf ucw-core::*session-frame-class* 'contextl-session-frame)
15
16