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

...

Browse Source 
original commit: 3810183cb1529658ccf65c21c73dbe50a86bddcf
This commit is contained in:
Robby Findler 2000-09-06 14:03:38 +00:00
parent 566cca2361
commit b7b13b0a20
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/framework/frame.ss
View File

@ -148,11 +148,13 @@
[get-area-container (lambda () panel)])
(sequence
(set! after-init? #t)
'(global-defined-value 'open-frames
(cons (make-weak-box this)
(global-defined-value 'open-frames))))))
(when (getenv "MREDMEMORYDEBUG")
(global-defined-value 'open-frames
(cons (make-weak-box this)
(global-defined-value 'open-frames)))))))
'(global-defined-value 'open-frames null)
(when (getenv "MREDMEMORYDEBUG")
(global-defined-value 'open-frames null))
(define info<%> (interface (basic<%>)
determine-width

2
collects/framework/keymap.ss
View File

@ -940,7 +940,7 @@
(map "s:insert" "paste-clipboard")
(map-meta "space" "collapse-space")
(map-meta "\\" "remove-space")
;(map-meta "\\" "remove-space") ;; conflicts with european keyboards
(map "c:x;c:o" "collapse-newline")
(map "c:o" "open-line")
(map "c:t" "transpose-chars")