Changeset 12695


Ignore:
Timestamp:
Aug 26, 2009, 8:10:11 PM (10 years ago)
Author:
palter
Message:

Don't try to do things on Cocotron that aren't implemented.
Allows the open panel (C-x C-f) to work. Save panel still has problems.

File:
1 edited

Legend:

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

    r12691 r12695  
    27132713    (hi::note-modeline-change (hemlock-buffer self))))
    27142714
     2715#-cocotron
    27152716(objc:defmethod (#/prepareSavePanel: :<BOOL>) ((self hemlock-editor-document)
    27162717                                               panel)
     
    30533054(objc:defmethod (#/runModalOpenPanel:forTypes: :<NSI>nteger)
    30543055    ((self hemlock-document-controller) panel types)
    3055   (let* ((popup (build-encodings-popup self #|preferred|#)))
    3056     (#/setAccessoryView: panel popup)
     3056  (let* (#-cocotron (popup (build-encodings-popup self #|preferred|#)))
     3057    #-cocotron (#/setAccessoryView: panel popup)
    30573058    (let* ((result (call-next-method panel types)))
    30583059      (when (= result #$NSOKButton)
     3060        #-cocotron
    30593061        (with-slots (last-encoding) self
    3060           (setq last-encoding (nsinteger-to-nsstring-encoding (#/tag (#/selectedItem popup))))))
     3062          (setq last-encoding
     3063                (nsinteger-to-nsstring-encoding (#/tag (#/selectedItem popup))))))
    30613064      result)))
    30623065 
Note: See TracChangeset for help on using the changeset viewer.