Changeset 7586


Ignore:
Timestamp:
Nov 2, 2007, 3:46:00 AM (12 years ago)
Author:
rme
Message:

Inspect the right thing when the user re-sorts the table view.

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

Legend:

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

    r7584 r7586  
    55                  :reader apropos-array
    66                  :documentation "Bound to NSArrayController in nib file")
     7   (array-controller :foreign-type :id :accessor array-controller)
    78   (table-view :foreign-type :id :accessor table-view)
    89   (symbols :initform nil :accessor symbols
     
    1920
    2021(objc:defmethod (#/awakeFromNib :void) ((self apropos-window-controller))
    21   (#/setDoubleAction: (table-view self) (@selector #/inspectSelectedSymbol:)))
     22  (#/setDoubleAction: (slot-value self 'table-view) (@selector #/inspectSelectedSymbol:)))
    2223
    2324(objc:defmethod #/init ((self apropos-window-controller))
     
    6768
    6869(objc:defmethod (#/inspectSelectedSymbol: :void) ((self apropos-window-controller) sender)
    69   (with-accessors ((symbols symbols)) self
    70     (let* ((row (#/clickedRow sender)))
    71       (unless (minusp row)
    72         (cinspect (nth row symbols))))))
     70  (let* ((row (#/clickedRow sender)))
     71    (unless (minusp row)
     72      (with-slots (array-controller) self
     73        (let* ((pkg-name (lisp-string-from-nsstring
     74                          (#/valueForKeyPath: array-controller
     75                                              #@"selection.package")))
     76               (sym-name (lisp-string-from-nsstring
     77                          (#/string (#/valueForKeyPath: array-controller
     78                                                        #@"selection.symbol"))))
     79               (symbol (find-symbol sym-name pkg-name)))
     80          (cinspect symbol))))))
  • trunk/ccl/cocoa-ide/ide-contents/Resources/English.lproj/apropos.nib/classes.nib

    r7584 r7586  
    1919                        <key>OUTLETS</key>
    2020                        <dict>
     21                                <key>arrayController</key>
     22                                <string>id</string>
    2123                                <key>tableView</key>
    2224                                <string>id</string>
  • trunk/ccl/cocoa-ide/ide-contents/Resources/English.lproj/apropos.nib/info.nib

    r7584 r7586  
    66        <string>629</string>
    77        <key>IBOldestOS</key>
    8         <integer>5</integer>
     8        <integer>4</integer>
    99        <key>IBOpenObjects</key>
    10         <array>
    11                 <integer>12</integer>
    12         </array>
     10        <array/>
    1311        <key>IBSystem Version</key>
    1412        <string>9A581</string>
Note: See TracChangeset for help on using the changeset viewer.