7 lines
162 B
Text
7 lines
162 B
Text
(define book-class%
|
|
(class* () object% RIGHT
|
|
(field (pages 5))
|
|
(field (ChangeMe 5))
|
|
(define/public (letters)
|
|
(* pages 500))
|
|
(super-new)))
|