Hello,
Do you know why does the following code fails with Bus error? I just
packed together several Theseus components. No handwritten code there.
Thank you
--
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
( [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 -- ) 2drop 2drop ]CK
( MINOS ) $64 $1 *hfil $64 $1 *vfil glcanvas new GL[ ]GL ( MINOS ) ^^
CK[ ( x y b n -- ) 2drop 2drop ]CK ( MINOS ) $64 $1 *hfil $64 $1 *vfil
glcanvas new &2 habox new panel GL[ ]GL ( MINOS ) ^^ CK[ ( x y b n
-- ) 2drop 2drop ]CK ( MINOS ) $64 $1 *hfil $64 $1 *vfil glcanvas new
$64 $1 *hfil hglue new &2 habox new panel
^^ S[ close ]S ( MINOS ) S" Exit" button new
&1 habox new panel
&3 vabox new panel
( [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]
