suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

...

Browse Source 
original commit: 399ec607ab2531c3f778bcbc71742e2272c629b8
This commit is contained in:
Robby Findler 2000-02-21 22:54:03 +00:00
parent a8c97f43f0
commit e650c7c2e2
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/editor.ss
View File

@ -299,8 +299,7 @@
do-autosave
remove-autosave))
; wx: what about checking the autosave files when a file is
; opened?
; what about checking the autosave files when a file is opened?
(define backup-autosave-mixin
(mixin (basic<%>) (backup-autosave<%>) args
(inherit is-modified? get-filename save-file)

12
collects/framework/keymap.ss
View File

@ -771,9 +771,9 @@
(make-make-repeater n))
(loop (sub1 n)))))
(add "do-saved-macro" do-macro)
(add "start-macro-record" start-macro)
(add "end-macro-record" end-macro)
(add "keyboard-macro-run-saved" do-macro)
(add "keyboard-macro-start-record" start-macro)
(add "keyboard-macro-end-record" end-macro)
(add-m "copy-clipboard" mouse-copy-clipboard)
(add-m "cut-clipboard" mouse-cut-clipboard)
@ -942,9 +942,9 @@
(map-meta s (string-append "command-repeat-" s))
(loop (sub1 n)))))
(map "c:x;e" "do-saved-macro")
(map "c:x;(" "start-macro-record")
(map "c:x;)" "end-macro-record")
(map "c:x;e" "keyboard-macro-run-saved")
(map "c:x;(" "keyboard-macro-start-record")
(map "c:x;)" "keyboard-macro-stop-record")
(map "leftbuttontriple" "select-click-line")
(map "leftbuttondouble" "select-click-word")