..
original commit: 0c7aaacc5729cccbf3c6b4614d8c0ddcc2c2155a
This commit is contained in:
parent
c4c5e6ea9a
commit
62224e9818
|
@ -28,7 +28,7 @@
|
||||||
(define/override (make-snip) (make-object comment-box-snip%))
|
(define/override (make-snip) (make-object comment-box-snip%))
|
||||||
(define/override (get-corner-bitmap) bm)
|
(define/override (get-corner-bitmap) bm)
|
||||||
|
|
||||||
(define/override (make-menu)
|
(define/override (get-menu)
|
||||||
(let ([menu (make-object popup-menu%)])
|
(let ([menu (make-object popup-menu%)])
|
||||||
(make-object menu-item%
|
(make-object menu-item%
|
||||||
(string-constant convert-to-semicolon-comment)
|
(string-constant convert-to-semicolon-comment)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user