Removed renamed show method, just inherit, since no state is kept

between invocations

original commit: f4855c32d67e47302948ec9a97180f291c7c0cdc
This commit is contained in:
Paul Steckler 1998-02-27 17:49:15 +00:00
parent bf0fd68a46
commit 3fc434b529

View File

@ -88,10 +88,8 @@
file-filter-msg)
(inherit new-line tab fit center
popup-menu)
popup-menu show)
(rename [super-show show])
(private
[WIDTH 500]
[HEIGHT 400]
@ -177,14 +175,6 @@
(public
[show
(lambda (b)
(when b
(if (directory-exists? current-dir)
(set-directory current-dir)
(set-directory (current-directory))))
(super-show b))]
[do-period-in/exclusion
(lambda (button event)
(mred:preferences:set-preference 'mred:show-periods-in-dirlist