[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv334

Modified Files:
	package.lisp views.lisp 
Log Message:
Added stub classes and constants for gadget views. Programs using
these will at least compile now, though they may not work.

Hopefully, this batch of stub views will be like a sad puppy in the
corner, sooner or later guilting someone into finishing the
implementation.


--- /project/mcclim/cvsroot/mcclim/package.lisp	2007/11/19 20:28:44	1.63
+++ /project/mcclim/cvsroot/mcclim/package.lisp	2008/01/12 11:04:05	1.64
@@ -873,6 +873,8 @@
    #:line-style-unit                    ;generic function
    #:linep                              ;predicate
    #:list-pane                          ;class
+   #:list-pane-view                     ;class
+   #:+list-pane-view+                   ;constant
    #:lookup-keystroke-command-item      ;function
    #:lookup-keystroke-item              ;function
    #:make-3-point-transformation        ;function
@@ -1039,6 +1041,8 @@
    #:open-stream-p                      ;generic function
    #:open-window-stream                 ;function
    #:option-pane                        ;class
+   #:option-pane-view                   ;class
+   #:+option-pane-view+                 ;constant
    #:or                                 ;presentation type
    #:oriented-gadget-mixin              ;class
    #:outlined-pane                      ;pane
@@ -1167,6 +1171,8 @@
    #:propagate-output-record-changes-p  ;generic function
    #:push-button                        ;class
    #:push-button-pane                   ;class
+   #:push-button-view                   ;class
+   #:+push-button-view+                 ;constant
    #:push-button-show-as-default        ;generic function
    #:queue-event                        ;generic function
    #:queue-repaint                      ;generic function
@@ -1175,6 +1181,8 @@
    #:radio-box-current-selection        ;generic function
    #:radio-box-pane                     ;class
    #:radio-box-selections               ;generic function
+   #:radio-box-view                     ;class
+   #:+radio-box-view+                   ;class
    #:raise-frame                        ;generic function
    #:raise-mirror                       ;generic function
    #:raise-sheet                        ;generic function
@@ -1313,6 +1321,8 @@
    #:slider                             ;class
    #:slider-drag-callback               ;generic function
    #:slider-pane                        ;class
+   #:slider-view                        ;slider-view
+   #:+slider-view+                      ;constant
    #:space-requirement                  ;class
    #:space-requirement+                 ;function
    #:space-requirement+*                ;function
@@ -1464,6 +1474,8 @@
    #:text-displayed-output-record-string ;generic function
    #:text-editor                        ;class
    #:text-editor-pane                   ;class
+   #:text-editor-view                   ;class
+   #:+text-editor-view+                 ;constant
    #:text-field                         ;class
    #:text-field-pane                    ;class
    #:text-field-view                    ;class (Franz User's Guide)
@@ -1489,6 +1501,8 @@
    #:toggle-button                      ;class
    #:toggle-button-indicator-type       ;generic function
    #:toggle-button-pane                 ;class
+   #:toggle-button-view                 ;class
+   #:+toggle-button-view+               ;constant
    #:token-or-type                      ;presentation type abbrev
    #:tracking-pointer                   ;macro
    #:transform-distance                 ;generic function
--- /project/mcclim/cvsroot/mcclim/views.lisp	2006/03/10 21:58:13	1.7
+++ /project/mcclim/cvsroot/mcclim/views.lisp	2008/01/12 11:04:05	1.8
@@ -42,11 +42,35 @@
 (defclass pointer-documentation-view (textual-view)
   ())
 
-;;; Views described in the Franz User manual...
+;;; Views described in the Franz User manual (CLIM 2.2)...
+
+(defclass toggle-button-view (gadget-view)
+  ())
+
+(defclass push-button-view (gadget-view)
+  ())
+
+(defclass radio-box-view (gadget-view)
+  ())
+
+(defclass check-box-view (gadget-view)
+  ())
+
+(defclass slider-view (gadget-view)
+  ())
 
 (defclass text-field-view (gadget-dialog-view)
   ((width :accessor width :initarg :width :initform nil)))
 
+(defclass text-editor-view (gadget-view)
+  ())
+
+(defclass list-pane-view (gadget-view)
+  ())
+
+(defclass option-pane-view (gadget-view)
+  ())
+
 (defparameter +textual-view+ (make-instance 'textual-view))
 
 (defparameter +textual-menu-view+ (make-instance 'textual-menu-view))
@@ -59,11 +83,24 @@
 
 (defparameter +gadget-dialog-view+ (make-instance 'gadget-dialog-view))
 
-(defparameter +pointer-documentation-view+
-  (make-instance 'pointer-documentation-view))
+(defparameter +pointer-documentation-view+ (make-instance 'pointer-documentation-view))
+
+(defparameter +toggle-button-view+ (make-instance 'toggle-button-view))
+
+(defparameter +push-button-view+ (make-instance 'push-button-view))
+
+(defparameter +radio-box-view+ (make-instance 'radio-box-view))
+
+(defparameter +slider-view+ (make-instance 'slider-view))
 
 (defparameter +text-field-view+ (make-instance 'text-field-view))
 
+(defparameter +text-editor-view+ (make-instance 'text-editor-view))
+
+(defparameter +list-pane-view+ (make-instance 'list-pane-view))
+
+(defparameter +option-pane-view+ (make-instance 'option-pane-view))
+
 (defmethod stream-default-view (stream)
   (declare (ignore stream))
   +textual-view+)