From: George H. <geo...@us...> - 2013-04-22 19:20:23
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv27314/html Modified Files: class-controls.htm dexh-float.htm dexh-switch.htm Log Message: Updated dexed files and help database Index: dexh-float.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-float.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** dexh-float.htm 15 Mar 2013 00:25:01 -0000 1.2 --- dexh-float.htm 22 Apr 2013 19:20:21 -0000 1.3 *************** *** 98,104 **** </p><p><b><code>: FVARIABLE ( compiling "name" -- ; run-time -- addr) \ ANSI Floating </code></b><br>Define a floating-point variable in the dictionary. The contents are undefined. ! </p><p><b><code>: FVALUE ( compiling "name" -- ; fs: r -- ; run-time FS: -- r ) \ W32F Floating extra </code></b><br>Define a floating point value initialised from the FP stack. ! </p><p><b><code>: FTO \ W32F Floating extra </code></b><br><b> Interpretation: ( -<fvalue>- -- fs: r -- ) <br /> Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) </b> --- 98,104 ---- </p><p><b><code>: FVARIABLE ( compiling "name" -- ; run-time -- addr) \ ANSI Floating </code></b><br>Define a floating-point variable in the dictionary. The contents are undefined. ! </p><p><b><code>: FVALUE ( compiling "name" -- ; fs: r -- ; run-time FS: -- r ) \ W32F Floating ext </code></b><br>Define a floating point value initialised from the FP stack. ! </p><p><b><code>synonym fto to \ W32F Floating extra </code></b><br><b> Interpretation: ( -<fvalue>- -- fs: r -- ) <br /> Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) </b> *************** *** 106,109 **** --- 106,115 ---- be corrupted; no checks are made so the user should take care. FTO should not be POSTPONEd. + </p><p><b><code>synonym +fto +to \ W32F Floating extra + </code></b><br><b> Interpretation: ( -<fvalue>- -- fs: r -- ) <br /> + Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) </b> + </p><p>Add r into -<fvalue>-. If -<fvalue>- is not defined with fvalue then memory may + be corrupted; no checks are made so the user should take care. +FTO should not be + POSTPONEd. </p><p><b><code>: FCONSTANT ( "name" -- ; fs: r -- ) \ ANSI Floating </code></b><br> <b> Interpretation: ( "name" ; fs: r -- ) </b> <br /> *************** *** 120,123 **** --- 126,150 ---- <b> Run-time: ( fs: -- r ) </b> <br /> Place r on the floating-point stack. + </p><p><b><code>: DFIELD: ( n1 "name" -- n2 ) ( addr -- 'addr ) + </code></b><br>Skip leading space delimiters. Parse name delimited by a space. Offset is the first + double-float aligned value greater than or equal to n1. n2 = offset + 1 double-float. + Create a definition for name with the execution semantics given below. + name Execution: ( addr1 -- addr2 ) + Add the offset calculated during the compile time action to addr1 giving the + double-float aligned address addr2. + </p><p><b><code>: FFIELD: ( n1 "name" -- n2 ) ( addr -- 'addr ) + </code></b><br>Skip leading space delimiters. Parse name delimited by a space. Offset is the first + float aligned value greater than or equal to n1. n2 = offset + 1 float. + Create a definition for name with the execution semantics given below. + name Execution: ( addr1 -- addr2 ) + Add the offset calculated during the compile time action to addr1 giving the float + aligned address addr2. + </p><p><b><code>: SFIELD: ( n1 "name" -- n2 ) ( addr -- 'addr ) + </code></b><br>Skip leading space delimiters. Parse name delimited by a space. Offset is the first + singe-float aligned value greater than or equal to n1. n2 = offset + 1 single-float. + Create a definition for name with the execution semantics given below. + name Execution: ( addr1 -- addr2 ) + Add the offset calculated during the compile time action to addr1 giving the + single-float aligned address addr2. </p><a name="Sec#3"></a> <h3>FP Stack operations Index: class-controls.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-controls.htm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** class-controls.htm 15 Mar 2013 00:25:01 -0000 1.5 --- class-controls.htm 22 Apr 2013 19:20:21 -0000 1.6 *************** *** 760,770 **** </code></b><br>Spinner Control Class. </p><p>This class is a combination of an up-down control and a Text Box (the buddy). ! </p><p><b><code>:m start: ( parent -- ) </code></b><br>Start the control. ! </p><p><b><code>:m TheBox: ( -- spinbox ) </code></b><br>Object address of the text box for directly manipulating it (though it shouldn't really be done). ! </p><p><b><code>:m Move: ( x y w h -- ) </code></b><br>Move the text box to the specified positon and the up-down control as well. ! </p><p><b><code>:m SetFont: ( hndl -- ) </code></b><br>Set the font of the text box. </p><p><b><code>:M Close: ( -- ) --- 760,772 ---- </code></b><br>Spinner Control Class. </p><p>This class is a combination of an up-down control and a Text Box (the buddy). ! </p><p><b><code>:M start: ( parent -- ) </code></b><br>Start the control. ! </p><p><b><code>:M TheBox: ( -- spinbox ) </code></b><br>Object address of the text box for directly manipulating it (though it shouldn't really be done). ! </p><p><b><code>:M Move: ( x y w h -- ) </code></b><br>Move the text box to the specified positon and the up-down control as well. ! </p><p><b><code>:M Select: ( -- ) ! </code></b><br>Selects the text inside the spinner ! </p><p><b><code>:M SetFont: ( hndl -- ) </code></b><br>Set the font of the text box. </p><p><b><code>:M Close: ( -- ) Index: dexh-switch.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-switch.htm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** dexh-switch.htm 15 Mar 2013 00:25:01 -0000 1.3 --- dexh-switch.htm 22 Apr 2013 19:20:21 -0000 1.4 *************** *** 29,33 **** of the stack ) if no matching condition has been added to the switch and open it for adding conditions. </p><p><b><code>: [SWITCH ( "name" "default" -- head ) \ FORTH SYSTEM ! </code></b><br>Define a new switch "name" whose default action is -<default>- and open it for adding conditions. </p><p><b><code>: SWITCH: ( "name" "<code to perform> ;" -- head ) \ FORTH SYSTEM --- 29,33 ---- of the stack ) if no matching condition has been added to the switch and open it for adding conditions. </p><p><b><code>: [SWITCH ( "name" "default" -- head ) \ FORTH SYSTEM ! </code></b><br>Define a new switch "name" whose default action is "default" and open it for adding conditions. </p><p><b><code>: SWITCH: ( "name" "<code to perform> ;" -- head ) \ FORTH SYSTEM *************** *** 35,39 **** forth code (up to the terminating ;). The forth words must call the switch "name" as a recursive call with "name" to perform recursion, since ! RECURSE won't work. </p><p><b><code>: [+SWITCH ( "name" -- head ) \ FORTH SYSTEM </code></b><br>Open existing SWITCH "name" for additional conditions. --- 35,39 ---- forth code (up to the terminating ;). The forth words must call the switch "name" as a recursive call with "name" to perform recursion, since ! RECURSE merely runs the inline code again. </p><p><b><code>: [+SWITCH ( "name" -- head ) \ FORTH SYSTEM </code></b><br>Open existing SWITCH "name" for additional conditions. |