Changeset 7618


Ignore:
Timestamp:
Nov 9, 2007, 7:28:04 PM (12 years ago)
Author:
rme
Message:

Make Show Callers command display a scrolling list of the callers
of the symbol at point.

Double-click a row in the list to go to the definition of the caller.

Location:
trunk/ccl/cocoa-ide
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/cocoa-utils.lisp

    r7475 r7618  
    2323    (#/setHasVerticalScroller: scrollview t)
    2424    (#/setHasHorizontalScroller: scrollview t)
     25    (#/setAutohidesScrollers: scrollview t)
    2526    (#/setRulersVisible: scrollview nil)
    2627    (#/setAutoresizingMask: scrollview (logior
     
    3031    (let* ((table-view (make-instance 'ns:ns-table-view)))
    3132      (#/setDocumentView: scrollview table-view)
     33      (#/setColumnAutoresizingStyle: table-view #$NSTableViewUniformColumnAutoresizingStyle)
    3234      (setf (slot-value self 'table-view) table-view)
    3335      (let* ((column (make-instance 'ns:ns-table-column :with-identifier #@"")))
    3436        (#/setEditable: column nil)
     37        (#/setResizingMask: column #$NSTableColumnAutoresizingMask)
    3538        (#/addTableColumn: table-view column))
    3639      (#/setAutoresizingMask: table-view (logior
  • trunk/ccl/cocoa-ide/hemlock/src/lispmode.lisp

    r7617 r7618  
    19841984                (return nil)))))))))
    19851985
    1986 ;;; need to be able to mouse on the caller and go there
    1987 ;;; (or at least make the text in the pop-up selectable
    1988 ;;; so that we can use meta-.)
    19891986(hi:defcommand "Show Callers" (p)
    1990   "Show the callers of the symbol at point."
     1987  "Display a scrolling list of the callers of the symbol at point.
     1988   Double-click a row to go to the caller's definition."
    19911989  (declare (ignore p))
    19921990  (with-mark ((mark1 (current-point))
     
    19951993    (with-input-from-region (s (region mark1 mark2))
    19961994      (let* ((symbol (read s)))
    1997         (with-pop-up-display (*standard-output*
    1998                               :title (format nil "Callers of ~s" symbol))
    1999           (format t "~{~&~s~}" (ccl::callers symbol)))))))
     1995        (make-instance 'ccl::sequence-window-controller
     1996          :sequence (ccl::callers symbol)
     1997          :title (format nil "Callers of ~a" symbol)
     1998          :result-callback #'(lambda (item)
     1999                               (get-def-info-and-go-to-it (symbol-name item)
     2000                                                          (symbol-package item))))))))
    20002001
    20012002#||
Note: See TracChangeset for help on using the changeset viewer.