Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
tutorials
Commits
44d91ebe
Commit
44d91ebe
authored
Dec 01, 2020
by
Dave Cooper
Browse files
support for viewport as component
parent
fc4eb332
Changes
3
Hide whitespace changes
Inline
Side-by-side
geysr/source/assembly.gdl
View file @
44d91ebe
...
...
@@ -230,6 +230,7 @@ x 1. Update welcome message to reflect empty object and refer to File->New.
(user-inputs :type '
user
-
inputs
:
geysr
self
:
node
(
the
inspector
node
)
:
pass
-
down
(
root
-
object
))
(
inspector
:
type
'inspector
...
...
geysr/source/user-inputs.gdl
View file @
44d91ebe
...
...
@@ -46,7 +46,11 @@
(cons 'the (reverse (butlast (the node-root-path))))))
(unless (butlast (the node-root-path))
(htm " [the root object]")))))
(str (the settables-form inner-html))
#+nil
((:table :class "inspector-table" :border 1)
(htm (:tr ((:td :colspan 2)
(str (the settables-form inner-html))))))))))
...
...
geysr/source/viewport.gdl
View file @
44d91ebe
...
...
@@ -75,25 +75,7 @@
(otherwise 1)))
;;
;; FLAG -- fold this back into base-ajax-graphics-sheet on next build.
;;
(viewport-js-text
(format nil "
function x3draw ()
{
if (x3dom.type != 'undefined') x3dom.reload();
var elem = document.getElementById('view-~(~a~)');
if (elem) elem.setAttribute('set_bind', 'true');
var x3dom1 = document.getElementById('x3dom-1');
if (x3dom1) xruntime= x3dom1.runtime;
if (x3dom1) xruntime.resetView();
}
x3draw();
" (the view-selector value)))
(recompute? nil :settable)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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