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

...

Browse Source 
original commit: 42d7d32c2d7aeb39002e4741cb94ba86b0f52ed8
This commit is contained in:
Robby Findler 1999-04-22 02:38:53 +00:00
parent 339619772b
commit 6ba4e1936a
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/frame.ss
View File

@ -449,8 +449,9 @@
(if (eq? direction 'forward)
'after-or-none
'before-or-none))])
(printf "searching snips: ~s ~s~n" current-snip
(and current-snip (send current-snip get-text 0 (send current-snip get-count))))
(printf "searching snips: ~s ~s editor-snip? ~a~n" current-snip
(and current-snip (send current-snip get-text 0 (send current-snip get-count)))
(and current-snip (is-a? current-snip original:editor-snip%)))
(let ([next-loop
(lambda ()
(if (eq? direction 'forward)
@ -466,6 +467,7 @@
(< flat end))
(and (< start flat)
(<= flat end))))))
(printf "terminating this level~n")
(if (and (not flat) pop-out?)
(pop-out)
(values edit flat))]