Changeset 12695

Timestamp:

Aug 26, 2009, 1:10:11 PM (15 years ago)

Author:

Gary 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:

• trunk/source/cocoa-ide/cocoa-editor.lisp (modified) (2 diffs)

trunk/source/cocoa-ide/cocoa-editor.lisp

@@ -2713 +2713 @@
     (hi::note-modeline-change (hemlock-buffer self))))
 
+#-cocotron
 (objc:defmethod (#/prepareSavePanel: :<BOOL>) ((self hemlock-editor-document)
                                                panel)
@@ -3053 +3054 @@
 (objc:defmethod (#/runModalOpenPanel:forTypes: :<NSI>nteger)
     ((self hemlock-document-controller) panel types)
-  (let* ((popup (build-encodings-popup self #|preferred|#)))
-    (#/setAccessoryView: panel popup)
+  (let* (#-cocotron (popup (build-encodings-popup self #|preferred|#)))
+    #-cocotron (#/setAccessoryView: panel popup)
     (let* ((result (call-next-method panel types)))
       (when (= result #$NSOKButton)
+        #-cocotron
         (with-slots (last-encoding) self
-          (setq last-encoding (nsinteger-to-nsstring-encoding (#/tag (#/selectedItem popup))))))
+          (setq last-encoding
+                (nsinteger-to-nsstring-encoding (#/tag (#/selectedItem popup))))))
       result)))