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 do-autosave
remove-autosave)) remove-autosave))
; wx: what about checking the autosave files when a file is ; what about checking the autosave files when a file is opened?
; opened?
(define backup-autosave-mixin (define backup-autosave-mixin
(mixin (basic<%>) (backup-autosave<%>) args (mixin (basic<%>) (backup-autosave<%>) args
(inherit is-modified? get-filename save-file) (inherit is-modified? get-filename save-file)

12
collects/framework/keymap.ss
View File

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