Changeset 12462


Ignore:
Timestamp:
Jul 26, 2009, 12:18:43 PM (10 years ago)
Author:
gb
Message:

Not sure if we really use this code anymore, but don't poke around in
Carbon menu internals if #+Cocotron.

File:
1 edited

Legend:

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

    r11423 r12462  
    2929
    3030(defmethod mark-console-output-available ((self console-window) available-p)
     31  #+cocotron (declare (ignore available-p))
     32  #-cocotron
    3133  (let* ((menu (#/windowsMenu *nsapp*))
    3234         (menu-ref (ccl::external-call "__NSGetCarbonMenu" :address menu :address))
Note: See TracChangeset for help on using the changeset viewer.