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

Contents of /mcclim/views.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Fri Aug 9 12:45:18 2002 UTC (11 years, 8 months ago) by mikemac
Branch: MAIN
Changes since 1.1: +4 -0 lines
stream-default-view returns +textual-view+ as a default on non CLIM streams
1 ;;; -*- Mode: Lisp; Package: CLIM-INTERNALS -*-
2
3 ;;; (c) copyright 2001 by Tim Moore (moore@bricoworks.com)
4 ;;; This library is free software; you can redistribute it and/or
5 ;;; modify it under the terms of the GNU Library General Public
6 ;;; License as published by the Free Software Foundation; either
7 ;;; version 2 of the License, or (at your option) any later version.
8 ;;;
9 ;;; This library is distributed in the hope that it will be useful,
10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 ;;; Library General Public License for more details.
13 ;;;
14 ;;; You should have received a copy of the GNU Library General Public
15 ;;; License along with this library; if not, write to the
16 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
17 ;;; Boston, MA 02111-1307 USA.
18
19 (in-package :CLIM-INTERNALS)
20
21 ;;; Views are defined here and not in presentations.lisp so that they
22 ;;; can be referenced in the streams code.
23
24 (defclass view ()
25 ())
26
27 (defun viewp (object)
28 (typep object 'view))
29
30 (defclass textual-view (view)
31 ())
32
33 (defclass textual-menu-view (textual-view)
34 ())
35
36 (defclass textual-dialog-view (textual-view)
37 ())
38
39 (defclass gadget-view (view)
40 ())
41
42 (defclass gadget-menu-view (gadget-view)
43 ())
44
45 (defclass gadget-dialog-view (gadget-view)
46 ())
47
48 (defclass pointer-documentation-view (textual-view)
49 ())
50
51 (defparameter +textual-view+ (make-instance 'textual-view))
52
53 (defparameter +textual-menu-view+ (make-instance 'textual-menu-view))
54
55 (defparameter +textual-dialog-view+ (make-instance 'textual-dialog-view))
56
57 (defparameter +gadget-view+ (make-instance 'gadget-view))
58
59 (defparameter +gadget-menu-view+ (make-instance 'gadget-menu-view))
60
61 (defparameter +gadget-dialog-view+ (make-instance 'gadget-dialog-view))
62
63 (defparameter +pointer-documentation-view+
64 (make-instance 'pointer-documentation-view))
65
66 (defmethod stream-default-view (stream)
67 +textual-view+)
68

  ViewVC Help
Powered by ViewVC 1.1.5