[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Window System Choice Facilities Question



    Date: Fri, 4 Jan 91 18:27:44 EST
    From: djs@stdb.jhuapl.edu (David J. Scheerer)

    Does anyone know if it is possible to have a tv:choose-variable-values-window
    be a command-menu (permanent) rather than a pop-up menu or a momentary menu?  
    If not, are there any ideas for ways to acheive the same behavior, namely, 
    have a menu with choose-variable-values functionality that is always exposed 
    and activated?
				    Thanks in advance, Dave

    --------------------------------------------------------------------
    David J. Scheerer  [djs@stdb.jhuapl.edu]  (301) 792-5000 x3144, 3440 
    JHU/Applied Physics Lab 7-111 Johns Hopkins Rd. Laurel, MD 20723     

If you're working with a DW Program Framework, the way to do it is 
the :ACCEPT-VALUES-FUNCTION keyword on an :ACCEPT-VALUES pane.


1Excerpt:

0(DW:DEFINE-PROGRAM-FRAMEWORK ScatterPlot
  ...
  :STATE-VARIABLES ((Left-Margin 75.0)
		    ...
		    (Unit NIL)
		    ...)
  :PANES
  (...
   (ACCEPT-VALUES :ACCEPT-VALUES
		  :ACCEPT-VALUES-FUNCTION 'Accept-ScatterPlot-Variables
		  :SIZE-FROM-OUTPUT T
		  :REDISPLAY-AFTER-COMMANDS T)
	...))


(defmethod 2(Accept-ScatterPlot-Variables ScatterPlot)0 (Stream)
  (setf Unit (accept 'Unit
		     :prompt "Unit"
		     :default Unit
		     :stream Stream))
  (format Stream "~%")
  (setf Left-Margin
	(accept 'number
		:prompt "Left   Margin"
		:default Left-Margin
		:stream Stream
		:query-identifier 1))
  ...)