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

...

Browse Source 
original commit: 4ba3e770d98ea00f2237c5e124f7143064454e6b
This commit is contained in:
Robby Findler 2001-11-13 15:48:32 +00:00
parent 17b276fc7e
commit 2ef66bbdbb
2 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/framework/private/group.ss
View File

@ -1,3 +1,15 @@
#|
these should line up!
aaa
aaa
aaa
aaa
aaa
aaa
|#
(module group mzscheme (module group mzscheme
(require (lib "string-constant.ss" "string-constants") (require (lib "string-constant.ss" "string-constants")
@ -40,7 +52,7 @@
[define get-windows-menu [define get-windows-menu
(lambda (frame) (lambda (frame)
(let ([menu-bar (send frame get-menu-bar)]) (let ([menu-bar (send frame get-menu-bar)])
(and menu-bar (and menu-bar
(let ([menus (send menu-bar get-items)]) (let ([menus (send menu-bar get-items)])
(ormap (lambda (x) (ormap (lambda (x)
(if (string=? (string-constant windows-menu-label) (send x get-label)) (if (string=? (string-constant windows-menu-label) (send x get-label))

7
collects/framework/private/text.ss
View File

@ -21,7 +21,8 @@
[keymap : framework:keymap^] [keymap : framework:keymap^]
[gui-utils : framework:gui-utils^] [gui-utils : framework:gui-utils^]
[color-model : framework:color-model^] [color-model : framework:color-model^]
[frame : framework:frame^]) [frame : framework:frame^]
[scheme : framework:scheme^])
(rename [-keymap% keymap%]) (rename [-keymap% keymap%])
@ -383,7 +384,7 @@
(define delegate-mixin (define delegate-mixin
(mixin (basic<%>) (delegate<%>) (mixin (basic<%>) (delegate<%>)
(inherit split-snip find-snip get-snip-position (inherit split-snip find-snip get-snip-position
find-first-snip get-style-list) find-first-snip get-style-list set-tabs)
(field (delegate #f)) (field (delegate #f))
(define/public (get-delegate) delegate) (define/public (get-delegate) delegate)
@ -392,6 +393,8 @@
(when delegate (when delegate
(send delegate begin-edit-sequence) (send delegate begin-edit-sequence)
(send delegate lock #f) (send delegate lock #f)
(when (is-a? this scheme:text<%>)
(send delegate set-tabs null (send this get-tab-size) #f))
(send delegate hide-caret #t) (send delegate hide-caret #t)
(send delegate erase) (send delegate erase)
(send delegate set-style-list (get-style-list)) (send delegate set-style-list (get-style-list))