Changeset 13543


Ignore:
Timestamp:
Mar 17, 2010, 10:31:12 PM (10 years ago)
Author:
palter
Message:

Cocotron r816 now implements some methods we use

Location:
trunk/source/cocoa-ide
Files:
2 edited

Legend:

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

    r12705 r13543  
    2121      (#/autorelease types-array))
    2222    (when button-string
    23       #-cocotron (#/setPrompt: open-panel (#/autorelease (%make-nsstring button-string))))
     23      (#/setPrompt: open-panel (#/autorelease (%make-nsstring button-string))))
    2424    (let ((result (#/runModalForDirectory:file:types: open-panel directory
    2525                                                      file types-array)))
     
    9494    (#/setAllowsMultipleSelection: open-panel #$NO)
    9595    (#/setTitle: open-panel #@"Choose Directory")
    96     #-cocotron (#/setPrompt: open-panel #@"Choose")
     96    (#/setPrompt: open-panel #@"Choose")
    9797    (when directory
    9898      (setq directory (#/autorelease (%make-nsstring directory))))
  • trunk/source/cocoa-ide/xapropos.lisp

    r13539 r13543  
    6868      (#/setImage: item (#/imageNamed: ns:ns-image image-name))
    6969      (#/setMenu: button menu)
    70       #-cocotron
    7170      (#/synchronizeTitleAndSelectedItem button)
    7271      button)))
Note: See TracChangeset for help on using the changeset viewer.