Changeset 15188


Ignore:
Timestamp:
Jan 27, 2012, 8:33:55 PM (8 years ago)
Author:
rme
Message:

Drop the swank listener feature.

We may want to add something like this back in later, but
based on our own swink protocol.

Location:
trunk/source/cocoa-ide
Files:
1 added
4 deleted
4 edited

Legend:

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

    r15182 r15188  
    8282    "project"
    8383    "cocoa-remote-lisp"
    84     "swank-listener"
    8584    "preferences"
    8685    "processes-window"
  • trunk/source/cocoa-ide/preferences.lisp

    r15028 r15188  
    6464   (hyperspec-path-button :foreign-type :id :accessor hyperspec-path-button)
    6565   (listener-tab-view-item :foreign-type :id :accessor listener-tab-view-item)
    66    (swank-listener-port :foreign-type :id :accessor swank-listener-port)
    6766   (tab-view :foreign-type :id :accessor tab-view)
    6867   (toolbar :foreign-type :id :accessor toolbar))
     
    8483
    8584(objc:defmethod (#/windowDidLoad :void) ((self preferences-window-controller))
    86   (let* ((window (#/window self))
    87          (port-field (swank-listener-port self))
    88          (listener-port (or (preference-swank-listener-port) *default-swank-listener-port*)))
     85  (let* ((window (#/window self)))
    8986    (with-slots (toolbar) self
    9087      (setf toolbar (make-instance 'ns:ns-toolbar
     
    9693      (#/setShowsToolbarButton: window nil)
    9794      (#/release toolbar))
    98     (ccl::with-autoreleased-nsstring (port-string (format nil "~A" (or listener-port "")))
    99       (#/setStringValue: port-field port-string))
    10095    (#/showAppearancePrefs: self +null-ptr+)))
    10196 
     
    136131    (#/setSelectedFont:isMultiple: font-manager font nil)
    137132    (#/orderFrontFontPanel: font-manager self)))
    138 
    139 (objc:defmethod (#/startSwankListener: :void) ((self preferences-window-controller)
    140                                          sender)
    141   (declare (ignore sender))
    142   (unless (maybe-start-swank-listener :override-user-preference t)
    143     (alert-window :message "Unable to start the Swank server.")))
    144133
    145134;;; This message is sent to the first responder, which is why
  • trunk/source/cocoa-ide/start.lisp

    r15181 r15188  
    9595    (#_ _exit -1))
    9696  (setq *standalone-cocoa-ide* t)
    97   (maybe-start-swank-listener)
    9897  (with-slots  (have-interactive-terminal-io) ccl::*current-process*
    9998    (when (and (eql (nth-value 4 (ccl::%stat "/dev/null"))
Note: See TracChangeset for help on using the changeset viewer.