steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.tools: change Alt- to Ctrl-Shift- for tools.

master
John Benediktsson 2020-05-29 14:59:45 -07:00
parent 9287b05d57
commit 9c3908e003
2 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/ui/tools/debugger/debugger.factor
View File

@ -88,8 +88,8 @@ debugger "gestures" f {
\ com-edit H{ { +listener+ t } } define-command
debugger "toolbar" f {
{ T{ key-down f { A+ } "i" } com-inspect }
{ T{ key-down f { A+ } "t" } com-traceback }
{ T{ key-down f { A+ } "d" } com-help }
{ T{ key-down f { A+ } "e" } com-edit }
{ T{ key-down f { C+ } "I" } com-inspect }
{ T{ key-down f { C+ } "T" } com-traceback }
{ T{ key-down f { C+ } "H" } com-help }
{ T{ key-down f { C+ } "E" } com-edit }
} define-command-map

18
basis/ui/tools/operations/operations.factor
View File

@ -68,14 +68,14 @@ IN: ui.tools.operations
} define-operation
[ pathname? ] \ edit-file H{
{ +keyboard+ T{ key-down f { A+ } "e" } }
{ +keyboard+ T{ key-down f { C+ } "E" } }
{ +primary+ t }
{ +secondary+ t }
{ +listener+ t }
} define-operation
[ definition-mixin? ] \ edit H{
{ +keyboard+ T{ key-down f { A+ } "e" } }
{ +keyboard+ T{ key-down f { C+ } "E" } }
{ +listener+ t }
} define-operation
@ -100,17 +100,17 @@ IN: ui.tools.operations
[ definition-mixin? ] \ com-forget H{ } define-operation
[ topic? ] \ com-browse H{
{ +keyboard+ T{ key-down f { A+ } "d" } }
{ +keyboard+ T{ key-down f { C+ } "H" } }
{ +primary+ t }
} define-operation
[ word? ] \ usage. H{
{ +keyboard+ T{ key-down f { A+ } "u" } }
{ +keyboard+ T{ key-down f { C+ } "U" } }
{ +listener+ t }
} define-operation
[ word? ] \ fix H{
{ +keyboard+ T{ key-down f { A+ } "f" } }
{ +keyboard+ T{ key-down f { C+ } "F" } }
{ +listener+ t }
} define-operation
@ -155,24 +155,24 @@ M: word com-stack-effect 1quotation com-stack-effect ;
! Quotations
[ quotation? ] \ com-stack-effect H{
{ +keyboard+ T{ key-down f { A+ } "i" } }
{ +keyboard+ T{ key-down f { C+ } "I" } }
{ +listener+ t }
} define-operation
[ quotation? ] \ walk H{
{ +keyboard+ T{ key-down f { A+ } "w" } }
{ +keyboard+ T{ key-down f { C+ } "W" } }
{ +listener+ t }
} define-operation
[ quotation? ] \ time H{
{ +keyboard+ T{ key-down f { A+ } "t" } }
{ +keyboard+ T{ key-down f { C+ } "T" } }
{ +listener+ t }
} define-operation
: com-expand-macros ( quot -- ) expand-macros . ;
[ quotation? ] \ com-expand-macros H{
{ +keyboard+ T{ key-down f { A+ } "m" } }
{ +keyboard+ T{ key-down f { C+ } "M" } }
{ +listener+ t }
} define-operation