8c7632c025
For now, run it with `racket -l pkg/gui/main'. The expectation is that DrRacket will start using this GUI.
59 lines
1.6 KiB
Racket
59 lines
1.6 KiB
Racket
#lang racket/base
|
|
(require racket/class
|
|
racket/gui/base
|
|
framework
|
|
"by-source.rkt"
|
|
"by-list.rkt"
|
|
"by-installed.rkt"
|
|
mrlib/terminal
|
|
string-constants)
|
|
|
|
(define frame
|
|
(new frame:basic%
|
|
[label "Package Manager"]
|
|
[width 800]
|
|
[height 600]))
|
|
|
|
(define sel-tab
|
|
(new tab-panel%
|
|
[parent (send frame get-area-container)]
|
|
[choices (list (string-constant install-pkg-install-by-source)
|
|
(string-constant install-pkg-install-from-list)
|
|
(string-constant install-pkg-install-installed))]
|
|
[callback (lambda (t e)
|
|
(define old (send sel-panel active-child))
|
|
(define new (list-ref panels (send t get-selection)))
|
|
(unless (eq? new old)
|
|
(send sel-panel active-child new)))]))
|
|
|
|
(define sel-panel
|
|
(new panel:single%
|
|
[parent sel-tab]))
|
|
|
|
(define terminal #f)
|
|
(define (in-terminal-panel abort-label thunk)
|
|
(when terminal
|
|
(send terminal close))
|
|
(define t (in-terminal
|
|
#:abort-label abort-label
|
|
#:container (send frame get-area-container)
|
|
(λ (cust parent) (thunk))))
|
|
(set! terminal t)
|
|
(send sel-tab enable #f)
|
|
(yield (send t can-close-evt))
|
|
(send sel-tab enable #t))
|
|
|
|
(define panels
|
|
(list
|
|
(new by-source-panel%
|
|
[parent sel-panel]
|
|
[in-terminal in-terminal-panel])
|
|
(new by-list-panel%
|
|
[parent sel-panel]
|
|
[in-terminal in-terminal-panel])
|
|
(new by-installed-panel%
|
|
[parent sel-panel]
|
|
[in-terminal in-terminal-panel])))
|
|
|
|
(send frame show #t)
|