Changeset 9611


Ignore:
Timestamp:
May 28, 2008, 4:21:00 PM (11 years ago)
Author:
mikel
Message:

more work on self-update UI

File:
1 edited

Legend:

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

    r9610 r9611  
    114114(objc:defmethod #/authCancel: ((self authentication-window-controller) sender)
    115115  (declare (ignore sender))
    116   (#/stopModalWithCode: (#/sharedApplication (@class ns-application)) 2)
     116  (#/stopModalWithCode: (#/sharedApplication (@class ns-application)) 0)
    117117  (#/orderOut: (authentication-window *authentication-window-controller*) +null-ptr+))
    118118
     
    132132(defun get-svn-auth-data ()
    133133  (let ((auth-window (get-auth-window)))
    134     (if auth-window
     134    (If auth-window
    135135        (let ((window-status (#/runModalForWindow: (#/sharedApplication (@class ns-application))
    136136                                                   auth-window)))
    137           (if (zerop window-status)
     137          (If (zerop window-status)
    138138              nil
    139139              (cons (#/stringValue (authentication-window-username-field *authentication-window-controller*))
Note: See TracChangeset for help on using the changeset viewer.