Changeset 12456


Ignore:
Timestamp:
Jul 26, 2009, 9:52:43 AM (10 years ago)
Author:
gb
Message:

Conditionalize for Cocotron (should probably use some feature other
than :cocotron-objc, since this is more about what exists at runtime
rather than about ObjC runtime behavior.

File:
1 edited

Legend:

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

    r12417 r12456  
    5050      (#/setDocumentView: scrollview table-view)
    5151      (#/release table-view)
     52      #-cocotron-objc
    5253      (#/setColumnAutoresizingStyle: table-view #$NSTableViewUniformColumnAutoresizingStyle)
    5354      (setf (slot-value self 'table-view) table-view)
    5455      (let* ((column (make-instance 'ns:ns-table-column :with-identifier #@"")))
    5556        (#/setEditable: column nil)
     57        #-cocotron-objc
    5658        (#/setResizingMask: column #$NSTableColumnAutoresizingMask)
    5759        (#/addTableColumn: table-view column)
     
    229231    (logtest modifier-mask modifiers)))
    230232
    231 (defmethod current-event-command-key-p ()
     233(defun current-event-command-key-p ()
    232234  (current-event-modifier-p #$NSCommandKeyMask))
    233235
     
    400402
    401403(defun post-tiger-p ()
     404  #+cocotron-objc t
     405  #-cocotron-objc
    402406  (rlet ((p :int))
    403407    (#_Gestalt #$gestaltSystemVersion p)
Note: See TracChangeset for help on using the changeset viewer.