Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-libraries
Commits
1784b256
Commit
1784b256
authored
Mar 01, 2000
by
Peter Achten
Browse files
(PA) shortened Window(H/V)Scroll attribute.
parent
74e8621f
Changes
1
Hide whitespace changes
Inline
Side-by-side
libraries/ObjectIO/ObjectIO Examples/life/LifeGameExample.icl
View file @
1784b256
...
...
@@ -60,26 +60,11 @@ where
,
WindowViewDomain
(
getViewDomain
StartCellSize
)
,
WindowViewSize
size
,
WindowOrigin
zero
,
WindowHScroll
(
hscrol
l
StartCellSize
)
,
WindowVScroll
(
v
scroll
StartCellSize
)
,
WindowHScroll
(
stdScrollFunction
Horizonta
l
StartCellSize
)
,
WindowVScroll
(
s
tdS
croll
Function
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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment