Changeset 12461


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

Conditionalize on :cocotron feature.

File:
1 edited

Legend:

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

    r12456 r12461  
    5050      (#/setDocumentView: scrollview table-view)
    5151      (#/release table-view)
    52       #-cocotron-objc
     52      #-cocotron
    5353      (#/setColumnAutoresizingStyle: table-view #$NSTableViewUniformColumnAutoresizingStyle)
    5454      (setf (slot-value self 'table-view) table-view)
    5555      (let* ((column (make-instance 'ns:ns-table-column :with-identifier #@"")))
    5656        (#/setEditable: column nil)
    57         #-cocotron-objc
     57        #-cocotron
    5858        (#/setResizingMask: column #$NSTableColumnAutoresizingMask)
    5959        (#/addTableColumn: table-view column)
     
    402402
    403403(defun post-tiger-p ()
    404   #+cocotron-objc t
    405   #-cocotron-objc
     404  #+cocotron t
     405  #-cocotron
    406406  (rlet ((p :int))
    407407    (#_Gestalt #$gestaltSystemVersion p)
Note: See TracChangeset for help on using the changeset viewer.