...

original commit: 96e645a9638d7bfe9c2baa5bf4411f8427517f12
1998-12-07 20:38:44 +00:00 · 1998-12-07 20:38:44 +00:00 · a7b8ae36ff
commit a7b8ae36ff
parent ff53c99b98
2 changed files with 2 additions and 2 deletions
--- a/collects/framework/prefs.ss
+++ b/collects/framework/prefs.ss
@ -421,7 +421,7 @@
 				button% horiz 
 				(lambda (button evt)
 				  (let ([new-value
-					 (get-choice-from-user
+					 (get-choices-from-user
 					  "Fonts"
 					  (format "Please choose a new ~a font"
 						  name)
--- a/collects/framework/splash.ss
+++ b/collects/framework/splash.ss
@ -13,7 +13,7 @@
 		  default)))]
 	 [(set-resource)
 	  (lambda (name value)
-	    (write-resource "mred" name value (find-path 'setup-file)))]
+	    (write-resource "mred" name value (find-graphical-system-path 'setup-file)))]
 	 [(_)
 	  (begin
 	    (unless filename