Changeset 11897
- Timestamp:
- Apr 4, 2009, 11:48:52 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/cocoa-ide/file-dialogs.lisp
r11895 r11897 3 3 ;;;; MCL-ish file dialogs 4 4 5 (defun %cocoa-choose-file-dialog (directory file-types file )5 (defun %cocoa-choose-file-dialog (directory file-types file button-string) 6 6 (assume-cocoa-thread) 7 7 (let* ((open-panel (#/openPanel ns:ns-open-panel)) … … 20 20 (#/release s))) 21 21 (#/autorelease types-array)) 22 (when button-string 23 (#/setPrompt: open-panel (#/autorelease (%make-nsstring button-string)))) 22 24 (let ((result (#/runModalForDirectory:file:types: open-panel directory 23 25 file types-array))) … … 29 31 (error "couldn't run the open panel: error code ~d" result)))))) 30 32 31 (defun cocoa-choose-file-dialog (&key directory file-types file )33 (defun cocoa-choose-file-dialog (&key directory file-types file button-string) 32 34 (when (and directory (not (directoryp directory))) 33 35 (error "~s doesn't designate a directory." directory)) … … 38 40 (when (and file (not (probe-file file))) 39 41 (error "~s doesn't designate a file." file)) 40 (execute-in-gui #'(lambda () (%cocoa-choose-file-dialog directory file-types file ))))42 (execute-in-gui #'(lambda () (%cocoa-choose-file-dialog directory file-types file button-string)))) 41 43 42 44 (defun %cocoa-choose-new-file-dialog (directory file-types file)
Note: See TracChangeset
for help on using the changeset viewer.