Changeset 7584


Ignore:
Timestamp:
Nov 1, 2007, 11:42:24 PM (12 years ago)
Author:
rme
Message:

New feature: basic apropos window. This needs to be enhanced, but it's
a place to start.

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

Legend:

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

    r7579 r7584  
    44(require "PREFERENCES")
    55(require "PROCESSES-WINDOW")
     6(require "APROPOS-WINDOW")
    67
    78(defclass lisp-application-delegate (ns:ns-object)
     
    2425    (update-cocoa-defaults)))
    2526
     27(defloadvar *buffer-view-nib* nil)
     28
    2629(objc:defmethod (#/applicationWillFinishLaunching: :void)
    2730    ((self lisp-application-delegate) notification)
    2831  (declare (ignore notification))
     32  (setq *buffer-view-nib*
     33          (make-instance 'ns:ns-nib
     34            :with-nib-named #@"buffer-view" :bundle +null-ptr+))
     35  (when (null *buffer-view-nib*)
     36    (error "Couldn't load buffer-view.nib"))
     37
    2938  (initialize-user-interface))
    3039
     
    5463          (make-instance 'processes-window-controller)))
    5564  (#/showWindow: *processes-window-controller* self))
     65
     66(defloadvar *apropos-window-controller* nil)
     67
     68(objc:defmethod (#/showAproposWindow: :void) ((self lisp-application-delegate)
     69                                                sender)
     70  (declare (ignore sender))
     71  (when (null *apropos-window-controller*)
     72    (setf *apropos-window-controller*
     73          (make-instance 'apropos-window-controller)))
     74  (#/showWindow: *apropos-window-controller* self))
    5675
    5776(objc:defmethod (#/newListener: :void) ((self lisp-application-delegate)
  • trunk/ccl/cocoa-ide/ide-contents/Resources/English.lproj/MainMenu.nib/classes.nib

    r7561 r7584  
    4545                                <key>restarts</key>
    4646                                <string>id</string>
     47                                <key>showAproposWindow</key>
     48                                <string>id</string>
    4749                                <key>showListener</key>
    4850                                <string>id</string>
  • trunk/ccl/cocoa-ide/ide-contents/Resources/English.lproj/MainMenu.nib/info.nib

    r7561 r7584  
    99        <key>IBOpenObjects</key>
    1010        <array>
    11                 <integer>57</integer>
     11                <integer>436</integer>
    1212        </array>
    1313        <key>IBSystem Version</key>
Note: See TracChangeset for help on using the changeset viewer.