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

Contents of /mcclim/output.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Thu Jun 8 22:01:12 2000 UTC (13 years, 10 months ago) by mikemac
Branch: MAIN
Branch point for: initial
Initial revision
1 mikemac 1.1 ;;; -*- Mode: Lisp; Package: CLIM-INTERNALS -*-
2    
3     ;;; (c) copyright 1998,1999,2000 by Michael McDonald (mikemac@mikemac.com)
4    
5     ;;; This library is free software; you can redistribute it and/or
6     ;;; modify it under the terms of the GNU Library General Public
7     ;;; License as published by the Free Software Foundation; either
8     ;;; version 2 of the License, or (at your option) any later version.
9     ;;;
10     ;;; This library is distributed in the hope that it will be useful,
11     ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12     ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13     ;;; Library General Public License for more details.
14     ;;;
15     ;;; You should have received a copy of the GNU Library General Public
16     ;;; License along with this library; if not, write to the
17     ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18     ;;; Boston, MA 02111-1307 USA.
19    
20     (in-package :CLIM-INTERNALS)
21    
22     (defclass standard-sheet-output-mixin ()
23     (
24     ))
25    
26     (defclass mute-sheet-output-mixin ()
27     (
28     ))
29    
30     (defclass permanent-medium-sheet-output-mixin (standard-sheet-output-mixin)
31     ((medium :accessor sheet-medium)
32     ))
33    
34     (defmethod initialize-instance :after ((sheet permanent-medium-sheet-output-mixin) &rest args)
35     (declare (ignore args))
36     (setf (sheet-medium sheet) (make-medium (port sheet) sheet)))
37    
38     (defclass temporary-medium-sheet-output-mixin (standard-sheet-output-mixin)
39     ((medium :initform nil
40     :accessor sheet-medium)
41     ))

  ViewVC Help
Powered by ViewVC 1.1.5