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-ide
Commits
5dcc1dc6
Commit
5dcc1dc6
authored
Apr 29, 2003
by
Diederik van Arkel
Browse files
Fix 'Find' and 'Search' menu functions for compatibility with OS X;
parent
0ac9bb67
Changes
1
Hide whitespace changes
Inline
Side-by-side
Ide/IDE.icl
View file @
5dcc1dc6
...
...
@@ -358,9 +358,9 @@ instance MenuElements (PlatformItem m) | MenuElements m where
searchMenu
altgr_workaround
mSearchId
{
srchIds
,
findIds
,
gotoIds
,
nextIds
}
=
Menu
"&Search"
(
MenuItem
"&Find..."
[
MenuId
(
findIds
!!
0
),
MenuShortKey
'F'
,
MenuModsFunction
(
shiftfun
sr_find
)
]
(
MenuItem
"&Find..."
[
MenuId
(
findIds
!!
0
),
MenuShortKey
'F'
,
MenuModsFunction
findfun
]
:+:
MenuItem
"Find &Next"
[
MenuId
(
findIds
!!
1
),
MenuShortKey
'G'
,
MenuModsFunction
(
shiftfun
sr_find_next
)
]
:+:
MenuItem
"Find Selection"
[
MenuId
(
findIds
!!
2
),
MenuShortKey
'H'
,
MenuModsFunction
(
shiftfun
sr_find_sel
)
]
:+:
MenuItem
"Find Selection"
[
MenuId
(
findIds
!!
2
),
/*
MenuShortKey 'H',
*/
MenuModsFunction
(
shiftfun
sr_find_sel
)
]
:+:
MenuItem
"Replace && Find Again"
[
MenuId
(
findIds
!!
3
),
MenuShortKey
'T'
,
MenuModsFunction
(
shiftfun
sr_rep_find
)
]
:+:
MenuSeparator
[]
:+:
MenuItem
"&Search Identifier"
...
...
@@ -368,8 +368,8 @@ searchMenu altgr_workaround mSearchId {srchIds,findIds,gotoIds,nextIds}
,
MenuModsFunction
(
shiftfun`
sr_find_idi
)
:
if
altgr_workaround
[]
[
MenuShortKey
'='
]
]
:+:
MenuItem
"Search Definition"
[
MenuId
(
srchIds
!!
1
),
MenuShortKey
'L'
,
MenuModsFunction
(
shiftfun`
sr_find_def
)
]
:+:
MenuItem
"Search Implementation"
[
MenuId
(
srchIds
!!
2
),
MenuShortKey
'M'
,
MenuModsFunction
(
shiftfun`
sr_find_imp
)
]
:+:
MenuItem
"Search Definition"
[
MenuId
(
srchIds
!!
1
),
MenuShortKey
'L'
,
MenuModsFunction
defimpfun
]
:+:
MenuItem
"Search Implementation"
[
MenuId
(
srchIds
!!
2
),
/*
MenuShortKey 'M',
*/
MenuModsFunction
(
shiftfun`
sr_find_imp
)
]
:+:
MenuSeparator
[]
:+:
MenuItem
"Goto Next Search &Result"
[
MenuId
(
nextIds
!!
0
)
...
...
@@ -385,6 +385,29 @@ searchMenu altgr_workaround mSearchId {srchIds,findIds,gotoIds,nextIds}
[
MenuId
(
mSearchId
)
]
where
findfun
mods
(
ls
,
ps
)
#
ps
=
flip_dir
mods
.
shiftDown
ps
|
mods
.
altDown
||
mods
.
optionDown
#
ps
=
sr_find
ps
#
ps
=
flip_dir
mods
.
shiftDown
ps
=
(
ls
,
ps
)
#
ps
=
sr_find_sel
ps
#
ps
=
flip_dir
mods
.
shiftDown
ps
=
(
ls
,
ps
)
where
flip_dir
flip
ps
|
not
flip
=
ps
#
(
fi
,
ps
)
=
getFI
ps
#
fi
=
{
fi
&
fi_bw
=
not
fi
.
fi_bw
}
#
ps
=
setFI
fi
ps
=
ps
defimpfun
mods
(
ls
,
ps
)
|
mods
.
altDown
||
mods
.
optionDown
#
ps
=
sr_find_imp
mods
.
shiftDown
ps
=
(
ls
,
ps
)
#
ps
=
sr_find_def
mods
.
shiftDown
ps
=
(
ls
,
ps
)
shiftfun
fun
mods
(
ls
,
ps
)
|
not
mods
.
shiftDown
#
ps
=
fun
ps
...
...
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