Changeset 16027


Ignore:
Timestamp:
Feb 24, 2014, 8:21:01 PM (7 years ago)
Author:
xach
Message:

Add Hemlock Commands window per trac ticket #1153.

Available under "Help > Hemlock Commands".

Location:
trunk/source/cocoa-ide
Files:
1 added
3 edited

Legend:

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

    r16023 r16027  
    277277      (#/openFile: workspace s))))
    278278
    279 
     279(defloadvar *hemlock-commands-window-controller* nil)
     280
     281(objc:defmethod (#/showHemlockCommands: :void) ((self lisp-application-delegate)
     282                                               sender)
     283  (declare (ignore sender))
     284  (when (null *hemlock-commands-window-controller*)
     285    (setf *hemlock-commands-window-controller*
     286          (make-instance 'hemlock-commands-window-controller)))
     287  (#/showWindow: *hemlock-commands-window-controller* +null-ptr+))
  • trunk/source/cocoa-ide/defsystem.lisp

    r16020 r16027  
    9191    "apropos-window"
    9292    "xapropos"
     93    "hemlock-commands"
    9394    "file-dialogs"
    9495    "menus"
  • trunk/source/cocoa-ide/menus.lisp

    r16024 r16027  
    120120    (#/addItemWithTitle:action:keyEquivalent: menu #@"Clozure CL Manual" (objc:@selector #/showManual:) #@"")
    121121    (#/addItemWithTitle:action:keyEquivalent: menu #@"HyperSpec Lookup" (objc:@selector #/hyperSpecLookUp:) #@"y")
     122    (#/addItemWithTitle:action:keyEquivalent: menu #@"Hemlock Commands" (objc:@selector #/showHemlockCommands:) #@"")
    122123    menu))
    123124
Note: See TracChangeset for help on using the changeset viewer.