Changeset 12731


Ignore:
Timestamp:
Sep 1, 2009, 8:09:08 PM (10 years ago)
Author:
gfoy
Message:

Hemlock button action with no open Hemlock window.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/contrib/foy/source-comparison/source-compare-dialog.lisp

    r12729 r12731  
    231231                     ;; (#/isKeyWindow w)))))
    232232         (window-pathname (w)
    233            (let* ((pane (slot-value w 'gui::pane))
    234                   (text-view (gui::text-pane-text-view pane))
    235                   (buffer (gui::hemlock-buffer text-view)))
    236              (hi::buffer-pathname buffer))))
     233           (when w
     234             (let* ((pane (slot-value w 'gui::pane))
     235                    (text-view (gui::text-pane-text-view pane))
     236                    (buffer (gui::hemlock-buffer text-view)))
     237               (hi::buffer-pathname buffer)))))
    237238
    238239    (list (make-button #@"Browse" 480 368 80 32
     
    258259                           (declare (ignore item))
    259260                           (let* ((window (front-hemlock-window))
    260                                   (path (window-pathname window)))
     261                                  (path (when window (window-pathname window))))
    261262                             (when path
    262263                               (clear-difference-pane w)
     
    268269                           (declare (ignore item))
    269270                           (let* ((window (front-hemlock-window))
    270                                   (path (window-pathname window)))
     271                                  (path (when window (window-pathname window))))
    271272                             (when path
    272273                               (clear-difference-pane w)
Note: See TracChangeset for help on using the changeset viewer.