+ (multiple-value-bind (file dir) \r
+ (splice-filename (get-open-file :filetypes '(("Loadable files"\r
+ "*.fas *.lisp")\r
+ ("Compiled story files"\r
+ "*.fas")\r
+ ("Plain story files"\r
+ "*.lisp")\r
+ ("All files" "*"))\r
+ :title "Load story file"))\r
+ ;;(pick-file) <- was used before\r