(use-package :OLI)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                SD-Recorder                    	       ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq *vse-recorder-file* 
	(sd-convert-filename-to-platform
		(format nil "~A~A" (sd-inq-temp-dir) "/pesd.rec")))

;(display *vse-recorder-file*)

(sd-defdialog 'rec-start
  :dialog-control :sequential
  :ok-action
  '(progn
;    (sd-disable-button "P-TOOLS-TASK-Recorder-REC-NAME-TB")
;    (sd-disable-button "P-TOOLS-TASK-Recorder-REC-START-TB")
    (frame2:begin-recording *vse-recorder-file* :overwrite)
 ))

(sd-defdialog 'rec-stop
  :dialog-control :sequential
  :ok-action
  '(progn
    (frame2:end-recording "")				;;; Unsupported function
    (sd-call-cmds (EDIT *vse-recorder-file*))
;    (sd-enable-button "P-TOOLS-TASK-Recorder-REC-NAME-TB")
;    (sd-enable-button "P-TOOLS-TASK-Recorder-REC-START-TB")
))