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-ide
Commits
a849a1f8
Commit
a849a1f8
authored
Feb 21, 2003
by
Diederik van Arkel
Browse files
rename CursorInfo to avoid nameclash with ObjectI/O
parent
0c063c67
Changes
1
Hide whitespace changes
Inline
Side-by-side
Ed/EdMonad.icl
View file @
a849a1f8
...
@@ -39,7 +39,7 @@ import EdAction
...
@@ -39,7 +39,7 @@ import EdAction
,
timerId
::
!
Id
// P4
,
timerId
::
!
Id
// P4
,
toolPt
::
!
Point2
// P4
,
toolPt
::
!
Point2
// P4
,
fontInfo
::
!
FontInfo
,
fontInfo
::
!
FontInfo
,
cursorInfo
::
!
CursorInfo
,
cursorInfo
::
!
CursorInfo
`
,
selectInfo
::
!
SelectInfo
,
selectInfo
::
!
SelectInfo
,
undoInfo
::
!
UndoInfo
,
undoInfo
::
!
UndoInfo
,
needSave
::
!
Bool
,
needSave
::
!
Bool
...
@@ -50,7 +50,7 @@ import EdAction
...
@@ -50,7 +50,7 @@ import EdAction
,
readOnly
::
!
Bool
,
readOnly
::
!
Bool
}
}
::
CursorInfo
::
CursorInfo
`
// rename to avoid conflict with Object I/O
=
{
position
::
!
Position
=
{
position
::
!
Position
,
virtualX
::
!
Int
,
virtualX
::
!
Int
,
visible
::
!
Bool
,
visible
::
!
Bool
...
@@ -470,7 +470,6 @@ where
...
@@ -470,7 +470,6 @@ where
|
c
==
s
.[
i
]
=
(
True
,
i
);
|
c
==
s
.[
i
]
=
(
True
,
i
);
=
FindLastChar
c
s
(
dec
i
);
=
FindLastChar
c
s
(
dec
i
);
setNeedSave
::
Bool
->
EditMonad
(
PSt
.
l
)
nothing
setNeedSave
::
Bool
->
EditMonad
(
PSt
.
l
)
nothing
setNeedSave
need
=
setNeedSave
need
=
getReadOnly
>>>=
\
readOnly
->
getReadOnly
>>>=
\
readOnly
->
...
...
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