Keyboard macros: Difference between revisions
Content added Content deleted
(→Tcl: Added implementation) |
m (→{{header|Tcl}}) |
||
Line 33: | Line 33: | ||
{{libheader|Tk}} |
{{libheader|Tk}} |
||
<lang tcl>package require Tk |
<lang tcl>package require Tk |
||
# Show off some emacs-like bindings... |
|||
pack [label .l -text "C-x C-s to save, C-x C-c to quit"] |
pack [label .l -text "C-x C-s to save, C-x C-c to quit"] |
||
focus . |
focus . |
||
bind . <Control-x><Control-s> { |
bind . <Control-x><Control-s> { |
||
tk_messageBox -message "We would save here" |
|||
} |
|||
bind . <Control-x><Control-c> {exit}</lang> |
bind . <Control-x><Control-c> {exit}</lang> |