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

Cocotron r816 now implements some methods we use

File:
1 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))))
Note: See TracChangeset for help on using the changeset viewer.