Changeset 8522


Ignore:
Timestamp:
Feb 20, 2008, 4:17:34 PM (12 years ago)
Author:
rme
Message:

Some easy apropos window changes.

  • work with new inspector (no more GUI::CINSPECT, so we just call INSPECT)
  • apropos window is now a plain window, not a utility panel
  • double-clicking a row now shows the source
  • the "inspect" and "edit source" contextual menu items work

(cf. ticket:226, ticket:176)

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

Legend:

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

    r7804 r8522  
    5454    (#/setString: text-view #@"")
    5555    (#/setDelegate: table-view self)
    56     (#/setDoubleAction: table-view (@selector #/inspectSelectedSymbol:))))
     56    (#/setDoubleAction: table-view (@selector #/definitionForSelectedSymbol:))))
    5757
    5858(objc:defmethod #/init ((self apropos-window-controller))
     
    144144
    145145(objc:defmethod (#/inspectSelectedSymbol: :void) ((self apropos-window-controller) sender)
    146   (let* ((row (#/clickedRow sender)))
     146  (declare (ignorable sender))
     147  (let* ((row (#/clickedRow (table-view self))))
    147148    (unless (minusp row)
    148149      (with-slots (array-controller symbol-list) self
     
    150151               (i (#/intValue number))
    151152               (sym (elt symbol-list i)))
    152           (cinspect sym))))))
     153          (inspect sym))))))
     154
     155(objc:defmethod (#/definitionForSelectedSymbol: :void) ((self apropos-window-controller) sender)
     156  (declare (ignorable sender))
     157  (let* ((row (#/clickedRow (table-view self))))
     158    (unless (minusp row)
     159      (with-slots (array-controller symbol-list) self
     160        (let* ((number (#/valueForKeyPath: array-controller #@"selection.index"))
     161               (i (#/intValue number))
     162               (sym (elt symbol-list i)))
     163          (hemlock::edit-definition sym))))))
    153164
    154165;;; Data source methods for package combo box
  • trunk/source/cocoa-ide/ide-contents/Resources/English.lproj/apropos.nib/classes.nib

    r7804 r8522  
    99                        <dict>
    1010                                <key>apropos</key>
     11                                <string>id</string>
     12                                <key>definitionForSelectedSymbol</key>
    1113                                <string>id</string>
    1214                                <key>inspectSelectedSymbol</key>
  • trunk/source/cocoa-ide/ide-contents/Resources/English.lproj/apropos.nib/info.nib

    r7804 r8522  
    99        <key>IBOpenObjects</key>
    1010        <array>
    11                 <integer>127</integer>
     11                <integer>133</integer>
    1212        </array>
    1313        <key>IBSystem Version</key>
    14         <string>9A581</string>
     14        <string>9C31</string>
    1515        <key>targetFramework</key>
    1616        <string>IBCocoaFramework</string>
Note: See TracChangeset for help on using the changeset viewer.