From 4e96ae7df8e2dbbb94afe3fcf03d53920554ea26 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Thu, 20 Aug 2026 18:14:41 +0200 Subject: [PATCH] Fully functional --- main.rkt | 30 +++++++++++++++++++++++------- 1 file changed, 23 insertions(+), 7 deletions(-) diff --git a/main.rkt b/main.rkt index 922d145..9520158 100644 --- a/main.rkt +++ b/main.rkt @@ -45,12 +45,16 @@ (super on-size w h) ) + (define/override (file-menu:create-quit?) + #f) + (define/augment (on-close) (close-cb my-number my-x my-y my-w my-h) (set! open-editor-use-list (filter (λ (x) (when (= x my-number) - (set! open-editor-free-list (cons x open-editor-free-list))) + (set! open-editor-free-list + (sort (cons x open-editor-free-list) <))) (not (= x my-number))) open-editor-use-list)) (semaphore-post closed) @@ -91,7 +95,8 @@ #:width [width 900] #:height [height 650] #:x [x 100] - #:y [y 100]) + #:y [y 100] + #:frame-cb [frame-cb (λ (frame) #t)]) (let* ((store-cfg #f) (closed (make-semaphore 0)) @@ -104,6 +109,7 @@ [x 100] [y 100])) (editor (send frame get-editor)) + (my-num -1) ) (define (get-win-id num) @@ -123,18 +129,28 @@ (send editor set-max-undo-history 100) - (let ((geom (send ini get 'geoms - (get-win-id (send frame get-num)) - (list x y width height)))) + (let* ((win-num (send frame get-num)) + (geom (send ini get 'geoms + (get-win-id win-num) + (list x y width height)))) (send frame move (car geom) (cadr geom)) (send frame resize (caddr geom) (cadddr geom)) + + (send frame set-label (format "~a (~a)" + (send frame get-label) + win-num)) + + (string-append (send frame get-label) + " - Rash")) - (send frame show #t)) + (send frame show #t) (when wait? (yield closed)) - frame)) + (frame-cb frame) + + (void)))