Update of /project/clim-desktop/cvsroot/clim-desktop In directory clnet:/tmp/cvs-serv5555
Modified Files: climacs.lisp Log Message: Slight cleanup, needs more work, probably in Climacs itself.
--- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp 2006/01/06 03:15:45 1.1.1.1 +++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp 2006/05/18 15:10:24 1.2 @@ -4,11 +4,6 @@ (let ((url (accept 'url :prompt "Browse URL"))) (closure:visit url)))
-;;; Stolen from closure, src/gui/clim-gui.lisp -(defun send-climacs-command (process command args) - (clim-sys:process-interrupt process - #'(lambda () (apply command args)))) - (define-command (com-find-file-arg :name t :command-table buffer-table) ((file 'pathname)) (find-file file)) @@ -34,9 +29,8 @@ (flet ((run () (run-frame-top-level frame))) (let ((clim-process (clim-sys:make-process #'run :name (format nil "Climacs: ~A" file)))) - (sleep 1) ;compensate for climacs start time. - (send-climacs-command - clim-process 'com-find-file-arg `(,file)))))) + (sleep 1) + (execute-frame-command frame `(com-find-file ,file))))))
;; Redefine (ed)