Changeset 12029


Ignore:
Timestamp:
May 11, 2009, 3:18:42 AM (10 years ago)
Author:
rme
Message:

Control-click on an editor window's miniaturize button hides the window
without putting it into the dock (ticket:197).

File:
1 edited

Legend:

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

    r12025 r12029  
    19401940(declaim (special hemlock-frame))
    19411941
     1942(objc:defmethod (#/miniaturize: :void) ((w hemlock-frame) sender)
     1943  (let* ((event (#/currentEvent w))
     1944         (flags (#/modifierFlags event)))
     1945    (if (logtest #$NSControlKeyMask flags)
     1946      (progn
     1947        (#/orderOut: w nil)
     1948        (#/changeWindowsItem:title:filename: *nsapp* w (#/title w) nil))
     1949      (call-next-method sender))))
    19421950
    19431951(defmethod hemlock-view ((frame hemlock-frame))
Note: See TracChangeset for help on using the changeset viewer.