Viewport size in DW panes

[will taylor <taylor%charon.arc.nasa.gov@RELAY.CS.NET>]

I have been attempting to get full use of a DW pane (command),
i.e. be able to draw strings anywhere in the viewport.
However the problem seems to be that the pane's viewport
is not determined by the :inside-size, but by the number
of integral :line-heights which will fit into the pane
beginning at 0. For example: :inside-size height = 47, and
:line-height 17 [:default-character-style '(:swiss :bold :large)]
result in a viewport of 0-34, not 0-47. My work-around
is to set :vsp = 0, thus reducing the :line-height to 15, and
thus the viewport to 0-45, however this is not a general
solution to the situation. Suggestions solicited.

Thanks - Will Taylor
-------------------------------------------
Code follows:

  :panes 
  ((banner :display
	   :flavor dw::dynamic-window-pane
	   :reverse-video-p t
	   :save-bits t
	   :blinker-p nil      
	   :deexposed-typeout-action :permit
	   :redisplay-string (format nil "ASAP UI - Display   ~vNASA Ames - RIA~"
				     '(:dutch :italic :small))
	   :default-character-style '(:fix :bold :large)   
	   :margin-components
	   '((dw:margin-borders :thickness 1)
	     (dw:margin-white-borders :thickness 1)
	     (dw:margin-whitespace :margin :top :thickness 2)))
   (command :display
	    :flavor command-pane
	    :save-bits t
	    :blinker-p nil
	    :redisplay-function 'display-command-pane-toplevel
	    :default-character-style '(:swiss :bold :large)
	    :vsp 0				; FORCE LINE HEIGHT TO 15 TO GET THREE LINES OUT OF 47
	    :more-p nil
	    :deexposed-typeout-action :permit
	    :margin-components
	    '((dw:margin-borders :thickness 1)))
....
  :configurations
  '((standard-config
      (:layout
	(standard-config :column
			 top-section
			 tasks-section
			 time-scroll-section
			 time&time-scale
			 resources-section)
	(top-section :row
		     project
		     global
		     banner-section)
	(banner-section :column
			banner
			command)
....
      (:sizes
	(standard-config (top-section 4 :lines project)
			 (tasks-section :limit (15 18 :lines tasks) 0.408)
			 (resources-section :limit (20 23 :lines resources) 0.408)
			 (time&time-scale 2 :lines time)
			 :then (time-scroll-section :even))
	(top-section
	  (project  16 :characters)
	  (banner-section  34 :characters banner)
	  :then (global :even))
	(banner-section
	  (banner 1 :lines)
	  :then (command :even))