Changeset 9747


Ignore:
Timestamp:
Jun 13, 2008, 9:58:20 PM (11 years ago)
Author:
mikel
Message:

preparing to add modal progress UI for update

Location:
trunk/source/cocoa-ide
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-utils.lisp

    r9682 r9747  
    323323    (unless (eql ns-other-button +null-ptr+)
    324324      (#/release ns-other-button))))
     325
     326(defmacro with-modal-progress-dialog (title message &body body)
     327  )
     328
  • trunk/source/cocoa-ide/ide-self-update.lisp

    r9699 r9747  
    134134
    135135(defmethod svn-info ((p string))
    136   (with-output-to-string (out)
    137      (run-program "svn" `("info" ,p) :output out)))
     136  (let* ((result-status nil)
     137         (info (with-output-to-string (out)
     138                 (run-program "svn" `("info" ,p)
     139                              :output out
     140                              :status-hook (lambda (ep)
     141                                             (multiple-value-bind (status status-code)
     142                                                 (external-process-status ep)
     143                                               (when (eql status :exited)
     144                                                 (setf result-status status-code))))))))
     145    (values info result-status)))
     146
     147(defmethod svn-info ((p pathname))
     148  (svn-info (namestring p)))
    138149
    139150(defmethod svn-update ((p string))
     
    153164;;; parsing info
    154165;;; -----------------------------------------------------------------
    155 
    156 (defmethod svn-info ((p pathname))
    157   (svn-info (namestring p)))
    158166
    159167(defmethod split-svn-info-line ((line string))
Note: See TracChangeset for help on using the changeset viewer.