83 lines
2.0 KiB
Racket
83 lines
2.0 KiB
Racket
#lang racket/base
|
|
|
|
(require racket/class
|
|
"base/media-container.rkt"
|
|
"base/media-library.rkt"
|
|
"../misc/utils.rkt")
|
|
|
|
(provide library-browser%)
|
|
|
|
(define library-browser%
|
|
(class object%
|
|
(init-field media-library)
|
|
|
|
(check/c library-browser%
|
|
media-library
|
|
(is-a?/c media-library%))
|
|
|
|
(define current-container
|
|
#f)
|
|
|
|
(define parent-containers
|
|
'())
|
|
|
|
(define cfg-revision
|
|
-1)
|
|
|
|
(define/private (reset-if-needed!)
|
|
(let ((current-revision
|
|
(send (send media-library get-cfg)
|
|
get-revision)))
|
|
(unless (= cfg-revision current-revision)
|
|
(set! cfg-revision current-revision)
|
|
(send this reset!))))
|
|
|
|
(define/public (get-media-library)
|
|
media-library)
|
|
|
|
(define/public (get-current-container)
|
|
(reset-if-needed!)
|
|
current-container)
|
|
|
|
(define/public (get-items)
|
|
(send (send this get-current-container)
|
|
get-items))
|
|
|
|
(define/public (can-go-up?)
|
|
(reset-if-needed!)
|
|
(not (null? parent-containers)))
|
|
|
|
(define/public (open-container! container)
|
|
(check/c library-browser% open-container!
|
|
container
|
|
(is-a?/c media-container%))
|
|
|
|
(reset-if-needed!)
|
|
(set! parent-containers
|
|
(cons current-container
|
|
parent-containers))
|
|
(set! current-container container)
|
|
(void))
|
|
|
|
(define/public (go-up!)
|
|
(reset-if-needed!)
|
|
(unless (null? parent-containers)
|
|
(set! current-container
|
|
(car parent-containers))
|
|
(set! parent-containers
|
|
(cdr parent-containers)))
|
|
(void))
|
|
|
|
(define/public (reset!)
|
|
(set! cfg-revision
|
|
(send (send media-library get-cfg)
|
|
get-revision))
|
|
(set! current-container
|
|
(send media-library get-root-container))
|
|
(set! parent-containers '())
|
|
(void))
|
|
|
|
(super-new)
|
|
|
|
(send this reset!)))
|