11 lines
216 B
Racket
11 lines
216 B
Racket
|
#lang racket
|
||
|
|
|
||
|
|
(define camera<%> (interface ()))
|
||
|
|
(define mobile-phone<%> (interface ()))
|
||
|
|
|
||
|
|
(define camera-phone%
|
||
|
|
(class* object% (camera<%> mobile-phone<%>)
|
||
|
|
(super-new)
|
||
|
|
;; implement methods here
|
||
|
|
))
|