original commit: 6e044486d312ac655bd5701c0ba49f2c87cd5a95
This commit is contained in:
Robby Findler 2002-06-25 20:14:27 +00:00
parent 8665a747d1
commit b456dc1eb7

View File

@ -874,8 +874,7 @@
(define open-here<%>
(interface (-editor<%>)
get-open-here-editor
open-here
create-empty-window))
open-here))
(define open-here-mixin
(mixin (-editor<%>) (open-here<%>)
@ -931,11 +930,6 @@
'cancel
this))
;; create-empty-window : -> void
(define/public (create-empty-window)
(make-object text-info-file%)
(void))
(rename [super-file-menu:open-on-demand file-menu:open-on-demand])
(define/override (file-menu:open-on-demand item)
(super-file-menu:open-on-demand item)