Changeset 9597


Ignore:
Timestamp:
May 25, 2008, 4:47:45 PM (11 years ago)
Author:
mikel
Message:

updates to nib and code for svn self-update

File:
1 edited

Legend:

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

    r9595 r9597  
    105105  #@"Authenticate")
    106106
     107(defparameter *authentication-window-controller* nil)
     108
    107109(defun pose-authentication-window ()
    108   (let ((controller (make-instance 'authentication-window-controller)))
    109     (#/initWithWindowNibName: controller #@"Authenticate")
    110     controller
     110  (unless *authentication-window-controller*
     111    (setf *authentication-window-controller*
     112          (make-instance 'authentication-window-controller))
     113    (#/initWithWindowNibName: *authentication-window-controller* #@"Authenticate"))
     114  (unless (#/isWindowLoaded *authentication-window-controller*)
     115    (#/loadWindow *authentication-window-controller* *authentication-window-controller*))
     116  (let ((window (#/window *authentication-window-controller*)))
    111117    ;;(#/runModalForWindow: ccl::*nsapp* window)
    112     ))
     118    window))
     119
Note: See TracChangeset for help on using the changeset viewer.