Changeset 12731

Timestamp:

Sep 1, 2009, 1:09:08 PM (15 years ago)

Author:

Glen Foy

Message:

Hemlock button action with no open Hemlock window.

File:

• trunk/source/contrib/foy/source-comparison/source-compare-dialog.lisp (modified) (3 diffs)

trunk/source/contrib/foy/source-comparison/source-compare-dialog.lisp

@@ -231 +231 @@
                      ;; (#/isKeyWindow w)))))
          (window-pathname (w)
-           (let* ((pane (slot-value w 'gui::pane))
-                  (text-view (gui::text-pane-text-view pane))
-                  (buffer (gui::hemlock-buffer text-view)))
-             (hi::buffer-pathname buffer))))
+           (when w
+             (let* ((pane (slot-value w 'gui::pane))
+                    (text-view (gui::text-pane-text-view pane))
+                    (buffer (gui::hemlock-buffer text-view)))
+               (hi::buffer-pathname buffer)))))
 
     (list (make-button #@"Browse" 480 368 80 32
@@ -258 +259 @@
                            (declare (ignore item))
                            (let* ((window (front-hemlock-window))
-                                  (path (window-pathname window)))
+                                  (path (when window (window-pathname window))))
                              (when path 
                                (clear-difference-pane w)
@@ -268 +269 @@
                            (declare (ignore item))
                            (let* ((window (front-hemlock-window))
-                                  (path (window-pathname window)))
+                                  (path (when window (window-pathname window))))
                              (when path 
                                (clear-difference-pane w)