Commit 9165d3e3 authored by bp's avatar bp
Browse files

Fixed parent search problem in topbox

git-svn-id: https://forth-ev.de/repos/bigforth@1707 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 08ab9418
......@@ -1316,7 +1316,7 @@ widget ptr cut-stack
: is-parent? ( o1 o2 -- flag )
dup 0= IF 2drop false EXIT THEN
BEGIN 2dup <> WHILE
BEGIN 2dup <> over cur topbox self <> and WHILE
widget with parent self endwith
dup 0= UNTIL 2drop false EXIT THEN
2drop true ;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment