From thenriksen at common-lisp.net Fri Aug 4 09:26:13 2006 From: thenriksen at common-lisp.net (thenriksen) Date: Fri, 4 Aug 2006 05:26:13 -0400 (EDT) Subject: [clim-desktop-cvs] CVS clim-desktop Message-ID: <20060804092613.43FC242010@common-lisp.net> Update of /project/clim-desktop/cvsroot/clim-desktop In directory clnet:/tmp/cvs-serv14923 Modified Files: climacs.lisp Log Message: Fixed to work with the new locations of some Climacs symbols. --- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp 2006/07/10 22:14:19 1.14 +++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp 2006/08/04 09:26:13 1.15 @@ -1,4 +1,4 @@ -(in-package :climacs-gui) +(in-package :climacs-commands) (define-command (com-inspect-buffer :name "Inspect Buffer" :command-table base-table) () (clouseau:inspector (buffer (current-window)))) From thenriksen at common-lisp.net Mon Aug 28 19:56:28 2006 From: thenriksen at common-lisp.net (thenriksen) Date: Mon, 28 Aug 2006 15:56:28 -0400 (EDT) Subject: [clim-desktop-cvs] CVS clim-desktop Message-ID: <20060828195628.92912140AF@common-lisp.net> Update of /project/clim-desktop/cvsroot/clim-desktop In directory clnet:/tmp/cvs-serv3628 Modified Files: debugger.lisp climacs.lisp Log Message: Small fixups. --- /project/clim-desktop/cvsroot/clim-desktop/debugger.lisp 2006/03/30 10:33:55 1.2 +++ /project/clim-desktop/cvsroot/clim-desktop/debugger.lisp 2006/08/28 19:56:27 1.3 @@ -1,4 +1,6 @@ (in-package :common-lisp-user) -#+sbcl (setf *debugger-hook* #'clim-debugger:debugger) +#+sbcl (progn + (setf *debugger-hook* #'clim-debugger:debugger) + (setf sb-ext:*invoke-debugger-hook* #'clim-debugger:debugger)) #+cmucl (setf *debug-hook* #'clim-debugger:debugger) --- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp 2006/08/04 09:26:13 1.15 +++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp 2006/08/28 19:56:27 1.16 @@ -7,7 +7,7 @@ (clouseau:inspector (current-window))) (define-command (com-inspect-syntax :name "Inspect Syntax" :command-table base-table) () - (clouseau:inspector (syntax (current-buffer)))) + (clouseau:inspector (syntax (current-buffer *application-frame*)))) (set-key 'com-inspect-buffer 'base-table @@ -54,7 +54,7 @@ (with-climacs-frame (frame) (when frame (execute-frame-command - frame `(com-find-file ,thing))))) + frame `(esa-io::com-find-file ,thing))))) (defmethod edit-in-climacs ((thing string) &key &allow-other-keys) ;; Hope it is a pathname.