Actually the correction does not quite work. The problem now is with
DOPRESS
Just a slightly modified code follows this message. When I call DOPRESS
on the first glcanvas in the list everything works fine. However, on
the second glcanvas (and on the next I believe) when I release the
mouse DOPRESS returns for the Y coordinate the glcanvas height instead
of the last mouse point location. You can see this happening on the
stack content output in the attached example.
Your help is appreciated.
--
Sergey
#! xbigforth
\ automatic generated code
\ do not edit
also editor also minos also forth
component class comp0000
public:
early widget
early open
early dialog
early open-app
glcanvas ptr gl1
glcanvas ptr gl2
glcanvas ptr gl3
button ptr gl2
( [varstart] ) ( [varend] )
how:
: open new DF[ 0 ]DF s" No Title" open-component ;
: dialog new DF[ 0 ]DF s" No Title" open-dialog ;
: open-app new DF[ 0 ]DF s" No Title" open-application ;
class;
comp0000 implements
( [methodstart] ) : xy-test ( x y b n -- ) 2drop
DOPRESS cr ." in:" .s cr 2drop 2drop ;
( [methodend] )
: widget ( [dumpstart] )
GL[ ]GL ( MINOS ) ^^ CK[ ( x y b n -- )
dup 1 = if
." zx" cr
xy-test
else
2drop 2drop
then
]CK ( MINOS ) $64 $1 *hfil $64 $1 *vfil glcanvas new ^^bind gl1
GL[ ]GL ( MINOS ) ^^ CK[ ( x y b n -- )
dup 1 = if
." xy" cr
xy-test
else
2drop 2drop
then
]CK ( MINOS ) $64 $1 *hfil $64 $1 *vfil glcanvas new ^^bind gl2
&2 vabox new
GL[ ]GL ( MINOS ) ^^ CK[ ( x y b n -- ) ." zy" cr 2drop
2drop ]CK ( MINOS ) $64 $1 *hfil $64 $1 *vfil glcanvas new ^^bind gl3
$64 $1 *hfil $64 $1 *vfil glue new &2 vabox new
&2 habox new &1 hskips
^^ S[ close ]S ( MINOS ) S" done" button new ^^bind gl2
&1 vabox new vfixbox
&2 vabox new
( [dumpend] ) ;
: init ^>^^ assign widget 1 super init ;
class;
: main
comp0000 open-app
$1 0 ?DO stop LOOP bye ;
script? [IF] main [THEN]
previous previous previous
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
