33 lines
		
	
	
		
			957 B
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			33 lines
		
	
	
		
			957 B
		
	
	
	
		
			Factor
		
	
	
| USING: help.markup help.syntax ;
 | |
| IN: cocoa.dialogs
 | |
| 
 | |
| HELP: <NSOpenPanel>
 | |
| { $values { "panel" "an " { $snippet "NSOpenPanel" } } }
 | |
| { $description "Creates a new " { $snippet "NSOpenPanel" } "." } ;
 | |
| 
 | |
| HELP: <NSSavePanel>
 | |
| { $values { "panel" "an " { $snippet "NSSavePanel" } } }
 | |
| { $description "Creates a new " { $snippet "NSSavePanel" } "." } ;
 | |
| 
 | |
| HELP: open-panel
 | |
| { $values { "paths" "a sequence of pathname strings" } }
 | |
| { $description "Displays a file open panel, and outputs a sequence of selected pathnames." } ;
 | |
| 
 | |
| HELP: save-panel
 | |
| { $values { "path" "a pathname string" } { "path/f" { $maybe "a pathname string" } } }
 | |
| { $description "Displays a file save panel, and outputs the selected path, or " { $link f } " if the user cancelled the operation." } ;
 | |
| 
 | |
| ARTICLE: "cocoa-dialogs" "Cocoa file dialogs"
 | |
| "Open dialogs:"
 | |
| { $subsections
 | |
|     <NSOpenPanel>
 | |
|     open-panel
 | |
| }
 | |
| "Save dialogs:"
 | |
| { $subsections
 | |
|     <NSSavePanel>
 | |
|     save-panel
 | |
| } ;
 | |
| 
 | |
| ABOUT: "cocoa-dialogs"
 |