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)
)
(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 show #t))
(send frame set-label (format "~a (~a)"
(send frame get-label)
win-num))
(string-append (send frame get-label)
" - Rash"))
(send frame show #t)
(when wait? (yield closed))
frame))
(frame-cb frame)
(void)))