method screenshot status sequents metasenv subst (filename as ofn) =
let w = GWindow.window ~title:"screenshot" () in
- let width = 600 in
+ let width = 500 in
let height = 2000 in
let m = GMathView.math_view
~font_size:!current_font_size ~width ~height