Skip to content
GitLab
Menu
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
clm
Commits
a85d767c
Commit
a85d767c
authored
Oct 08, 2003
by
John van Groningen
Browse files
*** empty log message ***
parent
a737a2c3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Clean08IDE/EdWindowsMenu.icl
View file @
a85d767c
...
...
@@ -346,9 +346,9 @@ where {
saved
=
window
.
wstate
.
saved
||
window
.
wstate
.
wdtype
<>
EditWd
;
yes
=
butid
==
YesID
;
(
butid
,
prog2
,
io1
)
=
butid_io1
;
butid_io1
=
case
alert
of
{
True
->
OpenNotice
notice
prog
io
;
other
->
(
YesID
,
prog
,
io
);
butid_io1
=
case
alert
of
{
True
->
OpenNotice
notice
prog
io
;
other
->
(
YesID
,
prog
,
io
);
};
(
prog`
,
io`
)
=
DoSave
id
window
prog2
io1
;
window
=
GetWindow
id
editwindows
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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