Changeset 9686


Ignore:
Timestamp:
Jun 6, 2008, 9:57:42 PM (11 years ago)
Author:
mikel
Message:

modified the update menu to check for available updates

File:
1 edited

Legend:

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

    r9684 r9686  
    286286
    287287(objc:defmethod (#/updateCCL: :void) ((self lisp-application-delegate)
    288                                                 sender)
    289   (declare (ignore sender))
    290   (when (null *update-ccl-window-controller*)
    291     (setf *update-ccl-window-controller*
    292           (make-instance 'update-ccl-window-controller))
    293     (#/initWithWindowNibName: *update-ccl-window-controller* #@"updateCCL"))
    294   (unless (#/isWindowLoaded *update-ccl-window-controller*)
    295     (#/loadWindow *update-ccl-window-controller*))
    296   (#/runModalForWindow: (#/sharedApplication (@class ns-application))
    297                         (update-window *update-ccl-window-controller*)))
    298 
     288                                      sender)
     289  (declare (ignore sender))
     290  (if (svn-update-available-p)
     291      ;; newer version in the repo; display the update window
     292      (progn
     293        (when (null *update-ccl-window-controller*)
     294          (setf *update-ccl-window-controller*
     295                (make-instance 'update-ccl-window-controller))
     296          (#/initWithWindowNibName: *update-ccl-window-controller* #@"updateCCL"))
     297        (unless (#/isWindowLoaded *update-ccl-window-controller*)
     298          (#/loadWindow *update-ccl-window-controller*))
     299        (#/runModalForWindow: (#/sharedApplication (@class ns-application))
     300                              (update-window *update-ccl-window-controller*)))
     301      ;; no newer version available; display an informative alert window
     302      (gui::alert-window :title "No Update Available"
     303                         :message "No update is available. Your copy of CCL is up-to-date.")))
     304
Note: See TracChangeset for help on using the changeset viewer.