11 lines
181 B
Racket
11 lines
181 B
Racket
#lang racket/base
|
|
(require racket/class
|
|
"../../syntax.rkt")
|
|
|
|
(provide
|
|
(protect-out menu-item%))
|
|
|
|
(defclass menu-item% object%
|
|
(define/public (id) this)
|
|
(super-new))
|