blob: 0f6fa74233466acc2162af1e4ae671a513a49688 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- GUI/SaveAs.hs.orig 2001-09-09 01:46:40 UTC
+++ GUI/SaveAs.hs
@@ -27,7 +27,7 @@ saveAs :: HECs -> ViewParameters -> Double -> DrawingA
saveAs :: HECs -> ViewParameters -> Double -> DrawingArea
-> (Int, Int, Render ())
-saveAs hecs params' @ViewParameters{xScaleAreaHeight, width,
+saveAs hecs params'@ViewParameters{xScaleAreaHeight, width,
height = oldHeight {-, histogramHeight-}}
yScaleAreaWidth yScaleArea =
let histTotalHeight = histXScaleHeight -- + histogramHeight
|
