- (multiple-value-bind (file dir) (pick-file)\r
- (unless file (append-text *text* "Failed to load module.\r
-"))\r
+ (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
+ (unless file (append-text *text* (format nil "Failed to load module.~%"))\r
+ (return-from load-module nil))\r