Changeset 16350


Ignore:
Timestamp:
Jan 31, 2015, 8:41:08 PM (5 years ago)
Author:
svspire
Message:

#'choose-file-dialog, #'choose-new-file-dialog, and #'choose-directory-dialog
are all defined and exported. They weren't exported before and didn't reliably
work, even in the IDE. Now they do.
They are also all now defined in the terminal version of CCL, although they
don't do much there and could use improvement.

Location:
trunk/source
Files:
3 edited

Legend:

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

    r13543 r16350  
    8686
    8787(setq ccl::*choose-file-dialog-hook* 'cocoa-choose-file-dialog-hook-function)
     88(setq ccl::*choose-directory-dialog-hook* 'cocoa-choose-directory-dialog)
    8889
    8990(defun %cocoa-choose-directory-dialog (directory)
  • trunk/source/lib/ccl-export-syms.lisp

    r16348 r16350  
    756756     add-feature
    757757     remove-feature
     758     choose-file-dialog
     759     choose-new-file-dialog
     760     choose-directory-dialog
    758761     ;; Disabling heap allocation (to detect unexpected consing.)
    759762     allow-heap-allocaton
  • trunk/source/lib/misc.lisp

    r16324 r16350  
    767767
    768768(defvar *choose-file-dialog-hook* nil "for GUIs")
     769(defvar *choose-directory-dialog-hook* nil "for GUIs")
    769770
    770771;;; There should ideally be some way to override the UI (such as
     
    799800          (format *query-io* "~&Type of ~s is not one of ~{~a~}"
    800801                  namestring file-types)))))
     802
     803(defun choose-directory-dialog (&key directory)
     804  (let* ((hook *choose-directory-dialog-hook*))
     805    (when hook
     806      (funcall hook :directory directory))))
    801807
    802808(defparameter *overwrite-dialog-hook* nil)
Note: See TracChangeset for help on using the changeset viewer.