From 8110effc01778ac737293898030850ce03f64a99 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 16 Mar 1999 04:51:41 +0000
Subject: [PATCH] ...

original commit: ba2f65968b53abe6a5ee06df9d6299076c64951f
---
 collects/framework/exit.ss       | 4 ++--
 collects/framework/finder.ss     | 8 ++++----
 collects/framework/framework.ss  | 8 ++++----
 collects/framework/frameworks.ss | 2 --
 4 files changed, 10 insertions(+), 12 deletions(-)

diff --git a/collects/framework/exit.ss b/collects/framework/exit.ss
index 2464f78d..260485e7 100644
--- a/collects/framework/exit.ss
+++ b/collects/framework/exit.ss
@@ -32,7 +32,7 @@
 	(dynamic-wind
 	 (lambda () (set! exiting? #t))
 	 (lambda ()
-	   (if (and (let*-values ([(w capW)
+	   (if (and (let*-values ([(w capw)
 				   (if (eq? (system-type) 'windows)
 				       (values "exit" "Exit")
 				       (values "quit" "Quit"))]
@@ -41,7 +41,7 @@
 						  w
 						  "?")])
 		      (if (preferences:get 'framework:verify-exit)
-			  (if (gui-utils:get-choice message capW "Cancel")
+			  (if (gui-utils:get-choice message capw "Cancel")
 			      #t
 			      #f)
 			  #t))
diff --git a/collects/framework/finder.ss b/collects/framework/finder.ss
index 5a49cc94..137d41d0 100644
--- a/collects/framework/finder.ss
+++ b/collects/framework/finder.ss
@@ -65,8 +65,8 @@
       (inherit center show)
       
       (private
-	[WIDTH 500]
-	[HEIGHT 400]
+	[default-width 500]
+	[default-height 400]
 	dirs 
 	current-dir
 	last-selected
@@ -313,8 +313,8 @@
       (sequence
 	(super-init (if save-mode? "Put file" "Get file")
 		    parent-win 
-		    WIDTH 
-		    HEIGHT))
+		    default-width 
+		    default-height))
       
       (private
 	
diff --git a/collects/framework/framework.ss b/collects/framework/framework.ss
index 1772488a..6adc3317 100644
--- a/collects/framework/framework.ss
+++ b/collects/framework/framework.ss
@@ -17,17 +17,17 @@
 	   [core:thread : mzlib:thread^]
 	   [framework:keys : framework:keys^]
 	   [framework:test : framework:test^]
-	   [M : mred-interfaces^])
-   (link [F : frameworkc^ ((require-relative-library "frameworkc.ss")
+	   [m : mred-interfaces^])
+   (link [f : frameworkc^ ((require-relative-library "frameworkc.ss")
 			   core:string
 			   core:function
 			   core:pretty-print
 			   core:file
 			   core:thread
-			   M
+			   m
 			   framework:keys
 			   framework:test)])
-   (export (open F)))
+   (export (open f)))
  #f
  mzlib:string^
  mzlib:function^
diff --git a/collects/framework/frameworks.ss b/collects/framework/frameworks.ss
index eef3c239..91dca6a7 100644
--- a/collects/framework/frameworks.ss
+++ b/collects/framework/frameworks.ss
@@ -1,7 +1,5 @@
 ;; language specification
-(read-case-sensitive #t)
 (compile-allow-cond-fallthrough #t)
-(compile-allow-set!-undefined #t)
 
 (require-library "refer.ss")
 (require-library "macro.ss")