Changeset 12369


Ignore:
Timestamp:
Jul 8, 2009, 12:39:58 AM (10 years ago)
Author:
mikel
Message:

performDragOperations causes more problems than it solves. for now, I'm just backing it out, at least until I can devise a better-working version

File:
1 edited

Legend:

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

    r12367 r12369  
    881881(declaim (special hemlock-textstorage-text-view))
    882882
     883#| causes more problems than it solves.
     884   removed until a better implementation manifests itself --me
    883885(objc:defmethod (#/performDragOperation: #>BOOL)
    884886    ((self hemlock-textstorage-text-view)
     
    902904                                     (#/description d)))
    903905                               (list-from-ns-array plist)))
    904                       (canonical-dropped-strings
     906                      (canonical-dropped-paths
    905907                       (mapcar (lambda (s)
    906908                                 (if (and (probe-file s)
    907909                                          (directoryp s))
    908                                      (ccl::ensure-directory-namestring s)
     910                                     (ccl::ensure-directory-pathname s)
    909911                                     s))
    910912                               strings-for-dropped-objects))
    911                       (dropstr (with-output-to-string (out)
    912                                  (dolist (s canonical-dropped-strings)
    913                                    (format out "~A~%" s)))))
     913                      (dropstr (if (= (length canonical-dropped-paths) 1)
     914                                   (with-output-to-string (out)
     915                                     (format out "~S~%" (first canonical-dropped-paths)))
     916                                   nil)))
    914917                 ;; TODO: insert them in the window
    915                  (let* ((hview (hemlock-view self))
    916                         (buf (hi:hemlock-view-buffer hview))
    917                         (point (hi::buffer-point buf)))
    918                    (hi::insert-string point dropstr)
    919                    #$YES))))
     918                 (if dropstr
     919                     (let* ((hview (hemlock-view self))
     920                            (buf (hi:hemlock-view-buffer hview))
     921                            (point (hi::buffer-point buf)))
     922                       (hi::insert-string point dropstr)
     923                       #$YES)
     924                     #$NO))))
    920925            ;; we found NSFilenamesPboardType, but didn't get an array of pathnames; huh???
    921926            (t (log-debug "hemlock-textstorage-text-view received an unrecognized data type in a drag operation: '~S'"
    922927                          (#/description plist))
    923928               (call-next-method sender)))))))
     929|#
    924930
    925931(defmethod hemlock-view ((self hemlock-textstorage-text-view))
Note: See TracChangeset for help on using the changeset viewer.