..

original commit: 3d81056bb44c17f3c5afedea3745dd2f7078d893

collects/framework/frame.ss

@@ -1060,6 +1060,14 @@
 	(editor-position-changed)
 	(send position-edit lock #t))))
   
+  (define pasteboard-info<%> (interface (info<%>)))
+  (define pasteboard-info-mixin
+    (mixin (info<%>) (pasteboard-info<%>) args
+      (override
+        [get-editor% (lambda () pasteboard:info%)])
+      (sequence
+	(apply super-init args))))
+
   (define file<%> (interface (-editor<%>)))
   (define file-mixin
     (mixin (-editor<%>) (file<%>) args
@@ -1095,7 +1103,7 @@
   (define text-info-file% (file-mixin text-info%))
 
   (define -pasteboard% (pasteboard-mixin editor%))
-  (define pasteboard-info% (info-mixin -pasteboard%))
+  (define pasteboard-info% (pasteboard-info-mixin (info-mixin -pasteboard%)))
   (define pasteboard-info-file% (file-mixin pasteboard-info%))
   
   )

collects/framework/frameworks.ss

@@ -169,6 +169,9 @@
    text-info<%>
    text-info-mixin
 
+   pasteboard-info<%>
+   pasteboard-info-mixin
+
    file<%>
    file-mixin
 

collects/framework/handler.ss

@@ -87,7 +87,9 @@
     (opt-lambda (filename
 		 [make-default
 		  (lambda ()
-		    (send (make-object frame:text-info-file% filename) show #t))])
+		    (let ([frame (make-object frame:text-info-file% filename)])
+		      (send frame show #t)
+		      frame))])
       (gui-utils:show-busy-cursor
        (lambda ()
 	 (if filename

collects/framework/keymap.ss

@@ -300,7 +300,8 @@
 	   
 	   [region-click
 	    (lambda (edit event f)
-	      (when (send event button-down?)
+	      (when (and (send event button-down?)
+			 (is-a? edit original:text%))
 		(let ([x-box (box (send event get-x))]
 		      [y-box (box (send event get-y))]
 		      [eol-box (box #f)])