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

Contents of /mcclim/views.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (hide annotations)
Fri Mar 10 21:58:13 2006 UTC (8 years, 1 month ago) by tmoore
Branch: MAIN
CVS Tags: mcclim-0-9-4, McCLIM-0-9-5, McCLIM-0-9-4, McCLIM-0-9-3, McCLIM-0-9-2
Changes since 1.6: +0 -2 lines
Move most protocol class definitions into protocol-classes.lisp, which
is compiled and loaded early. Some class definitions, which had slot
definitions that I didn't have the stomach to tease apart, stayed
behind.

Replace the presentation documentation state mechanism with
updating-output so that other functions / programs can write to the
pointer documentation area and not screw things up. We still use the
state to actually print the documentation.
1 moore 1.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 mikemac 1.4 (in-package :clim-internals)
20 moore 1.1
21     ;;; Views are defined here and not in presentations.lisp so that they
22     ;;; can be referenced in the streams code.
23    
24     (defclass textual-view (view)
25     ())
26    
27     (defclass textual-menu-view (textual-view)
28     ())
29    
30     (defclass textual-dialog-view (textual-view)
31     ())
32    
33     (defclass gadget-view (view)
34     ())
35    
36     (defclass gadget-menu-view (gadget-view)
37     ())
38    
39     (defclass gadget-dialog-view (gadget-view)
40     ())
41    
42     (defclass pointer-documentation-view (textual-view)
43     ())
44    
45 tmoore 1.6 ;;; Views described in the Franz User manual...
46    
47     (defclass text-field-view (gadget-dialog-view)
48     ((width :accessor width :initarg :width :initform nil)))
49    
50 moore 1.1 (defparameter +textual-view+ (make-instance 'textual-view))
51    
52     (defparameter +textual-menu-view+ (make-instance 'textual-menu-view))
53    
54     (defparameter +textual-dialog-view+ (make-instance 'textual-dialog-view))
55    
56     (defparameter +gadget-view+ (make-instance 'gadget-view))
57    
58     (defparameter +gadget-menu-view+ (make-instance 'gadget-menu-view))
59    
60     (defparameter +gadget-dialog-view+ (make-instance 'gadget-dialog-view))
61    
62     (defparameter +pointer-documentation-view+
63     (make-instance 'pointer-documentation-view))
64 tmoore 1.6
65     (defparameter +text-field-view+ (make-instance 'text-field-view))
66 mikemac 1.2
67     (defmethod stream-default-view (stream)
68 strandh 1.5 (declare (ignore stream))
69 mikemac 1.2 +textual-view+)
70    

  ViewVC Help
Powered by ViewVC 1.1.5