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

fixed bugs

Browse Source 
original commit: e257a9fadd33bf0b7b54710f5c2cd3ec313e08ea
This commit is contained in:
Robby Findler 1997-07-10 20:02:42 +00:00
parent 11c2c30eaf
commit ab0f26db64
2 changed files with 32 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
collects/mred/edit.ss
View File

@ -6,6 +6,7 @@
[mred:finder : mred:finder^]
[mred:path-utils : mred:path-utils^]
[mred:mode : mred:mode^]
[mred:frame : mred:frame^]
[mred:scheme-paren : mred:scheme-paren^]
[mred:keymap : mred:keymap^]
[mred:icon : mred:icon^]
@ -59,6 +60,8 @@
[super-on-focus on-focus]
[super-lock lock])
(public [editing-this-file? #f])
(public
[locked? #f]
[lock
@ -107,12 +110,15 @@
delete find-snip set-filename invalidate-bitmap-cache
begin-edit-sequence end-edit-sequence
set-autowrap-bitmap get-keymap mode set-mode-direct
set-file-format get-file-format
set-file-format get-file-format get-frame
get-style-list modified? change-style set-modified)
(rename [super-on-focus on-focus]
[super-on-local-event on-local-event]
[super-on-set-focus on-set-focus]
[super-on-kill-focus on-kill-focus]
[super-after-set-position after-set-position]
[super-on-edit-sequence on-edit-sequence]
@ -132,6 +138,28 @@
[super-on-paint on-paint])
(private [styles-fixed-edit-modified? #f])
(public
[on-kill-focus
(lambda ()
(super-on-kill-focus)
(let ([frame (get-frame)])
(when (and frame
(is-a? frame mred:frame:empty-frame%))
(send (get-keymap)
remove-chained-keymap
(ivar frame keymap)))))]
[on-set-focus
(lambda ()
(super-on-set-focus)
(let ([frame (get-frame)])
(when (and frame
(is-a? frame mred:frame:empty-frame%))
(send (get-keymap)
chain-to-keymap
(ivar frame keymap)
#t))))])
(public
[set-mode
(lambda (m)
@ -556,29 +584,10 @@
get-filename lock get-style-list
modified? change-style set-modified
get-frame)
(rename [super-on-set-focus on-set-focus]
[super-on-kill-focus on-kill-focus]
[super-after-save-file after-save-file]
(rename [super-after-save-file after-save-file]
[super-after-load-file after-load-file])
(public
[on-kill-focus
(lambda ()
(super-on-kill-focus)
(let ([frame (get-frame)])
(when frame
(send (get-keymap)
remove-chained-keymap
(ivar frame keymap)))))]
[on-set-focus
(lambda ()
(super-on-set-focus)
(let ([frame (get-frame)])
(when frame
(send (get-keymap)
chain-to-keymap
(ivar frame keymap)
#t))))])
(public [editing-this-file? #t])
(private
[check-lock
(lambda ()
@ -840,9 +849,6 @@
(when anchor-needs-updating
(set! anchor-needs-updating #f)
(send frame overwrite-status-changed))
(when lock-needs-updating
(set! lock-needs-updating #f)
(send frame anchor-status-changed))
(when position-needs-updating
(set! position-needs-updating #f)
(update-position-edit))

1
collects/mred/prefs.ss
View File

@ -305,6 +305,7 @@
(make-check 'mred:show-status-line "Show status-line?" id id)
(make-check 'mred:line-offsets "Count line and column numbers from one?" id id)
(make-check 'mred:menu-bindings "Enable keybindings in menus?" id id)
main))
#f)))