15 lines
281 B
Racket
15 lines
281 B
Racket
#lang racket
|
|
|
|
(require "gui.rkt"
|
|
simple-ini/class
|
|
)
|
|
|
|
(define (run)
|
|
(let* ((ini (new ini% [file 'rktplayer]))
|
|
(settings (new ww-simple-ini% [ini ini] [section 'player]))
|
|
(window (new rktplayer% [settings settings]))
|
|
)
|
|
window)
|
|
)
|
|
|