Removed renamed show method, just inherit, since no state is kept
between invocations original commit: f4855c32d67e47302948ec9a97180f291c7c0cdc
This commit is contained in:
parent
bf0fd68a46
commit
3fc434b529
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user