(FILECREATED "27-Oct-86 21:48:28" {QV}<IDL>DINDE>DINDE-CANTILEVER-PATCH.;2
 1649   

      changes to:  (VARS DINDE-CANTILEVER-PATCHCOMS)
		   (ADVICE ExplicitFnActiveValue.GetWrappedValue)

      previous date: "27-Oct-86 19:48:16" {QV}<IDL>DINDE>DINDE-CANTILEVER-PATCH.;1)


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT DINDE-CANTILEVER-PATCHCOMS)

(RPAQQ DINDE-CANTILEVER-PATCHCOMS
 ((ADVISE ExplicitFnActiveValue.GetWrappedValue)
				     (METHODS XYPlot.PromptForPointLabels)))

(PUTPROPS ExplicitFnActiveValue.GetWrappedValue READVICE
 [NIL
	    (BEFORE NIL (if (LISTP (@ getFn))
			    then
			    (RETURN (LET* ((oldself self)
					   (self containingObj))
					  (EVAL (@ oldself getFn])
(READVISE ExplicitFnActiveValue.GetWrappedValue)
[METH XYPlot  PromptForPointLabels (ThePromptWindow)

      (* New method template)]


(DEFINEQ

(XYPlot.PromptForPointLabels

  [Method ((XYPlot PromptForPointLabels)
	   self ThePromptWindow)                             (* edited: "27-Oct-86 21:43")

                                                             (* New method template)

	  (DECLARE
 (
SPECVARS
 PROMPTWINDOW))
	  (if
 (
NULL
 ThePromptWindow)
	      then
 (
SETQ
 ThePromptWindow PROMPTWINDOW))
	  (LET ((TheLabels (
PromptRead
 
"Give a StringVector, or List, containing the labels for the points in the plot (or NIL for default):"
					 ThePromptWindow T)))
	       (if
 (
LISTP
 TheLabels)
		   then
 (
C
 TheLabels)
		 else
 (
$!
 TheLabels])
)
(PUTPROPS DINDE-CANTILEVER-PATCH COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (885 1556 (XYPlot.PromptForPointLabels 895 . 1554)))))
STOP