..

original commit: 1371d114eb822c8cd213676ca9969ab604135392
2002-11-26 18:20:39 +00:00 · 2002-11-26 18:20:39 +00:00 · 5d8a541445
commit 5d8a541445
parent 38f968bc27
1 changed files with 2 additions and 0 deletions
--- 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