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+)