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

Contents of /mcclim/views.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (show annotations)
Tue Jan 11 13:02:19 2005 UTC (9 years, 3 months ago) by tmoore
Branch: MAIN
CVS Tags: McCLIM-0-9-1
Changes since 1.5: +7 -0 lines
Implement :SINGLE-BOX properly.:SINGLE-BOX NIL is the default, but
McCLIM has ignored it. This changes (for the better) the behavior of
applications.

Implement PRESENTATION-REFINED-POSITION-TEST.

If the view argument to ACCEPT is a list, apply MAKE-INSTANCE to the
list to obtain the view.

Fix a bug in dialogs that prevented moving on to the next text field
after hitting return.

Define a new view type, TEXT-FIELD-VIEW, that is used in
dialogs. This view has a WIDTH parameter.
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 (define-protocol-class view ())
25
26 (defclass textual-view (view)
27 ())
28
29 (defclass textual-menu-view (textual-view)
30 ())
31
32 (defclass textual-dialog-view (textual-view)
33 ())
34
35 (defclass gadget-view (view)
36 ())
37
38 (defclass gadget-menu-view (gadget-view)
39 ())
40
41 (defclass gadget-dialog-view (gadget-view)
42 ())
43
44 (defclass pointer-documentation-view (textual-view)
45 ())
46
47 ;;; Views described in the Franz User manual...
48
49 (defclass text-field-view (gadget-dialog-view)
50 ((width :accessor width :initarg :width :initform nil)))
51
52 (defparameter +textual-view+ (make-instance 'textual-view))
53
54 (defparameter +textual-menu-view+ (make-instance 'textual-menu-view))
55
56 (defparameter +textual-dialog-view+ (make-instance 'textual-dialog-view))
57
58 (defparameter +gadget-view+ (make-instance 'gadget-view))
59
60 (defparameter +gadget-menu-view+ (make-instance 'gadget-menu-view))
61
62 (defparameter +gadget-dialog-view+ (make-instance 'gadget-dialog-view))
63
64 (defparameter +pointer-documentation-view+
65 (make-instance 'pointer-documentation-view))
66
67 (defparameter +text-field-view+ (make-instance 'text-field-view))
68
69 (defmethod stream-default-view (stream)
70 (declare (ignore stream))
71 +textual-view+)
72

  ViewVC Help
Powered by ViewVC 1.1.5