(lisp-set-implementation "Interleaf Lisp" "1.0")

;; Create by William Wagner 13-Apr-1990
;; (602)469-6424

;; Place lisp in SELECTION_CAB in the CUSTOM_CAB.
;; This procedure gives the user a simple way to move
;; selected objects from current container to the Desktop
;; bypassing the Clipboard.

;; To execute, select objects in a container and execute script.
;; The objects are automatically move to the desktop.


;; BEGIN
;; get current container
(psetq dir (dt-get-container))

;; find all selected objects
(let ((list (dt-children-selected))
      (new)
      (obj)
     )
     ;; set default to desktop
     (dt-set-container (dt-object :desktop))
     ;; while there are still objects in the list
     (while list
         ;; get the first object off the list
         (psetq obj (car list))
         ;; make a copy of it
         (psetq new (dt-copy obj))
         ;; select the copy
         (dt-set-property new :selected)
         ;; delete the original
         (dt-delete obj)
         ;; set list equal to the rest of the objects selected
         (psetq list (cdr list))
     )
     ;; animate all new objects on the desktop
     (dt-move)
)