- let width = Gdk.Screen.width ~screen:(Gdk.Screen.default ()) () in
- let height = Gdk.Screen.height ~screen:(Gdk.Screen.default ()) () in
- (* hack for xinerama, no proper support of monitors from lablgtk *)
- let width = if width > 1600 then width / 2 else width in
- let height = if height > 1200 then height / 2 else height in