hans/rackedit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fully functional

Browse Source
This commit is contained in:
Hans Dijkema
2026-08-20 18:14:41 +02:00
parent 6c69bb3eee
commit 4e96ae7df8
1 changed files with 23 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
main.rkt
+23 -7
View File
@@ -45,12 +45,16 @@
(super on-size w h) (super on-size w h)
) )
(define/override (file-menu:create-quit?)
#f)
(define/augment (on-close) (define/augment (on-close)
(close-cb my-number my-x my-y my-w my-h) (close-cb my-number my-x my-y my-w my-h)
(set! open-editor-use-list (set! open-editor-use-list
(filter (λ (x) (filter (λ (x)
(when (= x my-number) (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))) (not (= x my-number)))
open-editor-use-list)) open-editor-use-list))
(semaphore-post closed) (semaphore-post closed)
@@ -91,7 +95,8 @@
#:width [width 900] #:width [width 900]
#:height [height 650] #:height [height 650]
#:x [x 100] #:x [x 100]
#:y [y 100]) #:y [y 100]
#:frame-cb [frame-cb (λ (frame) #t)])
(let* ((store-cfg #f) (let* ((store-cfg #f)
(closed (make-semaphore 0)) (closed (make-semaphore 0))
@@ -104,6 +109,7 @@
[x 100] [x 100]
[y 100])) [y 100]))
(editor (send frame get-editor)) (editor (send frame get-editor))
(my-num -1)
) )
(define (get-win-id num) (define (get-win-id num)
@@ -123,18 +129,28 @@
(send editor set-max-undo-history 100) (send editor set-max-undo-history 100)
(let ((geom (send ini get 'geoms (let* ((win-num (send frame get-num))
(get-win-id (send frame get-num)) (geom (send ini get 'geoms
(list x y width height)))) (get-win-id win-num)
(list x y width height))))
(send frame move (car geom) (cadr geom)) (send frame move (car geom) (cadr geom))
(send frame resize (caddr geom) (cadddr 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)) (when wait? (yield closed))
frame)) (frame-cb frame)
(void)))