Changeset 9607


Ignore:
Timestamp:
May 28, 2008, 3:35:04 PM (11 years ago)
Author:
mikel
Message:

more code for svn self update auth process

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

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/ide-contents/Resources/English.lproj/Authenticate.nib/designable.nib

    r9596 r9607  
    217217                                        </object>
    218218                                        <int key="connectionID">19</int>
     219                                </object>
     220                                <object class="IBConnectionRecord">
     221                                        <object class="IBActionConnection" key="connection">
     222                                                <string key="label">authOkay:</string>
     223                                                <reference key="source" ref="1001"/>
     224                                                <reference key="destination" ref="455713151"/>
     225                                        </object>
     226                                        <int key="connectionID">20</int>
     227                                </object>
     228                                <object class="IBConnectionRecord">
     229                                        <object class="IBActionConnection" key="connection">
     230                                                <string key="label">authCancel:</string>
     231                                                <reference key="source" ref="1001"/>
     232                                                <reference key="destination" ref="558609978"/>
     233                                        </object>
     234                                        <int key="connectionID">21</int>
    219235                                </object>
    220236                        </object>
     
    389405                                        <string>com.apple.InterfaceBuilder.CocoaPlugin</string>
    390406                                        <string>com.apple.InterfaceBuilder.CocoaPlugin</string>
    391                                         <string>{{619, 834}, {311, 134}}</string>
    392                                         <string>com.apple.InterfaceBuilder.CocoaPlugin</string>
    393                                         <string>{{619, 834}, {311, 134}}</string>
     407                                        <string>{{519, 836}, {311, 134}}</string>
     408                                        <string>com.apple.InterfaceBuilder.CocoaPlugin</string>
     409                                        <string>{{519, 836}, {311, 134}}</string>
    394410                                        <integer value="1"/>
    395411                                        <string>{196, 240}</string>
     
    430446                        </object>
    431447                        <nil key="sourceID"/>
    432                         <int key="maxID">19</int>
     448                        <int key="maxID">21</int>
    433449                </object>
    434450                <object class="IBClassDescriber" key="IBDocument.Classes">
     
    437453                                <object class="IBPartialClassDescription">
    438454                                        <string key="className">AuthenticationWindowController</string>
     455                                        <object class="NSMutableDictionary" key="actions">
     456                                                <bool key="EncodedWithXMLCoder">YES</bool>
     457                                                <object class="NSMutableArray" key="dict.sortedKeys">
     458                                                        <bool key="EncodedWithXMLCoder">YES</bool>
     459                                                        <string>authCancel:</string>
     460                                                        <string>authOkay:</string>
     461                                                </object>
     462                                                <object class="NSMutableArray" key="dict.values">
     463                                                        <bool key="EncodedWithXMLCoder">YES</bool>
     464                                                        <string>id</string>
     465                                                        <string>id</string>
     466                                                </object>
     467                                        </object>
    439468                                        <object class="NSMutableDictionary" key="outlets">
    440469                                                <bool key="EncodedWithXMLCoder">YES</bool>
  • trunk/source/cocoa-ide/ide-self-update.lisp

    r9601 r9607  
    105105  #@"Authenticate")
    106106
     107(objc:defmethod #/authOkay: ((self authentication-window-controller) sender)
     108  (#/stopModalWithCode: (#/sharedApplication (@class ns-application)) 1)
     109  (#/orderOut: (authentication-window *authentication-window-controller*) nil))
     110
     111(objc:defmethod #/authCancel: ((self authentication-window-controller) sender)
     112  (#/stopModalWithCode: (#/sharedApplication (@class ns-application)) 2)
     113  (#/orderOut: (authentication-window *authentication-window-controller*) nil))
     114
    107115(defparameter *authentication-window-controller* nil)
    108116
    109 (defun pose-authentication-window ()
     117(defun get-auth-window ()
    110118  (unless *authentication-window-controller*
    111119    (setf *authentication-window-controller*
     
    115123    (#/loadWindow *authentication-window-controller*))
    116124  (let ((window (authentication-window *authentication-window-controller*)))
    117     ;; TODO: if we run modal here, say from the listener, we'll get
    118     ;; stuck forever in a modal event loop from which there is no
    119     ;; exit. need to set up the context from which we can run the
    120     ;; modal dialog and extract the user-supplied data and exit the modal loop
    121     ;;(#/runModalForWindow: ccl::*nsapp* window)
    122     window))
     125    (if (or (null window)
     126            (%null-ptr-p window))
     127        nil
     128        window)))
    123129
     130(defun get-svn-auth-data ()
     131  (let ((auth-window (get-auth-window)))
     132    (if auth-window
     133        (let ((window-status (#/runModalForWindow: (#/sharedApplication (@class ns-application))
     134                                                   auth-window)))
     135          (if (zerop window-status)
     136              nil
     137              (cons (#/stringValue (authentication-window-username-field *authentication-window-controller*))
     138                    (#/stringValue (authentication-window-password-field *authentication-window-controller*)))))
     139        nil)))
Note: See TracChangeset for help on using the changeset viewer.