From 5d8a541445f411db2e3fc1df9e84c95e054ec552 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 26 Nov 2002 18:20:39 +0000
Subject: [PATCH] ..

original commit: 1371d114eb822c8cd213676ca9969ab604135392
---
 collects/framework/private/text.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index 501d961d..ba9cdb43 100644
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@@ -661,6 +661,8 @@
                  (call-with-frame call-method)))
              tag))
           
+          ;; call-with-frame : ((is-a?/c frame:text-info<%>) -> void) -> void
+          ;; calls the argument thunk with the frame showing this editor.
           (define (call-with-frame call-method)
             (let ([canvas (get-canvas)])
               (when canvas