Commit 1784b256 authored by Peter Achten's avatar Peter Achten
Browse files

(PA) shortened Window(H/V)Scroll attribute.

parent 74e8621f
......@@ -60,26 +60,11 @@ where
, WindowViewDomain (getViewDomain StartCellSize)
, WindowViewSize size
, WindowOrigin zero
, WindowHScroll (hscroll StartCellSize)
, WindowVScroll (vscroll StartCellSize)
, WindowHScroll (stdScrollFunction Horizontal StartCellSize)
, WindowVScroll (stdScrollFunction Vertical StartCellSize)
, WindowLook True (look initialLife)
, WindowPen [PenBack Black]
]
where
hscroll dh viewframe {sliderThumb} move
= case move of
SliderIncSmall -> sliderThumb+dh
SliderDecSmall -> sliderThumb-dh
SliderIncLarge -> sliderThumb+(rectangleSize viewframe).w*9/10
SliderDecLarge -> sliderThumb-(rectangleSize viewframe).w*9/10
SliderThumb x -> x
vscroll dv viewframe {sliderThumb} move
= case move of
SliderIncSmall -> sliderThumb+dv
SliderDecSmall -> sliderThumb-dv
SliderIncLarge -> sliderThumb+(rectangleSize viewframe).h*9/10
SliderDecLarge -> sliderThumb-(rectangleSize viewframe).h*9/10
SliderThumb y -> y
// timer defines the timer that calculates subsequent life generations.
timer = Timer 0 NilLS
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment