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

Diff of /mcclim/views.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by strandh, Mon Nov 3 08:12:35 2003 UTC revision 1.6 by tmoore, Tue Jan 11 13:02:19 2005 UTC
# Line 44  Line 44 
44  (defclass pointer-documentation-view (textual-view)  (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))  (defparameter +textual-view+ (make-instance 'textual-view))
53    
54  (defparameter +textual-menu-view+ (make-instance 'textual-menu-view))  (defparameter +textual-menu-view+ (make-instance 'textual-menu-view))
# Line 59  Line 64 
64  (defparameter +pointer-documentation-view+  (defparameter +pointer-documentation-view+
65    (make-instance 'pointer-documentation-view))    (make-instance 'pointer-documentation-view))
66    
67    (defparameter +text-field-view+ (make-instance 'text-field-view))
68    
69  (defmethod stream-default-view (stream)  (defmethod stream-default-view (stream)
70    (declare (ignore stream))    (declare (ignore stream))
71    +textual-view+)    +textual-view+)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5