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

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

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

;; To execute, select one object in a container and execute script.
;; The object is automatically move to the desktop and opened.
;; The object is still selected when it is closed.

;; BEGIN
(let (new)
     ;; get selected object
     (setq obj (dt-child-selected))
     ;; get current container
     (setq dir (dt-get-container))
     ;;set default to desktop
     (dt-set-container (dt-object :desktop))
     ;; copy object
     (setq new (dt-copy obj))
     ;; set default back to original container
     (dt-set-container dir)
     ;; delete original object
     (dt-delete obj)
     ;; set dafault to desktop
     (dt-set-container (dt-object :desktop))
     ;; select new object
     (dt-set-property new :selected)
     ;; open new object
     (dt-open new)
)