method
on_current f () =
match
self
#
active_file
with
None
->
()
|
Some
fb
->
f fb