Changeset 9667


Ignore:
Timestamp:
Jun 3, 2008, 6:11:27 PM (11 years ago)
Author:
mikel
Message:

writing and testing the actual self-update routine, plus tweaking UI

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

Legend:

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

    r9663 r9667  
    99                <object class="NSMutableArray" key="IBDocument.EditedObjectIDs">
    1010                        <bool key="EncodedWithXMLCoder">YES</bool>
    11                         <integer value="2"/>
     11                        <integer value="1" id="9"/>
    1212                </object>
    1313                <object class="NSArray" key="IBDocument.PluginDependencies">
     
    7979                                                        <reference key="NSNextResponder" ref="1006"/>
    8080                                                        <int key="NSvFlags">268</int>
    81                                                         <string key="NSFrame">{{271, 12}, {96, 32}}</string>
     81                                                        <string key="NSFrame">{{175, 12}, {96, 32}}</string>
    8282                                                        <reference key="NSSuperview" ref="1006"/>
    8383                                                        <bool key="NSEnabled">YES</bool>
     
    9595                                                                <int key="NSButtonFlags2">129</int>
    9696                                                                <string key="NSAlternateContents"/>
    97                                                                 <string key="NSKeyEquivalent"/>
     97                                                                <string type="base64-UTF8" key="NSKeyEquivalent">DQ</string>
    9898                                                                <int key="NSPeriodicDelay">200</int>
    9999                                                                <int key="NSPeriodicInterval">25</int>
     
    103103                                                        <reference key="NSNextResponder" ref="1006"/>
    104104                                                        <int key="NSvFlags">268</int>
    105                                                         <string key="NSFrame">{{175, 12}, {96, 32}}</string>
     105                                                        <string key="NSFrame">{{271, 12}, {96, 32}}</string>
    106106                                                        <reference key="NSSuperview" ref="1006"/>
    107107                                                        <bool key="NSEnabled">YES</bool>
     
    200200                                                        <bool key="EncodedWithXMLCoder">YES</bool>
    201201                                                        <reference ref="380836188"/>
     202                                                        <reference ref="626795059"/>
    202203                                                        <reference ref="653458570"/>
    203                                                         <reference ref="626795059"/>
    204204                                                </object>
    205205                                                <reference key="parent" ref="1005"/>
     
    278278                                        <string>com.apple.InterfaceBuilder.CocoaPlugin</string>
    279279                                        <string>{{323, 833}, {381, 123}}</string>
    280                                         <integer value="1"/>
     280                                        <reference ref="9"/>
    281281                                        <string>{196, 240}</string>
    282282                                        <string>{{357, 418}, {480, 270}}</string>
  • trunk/source/cocoa-ide/ide-self-update.lisp

    r9663 r9667  
    152152        nil)))
    153153
     154;;; -----------------------------------------------------------------
     155;;; svn updates
     156;;; -----------------------------------------------------------------
     157
     158(defun run-svn-update ()
     159  (format t "~%running svn self-update...~%")
     160  (let* ((ccl-dir (gui::find-ccl-directory))
     161         (ccl-svn-dir (merge-pathnames ".svn/" ccl-dir)))
     162    (if (validate-svn-data-pathname ccl-svn-dir)
     163        (format t "~%updating...~%")
     164        (#_NSRunInformationalAlertPanel #@"Self-update Cancelled"
     165                                        #@"Subversion self-update failed because the running Lisp's CCL directory does not appear to be under revision control (it doesn't exist, or doesn't contain a '.svn/' subdirectory)."
     166                                        #@"Okay"
     167                                        +null-ptr+
     168                                        +null-ptr+))))
    154169
    155170;;; -----------------------------------------------------------------
     
    169184  (declare (ignore sender))
    170185  (#/stopModalWithCode: (#/sharedApplication (@class ns-application)) 1)
     186  (run-svn-update)
    171187  (#/orderOut: (update-window *update-ccl-window-controller*) +null-ptr+))
    172188
Note: See TracChangeset for help on using the changeset viewer.