!!!sending it here since MINOS list seems to be slow!!!
Hello!
Here is a possible bug related to transferring mouse clicks to opengl
canvas. I have the code with follows after this message. It has three
glcanvas objects. Each canvas has unique mouse-click reaction. However,
when I run the code only the first defined click reaction (i.e.
printing out ." zx") is executed, no matter on which out of those 3
canvases I click.
Your help is really appreciated.
Thank you in advance.
--
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] ) ( [methodend] )
: widget ( [dumpstart] )
GL[ ]GL ( MINOS ) ^^ CK[ ( x y b n -- ) ." zx" cr 2drop
2drop ]CK ( MINOS ) $64 $1 *hfil $64 $1 *vfil glcanvas new ^^bind gl1
GL[ ]GL ( MINOS ) ^^ CK[ ( x y b n -- ) ." xy" cr 2drop 2drop ]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 drop 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]
