bugfix 'export environment'

1fa00574 · Diederik van Arkel · 5aab8cda · 1fa00574
Commit 1fa00574 authored Feb 03, 2003 by Diederik van Arkel
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

Ide/targetui.icl Ide/targetui.icl +2 -2

No files found.
--- a/Ide/targetui.icl
+++ b/Ide/targetui.icl
@@ -291,10 +291,10 @@ where
 		# envname			= env.target_name
 		# envpath			= MakeFullPathname EnvsDir (envname +++ ".env")
 		// select file
-		# (envpath,ps)		= selectOutputFile "" envpath ps
+		# (envpath,ps)		= selectOutputFile "Save Environment As..." envpath ps
 		| isNothing envpath	= (ls,ps)
 		# envpath			= fromJust envpath
-		# (ok,ps)			= saveEnvironments envspath [env] ps
+		# (ok,ps)			= saveEnvironments envpath [env] ps
 		| not ok
 			# ps			= okNotice ["Unable to save environment."] ps
 			= (ls,ps)