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

class to interface

Browse Source 
original commit: 58c7227972b31e1ba5a792edd0ec50657fb2a8b8
This commit is contained in:
Matthew Flatt 1999-07-06 22:38:55 +00:00
parent c3cde79d5e
commit 5792cf2d7e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/editor.ss
View File

@ -130,7 +130,7 @@
(lambda (edit)
(let ([admin (send edit get-admin)])
(cond
[(is-a? admin editor-snip-editor-admin%)
[(is-a? admin editor-snip-editor-admin<%>)
(send (send (send admin get-snip) get-admin) get-editor)]
;; assume that any non-media-snip
;; administrator doesn't have embedded edits.

2
collects/framework/frame.ss
View File

@ -445,7 +445,7 @@
[pop-out
(lambda ()
(let ([admin (send edit get-admin)])
(if (is-a? admin editor-snip-editor-admin%)
(if (is-a? admin editor-snip-editor-admin<%>)
(let* ([snip (send admin get-snip)]
[edit-above (send (send snip get-admin) get-editor)]
[pos (send edit-above get-snip-position snip)]