Commit 81d7ffa8 authored by Dave Cooper's avatar Dave Cooper

try to remove scrollbars from x3dom viewport, updated glime to latest dev version.

parent f9f8b4d9
......@@ -442,25 +442,30 @@ each returning a list of proposed messages.")
(or (embedded-the-arglist) (call-next-method)))
(defun embedded-the-arglist ()
(let* ((whole-form *form-with-arglist*)
(this-the (or (this-the-from-form whole-form)
;; The gendl:the form isn't embedded inside a define-object or
;; one of the gendl:the macros. Bail out.
(return-from embedded-the-arglist
nil))))
(when-let (messages (remove-duplicates (loop for locator in *message-locators* append
(funcall locator this-the whole-form))
:from-end t))
(values (or (loop for message in messages
when (arglist-p message)
return message)
(make-arglist :key-p t
:keyword-args (loop for message in messages collect
(make-keyword-arg message message nil))
:provided-args nil
:allow-other-keys-p t
:rest 'reference-chain))
nil t))))
;;DJC
;;
;; Fixes "error in process filter" from within getpid of watchdog/source/assembly.lisp.
;;
(ignore-errors
(let* ((whole-form *form-with-arglist*)
(this-the (or (this-the-from-form whole-form)
;; The gendl:the form isn't embedded inside a define-object or
;; one of the gendl:the macros. Bail out.
(return-from embedded-the-arglist
nil))))
(when-let (messages (remove-duplicates (loop for locator in *message-locators* append
(funcall locator this-the whole-form))
:from-end t))
(values (or (loop for message in messages
when (arglist-p message)
return message)
(make-arglist :key-p t
:keyword-args (loop for message in messages collect
(make-keyword-arg message message nil))
:provided-args nil
:allow-other-keys-p t
:rest 'reference-chain))
nil t)))))
;; 9.1. Analyse the current gendl:the form
......
......@@ -369,6 +369,8 @@ to call the :write-embedded-x3d-world function."))
((:script :type "text/javascript")
"x3dom.reload();")
#+nil
(when (the x3dom-view-controls?)
(htm (:tr (:td ((:span :style "color: blue; cursor: pointer;"
:onclick "document.getElementById('the_element').runtime.showAll();")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment