-
This commit is contained in:
14
rktplayer.rkt
Normal file
14
rktplayer.rkt
Normal file
@@ -0,0 +1,14 @@
|
||||
#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)
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user