/[defeditor]/DefEditor/src/presentation.lisp
ViewVC logotype

Contents of /DefEditor/src/presentation.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Mon Feb 16 02:23:09 2004 UTC (10 years, 2 months ago) by rjain
Branch: MAIN
CVS Tags: HEAD
move code into src/ dir
1 (in-package :defeditor)
2
3 (define-presentation-type structure-element ())
4
5 (defclass structured-document-pane (vbox-pane)
6 (())
7 (:default-initargs :scroll-bars :vertical :default-view +graphical-view+))
8
9 (define-presentation-method present (object (type structure-element) stream (view graphical-view) &key)
10 (declare (ignore view))
11 (make-pane 'structure-element-pane structure-element))
12
13 (defclass structure-element-pane (multiple-child-composite-pane)
14 ((begin-pane :reader begin-pane)
15 (end-pane :reader end-pane)))

  ViewVC Help
Powered by ViewVC 1.1.5