Changeset 12117


Ignore:
Timestamp:
May 24, 2009, 5:55:56 AM (10 years ago)
Author:
mikel
Message:

Added more error checking around the construction of string values for the wank port and wire-protocol version displays

File:
1 edited

Legend:

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

    r12116 r12117  
    102102      (#/setShowsToolbarButton: window nil)
    103103      (#/release toolbar))
    104     (ccl::with-autoreleased-nsstring (label-str (format nil "Swank protocol version: ~a" swank-protocol-version))
     104    (ccl::with-autoreleased-nsstring (label-str (format nil "Swank protocol version: ~A" (or swank-protocol-version
     105                                                                                             "unknown")))
    105106      (#/setStringValue: protocol-label label-str))
    106     (ccl::with-autoreleased-nsstring (port-string (format nil "~A" swank-port))
     107    (ccl::with-autoreleased-nsstring (port-string (format nil "~A" (or swank-port "")))
    107108      (#/setStringValue: port-field port-string))
    108109    (#/showAppearancePrefs: self +null-ptr+)))
Note: See TracChangeset for help on using the changeset viewer.