Ignore:
Timestamp:
Nov 16, 2011, 4:57:30 PM (8 years ago)
Author:
rme
Message:

Remove some unused/experimental/broken IDE stuff.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.7-appstore/source/cocoa-ide/preferences.lisp

    r13448 r15070  
    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))
     
    8382  self)
    8483
    85 (eval-when (:compile-toplevel :load-toplevel :execute)
    86     (require :swank-listener))
    87 
    8884(objc:defmethod (#/windowDidLoad :void) ((self preferences-window-controller))
    89   (let* ((window (#/window self))
    90          (port-field (swank-listener-port self))
    91          (listener-port (or (preference-swank-listener-port) *default-swank-listener-port*)))
     85  (let* ((window (#/window self)))
    9286    (with-slots (toolbar) self
    9387      (setf toolbar (make-instance 'ns:ns-toolbar
     
    9993      (#/setShowsToolbarButton: window nil)
    10094      (#/release toolbar))
    101     (ccl::with-autoreleased-nsstring (port-string (format nil "~A" (or listener-port "")))
    102       (#/setStringValue: port-field port-string))
    10395    (#/showAppearancePrefs: self +null-ptr+)))
    10496 
     
    139131    (#/setSelectedFont:isMultiple: font-manager font nil)
    140132    (#/orderFrontFontPanel: font-manager self)))
    141 
    142 (objc:defmethod (#/startSwankListener: :void) ((self preferences-window-controller)
    143                                          sender)
    144   (declare (ignore sender))
    145   (unless (or *ccl-swank-active-p*
    146               (maybe-start-swank-listener :override-user-preference t))
    147     (alert-window :message "Unable to start the Swank server.")))
    148133
    149134;;; This message is sent to the first responder, which is why
     
    199184      (#/setImage: item (#/imageNamed: ns:ns-image #@"Documentation"))
    200185      (#/setTarget: item self)
    201       (#/setAction: item (@selector #/showDocumentationPrefs:)))
    202      ((#/isEqualToString: itemIdentifier #@"encodings")
    203       (setf item (make-instance 'ns:ns-toolbar-item
    204                                 :with-item-identifier itemIdentifier))
    205       (#/setLabel: item #@"Encodings")
    206       (#/setImage: item (#/imageNamed: ns:ns-image #@"Encodings"))
    207       (#/setTarget: item self)
    208       (#/setAction: item (@selector #/showEncodingsPrefs:))))
     186      (#/setAction: item (@selector #/showDocumentationPrefs:))))
    209187    (#/autorelease item)))
    210188
     
    215193                       #@"appearance"
    216194                       #@"documentation"
    217                        #@"encodings"
    218195                       +null-ptr+)) ; don't even think about putting nil here
    219196
     
    224201                       #@"appearance"
    225202                       #@"documentation"
    226                        #@"encodings"
    227203                       +null-ptr+))
    228204
     
    233209                       #@"appearance"
    234210                       #@"documentation"
    235                        #@"encodings"
    236211                       +null-ptr+))
    237212
     
    270245  (#/setTitle: (#/window self) #@"Documentation")
    271246  (switch-content-view (#/window self) (documentation-prefs self)))
    272 
    273 (objc:defmethod (#/showEncodingsPrefs: :void) ((self preferences-window-controller)
    274                                                 sender)
    275   (declare (ignore sender))
    276   (#/setTitle: (#/window self) #@"Encodings")
    277   (switch-content-view (#/window self) (encodings-prefs self)))
Note: See TracChangeset for help on using the changeset viewer.