Changeset 12705


Ignore:
Timestamp:
Aug 27, 2009, 6:54:14 PM (10 years ago)
Author:
palter
Message:

Cocotron doesn't fully implement NSOpenPanel/NSSavePanel

File:
1 edited

Legend:

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

    r11900 r12705  
    2121      (#/autorelease types-array))
    2222    (when button-string
    23       (#/setPrompt: open-panel (#/autorelease (%make-nsstring button-string))))
     23      #-cocotron (#/setPrompt: open-panel (#/autorelease (%make-nsstring button-string))))
    2424    (let ((result (#/runModalForDirectory:file:types: open-panel directory
    2525                                                      file types-array)))
     
    4747  (let* ((save-panel (#/savePanel ns:ns-save-panel))
    4848         (types-array +null-ptr+))
    49     (#/setCanSelectHiddenExtension: save-panel t)
     49    #-cocotron (#/setCanSelectHiddenExtension: save-panel t)
    5050    (when directory
    5151      (setq directory (#/autorelease (%make-nsstring directory))))
     
    5959          (#/release s)))
    6060      (#/autorelease types-array))
    61     (#/setAllowedFileTypes: save-panel types-array)
     61    #-cocotron (#/setAllowedFileTypes: save-panel types-array)
    6262    (let ((result (#/runModalForDirectory:file: save-panel directory file)))
    6363      (cond ((= result #$NSOKButton)
     
    9494    (#/setAllowsMultipleSelection: open-panel #$NO)
    9595    (#/setTitle: open-panel #@"Choose Directory")
    96     (#/setPrompt: open-panel #@"Choose")
     96    #-cocotron (#/setPrompt: open-panel #@"Choose")
    9797    (when directory
    9898      (setq directory (#/autorelease (%make-nsstring directory))))
Note: See TracChangeset for help on using the changeset viewer.