Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
81d7ffa8
Commit
81d7ffa8
authored
Sep 16, 2013
by
Dave Cooper
Browse files
try to remove scrollbars from x3dom viewport, updated glime to latest dev version.
parent
f9f8b4d9
Changes
2
Hide whitespace changes
Inline
Side-by-side
emacs/glime.lisp
View file @
81d7ffa8
...
...
@@ -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
...
...
gwl-graphics/gwl/source/base-ajax-graphics-sheet.lisp
View file @
81d7ffa8
...
...
@@ -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();"
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment