-
This commit is contained in:
15
player.rkt
15
player.rkt
@@ -1 +1,16 @@
|
||||
#lang racket
|
||||
|
||||
(require racket/class)
|
||||
|
||||
(provide player%)
|
||||
|
||||
(define player%
|
||||
(class object%
|
||||
|
||||
(define/public (play playlist)
|
||||
(displayln "playing playlist")
|
||||
)
|
||||
|
||||
(super-new)
|
||||
)
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user