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

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

;; Place in the NO_SELECTION_CAB in CUSTOM_CAB.
;; This procedure gives the user a simple way to file
;; objects by taking all selected objects from the users
;; desktop and place them in the current container
;; bypassing the Clipboard.

;; To execute, first select objects on the desktop, then
;; place cursor in the container the objects are to be filed in
;; and execute script.

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

;; set default to desktop
(dt-set-container (dt-object :desktop))

;; find all selected objects
(let ((list (dt-children-selected))
      (new)
      (obj)
     )

    ;; while there are still objects in the list
    (while list
      ;; set default to original container
      (dt-set-container dir)
      ;; get first object from list
      (setq obj (car list))
      ;; copy the object
      (setq new (dt-copy obj))
      ;; delete the object from desktop
      (dt-delete obj)
      ;; select new object
      (dt-set-property new :selected)
      ;; set list equal to the rest of the objects
      (setq list (cdr list))
    )
  ;; animate all new objects
  (dt-move)
)