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

...

Browse Source 
original commit: ee912049f388cd943e6cf96765bc6f4bbaea2a0d
This commit is contained in:
Robby Findler 2001-11-28 17:47:17 +00:00
parent d6aa7a554e
commit 46f95d7e2c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/private/frame.ss
View File

@ -880,7 +880,7 @@
(class editor-canvas% (class editor-canvas%
(rename [super-on-event on-event]) (rename [super-on-event on-event])
(init-field delegate-frame) (init-field delegate-frame)
(inherit get-editor) (inherit get-editor get-dc)
(define/override (on-event evt) (define/override (on-event evt)
(super-on-event evt) (super-on-event evt)
(when (and delegate-frame (when (and delegate-frame
@ -893,7 +893,9 @@
(send evt get-y))]) (send evt get-y))])
(send delegate-frame click-in-overview (send delegate-frame click-in-overview
(send text find-position editor-x editor-y))))))) (send text find-position editor-x editor-y)))))))
(super-instantiate ()))) (super-instantiate ())
;(send (get-dc) set-scale 1/12 1/12)
))
(define delegatee-text% (define delegatee-text%
(class text:basic% (class text:basic%