\ 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
} 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
[ 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
! 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