[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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)