From d2c11a684b415dd4a8797d843de0d4f3d9a6906a Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 14 May 2003 08:30:38 +0000 Subject: [PATCH] r4933: *** empty log message *** --- base-class.lisp | 4 +- tests.lisp | 255 ++++++++++++++++++++++++++++++++++++++++++++---- views.lisp | 11 ++- 3 files changed, 247 insertions(+), 23 deletions(-) diff --git a/base-class.lisp b/base-class.lisp index 4251cf1..93eed69 100644 --- a/base-class.lisp +++ b/base-class.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: base-class.lisp,v 1.7 2003/05/14 05:29:48 kevin Exp $ +;;;; $Id: base-class.lisp,v 1.8 2003/05/14 08:30:38 kevin Exp $ ;;;; ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg ;;;; ************************************************************************* @@ -23,6 +23,6 @@ (:description "Basic hyperobject class")) (defmethod print-object ((obj hyperobject) (s stream)) - (print-unreadable-object (obj s :type t :identity t) + (print-unreadable-object (obj s :type t :identity nil) (funcall (obj-data-func (get-category-view obj :compact-text)) obj s nil))) diff --git a/tests.lisp b/tests.lisp index dd8035a..31bd7fa 100644 --- a/tests.lisp +++ b/tests.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2003 ;;;; -;;;; $Id: tests.lisp,v 1.6 2003/05/14 05:38:09 kevin Exp $ +;;;; $Id: tests.lisp,v 1.7 2003/05/14 08:30:38 kevin Exp $ ;;;; ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg ;;;; ************************************************************************* @@ -25,6 +25,7 @@ :value-type (varchar 30) :value-constraint stringp :hyperlink find-person-by-last-name + :hyperlink-parameters (("narrow" . "yes")) :null-allowed nil) (full-name :value-type string :stored nil) (dob :initarg :dob :accessor dob @@ -68,7 +69,8 @@ :value-constraint stringp) (phone-number :initarg :phone-number :accessor phone-number :value-type (varchar 16) - :value-constraint stringp)) + :value-constraint stringp + :hyperlink search-phone-number)) (:metaclass hyperobject-class) (:user-name "Phone Number") (:default-initargs :title nil :phone-number nil) @@ -127,23 +129,23 @@ (deftest p4 (view-to-string mary :subobjects t :category :html-labels) "

Person: