Changeset 12675


Ignore:
Timestamp:
Aug 25, 2009, 5:23:33 PM (10 years ago)
Author:
gz
Message:

Fix from Peter Paine for resizing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/contrib/paine/workpersistence.lisp

    r12619 r12675  
    4747         do (destructuring-bind (posx posy width height path) item
    4848              (when (probe-file path)
    49                 (gui::execute-in-gui #'(lambda () (gui::find-or-make-hemlock-view path)))
    50                 (let ((window (find-file-buffer path))) ; round about way*
    51                   ;;* how to get from hemlock-view
    52                   (when window
    53                     ;; should check whether coords are still in screen bounds
    54                     ;; (could have changed screen realestate since)
    55                     (let ((rect (ns:make-ns-rect posx posy width height)))
    56                       (#/setFrame:display: window rect t))))))))))
     49                (gui::execute-in-gui #'(lambda ()
     50                                         (gui::find-or-make-hemlock-view path)
     51                                         (let ((window (find-file-buffer path))) ; round about way*
     52                                           ;;* how to get from hemlock-view
     53                                           (when window
     54                                             ;; should check whether coords are still in screen bounds
     55                                             ;; (could have changed screen realestate since)
     56                                             (let ((rect (ns:make-ns-rect posx posy width height)))
     57                                               (#/setFrame:display: window rect t))))))))))))
    5758
    5859(pushnew 'remember-hemlock-files *lisp-cleanup-functions*)
Note: See TracChangeset for help on using the changeset viewer.