[ REQ 6726]: problem sending "(normalization World {none})" from my app

[david at capitole.lema.ulg.ac.be]

Hello,

I am building an application (for our students) which interacts with geomview. I 
properly established the connection with geomview and I am able to send OFF
geometry (for exemple).

But I can not succeed asking geomview to turn normalization off. Here is what I
send to the socket:

	(defun geom-normalisation-off ()
	  (format *geom-listener* "(normalization World {none})~%"))

Our app is build using Winterp. The *geom-listener* is the pipe stream: geomview
is launched with the following options:

	"-Mcp" "geom-listener" "-" "(ui-panel main off)"

When I call (geom-normalisation-off) and manually go to geomview for
"Main:Inspect:Appearance" it desesperately remain "Individual".

Is there anything wrong in the way I am doing things?

Thanks for your help,
David

Here below is also the launching geomview function, just form information.

(defun start-geomview ()
  (unless (is-geomview-p)
    (exp_stty_init "9600 echo")		;echo characters from exp_spawn'd subprocess, need to force
					;this because running WINTERP as emacs subprocess doesn't echo,
					;force 9600 baud since WINTERP-as-emacs-subprocess defaults
					;to 300 (??)
    (setq *geom-pty* (exp_spawn "geomview" "geomview"
				   "-Mcp" "geom-listener" "-" "(ui-panel main off)"
				   ;; "-nopanels"
				 ;; "-c" "-"
				   ))
    (setq *geom-listener* (open "/tmp/geomview/geom-listener"
		       :direction :output
		       :if-does-not-exist :create
		       :if-exists :overwrite))
    (setq *geom-pid* (exp_get_pid))
    ;; I am the best
    (setq *geom-read-sexp-cb* (xt_add_input	;XtAppAddInput()
			  *geom-pty* :READ_SEXP_TO_USTREAM
			  '(;; :READ_SEXP_TO_USTREAM fires callback once per s-expression,
			    ;; binding FDINPUTCB_USTREAM
			    ;; (format t "~S~%" (read FDINPUTCB_USTREAM))
			    (setq *geomview-last-sexp* (read FDINPUTCB_USTREAM))
			    )))
    #+comment
    (setq *geom-input-cb* (xt_add_input	;XtAppAddInput()
		      *geom-pty* :READ_LINE_TO_STRING
		      '(;; READ_LINE_TO_STRING fires callback once per line, binding line to FDINPUTCB_STRING
			(format t "~A~%" (read FDINPUTCB_STRING))
			)
		      ))
    ))