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
clean-libraries
Commits
b3304278
Commit
b3304278
authored
Nov 22, 1999
by
Peter Achten
Browse files
no message
parent
9247555d
Changes
2
Hide whitespace changes
Inline
Side-by-side
ObjectIO/ObjectIO/StdIOCommon.dcl
View file @
b3304278
...
...
@@ -153,22 +153,22 @@ OptionOnly :== {shiftDown = False
,
optionDown
=
True
,
commandDown
=
False
,
controlDown
=
False
,
altDown
=
Fals
e
,
altDown
=
Tru
e
}
CommandOnly
:==
{
shiftDown
=
False
,
optionDown
=
False
,
commandDown
=
True
,
controlDown
=
Fals
e
,
controlDown
=
Tru
e
,
altDown
=
False
}
ControlOnly
:==
{
shiftDown
=
False
,
optionDown
=
False
,
commandDown
=
Fals
e
,
commandDown
=
Tru
e
,
controlDown
=
True
,
altDown
=
False
}
AltOnly
:==
{
shiftDown
=
False
,
optionDown
=
Fals
e
,
optionDown
=
Tru
e
,
commandDown
=
False
,
controlDown
=
False
,
altDown
=
True
...
...
ObjectIO/ObjectIO/StdIOCommon.icl
View file @
b3304278
...
...
@@ -270,10 +270,10 @@ viewFrameRange :== { corner1 = {x = 1-(2^31),y = 1-(2^31)}
NoModifiers
:==
{
shiftDown
=
False
,
optionDown
=
False
,
commandDown
=
False
,
controlDown
=
False
,
altDown
=
False
}
ShiftOnly
:==
{
shiftDown
=
True
,
optionDown
=
False
,
commandDown
=
False
,
controlDown
=
False
,
altDown
=
False
}
OptionOnly
:==
{
shiftDown
=
False
,
optionDown
=
True
,
commandDown
=
False
,
controlDown
=
False
,
altDown
=
False
}
CommandOnly
:==
{
shiftDown
=
False
,
optionDown
=
False
,
commandDown
=
True
,
controlDown
=
Fals
e
,
altDown
=
False
}
ControlOnly
:==
{
shiftDown
=
False
,
optionDown
=
False
,
commandDown
=
Fals
e
,
controlDown
=
True
,
altDown
=
False
}
AltOnly
:==
{
shiftDown
=
False
,
optionDown
=
Fals
e
,
commandDown
=
False
,
controlDown
=
False
,
altDown
=
True
}
OptionOnly
:==
{
shiftDown
=
False
,
optionDown
=
True
,
commandDown
=
False
,
controlDown
=
False
,
altDown
=
True
}
CommandOnly
:==
{
shiftDown
=
False
,
optionDown
=
False
,
commandDown
=
True
,
controlDown
=
Tru
e
,
altDown
=
False
}
ControlOnly
:==
{
shiftDown
=
False
,
optionDown
=
False
,
commandDown
=
Tru
e
,
controlDown
=
True
,
altDown
=
False
}
AltOnly
:==
{
shiftDown
=
False
,
optionDown
=
Tru
e
,
commandDown
=
False
,
controlDown
=
False
,
altDown
=
True
}
instance
==
Modifiers
where
(==)
::
!
Modifiers
!
Modifiers
->
Bool
...
...
Write
Preview
Supports
Markdown
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