Made it possible not to give a filename

2026-08-20 23:21:43 +02:00
parent f780c7f5b4
commit 0d3b55f252
4 changed files with 37 additions and 15 deletions
@@ -97,7 +97,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


-(define (rkdt filename
+(define (rkdt [filename #f]
              #:wait?   [wait? #f]
              #:width   [width 900]
              #:height  [height 650]
@@ -109,7 +109,9 @@
         (closed  (make-semaphore 0))
         (frame (new (make-editor-frame% closed
                                         (λ (num x y w h) (store-cfg num x y w h)))
-                     [filename (format "~a" filename)]
+                     [filename (if (eq? filename #f)
+                                   #f
+                                   (format "~a" filename))]
                     [editor% racket:text%]
                     [width 900]
                     [height 650]