Commit 67fa7c71 authored by Dave Cooper's avatar Dave Cooper
Browse files

updating the drag and drop, update due to LI

parent cb2a4d3d
......@@ -52,17 +52,20 @@
this.transform(\"T\"+(dx+this.odx)+\",\"+(dy+this.ody));
this.lastdx = dx;
this.lastdy = dy;
~a
~a
},
up = function () {
this.animate({opacity: 1.0}, 500, \">\");
~a
~a
};
"
(the raphael-canvas-id) width length
(the parent (gdl-sjax-call :js-vals? t))
(the parent (gdl-sjax-call :js-vals? t))
;;(the parent (gdl-sjax-call :function-key :on-move))
(the parent (gdl-sjax-call :js-vals? t :function-key :on-drop))
)
(with-translated-state (:raphael (make-point (- (get-x view-center))
......
......@@ -23,7 +23,7 @@
(define-object dd (base-ajax-sheet base-object)
:computed-slots ((use-raphael? t)
(too-far? (> (3d-distance (first (the poly-1 vertex-list))
......@@ -45,6 +45,8 @@
(make-point 0 0 0))))
:functions ((on-drop () (format t "~&We just dropped an object at ~s~%" (the main-area dropped-x-y))))
:objects ((poly-0 :type 'global-polyline
:display-controls (list :color :red :fill-color :orange)
:vertex-list (list (make-point -2 0 0)
......
......@@ -252,7 +252,12 @@ interface. Defaults to nil."
)
:functions ((back-link
:functions ((on-move ())
(on-drop ())
(back-link
(&key (display-string "<-Back"))
(w-c-w-s
()
......
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