made open-input-text-editor's result have the editor as its object-name

original commit: 63dafb70de3fa50ae79d14761e00d3dcd7ee5bb9
2004-05-01 17:43:10 +00:00 · 2004-05-01 17:43:10 +00:00 · 6ddc3ee6c7
commit 6ddc3ee6c7
parent f64fc2b393
1 changed files with 2 additions and 1 deletions
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@ -7603,7 +7603,8 @@
 				    v)
 				  (make-semaphore-peek lock-semaphore)))))
 		      #f ; no peek
-		      close)])
+		      close
+                      text)])
 	  (if (is-a? snip wx:string-snip%)
 	      ;; Specilal handling for initial snip string in case
 	      ;;  it starts too early: