Hi!
I have trouble with figuring out floating point to string conversion
under xbigforth. Floating points calculations happen smoothly, but when
I need to output what I'm doing I have trouble. In the attached little
program only one thing is happening when you press its only button: the
program outputs what's on the floating stack using word "f." and I put
!1 on the stack. However, all it outputs is zeros. I think the problem
is with the conversion semantics of f., but have no idea what word
conflict under MINOS prevents it from working. If somebody knows a
solution I'd really appreciate if you share. If it is a bug I'll be
happy when it is fixed.
Best!
--
Sergei
#! 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] )
^^ S[ also float !1 f. cr previous ]S ( MINOS ) TT" does not do what it says" S" print floating point number" button new
&1 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]
