Menu
▾
▴
win32forth-cvs — CVS Commit List
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(70) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(38) |
Feb
(4) |
Mar
(11) |
Apr
(49) |
May
(81) |
Jun
(65) |
Jul
(36) |
Aug
(57) |
Sep
(63) |
Oct
(57) |
Nov
(49) |
Dec
(41) |
| 2006 |
Jan
(75) |
Feb
(80) |
Mar
(10) |
Apr
(13) |
May
(100) |
Jun
(100) |
Jul
(77) |
Aug
(87) |
Sep
(80) |
Oct
(124) |
Nov
(39) |
Dec
(41) |
| 2007 |
Jan
(20) |
Feb
(32) |
Mar
(32) |
Apr
(43) |
May
(146) |
Jun
(40) |
Jul
(49) |
Aug
(33) |
Sep
(25) |
Oct
(19) |
Nov
(11) |
Dec
(8) |
| 2008 |
Jan
(4) |
Feb
(11) |
Mar
(31) |
Apr
(40) |
May
(34) |
Jun
(24) |
Jul
(39) |
Aug
(104) |
Sep
(27) |
Oct
(35) |
Nov
(34) |
Dec
(97) |
| 2009 |
Jan
(75) |
Feb
(29) |
Mar
(45) |
Apr
(76) |
May
(121) |
Jun
(103) |
Jul
(67) |
Aug
(28) |
Sep
(22) |
Oct
(39) |
Nov
(9) |
Dec
(15) |
| 2010 |
Jan
(7) |
Feb
(39) |
Mar
(40) |
Apr
(57) |
May
(67) |
Jun
(69) |
Jul
(49) |
Aug
(68) |
Sep
(22) |
Oct
(7) |
Nov
(2) |
Dec
(10) |
| 2011 |
Jan
|
Feb
|
Mar
(10) |
Apr
(4) |
May
(6) |
Jun
(10) |
Jul
(16) |
Aug
(23) |
Sep
(9) |
Oct
|
Nov
(28) |
Dec
(3) |
| 2012 |
Jan
(11) |
Feb
(10) |
Mar
(1) |
Apr
|
May
(4) |
Jun
(3) |
Jul
(3) |
Aug
(4) |
Sep
(2) |
Oct
|
Nov
|
Dec
(1) |
| 2013 |
Jan
|
Feb
(7) |
Mar
(30) |
Apr
(4) |
May
(4) |
Jun
(8) |
Jul
(10) |
Aug
(4) |
Sep
|
Oct
(2) |
Nov
(24) |
Dec
(13) |
| 2014 |
Jan
(7) |
Feb
(2) |
Mar
|
Apr
(1) |
May
(9) |
Jun
|
Jul
(3) |
Aug
(9) |
Sep
|
Oct
(2) |
Nov
|
Dec
(3) |
| 2015 |
Jan
(4) |
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(5) |
Sep
(1) |
Oct
(4) |
Nov
(7) |
Dec
(39) |
| 2016 |
Jan
(17) |
Feb
(2) |
Mar
(2) |
Apr
|
May
(1) |
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
(2) |
| 2017 |
Jan
|
Feb
(3) |
Mar
|
Apr
|
May
(1) |
Jun
(2) |
Jul
|
Aug
(3) |
Sep
|
Oct
|
Nov
|
Dec
(2) |
| 2018 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2019 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
(2) |
Nov
(1) |
Dec
(1) |
| 2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
(1) |
Nov
|
Dec
|
| 2025 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: bob a. <rd...@us...> - 2006-04-08 19:40:47
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31416 Modified Files: tools.f Log Message: allow using tools when current directory isn't where forth was built Index: tools.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/tools.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** tools.f 20 Dec 2005 18:02:03 -0000 1.2 --- tools.f 8 Apr 2006 19:40:38 -0000 1.3 *************** *** 9,17 **** INTERNAL EXTERNAL \ externally available definitions start here ! defer class-browser :noname ( -- ) \ load the class and vocabulary browser turnkeyed? 0= ! \in-system-ok IF s" Tools/ClassBrowser.f" INCLUDED then ; is class-browser --- 9,19 ---- INTERNAL EXTERNAL \ externally available definitions start here ! create forthbase ," \program files\win32forth" ! : sysabspath ( a1 n1 -- a2 n2) ! forthbase count MakeAbsolutePath count ; defer class-browser :noname ( -- ) \ load the class and vocabulary browser turnkeyed? 0= ! \in-system-ok IF s" src\Tools\ClassBrowser.f" sysabspath INCLUDED then ; is class-browser *************** *** 19,23 **** :noname ( -- ) \ load the help-system turnkeyed? 0= ! \in-system-ok IF s" Tools/HelpSystem.f" INCLUDED THEN ; is help-system --- 21,25 ---- :noname ( -- ) \ load the help-system turnkeyed? 0= ! \in-system-ok IF s" src\Tools\HelpSystem.f" sysabspath INCLUDED THEN ; is help-system *************** *** 25,29 **** :noname ( -- ) \ load the xref tool turnkeyed? 0= ! \in-system-ok IF >system s" Tools/xref.f" INCLUDED system> THEN ; is xref --- 27,31 ---- :noname ( -- ) \ load the xref tool turnkeyed? 0= ! \in-system-ok IF >system s" src\Tools\xref.f" sysabspath INCLUDED system> THEN ; is xref *************** *** 31,35 **** :noname ( -- ) \ load the DexH tool turnkeyed? 0= ! \in-system-ok IF >system s" Tools/w32fdexh.f" INCLUDED system> THEN ; is dexh --- 33,37 ---- :noname ( -- ) \ load the DexH tool turnkeyed? 0= ! \in-system-ok IF >system s" src\Tools\w32fdexh.f" sysabspath INCLUDED system> THEN ; is dexh |
|
From: Jos v.d.V. <jo...@us...> - 2006-04-05 16:50:21
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9515/apps/Player4 Modified Files: Catalog.f Log Message: Jos: Added the request level to the CSV-file Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** Catalog.f 5 Apr 2006 16:26:47 -0000 1.29 --- Catalog.f 5 Apr 2006 16:50:07 -0000 1.30 *************** *** 407,411 **** r@ RecordDef Title r@ Cnt_Title c@ type-separator r@ RecordDef #played @ .csv type-separator ! r@ RecordDef FileSize @ .csv +inlineRecord r@ RecordDef RequestLevelRecord c@ .csv +inlineRecord InlineRecord count fwrite --- 407,411 ---- r@ RecordDef Title r@ Cnt_Title c@ type-separator r@ RecordDef #played @ .csv type-separator ! r@ RecordDef FileSize @ .csv type-separator r@ RecordDef RequestLevelRecord c@ .csv +inlineRecord InlineRecord count fwrite *************** *** 425,429 **** s" Label" type-separator s" Artist" type-separator s" Album " type-separator s" Title" type-separator ! s" #played" type-separator s" Size" +inlineRecord InlineRecord count fwrite --- 425,430 ---- s" Label" type-separator s" Artist" type-separator s" Album " type-separator s" Title" type-separator ! s" #played" type-separator s" Size" type-separator ! s" ReqLevel" +inlineRecord InlineRecord count fwrite |
|
From: Jos v.d.V. <jo...@us...> - 2006-04-05 16:27:02
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25294/apps/Player4 Modified Files: Catalog.f Mediatree.f PLAYER4.F Log Message: Jos: Made it possible to set all requests to the same level. And removed a bug from the right click in the catalog. Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.41 retrieving revision 1.42 diff -C2 -d -r1.41 -r1.42 *** PLAYER4.F 12 Mar 2006 17:00:39 -0000 1.41 --- PLAYER4.F 5 Apr 2006 16:26:47 -0000 1.42 *************** *** 74,78 **** MENUSEPARATOR SUBMENU "S&ort and view" ! MENUITEM "Define a view" StartViewForm ; MENUSEPARATOR MENUITEM "Se&t maximum random level" SetRandomLevel ; --- 74,79 ---- MENUSEPARATOR SUBMENU "S&ort and view" ! MENUITEM "Define a view and sort" StartViewForm ; ! MENUITEM "&Sort" SortCatalog ; MENUSEPARATOR MENUITEM "Se&t maximum random level" SetRandomLevel ; *************** *** 86,89 **** --- 87,91 ---- MENUITEM "&Enable all kept requests" EnableKeptRequests ; MENUITEM "Se&t request level" player-base SetRequestLevel ; + MENUITEM "Set a&ll requests to the same level" Level-requests SortCatalog ; ENDSUBMENU MENUSEPARATOR Index: Mediatree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** Mediatree.f 19 Mar 2006 21:41:37 -0000 1.27 --- Mediatree.f 5 Apr 2006 16:26:47 -0000 1.28 *************** *** 233,237 **** :M On_RightClick: ( -- ) ! StartPopupWindow ;M --- 233,237 ---- :M On_RightClick: ( -- ) ! On_SelChanged: self ;M Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** Catalog.f 19 Mar 2006 21:41:37 -0000 1.28 --- Catalog.f 5 Apr 2006 16:26:47 -0000 1.29 *************** *** 363,374 **** r@ RecordDef Excluded- c@ . r@ RecordDef FileSize @ 12 U,.R ! r@ RecordDef Request- w@ ." Req " . then r>drop ; ! : list-record ( n - ) n>record _list-record ; ! : list-records ( - ) for-all-records list-record cr ; ! : list-database ( - ) map-database list-records unmap-database ; K_TAB variable separator separator c! --- 363,391 ---- r@ RecordDef Excluded- c@ . r@ RecordDef FileSize @ 12 U,.R ! r@ RecordDef RequestLevelRecord c@ ." Req " . then r>drop ; ! : request? ( n - f ) n>record RecordDef Request- c@ 0<> ; ! ! : List-request ( n - ) dup request? ! if n>record _list-record ! else drop ! then ! ; ! ! : List-requests ( - ) for-all-records List-request cr ; ! : list-record ( n - ) n>record _list-record ; ! : list-records ( - ) for-all-records list-record cr ; ! : list-database ( - ) map-database list-records unmap-database ; ! ! : Level-request ( n - ) dup request? ! if n>record 1 swap RequestLevelRecord c! ! else drop ! then ! ; ! ! : Level-requests ( - ) for-all-records Level-request ; K_TAB variable separator separator c! *************** *** 391,394 **** --- 408,412 ---- r@ RecordDef #played @ .csv type-separator r@ RecordDef FileSize @ .csv +inlineRecord + r@ RecordDef RequestLevelRecord c@ .csv +inlineRecord InlineRecord count fwrite else drop |
|
From: George H. <geo...@us...> - 2006-03-21 10:32:52
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13120/win32forth/doc Modified Files: p-gethelp.htm Log Message: gah: Documented error -58 Index: p-gethelp.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-gethelp.htm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** p-gethelp.htm 5 Jan 2006 11:05:04 -0000 1.4 --- p-gethelp.htm 21 Mar 2006 10:32:42 -0000 1.5 *************** *** 174,177 **** --- 174,184 ---- <span class="fixedfont"><a href="#Error(-45)">floating point stack underflow</a></span></td> </tr> + <tr> + <td style="font-weight: normal; color: black; border-left-style: none; border-right-style: none; border-top-style: none; border-bottom: .75pt solid green; background-color: #CCCCCC" width="212" align="center"> + -58</td> + <td style="font-weight: normal; color: black; border-left-style: none; border-right-style: none; border-top-style: none; border-bottom: .75pt solid green; background-color: #CCCCCC" width="355"> + <span class="fixedfont"><a href="#Error(-38)">unmatched interpreted conditionals</a></span></td> + </tr> + <tr> </table> </center> *************** *** 554,557 **** --- 561,565 ---- <pre><b>.fpath </b>.;S:\FORTH\CVSVER;SRC;SRC\LIB;RES;DEMOS;SRC\CONSOLE;HTM ok</pre> </blockquote> + <p>Paths can be added with the <span class="fixedfont">FPATH+</span> command.</p> <hr> <p><b><span class="fixedfont"><font size="4"><a name="Error(-45)">Error(-45)</a>: *************** *** 573,576 **** --- 581,606 ---- itself declares it consumes x stack entries, but in fact consumes >x.</p> <hr> + <p><b><span class="fixedfont"><font size="4"><a name="Error(-58)">Error(-58)</a>: + <name> Unmatched Interpreted conditionals</font></span></b></p> + <p><b>Summary: </b>ANS error number. The word <name> caused the interpreter to encounter an interpreted + conditional structure which was not concluded before the input stream (including any necessary REFILLs) is + exhausted. When the source code is loaded from a file then the error occurs at the end of the last line of the + file. When inputting from the command line this error does <b>not</b> occur; instead all input is ignored until + the correct ending interpreted conditional is encountered. <b><name></b> normally indicates a word that + calls EVALUATE, either directly or indirectly. It is possible for this error to only occur on some occassions + since different values of the test supplied to [IF] or #IF cause different parts of the input stream to be scanned + for the matching conditional(s).</p> + <p><b>Example:</b></p> + <blockquote> + <pre> + + ^ + Error(-58): Unmatched Interpreted conditionals!!! in file C:\PROGRAM FILES\WIN32FORTH\ + TEST.F at line 98</pre> + </blockquote> + <p><b>Resolution: </b>Definite programmer error. The problem is either a missing [THEN]or #THEN (or their synonyms + [ENDIF] or #ENDIF) or the [] and # forms are intermixed (although they perform the same actions #THEN will not match + with [IF] or vice versa).</p> + <hr> <p><b><span class="fixedfont"><font size="4"><a name="Error(-260)">Error(-260)</a>: <name> is not a DEFER </font></span> |
|
From: Jos v.d.V. <jo...@us...> - 2006-03-19 21:41:44
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23691/apps/Player4 Modified Files: Catalog.f Mediatree.f Log Message: Jos: Solved the problem with unstructered disks. ( Bug reported by Dirk ) Index: Mediatree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** Mediatree.f 12 Mar 2006 17:00:39 -0000 1.26 --- Mediatree.f 19 Mar 2006 21:41:37 -0000 1.27 *************** *** 93,97 **** dup to hPrev ; - struct{ \ PrevMusic DWORD PrevMusicRecord --- 93,96 ---- *************** *** 125,138 **** ; : AddArtist { PrevRecAdr } ( rec-addr PrevRecAdr - ) dup CountedArtist 1 max PrevRecAdr @ CountedArtist 1 max compareia 0<> if dup PrevRecAdr ! true to OtherArtist? NotPlayable dup RecordDef Artist hPrev 2 pick RecordDef Request- c@ ! if rot drop hRequests ! else rot CountedFilename music? ! if hMusic ! else hMovies ! then then 1 AddItemHierarical PrevRecAdr hArtist ! --- 124,142 ---- ; + : hMusic/hMovie ( rec-adr - hMusic|hMovie ) + CountedFilename music? + if hMusic + else hMovies + then + ; + : AddArtist { PrevRecAdr } ( rec-addr PrevRecAdr - ) dup CountedArtist 1 max PrevRecAdr @ CountedArtist 1 max compareia 0<> + over RecordDef Cnt_Artist c@ 0> and if dup PrevRecAdr ! true to OtherArtist? NotPlayable dup RecordDef Artist hPrev 2 pick RecordDef Request- c@ ! if rot drop hRequests ! else rot hMusic/hMovie then 1 AddItemHierarical PrevRecAdr hArtist ! *************** *** 143,146 **** --- 147,151 ---- : AddAlbum { PrevRecAdr } ( rec-addr PrevRecAdr - ) dup CountedAlbum 1 max PrevRecAdr @ CountedAlbum 1 max compareia 0<> OtherArtist? or + over RecordDef Cnt_Artist c@ 0> and if dup PrevRecAdr ! NotPlayable RecordDef Album hPrev PrevRecAdr hArtist @ *************** *** 150,157 **** ; ! : AddTitle ( rec-addr PrevRecAdr - ) ! >r ! RecordDef CountedTitle +InlineRecord InlineRecord +null ! InlineRecord 1+ hPrev r> hAlbum @ 0 AddItemHierarical drop ; --- 155,165 ---- ; ! : AddTitle { rec-addr PrevRecAdr } ( rec-addr PrevRecAdr - ) ! rec-addr RecordDef CountedTitle +InlineRecord InlineRecord +null ! InlineRecord 1+ hPrev PrevRecAdr ! rec-addr RecordDef Cnt_Artist c@ 0> ! if hAlbum @ ! else drop rec-addr hMusic/hMovie ! then 0 AddItemHierarical drop ; Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** Catalog.f 12 Mar 2006 17:00:38 -0000 1.27 --- Catalog.f 19 Mar 2006 21:41:37 -0000 1.28 *************** *** 515,525 **** drop ! >r 1- dup r> ascii \ -scan >r 2dup - >r 1+ ! r@ struct, InlineRecord RecordDef Cnt_Album c! ! struct, InlineRecord RecordDef Album r@ cmove ! r> - 1- dup r> ascii \ -scan drop 2dup - swap 1+ over ! struct, InlineRecord RecordDef Cnt_Artist c! ! struct, InlineRecord RecordDef Artist rot cmove drop --- 515,530 ---- drop ! >r 1- dup r> ascii \ -scan >r 2dup - r@ swap >r 0> ! if 1+ r@ struct, InlineRecord RecordDef Cnt_Album c! ! struct, InlineRecord RecordDef Album r@ cmove ! else struct, InlineRecord RecordDef Cnt_Album c! ! then \ 4 ! r> - 1- dup r> ascii \ -scan 0> ! if 2dup - swap 1+ over ! struct, InlineRecord RecordDef Cnt_Artist c! ! struct, InlineRecord RecordDef Artist rot cmove ! else 0 struct, InlineRecord RecordDef Cnt_Artist c! drop ! then drop |
|
From: George H. <geo...@us...> - 2006-03-16 10:57:46
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24219/win32forth/src Modified Files: INTERPIF.F Log Message: gah: Modified to issue error -58 and some dexing (work in progress) plus the errors doc file is to be done. Index: INTERPIF.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/INTERPIF.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** INTERPIF.F 29 Aug 2005 15:56:27 -0000 1.2 --- INTERPIF.F 16 Mar 2006 10:57:36 -0000 1.3 *************** *** 10,15 **** INTERNAL : definite-word ! bl nextword 0= abort" Input stream exhausted!" ?uppercase ; : match-[str] ( cstr addr len -- cstr fl ) --- 10,18 ---- INTERNAL + -58 Constant THROW_INTERPRETCONDITIONAL + THROW_MSGS LINK, THROW_INTERPRETCONDITIONAL , ," Unmatched Interpreted conditionals!!! " + : definite-word ! bl nextword 0= THROW_INTERPRETCONDITIONAL ?throw ?uppercase ; : match-[str] ( cstr addr len -- cstr fl ) *************** *** 34,39 **** EXTERNAL ! : [else] ( interpretive control structure -- alternate selection ) ! ( -- ) 1 begin ?dup --- 37,47 ---- EXTERNAL ! : [else] ( -- ) \ ANSI TOOLS EXT ! \ *G Compilation: Perform the execution semantics given below. ! \ ** Execution: ( "<spaces>name" ... -- ) ! \ ** Skipping leading spaces, parse and discard space-delimited words from the parse area, ! \ ** including nested occurrences of [IF] ... [THEN] and [IF] ... [ELSE] ... [THEN], until ! \ ** the word [THEN] has been parsed and discarded. If the parse area becomes exhausted, ! \ ** it is refilled as with REFILL. [ELSE] is an immediate word. 1 begin ?dup *************** *** 42,59 **** repeat ; immediate ! : [if] ( interpretive control structure -- select on true ) ! ( flag -- ) 0= if postpone [else] then ; immediate ! : [then] ( interpretive control structure -- end the structure ) ! ( -- ) ; immediate ! : [endif] ( interpretive control structure -- end the structure ) ! ( -- ) ; immediate ! : #else ( the alternative selection ) ! ( -- ) 1 begin ?dup --- 50,87 ---- repeat ; immediate ! : [if] ( flag -- ) \ ANSI TOOLS EXT ! \ *G Compilation: Perform the execution semantics given below. ! \ ** Execution: ( flag | flag "<spaces>name" ... -- ) ! \ ** If flag is true, do nothing. Otherwise, skipping leading spaces, parse and discard ! \ ** space-delimited words from the parse area, including nested occurrences of ! \ ** [IF] ... [THEN], [IF] ... [ELSE] ... [THEN], [IF] ... [ENDIF] and ! \ ** [IF] ... [ELSE] ... [ENDIF], until either the word [ELSE], ! \ ** the word [THEN] or the word [ENDIF] has been parsed and discarded. ! \ ** If the parse area becomes exhausted, it is refilled as with REFILL. ! \ ** [IF] is an immediate word. ! \ ** An ambiguous condition exists if [IF] is POSTPONEd. ! \ ** If the end of the input buffer is reached and cannot be refilled before the terminating ! \ ** [ELSE], [THEN] or [ENDIF] is parsed then error -58 is thrown. 0= if postpone [else] then ; immediate ! : [then] ( -- ) \ ANSI TOOLS EXT ! \ *G Compilation: Perform the execution semantics given below. ! \ ** Execution: ( -- ) ! \ ** Does nothing. [THEN] is an immediate word. ; immediate ! : [endif] ( -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. ! \ ** Execution: ( -- ) ! \ ** Does nothing. [ENDIF] is an immediate word. ; immediate ! : #else ( -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. ! \ ** Execution: ( "<spaces>name" ... -- ) ! \ ** Skipping leading spaces, parse and discard space-delimited words from the parse area, ! \ ** including nested occurrences of #IF ... #THEN and #IF ... #ELSE ... #THEN, until ! \ ** the word #THEN has been parsed and discarded. If the parse area becomes exhausted, ! \ ** it is refilled as with REFILL. #ELSE is an immediate word. 1 begin ?dup *************** *** 62,75 **** repeat ; immediate ! : #if ( begin the interpretive control structure ) ! ( flag -- ) 0= if postpone #else then ; immediate ! : #then ( mark the end of the interpretive control structure ) ! ( -- ) ; immediate ! : #endif ( mark the end of the interpretive control structure ) ! ( -- ) ; immediate --- 90,118 ---- repeat ; immediate ! : #if ( flag -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. ! \ ** Execution: ( flag | flag "<spaces>name" ... -- ) ! \ ** If flag is true, do nothing. Otherwise, skipping leading spaces, parse and discard ! \ ** space-delimited words from the parse area, including nested occurrences of ! \ ** #IF ... #THEN, #IF ... #ELSE ... #THEN, #IF ... #ENDIF and ! \ ** #IF ... #ELSE ... #ENDIF, until either the word #ELSE, ! \ ** the word #THEN or the word #ENDIF has been parsed and discarded. ! \ ** If the parse area becomes exhausted, it is refilled as with REFILL. ! \ ** #IF is an immediate word. ! \ ** An ambiguous condition exists if #IF is POSTPONEd. ! \ ** If the end of the input buffer is reached and cannot be refilled before the terminating ! \ ** #ELSE, #THEN or #ENDIF is parsed then error -58 is thrown. 0= if postpone #else then ; immediate ! : #then ( -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. ! \ ** Execution: ( -- ) ! \ ** Does nothing. #THEN is an immediate word. ; immediate ! : #endif ( -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. ! \ ** Execution: ( -- ) ! \ ** Does nothing. #ENDIF is an immediate word. ; immediate |
|
From: George H. <geo...@us...> - 2006-03-13 14:16:57
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11615/win32forth/src Modified Files: ANSFILE.F Log Message: gah: More Dexing and added missing section of doc. Index: ANSFILE.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/ANSFILE.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ANSFILE.F 29 Aug 2005 15:56:27 -0000 1.3 --- ANSFILE.F 13 Mar 2006 14:16:51 -0000 1.4 *************** *** 1,6 **** \ $Id$ ! \ This was an ANSI file words set with extensions for finding files ! \ but the ANSI words were moved to the kernel \ \ The words defined in this file follow the draft proposed AMERICAN --- 1,6 ---- \ $Id$ ! \ *P These words are extensions to the ANSI file words for finding files. ! \ The ANSI words are defined in the kernel. \ \ The words defined in this file follow the draft proposed AMERICAN *************** *** 8,12 **** \ - June 30, 1993 \ ! \ If ior = 0, operation is O.K.; Otherwse, it is a failure. --- 8,12 ---- \ - June 30, 1993 \ ! \ ** If ior = 0, operation is O.K.; Otherwse, it is a failure. *************** *** 20,25 **** only forth also definitions ! cell newuser _hdl-search _hdl-search off --- 20,33 ---- only forth also definitions + 5 PROC GetDiskFreeSpace + 2 PROC FindFirstFile + 2 PROC FindNextFile + 1 PROC FindClose + 3 PROC FileTimeToDosDateTime + 4 PROC GetFileTime + 2 PROC FileTimeToSystemTime ! cell newuser _hdl-search ( -- addr ) ! \ *G Variable holding handle. _hdl-search off *************** *** 47,53 **** 16 Constant sizeof(_systemTime) ! 0 newuser _systemtime \ struct FileTimeToSystemTime ! \ function; this struc is same ! \ as time-buf in kernel.tom 2 newuser wYear 2 newuser wMonth --- 55,61 ---- 16 Constant sizeof(_systemTime) ! 0 newuser _systemtime ! \ *G Structure FileTimeToSystemTime ! \ ** function; this struc is same as time-buf in kernel.tom 2 newuser wYear 2 newuser wMonth *************** *** 59,69 **** 2 newuser wMilliseconds - - - \ Get a drive's free space, cluster and sector information - \ "zroot" is the root directory spec zString for the desired drive in the - \ format z" x:\", where x can be a, b, c, d or e etc... - 5 PROC GetDiskFreeSpace : get-fspace { zroot \ clus freclus b/sec s/clus -- as bs cs ds } &of clus \ lpClusters - bs &of freclus \ lpFreeClusters - as --- 67,74 ---- 2 newuser wMilliseconds : get-fspace { zroot \ clus freclus b/sec s/clus -- as bs cs ds } + \ *G Get a drive's free space, cluster and sector information + \ ** "zroot" is the root directory spec zString for the desired drive in the + \ ** format z" x:\", where x can be a, b, c, d or e etc... &of clus \ lpClusters - bs &of freclus \ lpFreeClusters - as *************** *** 77,85 **** then ; ! 2 PROC FindFirstFile ! : find-first-file ( adr slen -- adrd ior ) ! \ name(adr) - null-terminated valid directory or path and filename ! \ len - length of ascii name in bytes ! \ adrd - address of _win32-find-data struc max-path malloc dup>r ascii-z \ adrz - --- 82,90 ---- then ; ! ! : find-first-file ( addr1 len1 -- addr2 ior ) ! \ *G Name(addr1) - null-terminated valid directory or path and filename ! \ ** len1 - length of ascii name in bytes ! \ ** addr2 - address of _win32-find-data struc max-path malloc dup>r ascii-z \ adrz - *************** *** 93,99 **** r> release ; \ free buff ! 2 PROC FindNextFile ! : find-next-file ( -- adrd ior ) \ find-first-file word must be called ! \ before this word can be called due to that _hdl-search is needed _win32-find-data \ lpffd - _WIN32_FIND_DATA _hdl-search @ \ hFindFile --- 98,105 ---- r> release ; \ free buff ! ! : find-next-file ( -- addr ior ) ! \ *G Find-first-file word must be called ! \ ** before this word can be called due to that _hdl-search is needed _win32-find-data \ lpffd - _WIN32_FIND_DATA _hdl-search @ \ hFindFile *************** *** 102,107 **** swap 0= ; \ adrd ior - 0 = success ! 1 PROC FindClose ! : find-close ( -- ior ) \ close the _hdl-search handle _hdl-search @ call FindClose 0= ; \ ior - 0 = success --- 108,114 ---- swap 0= ; \ adrd ior - 0 = success ! ! : find-close ( -- ior ) ! \ *G Close the _hdl-search handle. _hdl-search @ call FindClose 0= ; \ ior - 0 = success *************** *** 109,113 **** internal ! 3 PROC FileTimeToDosDateTime : (DOSTime) ( n -- ) ptr-DOS-time ptr-DOS-date rot \ ptr's to 16 bit DOS time & date --- 116,120 ---- internal ! : (DOSTime) ( n -- ) ptr-DOS-time ptr-DOS-date rot \ ptr's to 16 bit DOS time & date *************** *** 119,136 **** : get-DOS-create-datetime ( -- ;convert 64 bit file time to MS_DOS ) \ date and time values ! \ need to call find-first-file or find-next-file word ! \ before using this word 1 (DOSTime) ; : get-DOS-access-datetime ( -- ;convert 64 bit file time to MS_DOS ) \ date and time values ! \ need to call find-first-file or find-next-file word ! \ before using this word 3 (DOSTime) ; : get-DOS-write-datetime ( -- ;convert 64 bit file time to MS_DOS ) \ date and time values ! \ need to call find-first-file or find-next-file word ! \ before using this word 5 (DOSTime) ; --- 126,143 ---- : get-DOS-create-datetime ( -- ;convert 64 bit file time to MS_DOS ) \ date and time values ! \ need to call find-first-file or find-next-file word ! \ before using this word 1 (DOSTime) ; : get-DOS-access-datetime ( -- ;convert 64 bit file time to MS_DOS ) \ date and time values ! \ need to call find-first-file or find-next-file word ! \ before using this word 3 (DOSTime) ; : get-DOS-write-datetime ( -- ;convert 64 bit file time to MS_DOS ) \ date and time values ! \ need to call find-first-file or find-next-file word ! \ before using this word 5 (DOSTime) ; *************** *** 138,154 **** : get-file-size ( -- size ) ! \ need to call find-first-file or find-next-file word ! \ before using this word _win32-find-data 8 cells+ @ ; : get-file-name ( -- adr; address for file name ) ! \ need to call find-first-file or find-next-file word ! \ before using this word _win32-find-data 11 cells+ ; 2 cells newuser file-time-buf ! 4 PROC GetFileTime ! 2 PROC FileTimeToSystemTime : get-file-modified ( fileid -- system-time ) >r --- 145,160 ---- : get-file-size ( -- size ) ! \ need to call find-first-file or find-next-file word ! \ before using this word _win32-find-data 8 cells+ @ ; : get-file-name ( -- adr; address for file name ) ! \ need to call find-first-file or find-next-file word ! \ before using this word _win32-find-data 11 cells+ ; 2 cells newuser file-time-buf ! : get-file-modified ( fileid -- system-time ) >r *************** *** 166,174 **** : filetime-to-systemtime ( cell# -- ; convert file time to system time ) ! \ need to call find-first-file or find-next-file word ! \ before using this word ! \ cell# is offset in number of cells to _win32-find-data ! \ 1 for creation time; 3 for access time; and 5 for write time ! \ normaly 5 should be used >r \ cell# -> rstack _systemtime \ struct FileTimeToSystemTime --- 172,180 ---- : filetime-to-systemtime ( cell# -- ; convert file time to system time ) ! \ need to call find-first-file or find-next-file word ! \ before using this word ! \ cell# is offset in number of cells to _win32-find-data ! \ 1 for creation time; 3 for access time; and 5 for write time ! \ normaly 5 should be used >r \ cell# -> rstack _systemtime \ struct FileTimeToSystemTime *************** *** 179,183 **** ' zcount alias asciiz->asc-len ( adrz -- sadr slen ) ! IN-SYSTEM --- 185,189 ---- ' zcount alias asciiz->asc-len ( adrz -- sadr slen ) ! IN-SYSTEM *************** *** 260,264 **** cr ." RENAME <filespec> <oldsubstring> <newsubstring>" EXIT \ leave if no names specified ! THEN cr ." Rename Files: " RenameFrom$ count type ." from: " --- 266,270 ---- cr ." RENAME <filespec> <oldsubstring> <newsubstring>" EXIT \ leave if no names specified ! THEN cr ." Rename Files: " RenameFrom$ count type ." from: " |
|
From: George H. <geo...@us...> - 2006-03-13 14:16:56
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11615/win32forth/doc Modified Files: p-objects.htm Log Message: gah: More Dexing and added missing section of doc. Index: p-objects.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-objects.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** p-objects.htm 21 Dec 2004 00:18:56 -0000 1.1 --- p-objects.htm 13 Mar 2006 14:16:49 -0000 1.2 *************** *** 153,158 **** </p> <blockquote> ! <pre>:Class Disk </pre> ! </blockquote> <h3><a name="Creating and Deleting Dynamic Objects">Creating and Deleting Dynamic Objects </a> </h3> --- 153,210 ---- </p> <blockquote> ! <pre>:Class Disk <Super Object ! ! int cylinders ! int sectors ! int b/sec ! 32 bytes disk-name ! ! :M ClassInit: ( -- ) ! 0 to cylinders ! 0 to sectors ! 0 to b/sec ;M ! ! :M !Attributes: ( cyl sec b/sec -- ) ! to b/sec ! to sectors ! to cylinders ;M ! ! :M Attributes: ( -- cyl sec b/sec ) ! cylinders ! sectors ! b/sec ;M ! ! :M FreeBytes: ( -- freebytes ) ! cylinders sectors * b/sec * ;M ! ! ;Class ! </pre> ! </blockquote><p> ! Now that we have define the class, we can create an object of the class ! as follows;</p> ! <blockquote><pre> ! Disk myDisk1 ! 1024 32 512 !Attributes: myDisk1 ! </pre></blockquote><p> ! Here we have defined an object called "myDisk", and given this new disk ! the attributes of: cylinders=1024, sectors=32, b/sec=512</p> ! <p> So ":Class" and ";Class" encompass a collection of data items and ! methods that define and identify an object and the way it behaves. ! The word "int" defines a local data item similar to a "value" that is ! local to each object created by a class. A second data type available ! for use within a class is "bytes", which was used to create a buffer to ! hold the disk name.</p> ! <p> ! The "ClassInit:" method is special in the sense that it is ! automatically executed right after the object is created. So it is a ! perfect place to initialize an object to the common default values that ! are shared by all objects of this class.</p> ! <p> ! Additional methods, (their names always end with a ':' so they can be ! identified as methods) can be defined in your class to initialize, ! display, calculate, or perform whatever type of operation you will need ! to perform on the objects of this class.</p> ! ! <h3><a name="Creating and Deleting Dynamic Objects">Creating and Deleting Dynamic Objects </a> </h3> *************** *** 234,238 **** <blockquote> <p><span class="MacroChar"> :Class DirObject ! <super <br><br> Record: FIND_DATA \ returns the address of the --- 286,290 ---- <blockquote> <p><span class="MacroChar"> :Class DirObject ! <super object<br><br> Record: FIND_DATA \ returns the address of the |
|
From: Jos v.d.V. <jo...@us...> - 2006-03-12 18:01:57
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30549/apps/Player4 Modified Files: Pl_MciWindow.f Log Message: Jos: Changed the BkMode to transparant. That has the effect that when you change the color of the windows in the properties of the screen the treeview and the announcements will correctly be shown. Index: Pl_MciWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** Pl_MciWindow.f 12 Mar 2006 17:00:40 -0000 1.15 --- Pl_MciWindow.f 12 Mar 2006 18:01:27 -0000 1.16 *************** *** 64,69 **** if FileName count ExtractRecord SaveDC: dc \ save device context ! vFont SelectObject: dc ! ltgreen SetTextColor: dc TA_CENTER SetTextAlign: dc drop GetSize: self 24 - swap 2/ swap 4 / 2dup --- 64,70 ---- if FileName count ExtractRecord SaveDC: dc \ save device context ! vFont SelectObject: dc ! TRANSPARENT SetBkMode: dc ! ltgreen SetTextColor: dc TA_CENTER SetTextAlign: dc drop GetSize: self 24 - swap 2/ swap 4 / 2dup *************** *** 77,86 **** ;M - (( :M On_Size: ( -- ) - \ init-parameters wait-drawing resizing-window time-reset - \ paint: self - ;M )) - - :M on_done: ( -- ) Delete: vFont --- 78,81 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2006-03-12 17:01:43
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30468/apps/Player4 Modified Files: Catalog.f Mediatree.f PLAYER4.F PLAYER4.frm Pl_MciWindow.f PopupWindow.f View.f Log Message: Jos: The title and artist are now shown when music is played using a big font. Index: PLAYER4.frm =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.frm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvszYdY26 and /tmp/cvs8XNfhv differ Index: Mediatree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v retrieving revision 1.25 retrieving revision 1.26 diff -C2 -d -r1.25 -r1.26 *** Mediatree.f 10 Mar 2006 22:11:23 -0000 1.25 --- Mediatree.f 12 Mar 2006 17:00:39 -0000 1.26 *************** *** 1,4 **** \ $Id$ ! needs number.f needs w_search.f --- 1,4 ---- \ $Id$ ! \ CHOOSEFONT needs number.f needs w_search.f *************** *** 125,130 **** ; - : music? ( adr len - f ) valid-sound-ext count (IsValidFileType?) ; - : AddArtist { PrevRecAdr } ( rec-addr PrevRecAdr - ) dup CountedArtist 1 max PrevRecAdr @ CountedArtist 1 max compareia 0<> --- 125,128 ---- *************** *** 302,305 **** --- 300,304 ---- DestroyTreeView \ destroy the current treeview window + CreateTreeView \ create a new one SW_HIDE Show: TreeView \ hide, *************** *** 318,322 **** ;M - :M WM_NOTIFY ( h m w l -- f ) dup @ GetHandle: TreeView = EnableNotify? and --- 317,320 ---- Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.40 retrieving revision 1.41 diff -C2 -d -r1.40 -r1.41 *** PLAYER4.F 10 Mar 2006 22:11:23 -0000 1.40 --- PLAYER4.F 12 Mar 2006 17:00:39 -0000 1.41 *************** *** 163,167 **** 0 value toolbarH \ set to height of toolbar if any 0 value statusbarH \ set to height of status bar if any - 0 value SeparatorX 0 value clicked --- 163,166 ---- *************** *** 177,182 **** : position-windows ( -- ) \ auto adjust windows ! 0 toolbarH SeparatorX 1- Height toolbarH - statusbarH - dup>r Move: Catalog ! SeparatorX 2+ toolbarH Width 2 pick - r> Move: Player4W ; --- 176,181 ---- : position-windows ( -- ) \ auto adjust windows ! 0 toolbarH SeparatorX @ 1- Height toolbarH - statusbarH - dup>r Move: Catalog ! SeparatorX @ 2+ toolbarH Width 2 pick - r> Move: Player4W ; *************** *** 196,205 **** : drawline ( -- ) ! SeparatorX 0 MoveTo: dc ! SeparatorX height LineTo: dc ; : on_clicked ( -- ) true to clicked ! mousex to SeparatorX get-dc R2_NOT SetRop2: dc --- 195,204 ---- : drawline ( -- ) ! SeparatorX @ 0 MoveTo: dc ! SeparatorX @ height LineTo: dc ; : on_clicked ( -- ) true to clicked ! mousex SeparatorX ! get-dc R2_NOT SetRop2: dc *************** *** 209,214 **** : On_Mousemove ( -- ) ! mousex SeparatorX = ! mousex SeparatorX 1+ = or if SIZEWE-CURSOR else arrow-cursor --- 208,213 ---- : On_Mousemove ( -- ) ! mousex SeparatorX @ = ! mousex SeparatorX @ 1+ = or if SIZEWE-CURSOR else arrow-cursor *************** *** 228,232 **** release-dc hwnd Call ReleaseCapture ?win-error ! else mousex to SeparatorX drawline then ; --- 227,231 ---- release-dc hwnd Call ReleaseCapture ?win-error ! else mousex SeparatorX ! drawline then ; *************** *** 235,239 **** clicked 0= ?exit drawline ! mousex to SeparatorX position-windows release-dc --- 234,238 ---- clicked 0= ?exit drawline ! mousex SeparatorX ! position-windows release-dc *************** *** 242,246 **** :M StartSize: ( -- w h ) ! screen-size >r 2/ r> 2/ ;M :M On_Size: ( -- ) --- 241,245 ---- :M StartSize: ( -- w h ) ! screen-size >r 4 * 6 / r> 2/ ;M :M On_Size: ( -- ) *************** *** 253,256 **** --- 252,257 ---- ['] on_clicked to click-func ['] on_unclicked to unclick-func + COLOR_BTNFACE 1+ GCL_HBRBACKGROUND hwnd Call SetClassLong drop + InitFileNames check/resize-config-file GetHandle: Self dup SetParent: ControlCenter *************** *** 276,281 **** 2 Setid: Player4W self Start: Player4W ! ! Startsize: self drop 2/ to SeparatorX position-windows --- 277,283 ---- 2 Setid: Player4W self Start: Player4W ! SeparatorX @ 0= ! if Startsize: self drop 2/ SeparatorX ! ! then position-windows Index: Pl_MciWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** Pl_MciWindow.f 8 Mar 2006 21:42:56 -0000 1.14 --- Pl_MciWindow.f 12 Mar 2006 17:00:40 -0000 1.15 *************** *** 12,18 **** --- 12,39 ---- \ needs MciInterface.f + needs gdi/gdi.f + needs Resources.f + needs MCIWnd.f + create FileName maxstring allot + : music? ( adr len - f ) valid-sound-ext count (IsValidFileType?) ; + + POPUPBAR player4-Popup-bar + POPUP " " + MENUITEM "&Play file...\tCtrl+O" 'O' +k_control pushkey ; + MENUITEM "Play &folder...\tCtrl+F" 'F' +k_control pushkey ; + MENUITEM "Play &list...\tShift+L" 'L' +k_control pushkey ; + MENUSEPARATOR + MENUITEM "&Pause/Resume\tSpace" BL pushkey ; + MENUSEPARATOR + MENUITEM "&Stop/Next\tArrow down" k_down pushkey ; + MENUITEM "&Rewind\tArrow left" k_left pushkey ; + MENUITEM "&Forward\tArrow right" k_right pushkey ; + MENUSEPARATOR + MENUITEM "&Exit\tAlt+F4" 'Q' +k_control pushkey ; + ENDBAR + internal external *************** *** 25,35 **** --- 46,92 ---- :Object MouseHandlerWindow <super child-window + Font vFont + :M ExWindowStyle: ( -- style ) ExWindowStyle: Super [ WS_EX_CLIENTEDGE WS_EX_TRANSPARENT or ] literal or ;M + + :M On_Init: ( -- ) + 22 Width: vFont + FontHeight Height: vFont + s" Freestyle Script" SetFaceName: vFont + Create: vFont + ;M + :M On_Paint: ( -- ) + FileName count music? + if FileName count ExtractRecord + SaveDC: dc \ save device context + vFont SelectObject: dc + ltgreen SetTextColor: dc + TA_CENTER SetTextAlign: dc drop + GetSize: self 24 - swap 2/ swap 4 / 2dup + struct, InlineRecord RecordDef Artist + struct, InlineRecord RecordDef Cnt_Artist c@ Textout: dc + + FontHeight + struct, InlineRecord RecordDef Title + struct, InlineRecord RecordDef Cnt_Title c@ Textout: dc + RestoreDC: dc + then ;M + (( :M On_Size: ( -- ) + \ init-parameters wait-drawing resizing-window time-reset + \ paint: self + ;M )) + + + :M on_done: ( -- ) + Delete: vFont + on_done: super + ;M + + ;Object *************** *** 51,56 **** int (UpdateTitle) ! maxstring bytes FileName ! maxstring bytes string0$ maxstring bytes string1$ --- 108,112 ---- int (UpdateTitle) ! maxstring bytes title$ maxstring bytes string1$ *************** *** 69,78 **** : ReTitle ( addr len -- ) ! WindowTitle: parent zcount string0$ place ?dup ! if s" - " string0$ +place string0$ +place \ append filename ! s" - " string0$ +place GetLength: self (.ms) string0$ +place ! s" / " string0$ +place GetPosition: self (.ms) string0$ +place else drop ! then string0$ count SetTitle: parent ; :M Close: ( -- ) \ stop playing --- 125,137 ---- : ReTitle ( addr len -- ) ! ?dup ! if ! WindowTitle: parent zcount title$ place ! s" - " title$ +place title$ +place \ append filename ! s" - " title$ +place GetLength: self (.ms) title$ +place ! s" / " title$ +place GetPosition: self (.ms) title$ +place else drop ! then title$ count SetTitle: parent ! ; :M Close: ( -- ) \ stop playing *************** *** 88,92 **** GetShortPathName r> if OpenVideo: super ! else OpenAudio: super then SW_SHOW Show: self ;M --- 147,151 ---- GetShortPathName r> if OpenVideo: super ! else OpenAudio: super paint: MouseHandlerWindow then SW_SHOW Show: self ;M *************** *** 179,183 **** :M OpenFolder: ( -- ) \ let user choose a folder and play all files in it ! z" Play this folder" string0$ GetHandle: self BrowseForFolder if string0$ count PlayFolder: self --- 238,242 ---- :M OpenFolder: ( -- ) \ let user choose a folder and play all files in it ! z" Play this folder" string0$ GetHandle: self \ >>> BrowseForFolder if string0$ count PlayFolder: self *************** *** 310,320 **** FileName maxstring erase ! string0$ maxstring erase string1$ maxstring erase 1 Setid: MouseHandlerWindow self Start: MouseHandlerWindow ! ! \ player4-popup-Bar SetPopupBar: MouseHandlerWindow ;M --- 369,378 ---- FileName maxstring erase ! title$ maxstring erase string1$ maxstring erase 1 Setid: MouseHandlerWindow self Start: MouseHandlerWindow ! \ player4-popup-Bar SetPopupBar: MouseHandlerWindow ;M *************** *** 323,327 **** \ resize MouseHandler-Window FullScreen?: self 0= ! if 0 0 Width Height Move: MouseHandlerWindow then \ resize Video-Window --- 381,386 ---- \ resize MouseHandler-Window FullScreen?: self 0= ! if 0 0 Width Height Move: MouseHandlerWindow ! then \ resize Video-Window Index: PopupWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PopupWindow.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** PopupWindow.f 8 Mar 2006 21:42:56 -0000 1.1 --- PopupWindow.f 12 Mar 2006 17:00:40 -0000 1.2 *************** *** 10,14 **** : ClosePopupWindow ( - ) _hwnd call DestroyWindow drop ; ! POPUPBAR player4-Popup-bar POPUP " " MENUITEM "Play file" PlaySelectedFromTreeView ClosePopupWindow ; --- 10,14 ---- : ClosePopupWindow ( - ) _hwnd call DestroyWindow drop ; ! POPUPBAR PopupOnRecord POPUP " " MENUITEM "Play file" PlaySelectedFromTreeView ClosePopupWindow ; *************** *** 21,25 **** ColorObject FrmColor \ the background color ! :M ClassInit: ( -- ) ClassInit: super player4-Popup-bar SetPopupBar: Self ;M --- 21,25 ---- ColorObject FrmColor \ the background color ! :M ClassInit: ( -- ) ClassInit: super PopupOnRecord SetPopupBar: Self ;M *************** *** 38,42 **** \ SetActiveWindow: Self 0 0 GetSize: self Addr: FrmColor FillArea: dc ! _hwnd start: player4-Popup-bar StartPopup ;M --- 38,42 ---- \ SetActiveWindow: Self 0 0 GetSize: self Addr: FrmColor FillArea: dc ! _hwnd start: PopupOnRecord StartPopup ;M Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** Catalog.f 8 Mar 2006 21:42:56 -0000 1.26 --- Catalog.f 12 Mar 2006 17:00:38 -0000 1.27 *************** *** 49,52 **** --- 49,53 ---- BYTE IgnoreRequests BYTE KeepRequests + BYTE _SeparatorX ;struct *************** *** 220,223 **** --- 221,225 ---- : vadr-config ( - vadr-config ) s" config-mhndl map-hndl>vadr " EVALUATE ; IMMEDIATE + : SeparatorX ( - adr ) vadr-config _SeparatorX ; : check-config ( flag -- ) \ creates one with the right size *************** *** 505,530 **** then ; ! : (add-file) ( wHndl addr len file-size - wHndl ) \ add a file to the catalog ! InlineRecord [ sizeof RecordDef ] literal erase ! struct, InlineRecord RecordDef FileSize ! ! >r dup r@ + 1- dup r@ ascii \ -scan \ adr Title ! rot over ascii . -scan \ count Title ! drop 2 pick 1+ 2dup - dup \ 0< if cr .s ." file" abort then dup ! struct, InlineRecord RecordDef Cnt_Title c! ! struct, InlineRecord RecordDef Title swap cmove \ move Title ! drop ! >r 1- dup r> ascii \ -scan >r 2dup - >r 1+ ! r@ struct, InlineRecord RecordDef Cnt_Album c! ! struct, InlineRecord RecordDef Album r@ cmove ! r> - 1- dup r> ascii \ -scan drop 2dup - swap 1+ over ! struct, InlineRecord RecordDef Cnt_Artist c! ! struct, InlineRecord RecordDef Artist rot cmove ! drop ! struct, InlineRecord RecordDef File_name r@ cmove ! r@ struct, InlineRecord RecordDef Cnt_File_name c! 100 random struct, InlineRecord RecordDef RandomLevel ! VolumeNameBuffer struct, InlineRecord RecordDef MediaLabel --- 507,535 ---- then ; ! : ExtractRecord ( adr count - ) ! >r dup r@ + 1- dup r@ ascii \ -scan \ adr Title ! rot over ascii . -scan \ count Title ! drop 2 pick 1+ 2dup - dup \ 0< if cr .s ." file" abort then dup ! struct, InlineRecord RecordDef Cnt_Title c! ! struct, InlineRecord RecordDef Title swap cmove \ move Title ! drop ! >r 1- dup r> ascii \ -scan >r 2dup - >r 1+ ! r@ struct, InlineRecord RecordDef Cnt_Album c! ! struct, InlineRecord RecordDef Album r@ cmove ! r> - 1- dup r> ascii \ -scan drop 2dup - swap 1+ over ! struct, InlineRecord RecordDef Cnt_Artist c! ! struct, InlineRecord RecordDef Artist rot cmove ! drop ! struct, InlineRecord RecordDef File_name r@ cmove ! r> struct, InlineRecord RecordDef Cnt_File_name c! ! ; ! : (add-file) ( wHndl addr len file-size - wHndl ) \ add a file to the catalog ! InlineRecord [ sizeof RecordDef ] literal erase ! struct, InlineRecord RecordDef FileSize ! ! ExtractRecord 100 random struct, InlineRecord RecordDef RandomLevel ! VolumeNameBuffer struct, InlineRecord RecordDef MediaLabel *************** *** 532,536 **** /VolumeNameBuffer struct, InlineRecord RecordDef Cnt_MediaLabel c! _DriveType struct, InlineRecord RecordDef DriveType c! ! r>drop dup write-record ; --- 537,541 ---- /VolumeNameBuffer struct, InlineRecord RecordDef Cnt_MediaLabel c! _DriveType struct, InlineRecord RecordDef DriveType c! ! dup write-record ; Index: View.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/View.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** View.f 30 Oct 2005 18:58:14 -0000 1.5 --- View.f 12 Mar 2006 17:00:40 -0000 1.6 *************** *** 2,6 **** \- textbox needs excontrols.f - :Object ViewForm <Super DialogWindow --- 2,5 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2006-03-10 22:11:30
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27181/apps/Player4 Modified Files: Mediatree.f PLAYER4.F Log Message: Jos: Minor improvements in the treeview. Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.39 retrieving revision 1.40 diff -C2 -d -r1.39 -r1.40 *** PLAYER4.F 8 Mar 2006 21:42:56 -0000 1.39 --- PLAYER4.F 10 Mar 2006 22:11:23 -0000 1.40 *************** *** 261,265 **** if cr ." REBUILD " then ! generate-index-file build-free-list SortByFlags then true vadr-config ExitFailed- c! --- 261,265 ---- if cr ." REBUILD " then ! generate-index-file build-free-list then true vadr-config ExitFailed- c! *************** *** 270,274 **** else map-config-file then ! 1 Setid: Catalog self Start: Catalog --- 270,274 ---- else map-config-file then ! SortByFlags 1 Setid: Catalog self Start: Catalog Index: Mediatree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** Mediatree.f 8 Mar 2006 21:42:56 -0000 1.24 --- Mediatree.f 10 Mar 2006 22:11:23 -0000 1.25 *************** *** 139,143 **** then 1 AddItemHierarical PrevRecAdr hArtist ! ! else drop false to OtherArtist? then ; --- 139,143 ---- then 1 AddItemHierarical PrevRecAdr hArtist ! ! else drop false to OtherArtist? then ; *************** *** 160,164 **** : AddRecordHierarical ( n - ) ! dup NotIncollection? if drop else ( 1306 +) >r ResetInlineRecord --- 160,164 ---- : AddRecordHierarical ( n - ) ! dup NotIncollection? over n>record Request- c@ not and if drop else ( 1306 +) >r ResetInlineRecord *************** *** 204,209 **** ;M ! : StartPopupWindow ! last-selected-rec n>record CountedFilename music? if hWnd dup get-mouse-xy GetPositionCatalog --- 204,209 ---- ;M ! : StartPopupWindow ( -- ) ! last-selected-rec n>record CountedFilename IsValidFileType? if hWnd dup get-mouse-xy GetPositionCatalog *************** *** 213,217 **** ; ! :M On_SelChanged: ( - ) TVIF_PARAM TVIF_HANDLE or to mask --- 213,217 ---- ; ! :M On_SelChanged: ( -- ) TVIF_PARAM TVIF_HANDLE or to mask *************** *** 226,230 **** ;M ! :M On_RightClick: StartPopupWindow ;M --- 226,230 ---- ;M ! :M On_RightClick: ( -- ) StartPopupWindow ;M |
|
From: Jos v.d.V. <jo...@us...> - 2006-03-08 21:43:06
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv406/apps/Player4 Modified Files: Catalog.f Mediatree.f PLAYER4.F Pl_MciWindow.f mshell_r.f Added Files: PopupWindow.f Log Message: Jos: Added requests. And a tricky popupwindow. Index: mshell_r.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/mshell_r.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** mshell_r.f 26 Nov 2005 19:17:07 -0000 1.2 --- mshell_r.f 8 Mar 2006 21:42:56 -0000 1.3 *************** *** 1,24 **** ! anew mshell_rel.f \ October 24th, 2005 \ A flexible shellsort. ! \ Notes: ! \ The database and the pointers must be mapped. ! \ Minimum file size of the database must be 1 byte. ! \ When the database is resized, the database has to be re-mapped. \ Characteristics: ! \ This version saves its pointers as relative offsets in an index file. ! \ The sort is case-insensitive. ! \ Multiple keys can be used and can be sorted in one go. ! \ The number of keys is limited by the size of the stack. ! \ Each key can be ascending or descending sorted. ! ! ! needs w_search.f ! \ September 9th, 2001 - 14:38 ! \ :INLINE was posted in comp.lang.forth by Marcel Hendrix : next_char ( -- char ) \ next-char was used in float.f --- 1,24 ---- ! anew mshell_rel.f \ March 5th, 2006 for Win32Forth Version: 6.11.07 \ A flexible shellsort. ! \ Notes when mapped files are used: ! \ 1.The database and the pointers must be mapped. ! \ 2.Minimum file size of the database must be 1 byte. ! \ 3.When the database is resized, the database has to be re-mapped. \ Characteristics: ! \ This version uses relative as pointers. So there is no need ! \ to generate the same pointers again when they are saved in a file. ! \ Multiple keys can be used and sorted in one go. ! \ The number of keys is only limited by the unused size of the stack. ! \ Each key can be sorted in an ascending or descending way. ! \ A key may contain a number or a string. ! \ The sort is case-insensitive for stings. ! \ Easy to expand to sort doubles etc. ! needs w_search.f \ Included in Win32Forth Version: 6.11.07 ! \ :INLINE was posted in comp.lang.forth by Marcel Hendrix about September 9th, 2001 : next_char ( -- char ) \ next-char was used in float.f *************** *** 62,66 **** r> release does> 2@ evaluate ; - 23 value record-size --- 62,65 ---- *************** *** 84,105 **** 2dup = if 2drop 0 else < if 1 else true then then ; ! : cmp-cell { by } ( cand1 cand2 by - p1 p2 n ) ! >key @ swap >key @ <>= ! ; ! : cmp$ { by } ( cand1 cand2 by - p1 p2 n ) ! swap >key swap >key key-len tuck compareia ! ; ! : mod-cell ( n adr offset - ) >r swap r> cells+ ! ; ! : Ascending ( key - key ) dup 0 2 mod-cell ; : Descending ( key - key ) dup -1 2 mod-cell ; ! : $sort ( key - ) ['] cmp$ 3 mod-cell ; ! : bin-sort ( key - ) ['] cmp-cell 3 mod-cell ; :inline Descending? ( key - ) 2 cells+ @ ; \ Ascending and cmp$ are default in key: ! : key: \ Compiletime: ( start len -< name >- ) Runtime ( - adr-key ) create swap , , 0 , ['] cmp$ , ; --- 83,108 ---- 2dup = if 2drop 0 else < if 1 else true then then ; ! :inline f<>= ( f1 f2 - -1|0|1 ) ! f2dup f= if f2drop 0 else f< if 1 else true then then ; ! : cmp-cells ( cand1 cand2 by - n ) locals| by | >key @ swap >key @ <>= ; ! : cmp-words ( cand1 cand2 by - n ) locals| by | >key w@ swap >key w@ <>= ; ! : cmp-floats ( cand1 cand2 by - n ) locals| by | >key f@ >key f@ f<>= ; ! : cmp$ ( cand1 cand2 by - n ) ! locals| by | swap >key swap >key key-len tuck compareia ; ! ! : mod-cell ( n adr offset - ) >r swap r> cells+ ! ; ! : Ascending ( key - key ) dup 0 2 mod-cell ; : Descending ( key - key ) dup -1 2 mod-cell ; ! : $sort ( key - ) ['] cmp$ 3 mod-cell ; ! : bin-sort ( key - ) ['] cmp-cells 3 mod-cell ; ! : word-sort ( key - ) ['] cmp-words 3 mod-cell ; ! : float-sort ( key - ) ['] cmp-floats 3 mod-cell ; :inline Descending? ( key - ) 2 cells+ @ ; \ Ascending and cmp$ are default in key: ! : key: \ Compiletime: ( start len -< name >- ) Runtime: ( - adr-key ) create swap , , 0 , ['] cmp$ , ; *************** *** 108,113 **** :inline ]by ( - #stack-inc) ( R: #stack - ) depth r> - ; ! : CmpBy ( cand1 cand2 ByStackTop #keys - p1 p2 f ) ! true LOCALS| flag #keys ByStackTop cand2 cand1 | #keys 0 do cand1 cand2 ByStackTop i cells+ @ dup 3 cells+ @ execute --- 111,116 ---- :inline ]by ( - #stack-inc) ( R: #stack - ) depth r> - ; ! : CmpBy ( cand1 cand2 ByStackTop #keys - f ) ! true locals| flag #keys ByStackTop cand2 cand1 | #keys 0 do cand1 cand2 ByStackTop i cells+ @ dup 3 cells+ @ execute *************** *** 125,130 **** ; : mshell-rel ( keyx..key1 #keys aptrs #records -- ) ! sp@ 3 cells+ 3 roll LOCALS| #keys by | dup 2 < if 2drop --- 128,135 ---- ; + : xdrop ( nx..n1 #n - ) locals| #n | sp@ #n cells+ sp! ; + : mshell-rel ( keyx..key1 #keys aptrs #records -- ) ! sp@ 3 cells+ 3 roll locals| #keys by | dup 2 < if 2drop *************** *** 142,156 **** repeat 2drop drop then ! sp@ #keys cells+ sp! ; - : build-ptrs ( #records -- ) - to #records #records 1+ cells allocate throw to aptrs #records 1+ 0 - do records-pointer i records ( chars ) + aptrs i cells + ! - loop ; - - : free-ptrs ( -- ) aptrs FREE THROW ; - : free-records ( -- ) records-pointer FREE THROW ; - \ : check-keys ( -- ) \ space #records 1- --- 147,153 ---- repeat 2drop drop then ! #keys xdrop ; \ : check-keys ( -- ) \ space #records 1- *************** *** 172,178 **** ; ! : #records-in-database ( m_hndl - #records ) >hfileLength @ record-size / ; ! ! : add-file-ptrs ( #start #end - ) dup to #records swap do i records aptrs i cells + ! --- 169,173 ---- ; ! : add-ptrs ( #start #end - ) dup to #records swap do i records aptrs i cells + ! *************** *** 180,184 **** ; ! : build-file-ptrs ( #records -- ) 0 swap add-file-ptrs ; \s --- 175,179 ---- ; ! : build-ptrs ( #records -- ) 0 swap add-ptrs ; \s Index: Mediatree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** Mediatree.f 26 Nov 2005 19:17:07 -0000 1.23 --- Mediatree.f 8 Mar 2006 21:42:56 -0000 1.24 *************** *** 7,10 **** --- 7,11 ---- needs TreeView.F needs struct.f + needs PopupWindow.f 0 value hItem-last-selected *************** *** 101,104 **** --- 102,106 ---- sizeof PrevMember mkstruct: &PrevMusic sizeof PrevMember mkstruct: &PrevMovie + sizeof PrevMember mkstruct: &PrevRequest int hMovies *************** *** 114,120 **** NotPlayable TVI_LAST TVI_ROOT 2>r TVI_ROOT TVI_LAST z" Movies" 2r@ 1 AddItemHierarical to hMovies ! TVI_ROOT TVI_LAST z" Music" 2r> 1 AddItemHierarical dup to hMusic ! \ TVI_ROOT TVI_LAST z" Requests" 2r> 1 AddItemHierarical dup to hRequests ! dummy dup &PrevMusic ! &PrevMovie ! dup &PrevMovie hArtist ! &PrevMovie hArtist ! (( z" First Artist" hPrev hMusic 1 AddItemHierarical to hArtist --- 116,122 ---- NotPlayable TVI_LAST TVI_ROOT 2>r TVI_ROOT TVI_LAST z" Movies" 2r@ 1 AddItemHierarical to hMovies ! TVI_ROOT TVI_LAST z" Music" 2r@ 1 AddItemHierarical dup to hMusic ! TVI_ROOT TVI_LAST z" Requests" 2r> 1 AddItemHierarical dup to hRequests ! dummy dup &PrevMusic ! dup &PrevMovie ! &PrevRequest ! dup &PrevMovie hArtist ! &PrevMovie hArtist ! (( z" First Artist" hPrev hMusic 1 AddItemHierarical to hArtist *************** *** 129,136 **** if dup PrevRecAdr ! true to OtherArtist? NotPlayable dup RecordDef Artist hPrev ! rot CountedFilename music? ! if hMusic ! else hMovies ! then 1 AddItemHierarical PrevRecAdr hArtist ! else drop false to OtherArtist? --- 131,141 ---- if dup PrevRecAdr ! true to OtherArtist? NotPlayable dup RecordDef Artist hPrev ! 2 pick RecordDef Request- c@ ! if rot drop hRequests ! else rot CountedFilename music? ! if hMusic ! else hMovies ! then ! then 1 AddItemHierarical PrevRecAdr hArtist ! else drop false to OtherArtist? *************** *** 148,152 **** : AddTitle ( rec-addr PrevRecAdr - ) - \ over swap ! >r RecordDef CountedTitle +InlineRecord InlineRecord +null --- 153,156 ---- *************** *** 159,167 **** if drop else ( 1306 +) >r ResetInlineRecord ! r@ n>record ! dup CountedFilename music? ! if &PrevMusic ! else &PrevMovie ! then \ ( n vadr-config rec-addr PrevRecAdr - ) 2dup AddArtist 2dup AddAlbum --- 163,173 ---- if drop else ( 1306 +) >r ResetInlineRecord ! r@ n>record dup Request- c@ ! if &PrevRequest ! else dup CountedFilename music? ! if &PrevMusic ! else &PrevMovie ! then ! then \ ( n vadr-config rec-addr PrevRecAdr - ) 2dup AddArtist 2dup AddAlbum *************** *** 198,201 **** --- 204,216 ---- ;M + : StartPopupWindow + last-selected-rec n>record CountedFilename music? + if hWnd dup get-mouse-xy + GetPositionCatalog + rot + to mousey + to mousex + Start: PopupWindow + then + ; + :M On_SelChanged: ( - ) TVIF_PARAM *************** *** 207,223 **** hItem to hItem-last-selected lParam dup to last-selected-rec -1 <> ! ! if last-selected-rec n>record dup>r ! RecordDef File_name r@ Cnt_File_name c@ ! r@ incr-#played ! r> mark-played ! turnkey? not ! if 2dup cr type-space ! then ! PlayFile: PLAYER4W ! false then ;M :M ~: ( -- ) GetHandle: self call DestroyWindow drop ;M --- 222,233 ---- hItem to hItem-last-selected lParam dup to last-selected-rec -1 <> ! if StartPopupWindow then ;M + :M On_RightClick: + StartPopupWindow + ;M + :M ~: ( -- ) GetHandle: self call DestroyWindow drop ;M *************** *** 308,311 **** --- 318,322 ---- ;M + :M WM_NOTIFY ( h m w l -- f ) dup @ GetHandle: TreeView = EnableNotify? and *************** *** 321,323 **** \s ! --- 332,334 ---- \s ! Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.38 retrieving revision 1.39 diff -C2 -d -r1.38 -r1.39 *** PLAYER4.F 13 Feb 2006 20:21:37 -0000 1.38 --- PLAYER4.F 8 Mar 2006 21:42:56 -0000 1.39 *************** *** 23,41 **** true value MciDebug? ! defer PLAYER ' noop is PLAYER ! defer RefreshCatalog ' noop is RefreshCatalog ! defer RandomizeCatalog ' noop is RandomizeCatalog ! defer SortCatalog ' noop is SortCatalog ! defer SearchCatalog ' noop is SearchCatalog ! defer DeleteItem ' noop is DeleteItem ! defer DeleteCollection ' noop is DeleteCollection ! defer Undelete ' noop is Undelete ! defer UndeleteAll ' noop is UndeleteAll ! defer ShowDeleted ' noop is ShowDeleted ! defer SetRandomLevel ' noop is SetRandomLevel ! defer SortRandom ' noop is SortRandom ! defer SortLeastPlayed ' noop is SortLeastPlayed ! defer SortSize ' noop is SortSize ! defer RefreshWindow ' noop is SortSize needs Pl_Toolset.f --- 23,42 ---- true value MciDebug? ! defer PLAYER ' noop is PLAYER ! defer RefreshCatalog ' noop is RefreshCatalog ! defer RandomizeCatalog ' noop is RandomizeCatalog ! defer SortCatalog ' noop is SortCatalog ! defer SearchCatalog ' noop is SearchCatalog ! defer DeleteItem ' noop is DeleteItem ! defer DeleteCollection ' noop is DeleteCollection ! defer Undelete ' noop is Undelete ! defer UndeleteAll ' noop is UndeleteAll ! defer ShowDeleted ' noop is ShowDeleted ! defer SetRandomLevel ' noop is SetRandomLevel ! defer SortRandom ' noop is SortRandom ! defer SortLeastPlayed ' noop is SortLeastPlayed ! defer SortSize ' noop is SortSize ! defer RefreshWindow ' noop is SortSize ! defer PlaySelectedFromTreeView ' noop is PlaySelectedFromTreeView needs Pl_Toolset.f *************** *** 52,75 **** needs view.f - - \ ----------------------------------------------------------------------------- - \ Define the Popup bar - \ ----------------------------------------------------------------------------- - - POPUPBAR player4-Popup-bar - POPUP " " - MENUITEM "&Play file...\tCtrl+O" 'O' +k_control pushkey ; - MENUITEM "Play &folder...\tCtrl+F" 'F' +k_control pushkey ; - MENUITEM "Play &list...\tShift+L" 'L' +k_control pushkey ; - MENUSEPARATOR - MENUITEM "&Pause/Resume\tSpace" BL pushkey ; - MENUSEPARATOR - MENUITEM "&Stop/Next\tArrow down" k_down pushkey ; - MENUITEM "&Rewind\tArrow left" k_left pushkey ; - MENUITEM "&Forward\tArrow right" k_right pushkey ; - MENUSEPARATOR - MENUITEM "&Exit\tAlt+F4" 'Q' +k_control pushkey ; - ENDBAR - : invert-check ( check - ) dup c@ not swap c! RefreshWindow ; --- 53,56 ---- *************** *** 93,102 **** MENUSEPARATOR SUBMENU "S&ort and view" ! MENUITEM "Define a view" StartViewForm ; MENUSEPARATOR MENUITEM "Se&t maximum random level" SetRandomLevel ; MENUITEM "&Generate random numbers" RandomizeCatalog ; ENDSUBMENU ! MENUSEPARATOR MENUITEM "Show &collection" RefreshCatalog ; --- 74,90 ---- MENUSEPARATOR SUBMENU "S&ort and view" ! MENUITEM "Define a view" StartViewForm ; MENUSEPARATOR MENUITEM "Se&t maximum random level" SetRandomLevel ; MENUITEM "&Generate random numbers" RandomizeCatalog ; ENDSUBMENU ! SUBMENU "Re&quest handling" ! :MENUITEM mHandelReq "Ignore requests" ! vadr-config IgnoreRequests invert-check ; ! :MENUITEM mKeepReq "Keep requests" ! vadr-config KeepRequests invert-check ; ! MENUITEM "&Enable all kept requests" EnableKeptRequests ; ! MENUITEM "Se&t request level" player-base SetRequestLevel ; ! ENDSUBMENU MENUSEPARATOR MENUITEM "Show &collection" RefreshCatalog ; *************** *** 128,131 **** --- 116,120 ---- ENDBAR + \ ----------------------------------------------------------------------------- \ ----------------------------------------------------------------------------- *************** *** 139,142 **** --- 128,142 ---- needs Pl_MciWindow.f + :noname + last-selected-rec n>record dup>r + RecordDef File_name r@ Cnt_File_name c@ + r@ incr-#played + r> mark-played + turnkey? not + if 2dup cr type-space + then + PlayFile: PLAYER4W + ; is PlaySelectedFromTreeView + \ ----------------------------------------------------------------------------- \ define the child window for the left part of the main window *************** *** 150,155 **** if DatFile$ count r/o open-file throw dup file-size throw d>s pad ! close-file throw pad @ ! sizeof ConfigDef = check-config unmap-configuration then ; --- 150,157 ---- if DatFile$ count r/o open-file throw dup file-size throw d>s pad ! close-file throw pad @ ! sizeof ConfigDef = ! else false then + check-config unmap-configuration ; *************** *** 179,186 **** --- 181,191 ---- ; + :noname GetWindowRect: Self 2drop ; is GetPositionCatalog ( - x y ) :M WM_INITMENU ( h m w l -- res ) \ enable/disable the menu items vadr-config AutoStart- c@ Check: mAutostart vadr-config AutoMinimized- c@ Check: mTray + vadr-config IgnoreRequests c@ Check: mHandelReq + vadr-config KeepRequests c@ Check: mKeepReq 0 ;M *************** *** 256,260 **** if cr ." REBUILD " then ! generate-index-file build-free-list then true vadr-config ExitFailed- c! --- 261,265 ---- if cr ." REBUILD " then ! generate-index-file build-free-list SortByFlags then true vadr-config ExitFailed- c! *************** *** 276,285 **** player4-menu-bar SetMenuBar: self - addr: self to player-base RefreshCatalog ;M - :M On_Done: ( h m w l -- res ) Close: self --- 281,288 ---- *************** *** 558,564 **** PLAYER-LOOP ; - \ Resize the configuration file when needed. - check/resize-config-file - \ ----------------------------------------------------------------------------- \ build an application on disk or run Player --- 561,564 ---- Index: Pl_MciWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** Pl_MciWindow.f 29 Nov 2005 16:51:47 -0000 1.13 --- Pl_MciWindow.f 8 Mar 2006 21:42:56 -0000 1.14 *************** *** 229,232 **** --- 229,233 ---- RecordDef File_name r@ Cnt_File_name c@ 2dup type-space r@ incr-#played + r@ RequestDone r> mark-played PlayFile: Self *************** *** 315,319 **** self Start: MouseHandlerWindow ! player4-popup-Bar SetPopupBar: MouseHandlerWindow ;M --- 316,320 ---- self Start: MouseHandlerWindow ! \ player4-popup-Bar SetPopupBar: MouseHandlerWindow ;M --- NEW FILE: PopupWindow.f --- anew -PopupWindow.f defer GetPositionCatalog \ ----------------------------------------------------------------------------- \ Define the Popup bar for the mediatree in a new window \ ----------------------------------------------------------------------------- 0 value _hwnd : ClosePopupWindow ( - ) _hwnd call DestroyWindow drop ; POPUPBAR player4-Popup-bar POPUP " " MENUITEM "Play file" PlaySelectedFromTreeView ClosePopupWindow ; MENUITEM "Request record" RequestRecord ClosePopupWindow ; MENUITEM "Exit menu" ClosePopupWindow ; ENDBAR :Object PopupWindow <super Window ColorObject FrmColor \ the background color :M ClassInit: ( -- ) ClassInit: super player4-Popup-bar SetPopupBar: Self ;M \ Needs the rbuttondown to do it right : StartPopup ( -- ) 0 WM_RBUTTONDOWN GetHandle: self Call PostMessage drop ; :M On_Init: ( -- ) COLOR_BTNFACE Call GetSysColor NewColor: FrmColor ;M :M WindowStyle: ( -- style ) WS_POPUP ;M :M StartSize: ( -- width height ) 70 30 ;M :M StartPos: ( -- x y ) mousex mousey ;M :M WM_LBUTTONDOWN ( h m w l -- res ) 2drop 0 close: Self 0 ;M :M On_KillFocus: ( h m w l -- ) 2drop 0 SetFocus: self ;M :M On_Paint: ( -- ) hwnd to _hwnd \ SetActiveWindow: Self 0 0 GetSize: self Addr: FrmColor FillArea: dc _hwnd start: player4-Popup-bar StartPopup ;M ;Object \ start: PopupWindow Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.25 retrieving revision 1.26 diff -C2 -d -r1.25 -r1.26 *** Catalog.f 12 Feb 2006 16:34:56 -0000 1.25 --- Catalog.f 8 Mar 2006 21:42:56 -0000 1.26 *************** *** 46,49 **** --- 46,52 ---- BYTE AutoStart- BYTE AutoMinimized- + BYTE RequestLevel + BYTE IgnoreRequests + BYTE KeepRequests ;struct *************** *** 98,102 **** DWORD YearReleased DWORD Bitrate ! DWORD NotUsed1 DWORD NotUsed2 ;struct --- 101,107 ---- DWORD YearReleased DWORD Bitrate ! BYTE Request- ! BYTE RequestLevelRecord ! WORD NotUsed1 DWORD NotUsed2 ;struct *************** *** 104,113 **** \ database part ! \ Advantages of an inline record: \ An easy way to create and debug a fixed record sizeof RecordDef dup to record-size mkstruct: InlineRecord ! : >RecordDef ( - rel ) s" 0 RecordDef " EVALUATE ; IMMEDIATE : file-exist? ( adr len -- true-if-file-exist ) file-status nip 0= ; : file-size>s ( fileid -- len ) file-size drop d>s ; --- 109,118 ---- \ database part ! \ Advantage of an inline record: \ An easy way to create and debug a fixed record sizeof RecordDef dup to record-size mkstruct: InlineRecord ! : >RecordDef ( - rel ) s" 0 RecordDef " EVALUATE ; IMMEDIATE : file-exist? ( adr len -- true-if-file-exist ) file-status nip 0= ; : file-size>s ( fileid -- len ) file-size drop d>s ; *************** *** 154,157 **** --- 159,163 ---- : type-space ( adr cnt - ) type space ; : type-cr ( adr cnt - ) type cr ; + : #records-in-database ( m_hndl - #records ) >hfileLength @ record-size / ; in-system *************** *** 189,192 **** --- 195,206 ---- ; + : add-file-ptrs ( #start #end - ) + dup to #records swap + do i records aptrs i cells + ! + loop + ; + + : build-file-ptrs ( #records -- ) 0 swap add-file-ptrs ; + : rebuild-index-hdrs ( - ) \ database must mapped database-mhndl #records-in-database build-file-ptrs *************** *** 307,310 **** --- 321,325 ---- >RecordDef #played 1 cells key: leastPlayedKey leastPlayedKey bin-sort >RecordDef FileSize 1 cells key: FileSizeKey FileSizeKey bin-sort + >RecordDef Request- 1 cells 2/ key: RequestKey RequestKey Descending word-sort : &FlexKeyLen ( - &FlexKeyLen ) FlexKey &key-len ; *************** *** 317,324 **** ; ! : By_FileName ( - by ) by[ FileNameKey ]by ; ! : By_Random ( - by ) by[ RandomKey ]by ; ! : by_leastPlayed ( - by ) by[ leastPlayedKey Ascending ]by ; ! : by_FileSize ( - by ) by[ FileSizeKey ]by ; : not-deleted? ( rec-adr - flag ) s" RecordDef deleted- c@ 0= " EVALUATE ; IMMEDIATE --- 332,345 ---- ; ! : RequestKeyFagged ! vadr-config IgnoreRequests c@ not ! if RequestKey ! then ! ; ! ! : By_FileName ( - by ) by[ FileNameKey RequestKeyFagged ]by ; ! : By_Random ( - by ) by[ RandomKey RequestKeyFagged ]by ; ! : by_leastPlayed ( - by ) by[ leastPlayedKey Ascending RequestKeyFagged ]by ; ! : by_FileSize ( - by ) by[ FileSizeKey RequestKeyFagged ]by ; : not-deleted? ( rec-adr - flag ) s" RecordDef deleted- c@ 0= " EVALUATE ; IMMEDIATE *************** *** 329,343 **** r@ RecordDef DriveType c@ . r@ RecordDef MediaLabel r@ RecordDef Cnt_MediaLabel c@ type-space ! r@ RecordDef File_name r@ Cnt_File_name c@ type-space cr 3 spaces r@ RecordDef Artist r@ Cnt_Artist c@ type-space ! r@ RecordDef Album r@ Cnt_Album c@ type-space r@ RecordDef Title r@ Cnt_Title c@ type-space r@ RecordDef #played ? r@ RecordDef RandomLevel ? ! r@ RecordDef Played- c@ . r@ RecordDef Excluded- c@ . ! r@ RecordDef FileSize @ 12 U,.R then r>drop --- 350,365 ---- r@ RecordDef DriveType c@ . r@ RecordDef MediaLabel r@ RecordDef Cnt_MediaLabel c@ type-space ! r@ RecordDef File_name r@ Cnt_File_name c@ type-space cr 3 spaces r@ RecordDef Artist r@ Cnt_Artist c@ type-space ! r@ RecordDef Album r@ Cnt_Album c@ type-space r@ RecordDef Title r@ Cnt_Title c@ type-space r@ RecordDef #played ? r@ RecordDef RandomLevel ? ! r@ RecordDef Played- c@ . r@ RecordDef Excluded- c@ . ! r@ RecordDef FileSize @ 12 U,.R ! r@ RecordDef Request- w@ ." Req " . then r>drop *************** *** 409,417 **** r@ s_#Random- c@ of By_Random sort-database endof ! r@ s_Random_impopular- c@ of by[ by_record RandomKey ! leastPlayedKey Ascending ]by sort-database endof ! r@ s_Random_popular- c@ of by[ by_record RandomKey ! leastPlayedKey Descending ]by sort-database endof --- 431,439 ---- r@ s_#Random- c@ of By_Random sort-database endof ! r@ s_Random_impopular- c@ of by[ by_record RandomKey ! leastPlayedKey Ascending RequestKeyFagged ]by sort-database endof ! r@ s_Random_popular- c@ of by[ by_record RandomKey ! leastPlayedKey Descending RequestKeyFagged ]by sort-database endof *************** *** 433,437 **** then FlexKey &key-len @ 0> ! if by[ FlexKey ]by sort-database then --- 455,459 ---- then FlexKey &key-len @ 0> ! if by[ FlexKey RequestKeyFagged ]by sort-database then *************** *** 457,460 **** --- 479,498 ---- : mark-played ( adr - ) -1 swap RecordDef Played- c! ; + : RequestDone ( adr - ) + vadr-config KeepRequests c@ + if drop + else 0 swap RecordDef Request- w! + then + ; + + : EnableKeptRequest ( n - ) + n>record dup RecordDef Request- w@ + if 0 swap RecordDef Played- c! + else drop + then + ; + + : EnableKeptRequests ( - ) for-all-records EnableKeptRequest ; + internal *************** *** 628,630 **** --- 666,686 ---- then ; + + : RequestRecord ( - ) + vadr-config RequestLevel c@ + last-selected-rec dup EnableKeptRequest + n>record dup>r RecordDef RequestLevelRecord c! + 1 r> RecordDef Request- c! + ; + + NewEditDialog RequestLevelDlg "Request level" "Enter the level to use:" "Ok" "Cancel" "" + + : SetRequestLevel + vadr-config RequestLevel c@ n>tmp$ tmp$ count init-dlg Start: RequestLevelDlg drop + pad count number? + if d>s vadr-config RequestLevel c! + else 2drop + then + ; + \s |
|
From: Jos v.d.V. <jo...@us...> - 2006-03-08 21:40:20
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31127/src/lib Modified Files: treeview.f Log Message: Jos: Enabled the right mouse click. Index: treeview.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** treeview.f 1 May 2005 06:27:42 -0000 1.2 --- treeview.f 8 Mar 2006 21:40:17 -0000 1.3 *************** *** 239,242 **** --- 239,243 ---- TVN_SELCHANGINGA of fill-nmtv On_SelChanging: [ self ] endof TVN_SETDISPINFOA of fill-tvitem On_SetDispInfo: [ self ] endof + NM_RCLICK of On_RightClick: [ self ] endof false swap ( default) endcase *************** *** 290,293 **** --- 291,297 ---- false ;M + :M On_RightClick: ( -- f ) + false + ;M ;Class *************** *** 412,414 **** \ End of File \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! |
|
From: Dirk B. <db...@us...> - 2006-02-26 08:15:44
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13007/src/console Modified Files: LINEEDIT.F Log Message: Changed the lineeditor of the console window not to scroll outside the range of currently used lines within the line editor buffer. Index: LINEEDIT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/LINEEDIT.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** LINEEDIT.F 30 Aug 2005 14:08:15 -0000 1.5 --- LINEEDIT.F 26 Feb 2006 08:15:40 -0000 1.6 *************** *** 119,123 **** : lcalcy ( -- y ) \ calculate cursor y positon ! editpos COLS / ledit-y - getrowoff 0= if 1- then ; --- 119,123 ---- : lcalcy ( -- y ) \ calculate cursor y positon ! editpos COLS / ledit-y - getrowoff 0= if 1- then ; *************** *** 381,384 **** --- 381,388 ---- INTERNAL + \ --------------------------------------------------------------------------- + \ Line editor version of ACCEPT + \ --------------------------------------------------------------------------- + MAXSTRING constant b/accept \ each commandline is MAXSTRING bytes 31 constant n/accept \ save 31 previous command lines *************** *** 401,424 **** : prev-accept-buf" ( -- a1 n1 ) prev-accept-buf accept# b/accept * + count ; : accept-lup ( -- ) ! false to accepted? ! -1 +accept# ! prev-accept-buf" editbuf place ! editbuf c@ to editpos ; : accept-ldown ( -- ) ! accepted? 0= ! if 1 +accept# ! then false to accepted? ! prev-accept-buf" editbuf place ! editbuf c@ to editpos ; ! : __laccept ( a1 n1 -- ) 0 ED_READY editor-message \ notify editor we are ready ['] accept-lup is _le-up ['] accept-ldown is _le-down ! laccept-buf c@ \ backup current line if laccept-buf count prev-accept-buf accept# b/accept * + place --- 405,447 ---- : prev-accept-buf" ( -- a1 n1 ) + \ Get the current line from the line editor buffer. prev-accept-buf accept# b/accept * + count ; + : accept-lup? ( -- f ) + \ Returns true if it's ok to move one line up in the line editor buffer. + accept# 0> ; + : accept-lup ( -- ) ! \ Move one line up in the line editor buffer. ! accept-lup? ! if false to accepted? ! -1 +accept# ! prev-accept-buf" editbuf place ! editbuf c@ to editpos ! else beep ! then ; ! ! : accept-ldown? ( -- f ) ! \ Returns true if it's ok to move one line down in the line editor buffer. ! 1 +accept# prev-accept-buf" nip 0> -1 +accept# ! ; : accept-ldown ( -- ) ! \ Move one line down in the line editor buffer. ! accept-ldown? ! if accepted? 0= ! if 1 +accept# ! then false to accepted? ! prev-accept-buf" editbuf place ! editbuf c@ to editpos ! else beep ! then ; ! : __laccept ( a1 n1 -- n2 ) 0 ED_READY editor-message \ notify editor we are ready ['] accept-lup is _le-up ['] accept-ldown is _le-down ! ! laccept-buf c@ \ backup current line if laccept-buf count prev-accept-buf accept# b/accept * + place *************** *** 437,441 **** laccept-buf c@ ; ! : _laccept ( a1 n1 -- n2 ) \ line editor version of accept defer@ _le-up >r defer@ _le-down >r --- 460,464 ---- laccept-buf c@ ; ! : _laccept ( a1 n1 -- n2 ) \ line editor version of ACCEPT defer@ _le-up >r defer@ _le-down >r |
|
From: Dirk B. <db...@us...> - 2006-02-26 07:27:45
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21177/doc Modified Files: p-classes.htm p-obtain.htm Log Message: Some minor changes for our WebPage. Index: p-obtain.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-obtain.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** p-obtain.htm 21 Dec 2004 00:18:56 -0000 1.1 --- p-obtain.htm 26 Feb 2006 07:27:42 -0000 1.2 *************** *** 38,48 **** the installer.</p> ! <p align="center"><img border="0" src="setup01.jpg"></p> <p align="left">Click the "Next" button</p> ! <p align="center"><img border="0" src="setup02.jpg"></p> <p align="left">Read the Licence for Win32Forth and Click the "I Agree" button</p> ! <p align="center"><img border="0" src="setup03.jpg"></p> <p align="left">Click the "Install" button once you have specified the directory that you wish Win32Forth to be installed in.</p> --- 38,48 ---- the installer.</p> ! <p align="center"><img border="0" src="Setup01.jpg"></p> <p align="left">Click the "Next" button</p> ! <p align="center"><img border="0" src="Setup02.jpg"></p> <p align="left">Read the Licence for Win32Forth and Click the "I Agree" button</p> ! <p align="center"><img border="0" src="Setup03.jpg"></p> <p align="left">Click the "Install" button once you have specified the directory that you wish Win32Forth to be installed in.</p> *************** *** 51,59 **** <p align="left">You shouldn't use a directory name that contains blank's.</p> ! <p align="center"><img border="0" src="setup04.jpg"></p> <p align="left">After the installer has copyied the files into the destination folder, the Win32Forth system will automatically be rebuild.</p> ! <p align="center"><img border="0" src="setup05.jpg"></p> <p align="left">After rebuilding the system Win32Forth is ready to run. So just Click the "Finish" button. And enjoy. --- 51,59 ---- <p align="left">You shouldn't use a directory name that contains blank's.</p> ! <p align="center"><img border="0" src="Setup04.jpg"></p> <p align="left">After the installer has copyied the files into the destination folder, the Win32Forth system will automatically be rebuild.</p> ! <p align="center"><img border="0" src="Setup05.jpg"></p> <p align="left">After rebuilding the system Win32Forth is ready to run. So just Click the "Finish" button. And enjoy. *************** *** 63,65 **** </body> ! </html> \ No newline at end of file --- 63,65 ---- </body> ! </html> Index: p-classes.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-classes.htm,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** p-classes.htm 22 Jan 2006 10:44:16 -0000 1.10 --- p-classes.htm 26 Feb 2006 07:27:42 -0000 1.11 *************** *** 96,100 **** <li><a href="./classes/AXControl.htm">AXControl</a> Base class for ActiveX controls.</li> <ul> ! <li><a href="./classes/HTMLControl.htm">HTMLControl</a> HTML control class.</li> </ul> </ul> --- 96,100 ---- <li><a href="./classes/AXControl.htm">AXControl</a> Base class for ActiveX controls.</li> <ul> ! <li><a href="./classes/HTMLcontrol.htm">HTMLControl</a> HTML control class.</li> </ul> </ul> *************** *** 129,133 **** <li><a href="./classes/gdiMetafile.htm">gdiMetafile</a> Enhanced metafile class.</li> <li><a href="./classes/gdiDC.htm">gdiDC</a> Device context class.</li> ! <li><a href="./classes/gdiWindowDC.htm">gdiWindowDC</a> Window device context class.</li> <li><a href="./classes/gdiMetafileDC.htm">gdiMetafileDC</a> Metafile device context class.</li> </ul> --- 129,133 ---- <li><a href="./classes/gdiMetafile.htm">gdiMetafile</a> Enhanced metafile class.</li> <li><a href="./classes/gdiDC.htm">gdiDC</a> Device context class.</li> ! <li><a href="./classes/gdiWindowDc.htm">gdiWindowDC</a> Window device context class.</li> <li><a href="./classes/gdiMetafileDC.htm">gdiMetafileDC</a> Metafile device context class.</li> </ul> |
|
From: Dirk B. <db...@us...> - 2006-02-26 07:13:21
|
Update of /cvsroot/win32forth/win32forth/doc/Guide In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15450/doc/Guide Modified Files: primer.htm Added Files: blob.gif left.gif red_box.gif right.gif up.gif win32for.gif Log Message: Fixed some broken links to Julian V. Noble's "Beginner's Guide to Forth" and uploaded his latest version. --- NEW FILE: win32for.gif --- (This appears to be a binary file; contents omitted.) --- NEW FILE: blob.gif --- (This appears to be a binary file; contents omitted.) --- NEW FILE: up.gif --- (This appears to be a binary file; contents omitted.) Index: primer.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/Guide/primer.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** primer.htm 21 Dec 2004 00:19:00 -0000 1.1 --- primer.htm 26 Feb 2006 07:13:13 -0000 1.2 *************** *** 5,15 **** <!--©2002, 2003 Julian V. Noble. <BR> ! Permission is granted by the author to use this Primer for any non-commercial application provided this copyright notice is preserved. --> ! <CENTER>by</CENTER> <BR> ! <CENTER><a href="http://galileo.phys.virginia.edu/classes/551.jvn.fall01/">J.V. Noble<img border="0" src="../ONWEB.gif" width="16" height="16"></a></CENTER> <BR><BR> [...2690 lines suppressed...] ! <!--Next <A HREF="#strings"<menu></menu>><img src=right.gif width=26 height=26></A>--></P> ! ! ! ! 15. <A NAME="refs"><B>Some useful references</B></A> ! > <A NAME="FTR">M. Kelly and N. Spies, <I>Forth: A text and Reference</I> (Prentice-Hall, NJ, 1986)</A><BR> ! > <A NAME="SF">L. Brodie, <I>Starting Forth, 2nd ed.</I> (Prentice-Hall, NJ, 1986)</A><BR> ! > <A NAME="TF">L. Brodie, <I>Thinking FORTH</I> (Prentice-Hall, NJ, 1984</A> (<A HREF="http://thinking-forth.sourceforge.net/">online edition</A>)<BR> ! ! ! <P ALIGN=RIGHT>Table of Contents <a href="#contents"><img src=up.gif width=26 height=26></a> ! ! Home <a href="http://www.phys.virginia.edu/classes/551.jvn.fall01/"><img src=left.gif width=26 height=26></a> ! <!--Next <A HREF="#strings"<menu></menu>><img src=right.gif width=26 height=26></A>--></P> </PRE> </BODY> </HTML> \ No newline at end of file --- NEW FILE: red_box.gif --- (This appears to be a binary file; contents omitted.) --- NEW FILE: left.gif --- (This appears to be a binary file; contents omitted.) --- NEW FILE: right.gif --- (This appears to be a binary file; contents omitted.) |
|
From: Dirk B. <db...@us...> - 2006-02-26 07:13:21
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15450/doc Modified Files: p-index.htm p-relnotes.6.10.htm Log Message: Fixed some broken links to Julian V. Noble's "Beginner's Guide to Forth" and uploaded his latest version. Index: p-relnotes.6.10.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-relnotes.6.10.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** p-relnotes.6.10.htm 10 Feb 2006 11:04:45 -0000 1.2 --- p-relnotes.6.10.htm 26 Feb 2006 07:13:13 -0000 1.3 *************** *** 89,95 **** <p>The <a href="p-index.htm">documentation</a> has been beefed up considerably, and is now almost all HTML based. </p> ! <p>Professor Julian V Noble has kindly allowed us to distribute his ! <a href="BeginnersGuideToForth/primer.htm">"A Beginner's Guide to Forth"</a> and some of his ! <a href="BeginnersGuideToForth">formula translation source code</a>. <a href="http://www.complang.tuwien.ac.at/anton/home.html">Anton Ertl</a> <img border="0" src="ONWEB.gif" width="16" height="16"> has given his permission --- 89,96 ---- <p>The <a href="p-index.htm">documentation</a> has been beefed up considerably, and is now almost all HTML based. </p> ! <p>Professor <a href="http://galileo.phys.virginia.edu/~jvn/">Julian V. Noble ! <img border="0" src="ONWEB.gif" width="16" height="16"></a> has kindly allowed us ! to distribute his <a href="Guide/primer.htm">"A Beginner's Guide to Forth"</a> ! and some of his <a href="Guide">formula translation source code</a>. <a href="http://www.complang.tuwien.ac.at/anton/home.html">Anton Ertl</a> <img border="0" src="ONWEB.gif" width="16" height="16"> has given his permission Index: p-index.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-index.htm,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** p-index.htm 24 Jan 2006 09:13:21 -0000 1.11 --- p-index.htm 26 Feb 2006 07:13:13 -0000 1.12 *************** *** 101,105 **** here</a>)</li> ! <li><a href="Guide/primer.htm">A Beginner's Guide to Forth</a> by <a href="http://galileo.phys.virginia.edu/classes/551.jvn.fall01/">Julian V. Noble <img border="0" src="ONWEB.gif" width="16" height="16"></a></li> <li><a href="http://home.iae.nl/users/mhx/">Starting Forth First Edition</a> --- 101,105 ---- here</a>)</li> ! <li><a href="Guide/primer.htm">A Beginner's Guide to Forth</a> by <a href="http://galileo.phys.virginia.edu/~jvn/">Julian V. Noble <img border="0" src="ONWEB.gif" width="16" height="16"></a></li> <li><a href="http://home.iae.nl/users/mhx/">Starting Forth First Edition</a> |
|
From: George H. <geo...@us...> - 2006-02-25 10:39:39
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8805/win32forth/src Modified Files: FLOAT.F Log Message: gah: More Dexing (still work in progress) optimizations and bug fixes Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.42 retrieving revision 1.43 diff -C2 -d -r1.42 -r1.43 *** FLOAT.F 24 Feb 2006 11:37:58 -0000 1.42 --- FLOAT.F 25 Feb 2006 10:39:32 -0000 1.43 *************** *** 1366,1371 **** fxch st(1) \ frac \ 2 f2xm1 \ (2**frac) - 1 \ 2 ! fmul st(0), st(1) \ 2**(int + frac) - 2**int \ 2 ! faddp st(1), st \ 2**(int + frac) \ 1 L$2: FPU> \ 0 float; --- 1366,1372 ---- fxch st(1) \ frac \ 2 f2xm1 \ (2**frac) - 1 \ 2 ! fld1 \ 1.0 \ 3 ! faddp st(1), st \ 2**frac \ 2 ! fmulp st(1), st \ 2**(int + frac) \ 1 L$2: FPU> \ 0 float; *************** *** 1414,1419 **** fxch st(1) \ frac \ 2 f2xm1 \ (2**frac) - 1 \ 2 ! fmul st(0), st(1) \ 2**(int + frac) - 2**int \ 2 ! faddp st(1), st \ 2**(int + frac) \ 1 fld1 fsubp st(1), st --- 1415,1421 ---- fxch st(1) \ frac \ 2 f2xm1 \ (2**frac) - 1 \ 2 ! fld1 \ 1.0 \ 3 ! faddp st(1), st \ 2**frac \ 2 ! fmulp st(1), st \ 2**(int + frac) \ 1 fld1 fsubp st(1), st |
|
From: George H. <geo...@us...> - 2006-02-24 11:38:19
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15543/win32forth/src Modified Files: FLOAT.F Log Message: gah: More Dexing (still work in progress) optimizations and bug fixes Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.41 retrieving revision 1.42 diff -C2 -d -r1.41 -r1.42 *** FLOAT.F 23 Feb 2006 16:02:18 -0000 1.41 --- FLOAT.F 24 Feb 2006 11:37:58 -0000 1.42 *************** *** 2449,2454 **** module ! only forth also definitions ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 2449,2453 ---- module ! \s \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ |
|
From: George H. <geo...@us...> - 2006-02-23 16:02:26
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6084/win32forth/src Modified Files: FLOAT.F Log Message: gah: More Dexing (still work in progress) optimizations and bug fixes Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.40 retrieving revision 1.41 diff -C2 -d -r1.40 -r1.41 *** FLOAT.F 21 Feb 2006 11:03:56 -0000 1.40 --- FLOAT.F 23 Feb 2006 16:02:18 -0000 1.41 *************** *** 2236,2239 **** --- 2236,2243 ---- \ *N Debugging tools + internal + + in-system + create allregs 110 allot *************** *** 2303,2306 **** --- 2307,2312 ---- drop ; + external + : fdump ( -- ) \ W32F Floating debug \ *G Dump of the real Floating Point Unit. *************** *** 2351,2356 **** fvariable ftemp - external - : .ftempx ( -- ) 0 B/FLOAT 1- --- 2357,2360 ---- *************** *** 2358,2361 **** --- 2362,2367 ---- -1 +LOOP ; + external + : f.x ( fs: r1 r2 ... rn -- r1 r2 ... rn ) \ Hex dump of fstack fdepth *************** *** 2377,2382 **** \ the body of its own definition so it can display it easily. - in-system - : .onefloat ( -- r1 ) f0.0 g. ; --- 2383,2386 ---- *************** *** 2420,2424 **** : FLOAT-RESET-STACKS ( ?? -- ) \ reset stack finit turnkeyed? ?exit ! \in-system-ok 0 to fsp-cached? ; reset-stack-chain chain-add FLOAT-RESET-STACKS --- 2424,2428 ---- : FLOAT-RESET-STACKS ( ?? -- ) \ reset stack finit turnkeyed? ?exit ! \in-system-ok 0 to fsp-cached? 0 to fsp-adjust ; reset-stack-chain chain-add FLOAT-RESET-STACKS |
|
From: George H. <geo...@us...> - 2006-02-21 11:04:02
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15442/win32forth/doc Modified Files: p-float.htm Log Message: gah: More Dexing (still work in progress) optimizations and bug fixes Index: p-float.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-float.htm,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** p-float.htm 20 Feb 2006 12:32:44 -0000 1.16 --- p-float.htm 21 Feb 2006 11:03:54 -0000 1.17 *************** *** 104,109 **** </a></b></pre><p>Define a floating point value initialised from the FP stack. </p><pre><b><a name="17">: FTO \ W32F Floating extra ! </a></b></pre><p><b> Interpreting: ( -<fvalue>- -- FS: r -- ) <br /> ! Compiling: ( -<fvalue>- -- Run-time: FS: r -- ) </b> </p><p>Store 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 --- 104,109 ---- </a></b></pre><p>Define a floating point value initialised from the FP stack. </p><pre><b><a name="17">: FTO \ W32F Floating extra ! </a></b></pre><p><b> Interpretation: ( -<fvalue>- -- FS: r -- ) <br /> ! Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) </b> </p><p>Store 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 *************** *** 147,151 **** </p><pre><b><a name="28">: F2DUP ( fs: r1 r2 -- r1 r2 r1 r2 ) \ W32F Floating extra </a></b></pre><p>Duplicate the top 2 FP stack entries. ! </p><pre><b><a name="29">: F2SWAP ( fs: r1 r2 r3 r4 -- r3 r4 r2 r1 ) \ W32F Floating extra </a></b></pre><p>Swap the top pair of floating-point numbers with the second pair. </p><pre><b><a name="30">: F2NIP ( fs: r1 r2 r3 r4 -- r3 r4 ) \ W32F Floating extra --- 147,151 ---- </p><pre><b><a name="28">: F2DUP ( fs: r1 r2 -- r1 r2 r1 r2 ) \ W32F Floating extra </a></b></pre><p>Duplicate the top 2 FP stack entries. ! </p><pre><b><a name="29">: F2SWAP ( fs: r1 r2 r3 r4 -- r3 r4 r1 r2 ) \ W32F Floating extra </a></b></pre><p>Swap the top pair of floating-point numbers with the second pair. </p><pre><b><a name="30">: F2NIP ( fs: r1 r2 r3 r4 -- r3 r4 ) \ W32F Floating extra *************** *** 271,296 **** </p><pre><b><a name="78">code FSQRT ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the positive square root of r1. </p><a name="Sec#11"></a> <h3>Trigonometric functions ! </h3><pre><b><a name="79">: FSIN ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the sine of r1 in radians. ! </p><pre><b><a name="80">: FCOS ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the cosine of r1 in radians. ! </p><pre><b><a name="81">: FSINCOS ( fs: r1 -- r2 r3 ) \ ANSI Floating ext </a></b></pre><p>r2 is the sine and r3 the cosine of r1 in radians. This function is more efficient than calling FSIN and FCOS separately. ! </p><pre><b><a name="82">: FTAN ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the tangent of r1 in radians. </p><a name="Sec#12"></a> <h3>Inverse Trigonometric functions ! </h3><pre><b><a name="83">code FASIN ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the radian angle whose sine is r1. The result for |x| =< 1 is between ±pi/2. The result for |x| > 1 is NAN. ! </p><pre><b><a name="84">code FACOS ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the radian angle whose cosine is r1. The result for |x| =< 1 is between 0 and pi. The result for |x| > 1 is NAN ! </p><pre><b><a name="85">code FATAN ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the radian angle whose tangent is r1. The result is between ±pi/2. ! </p><pre><b><a name="86">code FATAN2 ( fs: r1 r2 -- r3 ) \ ANSI Floating ext </a></b></pre><p>r3 is the radian angle whose tangent is r1/r2. The result is between ±pi with the same sign as r2. If r1 and r2 are both zero then r3 is ±zero. --- 271,304 ---- </p><pre><b><a name="78">code FSQRT ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the positive square root of r1. + </p><pre><b><a name="79">: F~ ( -- flag ; fs: r1 r2 r3 -- ) \ ANSI Floating ext + </a></b></pre><p>If r3 is positive, flag is true if the absolute value of (r1 minus r2) is less than + r3. If r3 is zero, flag is true if the implementation-dependent encoding of r1 and + r2 are exactly identical (positive and negative zero are unequal). + If r3 is negative, flag is true if the absolute value of (r1 minus r2) is less than the + absolute value of r3 times the sum of the absolute values of r1 and r2. + </p><p>This provides the three types of floating point equality in common use -- close in + absolute terms, exact equality as represented, and relatively close. </p><a name="Sec#11"></a> <h3>Trigonometric functions ! </h3><pre><b><a name="80">: FSIN ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the sine of r1 in radians. ! </p><pre><b><a name="81">: FCOS ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the cosine of r1 in radians. ! </p><pre><b><a name="82">: FSINCOS ( fs: r1 -- r2 r3 ) \ ANSI Floating ext </a></b></pre><p>r2 is the sine and r3 the cosine of r1 in radians. This function is more efficient than calling FSIN and FCOS separately. ! </p><pre><b><a name="83">: FTAN ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the tangent of r1 in radians. </p><a name="Sec#12"></a> <h3>Inverse Trigonometric functions ! </h3><pre><b><a name="84">code FASIN ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the radian angle whose sine is r1. The result for |x| =< 1 is between ±pi/2. The result for |x| > 1 is NAN. ! </p><pre><b><a name="85">code FACOS ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the radian angle whose cosine is r1. The result for |x| =< 1 is between 0 and pi. The result for |x| > 1 is NAN ! </p><pre><b><a name="86">code FATAN ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the radian angle whose tangent is r1. The result is between ±pi/2. ! </p><pre><b><a name="87">code FATAN2 ( fs: r1 r2 -- r3 ) \ ANSI Floating ext </a></b></pre><p>r3 is the radian angle whose tangent is r1/r2. The result is between ±pi with the same sign as r2. If r1 and r2 are both zero then r3 is ±zero. *************** *** 299,317 **** </p><a name="Sec#13"></a> <h3>Logarithmic functions ! </h3><pre><b><a name="87">code FLN ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the natural logarithm of r1. If r1 is ±0 then r2 is -infinity. If r1 is infinity then r2 is infinity. If r1 is less than zero then r2 is a NAN. ! </p><pre><b><a name="88">code FLNP1 ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the natural logarithm of the quantity r1 plus one. If r1 is -1.0 then r2 is -infinity. If r1 is infinity then r2 is infinity. If r1 is less than -1.0 then r2 is a NAN. ! </p><pre><b><a name="89">code FLOG ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the logarithm to base 10 of r1. If r1 is ±0 then r2 is -infinity. If r1 is infinity then r2 is infinity. If r1 is less than zero then r2 is a NAN. </p><a name="Sec#14"></a> <h3>Exponential functions ! </h3><pre><b><a name="90">code FEXP ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>Raise e to the power r1, giving r2. ! </p><pre><b><a name="91">code FEXPM1 ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>Raise e to the power r1 and subtract one, giving r2. </p><p>This function allows accurate computation when its arguments are close to zero, and --- 307,325 ---- </p><a name="Sec#13"></a> <h3>Logarithmic functions ! </h3><pre><b><a name="88">code FLN ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the natural logarithm of r1. If r1 is ±0 then r2 is -infinity. If r1 is infinity then r2 is infinity. If r1 is less than zero then r2 is a NAN. ! </p><pre><b><a name="89">code FLNP1 ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the natural logarithm of the quantity r1 plus one. If r1 is -1.0 then r2 is -infinity. If r1 is infinity then r2 is infinity. If r1 is less than -1.0 then r2 is a NAN. ! </p><pre><b><a name="90">code FLOG ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the logarithm to base 10 of r1. If r1 is ±0 then r2 is -infinity. If r1 is infinity then r2 is infinity. If r1 is less than zero then r2 is a NAN. </p><a name="Sec#14"></a> <h3>Exponential functions ! </h3><pre><b><a name="91">code FEXP ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>Raise e to the power r1, giving r2. ! </p><pre><b><a name="92">code FEXPM1 ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>Raise e to the power r1 and subtract one, giving r2. </p><p>This function allows accurate computation when its arguments are close to zero, and *************** *** 319,350 **** such as cosh(x) can be efficiently and accurately implemented by using FEXPM1; accuracy is lost in this function for small values of x if the word FEXP is used. ! </p><pre><b><a name="92">: f** ( fs: r1 r2 -- r3 ) \ ANSI Floating ext </a></b></pre><p>Raise r1 to the power r2, giving the product r3. ! </p><pre><b><a name="93">: FALOG ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>Raise ten to the power r1, giving r2. </p><a name="Sec#15"></a> <h3>Hyperbolic functions ! </h3><pre><b><a name="94">: FSINH ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the hyperbolic sine of r1. ! </p><pre><b><a name="95">: FCOSH ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the hyperbolic cosine of r1. ! </p><pre><b><a name="96">: FTANH ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the hyperbolic tangent of r1, |r2| <= 1. </p><a name="Sec#16"></a> <h3>Inverse hyperbolic functions ! </h3><pre><b><a name="97">code FASINH ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the number whose hyperbolic sine is r1. ! </p><pre><b><a name="98">code FACOSH ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the number whose hyperbolic cosine is r1. If r1 < 1.0 then r2 is a NAN. ! </p><pre><b><a name="99">: FATANH ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the number whose hyperbolic tangent is r1. IF |r1| > 1.0 then r2 is a NAN. - </p><pre><b><a name="100">: F~ ( -- flag ; fs: r1 r2 r3 -- ) \ ANSI Floating ext - </a></b></pre><p>If r3 is positive, flag is true if the absolute value of (r1 minus r2) is less than - r3. If r3 is zero, flag is true if the implementation-dependent encoding of r1 and - r2 are exactly identical (positive and negative zero are unequal). - If r3 is negative, flag is true if the absolute value of (r1 minus r2) is less than the - absolute value of r3 times the sum of the absolute values of r1 and r2. - </p><p>This provides the three types of floating point equality in common use -- close in - absolute terms, exact equality as represented, and relatively close. </p><a name="Sec#17"></a> <h3>Input of Floating Point numbers --- 327,350 ---- such as cosh(x) can be efficiently and accurately implemented by using FEXPM1; accuracy is lost in this function for small values of x if the word FEXP is used. ! </p><pre><b><a name="93">: f** ( fs: r1 r2 -- r3 ) \ ANSI Floating ext </a></b></pre><p>Raise r1 to the power r2, giving the product r3. ! </p><pre><b><a name="94">: FALOG ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>Raise ten to the power r1, giving r2. </p><a name="Sec#15"></a> <h3>Hyperbolic functions ! </h3><pre><b><a name="95">: FSINH ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the hyperbolic sine of r1. ! </p><pre><b><a name="96">: FCOSH ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the hyperbolic cosine of r1. ! </p><pre><b><a name="97">: FTANH ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the hyperbolic tangent of r1, |r2| <= 1. </p><a name="Sec#16"></a> <h3>Inverse hyperbolic functions ! </h3><pre><b><a name="98">code FASINH ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the number whose hyperbolic sine is r1. ! </p><pre><b><a name="99">code FACOSH ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the number whose hyperbolic cosine is r1. If r1 < 1.0 then r2 is a NAN. ! </p><pre><b><a name="100">: FATANH ( fs: r1 -- r2 ) \ ANSI Floating ext </a></b></pre><p>r2 is the number whose hyperbolic tangent is r1. IF |r1| > 1.0 then r2 is a NAN. </p><a name="Sec#17"></a> <h3>Input of Floating Point numbers *************** *** 365,386 **** <sign-form> := { + | - } <e-char> := { D | d | E | e } ! </pre><pre><b><a name="102">: f# ( "fp no." -- ; fs: -- r ) \ W32F Floating extra ! </a></b></pre><p>An attempt is made to convert the space delimited string following F# to internal floating-point representation. If the string represents a valid floating-point ! number in the syntax below, its value r and true are returned. If the string does not represent a valid floating-point number an error is thrown. <br /> F# used at the end of a line is treated as a special case representing zero. <br /> If interpreting the FP number is placed on the FP stack, while it is compiled as ! an Fliteral if compiling. ! </p><pre>The syntax of a convertible string := <significand>[<exponent>] ! ! <significand> := [<sign>]{<digits>[.<digits0>] | ! .<digits> } ! <exponent> := <marker><digits0> ! <marker> := {<e-form> | <sign-form>} ! <e-form> := <e-char>[<sign-form>] ! <sign-form> := { + | - } ! <e-char> := { D | d | E | e } ! </pre><a name="Sec#18"></a> <h3>Output conversion </h3><pre><b><a name="103">: REPRESENT ( addr u -- n flag1 flag2 ; fs: r -- ) \ ANSI Floating --- 365,379 ---- <sign-form> := { + | - } <e-char> := { D | d | E | e } ! </pre><pre><b><a name="102">: f# ( Interpretation: "fp no." -- ; fs: -- r ) \ W32F Floating extra ! </a></b></pre><p><b> ( Compilation: "fp no." -- ; run-time: fs: -- r ) </b> ! </p><p>An attempt is made to convert the space delimited string following F# to internal floating-point representation. If the string represents a valid floating-point ! number in the syntax below, its value r is returned. If the string does not represent a valid floating-point number an error is thrown. <br /> F# used at the end of a line is treated as a special case representing zero. <br /> If interpreting the FP number is placed on the FP stack, while it is compiled as ! an Fliteral if compiling. <br /> ! The syntax of a convertible string is the same as <b> >FLOAT </b>. ! </p><a name="Sec#18"></a> <h3>Output conversion </h3><pre><b><a name="103">: REPRESENT ( addr u -- n flag1 flag2 ; fs: r -- ) \ ANSI Floating |
|
From: George H. <geo...@us...> - 2006-02-21 11:04:01
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15442/win32forth/src Modified Files: FLOAT.F Log Message: gah: More Dexing (still work in progress) optimizations and bug fixes Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.39 retrieving revision 1.40 diff -C2 -d -r1.39 -r1.40 *** FLOAT.F 20 Feb 2006 12:32:45 -0000 1.39 --- FLOAT.F 21 Feb 2006 11:03:56 -0000 1.40 *************** *** 457,462 **** : FTO \ W32F Floating extra ! \ *G \b Interpreting: ( -<fvalue>- -- FS: r -- ) \n ! \ ** Compiling: ( -<fvalue>- -- Run-time: FS: r -- ) \d \ *P Store 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 --- 457,462 ---- : FTO \ W32F Floating extra ! \ *G \b Interpretation: ( -<fvalue>- -- FS: r -- ) \n ! \ ** Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) \d \ *P Store 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 *************** *** 624,628 **** fover fover ; ! : F2SWAP ( fs: r1 r2 r3 r4 -- r3 r4 r2 r1 ) \ W32F Floating extra \ *G Swap the top pair of floating-point numbers with the second pair. { \ ftemp -- } --- 624,628 ---- fover fover ; ! : F2SWAP ( fs: r1 r2 r3 r4 -- r3 r4 r1 r2 ) \ W32F Floating extra \ *G Swap the top pair of floating-point numbers with the second pair. { \ ftemp -- } *************** *** 704,707 **** --- 704,719 ---- B/FLOAT 10 = [IF] + f0.0 fconstant fbig + ' fbig >body -1 over ! nostack + -1 over cell+ ! + 0x7ffe swap 2 cells+ w! stack-check + + f0.0 fconstant feps \ smallest non-zero-number + 1 ' feps >body ! + + f0.0 fconstant fsmall + 0 ' fsmall >body tuck ! 0x80000000 over cell+ ! + 1 swap 2 cells+ w! + fvariable a2**63 0 a2**63 ! 0x80000000 a2**63 cell+ ! *************** *** 719,734 **** 0xbffd sq2/2m1 2 cells+ w! - f0.0 fconstant fbig - ' fbig >body -1 over ! nostack - -1 over cell+ ! - 0x7ffe swap 2 cells+ w! stack-check - - f0.0 fconstant feps \ smallest non-zero-number - 1 ' feps >body ! - - f0.0 fconstant fsmall - 0 ' fsmall >body tuck ! 0x80000000 over cell+ ! - 1 swap 2 cells+ w! - [ELSE] ( 8 byte mode ) --- 731,734 ---- *************** *** 1098,1101 **** --- 1098,1130 ---- float; + internal + + : (F~) ( -- f ; fs: r1 r2 r3 -- ) + frot frot f- fabs f> ; + + external + + \ July 29th, 1998 - 8:53 tjz + \ added '@' after FLOATSP to fix a bug reported by Pierre Abbat + : F~ ( -- flag ; fs: r1 r2 r3 -- ) \ ANSI Floating ext + \ *G If r3 is positive, flag is true if the absolute value of (r1 minus r2) is less than + \ ** r3. If r3 is zero, flag is true if the implementation-dependent encoding of r1 and + \ ** r2 are exactly identical (positive and negative zero are unequal). + \ ** If r3 is negative, flag is true if the absolute value of (r1 minus r2) is less than the + \ ** absolute value of r3 times the sum of the absolute values of r1 and r2. + \ *P This provides the three types of floating point equality in common use -- close in + \ ** absolute terms, exact equality as represented, and relatively close. + fdup f0< + IF fabs fover fabs 3 fpick fabs f+ f* \ r1 r2 r3*(r1+r2) + (f~) + ELSE fdup f0= + IF fdrop FLOATSTACK FLOATSP @ + B/FLOAT - dup B/FLOAT - + swap B/FLOAT swap B/FLOAT str= + f2drop + ELSE + (f~) + THEN + THEN ; + \ The following constants are documented earlier *************** *** 1476,1502 **** f/ fln f2/ ; - \ July 29th, 1998 - 8:53 tjz - \ added '@' after FLOATSP to fix a bug reported by Pierre Abbat - : F~ ( -- flag ; fs: r1 r2 r3 -- ) \ ANSI Floating ext - \ *G If r3 is positive, flag is true if the absolute value of (r1 minus r2) is less than - \ ** r3. If r3 is zero, flag is true if the implementation-dependent encoding of r1 and - \ ** r2 are exactly identical (positive and negative zero are unequal). - \ ** If r3 is negative, flag is true if the absolute value of (r1 minus r2) is less than the - \ ** absolute value of r3 times the sum of the absolute values of r1 and r2. - \ *P This provides the three types of floating point equality in common use -- close in - \ ** absolute terms, exact equality as represented, and relatively close. - fdup f0< - IF fabs fover fabs 3 fpick fabs f+ f* \ r1 r2 r3*(r1+r2) - frot frot f- fabs fswap f< - ELSE fdup f0= - IF fdrop FLOATSTACK FLOATSP @ + B/FLOAT - dup B/FLOAT - - swap B/FLOAT swap B/FLOAT str= - f2drop - ELSE \ January 16th, 1998 rls add "fswap" - frot frot f- fabs fswap f< - THEN - THEN ; - - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ floating point defining words and array operators --- 1505,1508 ---- *************** *** 1629,1636 **** cell newuser mantsign ! cell newuser expsign cell newuser intcnt cell newuser fracnt ! cell newuser expcnt cell newuser charcnt cell newuser zerochar --- 1635,1642 ---- cell newuser mantsign ! \ cell newuser expsign \ seems to only be set to 0 ! cell newuser intcnt cell newuser fracnt ! \ cell newuser expcnt \ seems to only be set to 0 ! cell newuser charcnt cell newuser zerochar *************** *** 1638,1644 **** 128 newuser $fsignif 10 newuser fbcd-buf ! fvariable ftemp ! 128 newuser $ftemp ! create $ftemp1 128 allot : 10**n ( fs: -- r ) ( n -- ) \ 10 raised to n --- 1644,1649 ---- 128 newuser $fsignif 10 newuser fbcd-buf ! ! create $ftemp1 128 allot deprecated \ doesn't appear to be used! : 10**n ( fs: -- r ) ( n -- ) \ 10 raised to n *************** *** 1648,1658 **** 10**n f0.5 f- ; - code f>bcd ( fs: r -- ) ( addr -- ) - fstack-check_1 - >fpu - fbstp DATASTACK_MEMORY - pop tos - float; - : bcd-char@ ( n -- char ) dup 1 and swap 2/ fbcd-buf + c@ swap --- 1653,1656 ---- *************** *** 1718,1723 **** : init->float ( -- ) ! 0 expsign ! 0 intcnt ! \ initialize various ! 0 fracnt ! 0 expcnt ! \ counts and such 0 zerochar ! 0 mantsign ! false havedigits ! --- 1716,1721 ---- : init->float ( -- ) ! ( 0 expsign ! ) 0 intcnt ! \ initialize various ! 0 fracnt ! ( 0 expcnt ! ) \ counts and such 0 zerochar ! 0 mantsign ! false havedigits ! *************** *** 1903,1923 **** in-system ! : f# ( "fp no." -- ; fs: -- r ) \ W32F Floating extra ! \ *G An attempt is made to convert the space delimited string following F# to internal \ ** floating-point representation. If the string represents a valid floating-point ! \ ** number in the syntax below, its value r and true are returned. If the string does not \ ** represent a valid floating-point number an error is thrown. \n \ ** F# used at the end of a line is treated as a special case representing zero. \n \ ** If interpreting the FP number is placed on the FP stack, while it is compiled as ! \ ** an Fliteral if compiling. ! \ *E The syntax of a convertible string := <significand>[<exponent>] ! \ ** ! \ ** <significand> := [<sign>]{<digits>[.<digits0>] | ! \ ** .<digits> } ! \ ** <exponent> := <marker><digits0> ! \ ** <marker> := {<e-form> | <sign-form>} ! \ ** <e-form> := <e-char>[<sign-form>] ! \ ** <sign-form> := { + | - } ! \ ** <e-char> := { D | d | E | e } bl word count >float 0= abort" invalid floating point number" --- 1901,1914 ---- in-system ! : f# ( Interpretation: "fp no." -- ; fs: -- r ) \ W32F Floating extra ! \ *G \b ( Compilation: "fp no." -- ; run-time: fs: -- r ) \d ! \ *P An attempt is made to convert the space delimited string following F# to internal \ ** floating-point representation. If the string represents a valid floating-point ! \ ** number in the syntax below, its value r is returned. If the string does not \ ** represent a valid floating-point number an error is thrown. \n \ ** F# used at the end of a line is treated as a special case representing zero. \n \ ** If interpreting the FP number is placed on the FP stack, while it is compiled as ! \ ** an Fliteral if compiling. \n ! \ ** The syntax of a convertible string is the same as \b >FLOAT \d. bl word count >float 0= abort" invalid floating point number" *************** *** 1935,1938 **** --- 1926,1936 ---- internal + code f>bcd ( fs: r -- ) ( addr -- ) + fstack-check_1 + >fpu + fbstp DATASTACK_MEMORY + pop tos + float; + : rep-normal ( addr u -- n true ; fs: r -- ) 1 max 2dup [char] 0 fill 18 umin *************** *** 2024,2027 **** --- 2022,2027 ---- internal + 128 newuser $ftemp + : +sign ( $buf -- ) fexam FPU_STATUS_CCF_MASK_1 and *************** *** 2347,2350 **** --- 2347,2356 ---- r> base ! ; + internal + + fvariable ftemp + + external + : .ftempx ( -- ) 0 B/FLOAT 1- *************** *** 2437,2440 **** --- 2443,2448 ---- ' fdiscard-number is discard-number + module + only forth also definitions |
|
From: George H. <geo...@us...> - 2006-02-20 12:32:49
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17080/win32forth/src Modified Files: FLOAT.F Log Message: gah: Corrected typo Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.38 retrieving revision 1.39 diff -C2 -d -r1.38 -r1.39 *** FLOAT.F 20 Feb 2006 12:06:14 -0000 1.38 --- FLOAT.F 20 Feb 2006 12:32:45 -0000 1.39 *************** *** 67,71 **** \ *W <li><a href="#Sec#9">FP Comparison operators</a></li> \ *W <li><a href="#Sec#10">Arithmetic operators</a></li> ! \ *W <li><a href="#Sec#11">Trigonometric functions/a></li> \ *W <li><a href="#Sec#12">Inverse Trigonometric functions</a></li> \ *W <li><a href="#Sec#13">Logarithmic functions</a></li> --- 67,71 ---- \ *W <li><a href="#Sec#9">FP Comparison operators</a></li> \ *W <li><a href="#Sec#10">Arithmetic operators</a></li> ! \ *W <li><a href="#Sec#11">Trigonometric functions</a></li> \ *W <li><a href="#Sec#12">Inverse Trigonometric functions</a></li> \ *W <li><a href="#Sec#13">Logarithmic functions</a></li> |
|
From: George H. <geo...@us...> - 2006-02-20 12:32:48
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17080/win32forth/doc Modified Files: p-float.htm w32f-glossary.csv Log Message: gah: Corrected typo Index: w32f-glossary.csv =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/w32f-glossary.csv,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** w32f-glossary.csv 9 Feb 2006 18:04:10 -0000 1.8 --- w32f-glossary.csv 20 Feb 2006 12:32:44 -0000 1.9 *************** *** 257,261 **** "SetSelection:","n --","","METHOD","ListBox","Controls.htm#82" "GetSelection:","-- n","","METHOD","ListBox","Controls.htm#83" ! "GetString:","n addr -- n","","METHOD","ListBox","Controls.htm#84" "GetSelectedString:","-- addr cnt","","METHOD","ListBox","Controls.htm#85" "GetCount:","-- n","","METHOD","ListBox","Controls.htm#86" --- 257,261 ---- "SetSelection:","n --","","METHOD","ListBox","Controls.htm#82" "GetSelection:","-- n","","METHOD","ListBox","Controls.htm#83" ! "GetString:","index -- addr n","","METHOD","ListBox","Controls.htm#84" "GetSelectedString:","-- addr cnt","","METHOD","ListBox","Controls.htm#85" "GetCount:","-- n","","METHOD","ListBox","Controls.htm#86" *************** *** 266,504 **** "Find:","lpszString -- index","","METHOD","ListBox","Controls.htm#91" "FindExact:","lpszString -- index","","METHOD","ListBox","Controls.htm#92" ! "GetString:","index -- a n","","METHOD","ListBox","Controls.htm#93" ! "GetCurrent:","-- index","","METHOD","ListBox","Controls.htm#94" ! "SelectString:","lpszString -- index","","METHOD","ListBox","Controls.htm#95" ! "GetState:","index -- f","","METHOD","ListBox","Controls.htm#96" ! "Enable:","f --","","METHOD","ListBox","Controls.htm#97" ! "Disable:","--","","METHOD","ListBox","Controls.htm#98" ! "SetTabStops:","addr cnt --","","METHOD","ListBox","Controls.htm#99" ! "MultiListbox","","","CLASS","","Controls.htm#101" ! "WindowStyle:","-- style","","METHOD","MultiListbox","Controls.htm#102" ! "Select:","index --","","METHOD","MultiListbox","Controls.htm#103" ! "Unselect:","index --","","METHOD","MultiListbox","Controls.htm#104" ! "GetSelCount:","-- n","","METHOD","MultiListbox","Controls.htm#105" ! "GetSelectedItems:","array cnt -- count","","METHOD","MultiListbox","Controls.htm#106" ! "MultiExListbox","","","CLASS","","Controls.htm#108" ! "WindowStyle:","-- style","","METHOD","MultiExListbox","Controls.htm#109" ! "DragListbox","","","CLASS","","Controls.htm#111" ! "WindowStyle:","-- style","","METHOD","DragListbox","Controls.htm#112" ! "Start:","Parent --","","METHOD","DragListbox","Controls.htm#113" ! "UpDownControl","","","CLASS","","Controls.htm#115" ! "ClassInit:","--","","METHOD","UpDownControl","Controls.htm#116" ! "WindowStyle:","-- style","","METHOD","UpDownControl","Controls.htm#117" ! "AddStyle:","n --","","METHOD","UpDownControl","Controls.htm#118" ! "Start:","Parent --","","METHOD","UpDownControl","Controls.htm#119" ! "StartSize:","-- cx cy","","METHOD","UpDownControl","Controls.htm#120" ! "StartPos:","-- x y","","METHOD","UpDownControl","Controls.htm#121" ! "SetBuddy:","hBuddy --","","METHOD","UpDownControl","Controls.htm#122" ! "GetValue:","-- n","","METHOD","UpDownControl","Controls.htm#123" ! "SetValue:","n --","","METHOD","UpDownControl","Controls.htm#124" ! "SetDecimal:","--","","METHOD","UpDownControl","Controls.htm#125" ! "SetHex:","--","","METHOD","UpDownControl","Controls.htm#126" ! "GetBase:","-- n","","METHOD","UpDownControl","Controls.htm#127" ! "SetRange:","lower upper --","","METHOD","UpDownControl","Controls.htm#128" ! "GetRange:","-- lower upper","","METHOD","UpDownControl","Controls.htm#129" ! "Enable:","f --","","METHOD","UpDownControl","Controls.htm#130" ! "Disable:","--","","METHOD","UpDownControl","Controls.htm#131" ! "CheckBox","","","CLASS","","Controls.htm#133" ! "ClassInit:","--","","METHOD","CheckBox","Controls.htm#134" ! "WindowStyle:","-- style","","METHOD","CheckBox","Controls.htm#135" ! "AddStyle:","n --","","METHOD","CheckBox","Controls.htm#136" ! "IsButtonChecked?:","-- f","","METHOD","CheckBox","Controls.htm#137" ! "Enable:","f --","","METHOD","CheckBox","Controls.htm#138" ! "Disable:","--","","METHOD","CheckBox","Controls.htm#139" ! "Setfont:","handle --","","METHOD","CheckBox","Controls.htm#140" ! "RadioButton","","","CLASS","","Controls.htm#142" ! "ClassInit:","--","","METHOD","RadioButton","Controls.htm#143" ! "WindowStyle:","-- style","","METHOD","RadioButton","Controls.htm#144" ! "AddStyle:","n --","","METHOD","RadioButton","Controls.htm#145" ! "IsButtonChecked?:","-- f","","METHOD","RadioButton","Controls.htm#146" ! "CheckButton:","--","","METHOD","RadioButton","Controls.htm#147" ! "UnCheckButton:","--","","METHOD","RadioButton","Controls.htm#148" ! "Check:","f --","","METHOD","RadioButton","Controls.htm#149" ! "Enable:","f --","","METHOD","RadioButton","Controls.htm#150" ! "Disable:","--","","METHOD","RadioButton","Controls.htm#151" ! "Setfont:","handle --","","METHOD","RadioButton","Controls.htm#152" ! "GroupRadioButton","","","CLASS","","Controls.htm#154" ! "WindowStyle:","-- style","","METHOD","GroupRadioButton","Controls.htm#155" ! "PushButton","","","CLASS","","Controls.htm#157" ! "ClassInit:","--","","METHOD","PushButton","Controls.htm#158" ! "WindowStyle:","-- style","","METHOD","PushButton","Controls.htm#159" ! "AddStyle:","n --","","METHOD","PushButton","Controls.htm#160" ! "Setfont:","handle --","","METHOD","PushButton","Controls.htm#161" ! "Enable:","f --","","METHOD","PushButton","Controls.htm#162" ! "Disable:","--","","METHOD","PushButton","Controls.htm#163" ! "DefPushButton","","","CLASS","","Controls.htm#165" ! "WindowStyle:","-- style","","METHOD","DefPushButton","Controls.htm#166" ! "Label","","","CLASS","","Controls.htm#168" ! "ClassInit:","--","","METHOD","Label","Controls.htm#169" ! "WindowStyle:","-- style","","METHOD","Label","Controls.htm#170" ! "AddStyle:","n --","","METHOD","Label","Controls.htm#171" ! "Setfont:","handle --","","METHOD","Label","Controls.htm#172" ! "Enable:","f --","","METHOD","Label","Controls.htm#173" ! "Disable:","--","","METHOD","Label","Controls.htm#174" ! "StaticImage","","","|CLASS","","Controls.htm#176" ! "ImageType:","-- ImageType","","METHOD","StaticImage","Controls.htm#177" ! "GetImage:","-- hImage","","METHOD","StaticImage","Controls.htm#178" ! "SetImage:","hImage --","","METHOD","StaticImage","Controls.htm#179" ! "SetFont:","fhndl --","","METHOD","StaticImage","Controls.htm#180" ! "StaticBitmap","","","CLASS","","Controls.htm#182" ! "WindowStyle:","-- style","","METHOD","StaticBitmap","Controls.htm#183" ! "StaticIcon","","","CLASS","","Controls.htm#185" ! "WindowStyle:","-- style","","METHOD","StaticIcon","Controls.htm#186" ! "ImageType:","-- ImageType","","METHOD","StaticIcon","Controls.htm#187" ! "StaticMetafile","","","CLASS","","Controls.htm#189" ! "WindowStyle:","-- style","","METHOD","StaticMetafile","Controls.htm#190" ! "ImageType:","-- ImageType","","METHOD","StaticMetafile","Controls.htm#191" ! "StaticFrame","","","CLASS","","Controls.htm#193" ! "BlackRect:","--","","METHOD","StaticFrame","Controls.htm#194" ! "GrayRect:","--","","METHOD","StaticFrame","Controls.htm#195" ! "WhiteRect:","--","","METHOD","StaticFrame","Controls.htm#196" ! "BlackFrame:","--","","METHOD","StaticFrame","Controls.htm#197" ! "GrayFrame:","--","","METHOD","StaticFrame","Controls.htm#198" ! "WhiteFrame:","--","","METHOD","StaticFrame","Controls.htm#199" ! "EtchedFrame:","--","","METHOD","StaticFrame","Controls.htm#200" ! "SunkenFrame:","--","","METHOD","StaticFrame","Controls.htm#201" ! "GroupBox","","","CLASS","","Controls.htm#203" ! "ClassInit:","--","","METHOD","GroupBox","Controls.htm#204" ! "WindowStyle:","-- style","","METHOD","GroupBox","Controls.htm#205" ! "AddStyle:","n --","","METHOD","GroupBox","Controls.htm#206" ! "Setfont:","handle --","","METHOD","GroupBox","Controls.htm#207" ! "Enable:","f --","","METHOD","GroupBox","Controls.htm#208" ! "Disable:","--","","METHOD","GroupBox","Controls.htm#209" ! "Progressbar","","","CLASS","","Controls.htm#211" ! "Start:","Parent --","","METHOD","Progressbar","Controls.htm#212" ! "ClassInit:","--","","METHOD","Progressbar","Controls.htm#213" ! "WindowStyle:","-- style","","METHOD","Progressbar","Controls.htm#214" ! "AddStyle:","n --","","METHOD","Progressbar","Controls.htm#215" ! "+Value:","n --","","METHOD","Progressbar","Controls.htm#216" ! "GetValue:","-- n","","METHOD","Progressbar","Controls.htm#217" ! "SetValue:","n --","","METHOD","Progressbar","Controls.htm#218" ! "SetRange:","min max --","","METHOD","Progressbar","Controls.htm#219" ! "SetStep:","n --","","METHOD","Progressbar","Controls.htm#220" ! "GetStep:","-- n","","METHOD","Progressbar","Controls.htm#221" ! "StepIt:","--","","METHOD","Progressbar","Controls.htm#222" ! "SmoothProgressbar","","","CLASS","","Controls.htm#224" ! "WindowStyle:","-- style","","METHOD","SmoothProgressbar","Controls.htm#225" ! "Trackbar","","","CLASS","","Controls.htm#227" ! "Start:","Parent --","","METHOD","Trackbar","Controls.htm#228" ! "ClassInit:","--","","METHOD","Trackbar","Controls.htm#229" ! "WindowStyle:","-- style","","METHOD","Trackbar","Controls.htm#230" ! "AddStyle:","n --","","METHOD","Trackbar","Controls.htm#231" ! "GetLineSize:","-- n","","METHOD","Trackbar","Controls.htm#232" ! "SetLineSize:","n --","","METHOD","Trackbar","Controls.htm#233" ! "GetPageSize:","-- n","","METHOD","Trackbar","Controls.htm#234" ! "SetPageSize:","n --","","METHOD","Trackbar","Controls.htm#235" ! "GetValue:","-- n","","METHOD","Trackbar","Controls.htm#236" ! "SetValue:","n --","","METHOD","Trackbar","Controls.htm#237" ! "GetRangeMax:","-- n","","METHOD","Trackbar","Controls.htm#238" ! "SetRangeMax:","max f --","","METHOD","Trackbar","Controls.htm#239" ! "GetRangeMin:","-- n","","METHOD","Trackbar","Controls.htm#240" ! "SetRangeMin:","min f --","","METHOD","Trackbar","Controls.htm#241" ! "GetSelEnd:","-- n","","METHOD","Trackbar","Controls.htm#242" ! "SetSelEnd:","end f --","","METHOD","Trackbar","Controls.htm#243" ! "GetSelStart:","-- n","","METHOD","Trackbar","Controls.htm#244" ! "SetSelStart:","start f --","","METHOD","Trackbar","Controls.htm#245" ! "GetThumbLength:","-- n","","METHOD","Trackbar","Controls.htm#246" ! "SetThumbLength:","n --","","METHOD","Trackbar","Controls.htm#247" ! "GetChannelRect:","lpRect --","","METHOD","Trackbar","Controls.htm#248" ! "GetThumbRect:","lpRect --","","METHOD","Trackbar","Controls.htm#249" ! "GetTick:","iTic -- n","","METHOD","Trackbar","Controls.htm#250" ! "SetTick:","pos --","","METHOD","Trackbar","Controls.htm#251" ! "ClearTicks:","f --","","METHOD","Trackbar","Controls.htm#252" ! "GetTickPos:","iTic -- n","","METHOD","Trackbar","Controls.htm#253" ! "GetTicksPtr:","-- pointer","","METHOD","Trackbar","Controls.htm#254" ! "SetTickFreq:","pos freq --","","METHOD","Trackbar","Controls.htm#255" ! "GetNumTicks:","-- n","","METHOD","Trackbar","Controls.htm#256" ! "SetRange:","min max f --","","METHOD","Trackbar","Controls.htm#257" ! "SetSel:","min max f --","","METHOD","Trackbar","Controls.htm#258" ! "ClearSel:","f --","","METHOD","Trackbar","Controls.htm#259" ! "Enable:","f --","","METHOD","Trackbar","Controls.htm#260" ! "Disable:","--","","METHOD","Trackbar","Controls.htm#261" ! "VTrackBar","","","CLASS","","Controls.htm#263" ! "WindowStyle:","-- style","","METHOD","VTrackBar","Controls.htm#264" ! "Statusbar","","","CLASS","","Controls.htm#266" ! "ClassInit:","--","","METHOD","Statusbar","Controls.htm#267" ! "AddStyle:","n --","","METHOD","Statusbar","Controls.htm#268" ! "Start:","Parent --","","METHOD","Statusbar","Controls.htm#269" ! "WindowStyle:","-- style","","METHOD","Statusbar","Controls.htm#270" ! "RaisedBorder:","--","","METHOD","Statusbar","Controls.htm#271" ! "NoBorder:","--","","METHOD","Statusbar","Controls.htm#272" ! "SunkenBorder:","--","","METHOD","Statusbar","Controls.htm#273" ! "ClassInit:","--","","METHOD","Statusbar","Controls.htm#274" ! "MinHeight:","#pixels --","","METHOD","Statusbar","Controls.htm#275" ! "GetBorders:","-- hWidth vWidth divWidth","","METHOD","Statusbar","Controls.htm#276" ! "Redraw:","--","","METHOD","Statusbar","Controls.htm#277" ! "SetText:","szText --","","METHOD","Statusbar","Controls.htm#278" ! "Clear:","--","","METHOD","Statusbar","Controls.htm#279" ! "Setfont:","handle --","","METHOD","Statusbar","Controls.htm#280" ! "MultiStatusbar","","","CLASS","","Controls.htm#282" ! "Start:","Parent --","","METHOD","MultiStatusbar","Controls.htm#283" ! "SetParts:","aWidths nParts --","","METHOD","MultiStatusbar","Controls.htm#284" ! "GetParts:","-- aWidths nParts","","METHOD","MultiStatusbar","Controls.htm#285" ! "SetSimple:","--","","METHOD","MultiStatusbar","Controls.htm#286" ! "SetMulti:","--","","METHOD","MultiStatusbar","Controls.htm#287" ! "SetText:","szText n --","","METHOD","MultiStatusbar","Controls.htm#288" ! "BitmapButton","","","CLASS","","Controls.htm#290" ! "ClassInit:","--","","METHOD","BitmapButton","Controls.htm#291" ! "WindowStyle:","-- style","","METHOD","BitmapButton","Controls.htm#292" ! "IconButton","","","CLASS","","Controls.htm#294" ! "ClassInit:","--","","METHOD","IconButton","Controls.htm#295" ! "WindowStyle:","-- style","","METHOD","IconButton","Controls.htm#296" ! "SetIcon:","hIcon --","","METHOD","IconButton","Controls.htm#297" ! "GetIcon:","-- hIcon","","METHOD","IconButton","Controls.htm#298" ! "ScrollBar","","","|CLASS","","Controls.htm#300" ! "ClassInit:","--","","METHOD","ScrollBar","Controls.htm#301" ! "WindowStyle:","-- style","","METHOD","ScrollBar","Controls.htm#302" ! "AddStyle:","n --","","METHOD","ScrollBar","Controls.htm#303" ! "Start:","Parent --","","METHOD","ScrollBar","Controls.htm#304" ! "SetFont:","hndl --","","METHOD","ScrollBar","Controls.htm#305" ! "Enable:","f --","","METHOD","ScrollBar","Controls.htm#306" ! "Disable:","--","","METHOD","ScrollBar","Controls.htm#307" ! "HorizScroll","","","CLASS","","Controls.htm#308" ! "WindowStyle:","-- style","","METHOD","HorizScroll","Controls.htm#309" ! "VertScroll","","","CLASS","","Controls.htm#311" ! "WindowStyle:","-- style","","METHOD","VertScroll","Controls.htm#312" ! "SizeBox","","","CLASS","","Controls.htm#314" ! "WindowStyle:","-- style","","METHOD","SizeBox","Controls.htm#315" ! "MonthCalendar","","","CLASS","","Controls.htm#317" ! "ClassInit:","--","","METHOD","MonthCalendar","Controls.htm#318" ! "AddStyle:","n --","","METHOD","MonthCalendar","Controls.htm#319" ! "Start:","Parent --","","METHOD","MonthCalendar","Controls.htm#320" ! "MinSize:","-- x y","","METHOD","MonthCalendar","Controls.htm#321" ! "WindowStyle:","-- style","","METHOD","MonthCalendar","Controls.htm#322" ! "GetDate:","-- day month year","","METHOD","MonthCalendar","Controls.htm#323" ! "GetToday:","-- day month year","","METHOD","MonthCalendar","Controls.htm#324" ! "DateTimePicker","","","CLASS","","Controls.htm#326" ! "ClassInit:","--","","METHOD","DateTimePicker","Controls.htm#327" ! "AddStyle:","n --","","METHOD","DateTimePicker","Controls.htm#328" ! "Start:","Parent --","","METHOD","DateTimePicker","Controls.htm#329" ! "WindowStyle:","-- style","","METHOD","DateTimePicker","Controls.htm#330" ! "SetCustomFormat:","z""format"" --","","METHOD","DateTimePicker","Controls.htm#331" ! "GetTime:","-- hrs min secs","","METHOD","DateTimePicker","Controls.htm#332" ! "SetTime:","hr min sec --","","METHOD","DateTimePicker","Controls.htm#333" ! "GetDate:","-- day month year","","METHOD","DateTimePicker","Controls.htm#334" ! "TabControl","","","CLASS","","Controls.htm#336" ! "Start:","Parent --","","METHOD","TabControl","Controls.htm#337" ! "ClassInit:","--","","METHOD","TabControl","Controls.htm#338" ! "WindowStyle:","-- style","","METHOD","TabControl","Controls.htm#339" ! "AddStyle:","n --","","METHOD","TabControl","Controls.htm#340" ! "InsertTab:","index --","","METHOD","TabControl","Controls.htm#341" ! "GetTabInfo:","index --","","METHOD","TabControl","Controls.htm#342" ! "SetTabInfo:","index --","","METHOD","TabControl","Controls.htm#343" ! "ClientSize:","-- x y w h","","METHOD","TabControl","Controls.htm#344" ! "WindowSize:","0 0 width height -- x y w h","","METHOD","TabControl","Controls.htm#345" ! "Enable:","f --","","METHOD","TabControl","Controls.htm#346" ! "Disable:","--","","METHOD","TabControl","Controls.htm#347" ! "Setfont:","handle --","","METHOD","TabControl","Controls.htm#348" ! "WindowTitle:","-- null$","","METHOD","TabControl","Controls.htm#349" ! "VertButtonBar","","","CLASS","","Controls.htm#351" ! "SetFont:","fonthndl \ hb1 --","","METHOD","VertButtonBar","Controls.htm#352" ! "Enable:","flag \ hb1 --","","METHOD","VertButtonBar","Controls.htm#353" ! "Disable:","--","","METHOD","VertButtonBar","Controls.htm#354" ! "HorizButtonBar","","","CLASS","","Controls.htm#356" ! "SetFont:","fonthndl \ hb1 --","","METHOD","HorizButtonBar","Controls.htm#357" ! "Enable:","flag \ hb1 --","","METHOD","HorizButtonBar","Controls.htm#358" ! "Disable:","--","","METHOD","HorizButtonBar","Controls.htm#359" "MdiDialogWindow","","","CLASS","","MdiDialog.htm#0" "ClassInit:","--","","METHOD","MdiDialogWindow","MdiDialog.htm#1" --- 266,503 ---- "Find:","lpszString -- index","","METHOD","ListBox","Controls.htm#91" "FindExact:","lpszString -- index","","METHOD","ListBox","Controls.htm#92" ! "GetCurrent:","-- index","","METHOD","ListBox","Controls.htm#93" ! "SelectString:","lpszString -- index","","METHOD","ListBox","Controls.htm#94" ! "GetState:","index -- f","","METHOD","ListBox","Controls.htm#95" ! "Enable:","f --","","METHOD","ListBox","Controls.htm#96" ! "Disable:","--","","METHOD","ListBox","Controls.htm#97" ! "SetTabStops:","addr cnt --","","METHOD","ListBox","Controls.htm#98" ! "MultiListbox","","","CLASS","","Controls.htm#100" ! "WindowStyle:","-- style","","METHOD","MultiListbox","Controls.htm#101" ! "Select:","index --","","METHOD","MultiListbox","Controls.htm#102" ! "Unselect:","index --","","METHOD","MultiListbox","Controls.htm#103" ! "GetSelCount:","-- n","","METHOD","MultiListbox","Controls.htm#104" ! "GetSelectedItems:","array cnt -- count","","METHOD","MultiListbox","Controls.htm#105" ! "MultiExListbox","","","CLASS","","Controls.htm#107" ! "WindowStyle:","-- style","","METHOD","MultiExListbox","Controls.htm#108" ! "DragListbox","","","CLASS","","Controls.htm#110" ! "WindowStyle:","-- style","","METHOD","DragListbox","Controls.htm#111" ! "Start:","Parent --","","METHOD","DragListbox","Controls.htm#112" ! "UpDownControl","","","CLASS","","Controls.htm#114" ! "ClassInit:","--","","METHOD","UpDownControl","Controls.htm#115" ! "WindowStyle:","-- style","","METHOD","UpDownControl","Controls.htm#116" ! "AddStyle:","n --","","METHOD","UpDownControl","Controls.htm#117" ! "Start:","Parent --","","METHOD","UpDownControl","Controls.htm#118" ! "StartSize:","-- cx cy","","METHOD","UpDownControl","Controls.htm#119" ! "StartPos:","-- x y","","METHOD","UpDownControl","Controls.htm#120" ! "SetBuddy:","hBuddy --","","METHOD","UpDownControl","Controls.htm#121" ! "GetValue:","-- n","","METHOD","UpDownControl","Controls.htm#122" ! "SetValue:","n --","","METHOD","UpDownControl","Controls.htm#123" ! "SetDecimal:","--","","METHOD","UpDownControl","Controls.htm#124" ! "SetHex:","--","","METHOD","UpDownControl","Controls.htm#125" ! "GetBase:","-- n","","METHOD","UpDownControl","Controls.htm#126" ! "SetRange:","lower upper --","","METHOD","UpDownControl","Controls.htm#127" ! "GetRange:","-- lower upper","","METHOD","UpDownControl","Controls.htm#128" ! "Enable:","f --","","METHOD","UpDownControl","Controls.htm#129" ! "Disable:","--","","METHOD","UpDownControl","Controls.htm#130" ! "CheckBox","","","CLASS","","Controls.htm#132" ! "ClassInit:","--","","METHOD","CheckBox","Controls.htm#133" ! "WindowStyle:","-- style","","METHOD","CheckBox","Controls.htm#134" ! "AddStyle:","n --","","METHOD","CheckBox","Controls.htm#135" ! "IsButtonChecked?:","-- f","","METHOD","CheckBox","Controls.htm#136" ! "Enable:","f --","","METHOD","CheckBox","Controls.htm#137" ! "Disable:","--","","METHOD","CheckBox","Controls.htm#138" ! "Setfont:","handle --","","METHOD","CheckBox","Controls.htm#139" ! "RadioButton","","","CLASS","","Controls.htm#141" ! "ClassInit:","--","","METHOD","RadioButton","Controls.htm#142" ! "WindowStyle:","-- style","","METHOD","RadioButton","Controls.htm#143" ! "AddStyle:","n --","","METHOD","RadioButton","Controls.htm#144" ! "IsButtonChecked?:","-- f","","METHOD","RadioButton","Controls.htm#145" ! "CheckButton:","--","","METHOD","RadioButton","Controls.htm#146" ! "UnCheckButton:","--","","METHOD","RadioButton","Controls.htm#147" ! "Check:","f --","","METHOD","RadioButton","Controls.htm#148" ! "Enable:","f --","","METHOD","RadioButton","Controls.htm#149" ! "Disable:","--","","METHOD","RadioButton","Controls.htm#150" ! "Setfont:","handle --","","METHOD","RadioButton","Controls.htm#151" ! "GroupRadioButton","","","CLASS","","Controls.htm#153" ! "WindowStyle:","-- style","","METHOD","GroupRadioButton","Controls.htm#154" ! "PushButton","","","CLASS","","Controls.htm#156" ! "ClassInit:","--","","METHOD","PushButton","Controls.htm#157" ! "WindowStyle:","-- style","","METHOD","PushButton","Controls.htm#158" ! "AddStyle:","n --","","METHOD","PushButton","Controls.htm#159" ! "Setfont:","handle --","","METHOD","PushButton","Controls.htm#160" ! "Enable:","f --","","METHOD","PushButton","Controls.htm#161" ! "Disable:","--","","METHOD","PushButton","Controls.htm#162" ! "DefPushButton","","","CLASS","","Controls.htm#164" ! "WindowStyle:","-- style","","METHOD","DefPushButton","Controls.htm#165" ! "Label","","","CLASS","","Controls.htm#167" ! "ClassInit:","--","","METHOD","Label","Controls.htm#168" ! "WindowStyle:","-- style","","METHOD","Label","Controls.htm#169" ! "AddStyle:","n --","","METHOD","Label","Controls.htm#170" ! "Setfont:","handle --","","METHOD","Label","Controls.htm#171" ! "Enable:","f --","","METHOD","Label","Controls.htm#172" ! "Disable:","--","","METHOD","Label","Controls.htm#173" ! "StaticImage","","","|CLASS","","Controls.htm#175" ! "ImageType:","-- ImageType","","METHOD","StaticImage","Controls.htm#176" ! "GetImage:","-- hImage","","METHOD","StaticImage","Controls.htm#177" ! "SetImage:","hImage --","","METHOD","StaticImage","Controls.htm#178" ! "SetFont:","fhndl --","","METHOD","StaticImage","Controls.htm#179" ! "StaticBitmap","","","CLASS","","Controls.htm#181" ! "WindowStyle:","-- style","","METHOD","StaticBitmap","Controls.htm#182" ! "StaticIcon","","","CLASS","","Controls.htm#184" ! "WindowStyle:","-- style","","METHOD","StaticIcon","Controls.htm#185" ! "ImageType:","-- ImageType","","METHOD","StaticIcon","Controls.htm#186" ! "StaticMetafile","","","CLASS","","Controls.htm#188" ! "WindowStyle:","-- style","","METHOD","StaticMetafile","Controls.htm#189" ! "ImageType:","-- ImageType","","METHOD","StaticMetafile","Controls.htm#190" ! "StaticFrame","","","CLASS","","Controls.htm#192" ! "BlackRect:","--","","METHOD","StaticFrame","Controls.htm#193" ! "GrayRect:","--","","METHOD","StaticFrame","Controls.htm#194" ! "WhiteRect:","--","","METHOD","StaticFrame","Controls.htm#195" ! "BlackFrame:","--","","METHOD","StaticFrame","Controls.htm#196" ! "GrayFrame:","--","","METHOD","StaticFrame","Controls.htm#197" ! "WhiteFrame:","--","","METHOD","StaticFrame","Controls.htm#198" ! "EtchedFrame:","--","","METHOD","StaticFrame","Controls.htm#199" ! "SunkenFrame:","--","","METHOD","StaticFrame","Controls.htm#200" ! "GroupBox","","","CLASS","","Controls.htm#202" ! "ClassInit:","--","","METHOD","GroupBox","Controls.htm#203" ! "WindowStyle:","-- style","","METHOD","GroupBox","Controls.htm#204" ! "AddStyle:","n --","","METHOD","GroupBox","Controls.htm#205" ! "Setfont:","handle --","","METHOD","GroupBox","Controls.htm#206" ! "Enable:","f --","","METHOD","GroupBox","Controls.htm#207" ! "Disable:","--","","METHOD","GroupBox","Controls.htm#208" ! "Progressbar","","","CLASS","","Controls.htm#210" ! "Start:","Parent --","","METHOD","Progressbar","Controls.htm#211" ! "ClassInit:","--","","METHOD","Progressbar","Controls.htm#212" ! "WindowStyle:","-- style","","METHOD","Progressbar","Controls.htm#213" ! "AddStyle:","n --","","METHOD","Progressbar","Controls.htm#214" ! "+Value:","n --","","METHOD","Progressbar","Controls.htm#215" ! "GetValue:","-- n","","METHOD","Progressbar","Controls.htm#216" ! "SetValue:","n --","","METHOD","Progressbar","Controls.htm#217" ! "SetRange:","min max --","","METHOD","Progressbar","Controls.htm#218" ! "SetStep:","n --","","METHOD","Progressbar","Controls.htm#219" ! "GetStep:","-- n","","METHOD","Progressbar","Controls.htm#220" ! "StepIt:","--","","METHOD","Progressbar","Controls.htm#221" ! "SmoothProgressbar","","","CLASS","","Controls.htm#223" ! "WindowStyle:","-- style","","METHOD","SmoothProgressbar","Controls.htm#224" ! "Trackbar","","","CLASS","","Controls.htm#226" ! "Start:","Parent --","","METHOD","Trackbar","Controls.htm#227" ! "ClassInit:","--","","METHOD","Trackbar","Controls.htm#228" ! "WindowStyle:","-- style","","METHOD","Trackbar","Controls.htm#229" ! "AddStyle:","n --","","METHOD","Trackbar","Controls.htm#230" ! "GetLineSize:","-- n","","METHOD","Trackbar","Controls.htm#231" ! "SetLineSize:","n --","","METHOD","Trackbar","Controls.htm#232" ! "GetPageSize:","-- n","","METHOD","Trackbar","Controls.htm#233" ! "SetPageSize:","n --","","METHOD","Trackbar","Controls.htm#234" ! "GetValue:","-- n","","METHOD","Trackbar","Controls.htm#235" ! "SetValue:","n --","","METHOD","Trackbar","Controls.htm#236" ! "GetRangeMax:","-- n","","METHOD","Trackbar","Controls.htm#237" ! "SetRangeMax:","max f --","","METHOD","Trackbar","Controls.htm#238" ! "GetRangeMin:","-- n","","METHOD","Trackbar","Controls.htm#239" ! "SetRangeMin:","min f --","","METHOD","Trackbar","Controls.htm#240" ! "GetSelEnd:","-- n","","METHOD","Trackbar","Controls.htm#241" ! "SetSelEnd:","end f --","","METHOD","Trackbar","Controls.htm#242" ! "GetSelStart:","-- n","","METHOD","Trackbar","Controls.htm#243" ! "SetSelStart:","start f --","","METHOD","Trackbar","Controls.htm#244" ! "GetThumbLength:","-- n","","METHOD","Trackbar","Controls.htm#245" ! "SetThumbLength:","n --","","METHOD","Trackbar","Controls.htm#246" ! "GetChannelRect:","lpRect --","","METHOD","Trackbar","Controls.htm#247" ! "GetThumbRect:","lpRect --","","METHOD","Trackbar","Controls.htm#248" ! "GetTick:","iTic -- n","","METHOD","Trackbar","Controls.htm#249" ! "SetTick:","pos --","","METHOD","Trackbar","Controls.htm#250" ! "ClearTicks:","f --","","METHOD","Trackbar","Controls.htm#251" ! "GetTickPos:","iTic -- n","","METHOD","Trackbar","Controls.htm#252" ! "GetTicksPtr:","-- pointer","","METHOD","Trackbar","Controls.htm#253" ! "SetTickFreq:","pos freq --","","METHOD","Trackbar","Controls.htm#254" ! "GetNumTicks:","-- n","","METHOD","Trackbar","Controls.htm#255" ! "SetRange:","min max f --","","METHOD","Trackbar","Controls.htm#256" ! "SetSel:","min max f --","","METHOD","Trackbar","Controls.htm#257" ! "ClearSel:","f --","","METHOD","Trackbar","Controls.htm#258" ! "Enable:","f --","","METHOD","Trackbar","Controls.htm#259" ! "Disable:","--","","METHOD","Trackbar","Controls.htm#260" ! "VTrackBar","","","CLASS","","Controls.htm#262" ! "WindowStyle:","-- style","","METHOD","VTrackBar","Controls.htm#263" ! "Statusbar","","","CLASS","","Controls.htm#265" ! "ClassInit:","--","","METHOD","Statusbar","Controls.htm#266" ! "AddStyle:","n --","","METHOD","Statusbar","Controls.htm#267" ! "Start:","Parent --","","METHOD","Statusbar","Controls.htm#268" ! "WindowStyle:","-- style","","METHOD","Statusbar","Controls.htm#269" ! "RaisedBorder:","--","","METHOD","Statusbar","Controls.htm#270" ! "NoBorder:","--","","METHOD","Statusbar","Controls.htm#271" ! "SunkenBorder:","--","","METHOD","Statusbar","Controls.htm#272" ! "ClassInit:","--","","METHOD","Statusbar","Controls.htm#273" ! "MinHeight:","#pixels --","","METHOD","Statusbar","Controls.htm#274" ! "GetBorders:","-- hWidth vWidth divWidth","","METHOD","Statusbar","Controls.htm#275" ! "Redraw:","--","","METHOD","Statusbar","Controls.htm#276" ! "SetText:","szText --","","METHOD","Statusbar","Controls.htm#277" ! "Clear:","--","","METHOD","Statusbar","Controls.htm#278" ! "Setfont:","handle --","","METHOD","Statusbar","Controls.htm#279" ! "MultiStatusbar","","","CLASS","","Controls.htm#281" ! "Start:","Parent --","","METHOD","MultiStatusbar","Controls.htm#282" ! "SetParts:","aWidths nParts --","","METHOD","MultiStatusbar","Controls.htm#283" ! "GetParts:","-- aWidths nParts","","METHOD","MultiStatusbar","Controls.htm#284" ! "SetSimple:","--","","METHOD","MultiStatusbar","Controls.htm#285" ! "SetMulti:","--","","METHOD","MultiStatusbar","Controls.htm#286" ! "SetText:","szText n --","","METHOD","MultiStatusbar","Controls.htm#287" ! "BitmapButton","","","CLASS","","Controls.htm#289" ! "ClassInit:","--","","METHOD","BitmapButton","Controls.htm#290" ! "WindowStyle:","-- style","","METHOD","BitmapButton","Controls.htm#291" ! "IconButton","","","CLASS","","Controls.htm#293" ! "ClassInit:","--","","METHOD","IconButton","Controls.htm#294" ! "WindowStyle:","-- style","","METHOD","IconButton","Controls.htm#295" ! "SetIcon:","hIcon --","","METHOD","IconButton","Controls.htm#296" ! "GetIcon:","-- hIcon","","METHOD","IconButton","Controls.htm#297" ! "ScrollBar","","","|CLASS","","Controls.htm#299" ! "ClassInit:","--","","METHOD","ScrollBar","Controls.htm#300" ! "WindowStyle:","-- style","","METHOD","ScrollBar","Controls.htm#301" ! "AddStyle:","n --","","METHOD","ScrollBar","Controls.htm#302" ! "Start:","Parent --","","METHOD","ScrollBar","Controls.htm#303" ! "SetFont:","hndl --","","METHOD","ScrollBar","Controls.htm#304" ! "Enable:","f --","","METHOD","ScrollBar","Controls.htm#305" ! "Disable:","--","","METHOD","ScrollBar","Controls.htm#306" ! "HorizScroll","","","CLASS","","Controls.htm#307" ! "WindowStyle:","-- style","","METHOD","HorizScroll","Controls.htm#308" ! "VertScroll","","","CLASS","","Controls.htm#310" ! "WindowStyle:","-- style","","METHOD","VertScroll","Controls.htm#311" ! "SizeBox","","","CLASS","","Controls.htm#313" ! "WindowStyle:","-- style","","METHOD","SizeBox","Controls.htm#314" ! "MonthCalendar","","","CLASS","","Controls.htm#316" ! "ClassInit:","--","","METHOD","MonthCalendar","Controls.htm#317" ! "AddStyle:","n --","","METHOD","MonthCalendar","Controls.htm#318" ! "Start:","Parent --","","METHOD","MonthCalendar","Controls.htm#319" ! "MinSize:","-- x y","","METHOD","MonthCalendar","Controls.htm#320" ! "WindowStyle:","-- style","","METHOD","MonthCalendar","Controls.htm#321" ! "GetDate:","-- day month year","","METHOD","MonthCalendar","Controls.htm#322" ! "GetToday:","-- day month year","","METHOD","MonthCalendar","Controls.htm#323" ! "DateTimePicker","","","CLASS","","Controls.htm#325" ! "ClassInit:","--","","METHOD","DateTimePicker","Controls.htm#326" ! "AddStyle:","n --","","METHOD","DateTimePicker","Controls.htm#327" ! "Start:","Parent --","","METHOD","DateTimePicker","Controls.htm#328" ! "WindowStyle:","-- style","","METHOD","DateTimePicker","Controls.htm#329" ! "SetCustomFormat:","z""format"" --","","METHOD","DateTimePicker","Controls.htm#330" ! "GetTime:","-- hrs min secs","","METHOD","DateTimePicker","Controls.htm#331" ! "SetTime:","hr min sec --","","METHOD","DateTimePicker","Controls.htm#332" ! "GetDate:","-- day month year","","METHOD","DateTimePicker","Controls.htm#333" ! "TabControl","","","CLASS","","Controls.htm#335" ! "Start:","Parent --","","METHOD","TabControl","Controls.htm#336" ! "ClassInit:","--","","METHOD","TabControl","Controls.htm#337" ! "WindowStyle:","-- style","","METHOD","TabControl","Controls.htm#338" ! "AddStyle:","n --","","METHOD","TabControl","Controls.htm#339" ! "InsertTab:","index --","","METHOD","TabControl","Controls.htm#340" ! "GetTabInfo:","index --","","METHOD","TabControl","Controls.htm#341" ! "SetTabInfo:","index --","","METHOD","TabControl","Controls.htm#342" ! "ClientSize:","-- x y w h","","METHOD","TabControl","Controls.htm#343" ! "WindowSize:","0 0 width height -- x y w h","","METHOD","TabControl","Controls.htm#344" ! "Enable:","f --","","METHOD","TabControl","Controls.htm#345" ! "Disable:","--","","METHOD","TabControl","Controls.htm#346" ! "Setfont:","handle --","","METHOD","TabControl","Controls.htm#347" ! "WindowTitle:","-- null$","","METHOD","TabControl","Controls.htm#348" ! "VertButtonBar","","","CLASS","","Controls.htm#350" ! "SetFont:","fonthndl \ hb1 --","","METHOD","VertButtonBar","Controls.htm#351" ! "Enable:","flag \ hb1 --","","METHOD","VertButtonBar","Controls.htm#352" ! "Disable:","--","","METHOD","VertButtonBar","Controls.htm#353" ! "HorizButtonBar","","","CLASS","","Controls.htm#355" ! "SetFont:","fonthndl \ hb1 --","","METHOD","HorizButtonBar","Controls.htm#356" ! "Enable:","flag \ hb1 --","","METHOD","HorizButtonBar","Controls.htm#357" ! "Disable:","--","","METHOD","HorizButtonBar","Controls.htm#358" "MdiDialogWindow","","","CLASS","","MdiDialog.htm#0" "ClassInit:","--","","METHOD","MdiDialogWindow","MdiDialog.htm#1" *************** *** 1025,1031 **** "FATANH","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#99" "F~","-- flag ; fs: r1 r2 r3 --","ANSI Floating ext","COLON","","p-float.htm#100" ! "REPRESENT","addr u -- n flag1 flag2 ; fs: r --","ANSI Floating","COLON","","p-float.htm#101" ! ">FLOAT","addr len -- f ; fs: -- r | <nothing>","ANSI Floating","COLON","","p-float.htm#102" ! "f#","""fp no."" -- ; fs: -- r","W32F Floating extra","COLON","","p-float.htm#103" "PRECISION","-- u","ANSI Floating ext","COLON","","p-float.htm#104" "SET-PRECISION","u --","ANSI Floating ext","COLON","","p-float.htm#105" --- 1024,1030 ---- "FATANH","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#99" "F~","-- flag ; fs: r1 r2 r3 --","ANSI Floating ext","COLON","","p-float.htm#100" ! ">FLOAT","addr len -- f ; fs: -- r | <nothing>","ANSI Floating","COLON","","p-float.htm#101" ! "f#","""fp no."" -- ; fs: -- r","W32F Floating extra","COLON","","p-float.htm#102" ! "REPRESENT","addr u -- n flag1 flag2 ; fs: r --","ANSI Floating","COLON","","p-float.htm#103" "PRECISION","-- u","ANSI Floating ext","COLON","","p-float.htm#104" "SET-PRECISION","u --","ANSI Floating ext","COLON","","p-float.htm#105" *************** *** 1033,1041 **** "(F.)","addr -- ; fs: r --","W32F Floating extra","COLON","","p-float.htm#107" "(FE.)","addr -- ; fs: r --","W32F Floating extra","COLON","","p-float.htm#108" ! "(E.)","addr -- ; fs: r --","W32F Floating extra","COLON","","p-float.htm#109" ! "(G.)","addr -- ; fs: r --","W32F Floating extra","COLON","","p-float.htm#110" ! "(FS.)","E.","W32F Floating extra","SYNONYM","","p-float.htm#111" ! "f.s","--","W32F Floating debug","COLON","","p-float.htm#112" ! "fdump","--","W32F Floating debug","COLON","","p-float.htm#113" "MessageLoop","--","W32F console","COLON","","p-noconsole.htm#0" "NoConsoleIO","--","W32F console","COLON","","p-noconsole.htm#1" --- 1032,1045 ---- "(F.)","addr -- ; fs: r --","W32F Floating extra","COLON","","p-float.htm#107" "(FE.)","addr -- ; fs: r --","W32F Floating extra","COLON","","p-float.htm#108" ! "(FS.)","addr -- ; fs: r --","W32F Floating extra","COLON","","p-float.htm#109" ! "(E.)","FS.","W32F Floating extra","SYNONYM","","p-float.htm#110" ! "(G.)","addr -- ; fs: r --","W32F Floating extra","COLON","","p-float.htm#111" ! "F.","fs: r --","ANSI Floating ext","COLON","","p-float.htm#112" ! "FE.","fs: r --","ANSI Floating ext","COLON","","p-float.htm#113" ! "FS.","fs: r --","ANSI Floating ext","COLON","","p-float.htm#114" ! "E.","fs: r --","W32F Floating extra","SYNONYM","","p-float.htm#115" ! "G.","fs: r --","W32F Floating extra","COLON","","p-float.htm#116" ! "f.s","--","W32F Floating debug","COLON","","p-float.htm#117" ! "fdump","--","W32F Floating debug","COLON","","p-float.htm#118" "MessageLoop","--","W32F console","COLON","","p-noconsole.htm#0" "NoConsoleIO","--","W32F console","COLON","","p-noconsole.htm#1" Index: p-float.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-float.htm,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** p-float.htm 20 Feb 2006 12:06:13 -0000 1.15 --- p-float.htm 20 Feb 2006 12:32:44 -0000 1.16 *************** *** 39,43 **** <li><a href="#Sec#9">FP Comparison operators</a></li> <li><a href="#Sec#10">Arithmetic operators</a></li> ! <li><a href="#Sec#11">Trigonometric functions/a></li> <li><a href="#Sec#12">Inverse Trigonometric functions</a></li> <li><a href="#Sec#13">Logarithmic functions</a></li> --- 39,43 ---- <li><a href="#Sec#9">FP Comparison operators</a></li> <li><a href="#Sec#10">Arithmetic operators</a></li> ! <li><a href="#Sec#11">Trigonometric functions</a></li> <li><a href="#Sec#12">Inverse Trigonometric functions</a></li> <li><a href="#Sec#13">Logarithmic functions</a></li> |
|
From: George H. <geo...@us...> - 2006-02-20 12:06:24
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4132/win32forth/doc Modified Files: p-float.htm p-glossary.htm Log Message: gah: More Dexing (still work in progress) optimizations and bug fixes Index: p-glossary.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-glossary.htm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** p-glossary.htm 9 Feb 2006 18:04:10 -0000 1.6 --- p-glossary.htm 20 Feb 2006 12:06:13 -0000 1.7 *************** *** 1 **** ! <table border=1><tr><th>Name</th><th>Stack</th><th>Comment</th><th>Type</th><th>Class</th><th>File</th></tr><tr><th>Generic-Window</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Generic.htm#0</td></tr><tr><th>hWnd</th><td> </td><td> </td><td>INT ivar</td><td>Generic-Window</td><td>Generic.htm#1</td></tr><tr><th>Classinit:</th><td>--</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#2</td></tr><tr><th>GetHandle:</th><td>-- hWnd</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#3</td></tr><tr><th>PutHandle:</th><td>hWnd --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#4</td></tr><tr><th>ZeroWindow:</th><td>--</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#5</td></tr><tr><th>DestroyWindow:</th><td>--</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#6</td></tr><tr><th>Close:</th><td>--</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#7</td></tr><tr><th>Paint:</th><td>--</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#8</td></tr><tr><th>Show:</th><td>state --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#9</td></tr><tr><th>GDIFlush:</th><td>--</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#10</td></tr><tr><th>Update:</th><td>--</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#11</td></tr><tr><th>Scroll:</th><td>x y --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#12</td></tr><tr><th>Move:</th><td>x y w h --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#13</td></tr><tr><th>SetWindowPos:</th><td>x y --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#14</td></tr><tr><th>SetMenu:</th><td>MenuHandle --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#15</td></tr><tr><th>SetText:</th><td>addr len \ text$ --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#16</td></tr><tr><th>GetText:</th><td>-- addr len</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#17</td></tr><tr><th>SetTextAlign:</th><td>flag --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#18</td></tr><tr><th>GetDC:</th><td>-- hdc</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#19</td></tr><tr><th>GetWindowDC:</th><td>-- hdc</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#20</td></tr><tr><th>ReleaseDC:</th><td>hdc --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#21</td></tr><tr><th>BeginPaint:</th><td>ps -- hdc</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#22</td></tr><tr><th>EndPaint:</th><td>ps --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#23</td></tr><tr><th>GetClientRect:</th><td>rect --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#24</td></tr><tr><th>GetWindowLong:</th><td>index -- value</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#25</td></tr><tr><th>SetWindowLong:</th><td>value index -- oldval</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#26</td></tr><tr><th>GetStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#27</td></tr><tr><th>SetStyle:</th><td>style --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#28</td></tr><tr><th>+Style:</th><td>style --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#29</td></tr><tr><th>-Style:</th><td>style --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#30</td></tr><tr><th>SetFocus:</th><td>--</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#31</td></tr><tr><th>SetForegroundWindow:</th><td>--</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#32</td></tr><tr><th>SetActiveWindow:</th><td>--</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#33</td></tr><tr><th>MessageBox:</th><td>szText szTitle style -- result</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#34</td></tr><tr><th>InvalidateRect:</th><td>bgflag rectangle --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#35</td></tr><tr><th>GetDlgItem:</th><td>id -- handle</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#36</td></tr><tr><th>GetDlgItemText:</th><td>addr len id -- len</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#37</td></tr><tr><th>SetDlgItemText:</th><td>addr len id --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#38</td></tr><tr><th>SetDlgItemFocus:</th><td>id --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#39</td></tr><tr><th>SelectDlgItemAll:</th><td>id --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#40</td></tr><tr><th>IsDlgButtonChecked:</th><td>id -- f1</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#41</td></tr><tr><th>CheckDlgButton:</th><td>uCheck id --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#42</td></tr><tr><th>SetDlgItemAlign:</th><td>flag id --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#43</td></tr><tr><th>SetAlign:</th><td>flag id --</td><td>DEPRECATED</td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#44</td></tr><tr><th>EnableDlgItem:</th><td>flag id --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#45</td></tr><tr><th>ShowDlgItem:</th><td>flag id --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#46</td></tr><tr><th>CheckRadioButton:</th><td>check_id first_id last_id --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#47</td></tr><tr><th>SendDlgItemMessage:</th><td>lParam wParam message id -- long</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#48</td></tr><tr><th>SetDlgItemFont:</th><td>FontObject id --</td><td> </td><td>METHOD</td><td>Generic-Window</td><td>Generic.htm#49</td></tr><tr><th>Window</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Window.htm#0</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#1</td></tr><tr><th>GetSize:</th><td>-- w h</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#2</td></tr><tr><th>Width:</th><td>-- width</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#3</td></tr><tr><th>Height:</th><td>-- height</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#4</td></tr><tr><th>SetSize:</th><td>w h --</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#5</td></tr><tr><th>On_Size:</th><td>--</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#6</td></tr><tr><th>MinSize:</th><td>-- width height</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#7</td></tr><tr><th>MaxSize:</th><td>-- width height</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#8</td></tr><tr><th>StartSize:</th><td>-- width height</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#9</td></tr><tr><th>SetOrigin:</th><td>x y --</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#10</td></tr><tr><th>StartPos:</th><td>-- left top</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#11</td></tr><tr><th>On_Init:</th><td>--</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#12</td></tr><tr><th>On_Done:</th><td>--</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#13</td></tr><tr><th>SetClassName:</th><td>adr len --</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#14</td></tr><tr><th>GetClassName:</th><td>-- adr len</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#15</td></tr><tr><th>SetParent:</th><td>hwndParent --</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#16</td></tr><tr><th>ParentWindow:</th><td>-- hwndparent | 0 if no parent</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#17</td></tr><tr><th>DefaultCursor:</th><td>-- cursor-id</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#18</td></tr><tr><th>DefaultIcon:</th><td>-- hIcon</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#19</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#20</td></tr><tr><th>ExWindowStyle:</th><td>-- extended_style</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#21</td></tr><tr><th>WindowTitle:</th><td>-- Zstring</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#22</td></tr><tr><th>&ps</th><td> </td><td> </td><td>RECORD:</td><td>Window</td><td>Window.htm#24</td></tr><tr><th>On_EraseBackground:</th><td>hwnd msg wparam lparam -- res</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#25</td></tr><tr><th>On_Paint:</th><td>--</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#26</td></tr><tr><th>WindowHasMenu:</th><td>-- flag</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#27</td></tr><tr><th>MoveCursor:</th><td>gx gy --</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#28</td></tr><tr><th>MakeCursor:</th><td>gx gy width height --</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#29</td></tr><tr><th>DestroyCursor:</th><td>--</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#30</td></tr><tr><th>ShowCursor:</th><td>--</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#31</td></tr><tr><th>HideCursor:</th><td>--</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#32</td></tr><tr><th>On_SetFocus:</th><td>h m w l --</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#33</td></tr><tr><th>On_KillFocus:</th><td>h m w l --</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#34</td></tr><tr><th>PushKey:</th><td>c1 --</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#35</td></tr><tr><th>Win32Forth:</th><td>h m w l --</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#36</td></tr><tr><th>DefWindowProc:</th><td>h m w l -- res</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#37</td></tr><tr><th>CenterWindow:</th><td>-- x y</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#38</td></tr><tr><th>Enable:</th><td>f1 --</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#39</td></tr><tr><th>GetWindowRect:</th><td>-- left top right bottom</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#40</td></tr><tr><th>SetTitle:</th><td>adr len \ temp$ --</td><td> </td><td>METHOD</td><td>Window</td><td>Window.htm#41</td></tr><tr><th>find-window</th><td>z"a1 -- hWnd</td><td>w32f</td><td>COLON</td><td> </td><td>Window.htm#43</td></tr><tr><th>send-window</th><td>lParam wParam Message_ID hWnd --</td><td>w32f</td><td>COLON</td><td> </td><td>Window.htm#44</td></tr><tr><th>LoadIconFile</th><td>adr len -- hIcon</td><td>w32f</td><td>COLON</td><td> </td><td>Window.htm#45</td></tr><tr><th>TrayWindow</th><td> </td><td> </td><td>CLASS</td><td> </td><td>TrayWindow.htm#0</td></tr><tr><th>DefaultIcon:</th><td>-- hIcon</td><td> </td><td>METHOD</td><td>TrayWindow</td><td>TrayWindow.htm#1</td></tr><tr><th>GetTooltip:</th><td>-- addr len</td><td> </td><td>METHOD</td><td>TrayWindow</td><td>TrayWindow.htm#2</td></tr><tr><th>AddIcon:</th><td>--</td><td> </td><td>METHOD</td><td>TrayWindow</td><td>TrayWindow.htm#3</td></tr><tr><th>DeleteIcon:</th><td>--</td><td> </td><td>METHOD</td><td>TrayWindow</td><td>TrayWindow.htm#4</td></tr><tr><th>IsVisible?:</th><td>-- f</td><td> </td><td>METHOD</td><td>TrayWindow</td><td>TrayWindow.htm#5</td></tr><tr><th>ShowWindow:</th><td>--</td><td> </td><td>METHOD</td><td>TrayWindow</td><td>TrayWindow.htm#6</td></tr><tr><th>HideWindow:</th><td>--</td><td> </td><td>METHOD</td><td>TrayWindow</td><td>TrayWindow.htm#7</td></tr><tr><th>WM_SIZE</th><td>hWnd uMsg wParam lParam -- res</td><td> </td><td>METHOD</td><td>TrayWindow</td><td>TrayWindow.htm#8</td></tr><tr><th>WM_SYSCOMMAND</th><td>hWnd uMsg wParam lParam -- res</td><td> </td><td>METHOD</td><td>TrayWindow</td><td>TrayWindow.htm#9</td></tr><tr><th>On_IconNotify:</th><td>hWnd uMsg wParam lParam -- res</td><td> </td><td>METHOD</td><td>TrayWindow</td><td>TrayWindow.htm#10</td></tr><tr><th>Child-Window</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Childwnd.htm#0</td></tr><tr><th>GetParent:</th><td>-- parent</td><td> </td><td>METHOD</td><td>Child-Window</td><td>Childwnd.htm#1</td></tr><tr><th>SetID:</th><td>n --</td><td> </td><td>METHOD</td><td>Child-Window</td><td>Childwnd.htm#2</td></tr><tr><th>GetID:</th><td>-- n</td><td> </td><td>METHOD</td><td>Child-Window</td><td>Childwnd.htm#3</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>Child-Window</td><td>Childwnd.htm#4</td></tr><tr><th>ExWindowStyle:</th><td>-- extended_style</td><td> </td><td>METHOD</td><td>Child-Window</td><td>Childwnd.htm#5</td></tr><tr><th>WindowTitle:</th><td>-- Zstring</td><td> </td><td>METHOD</td><td>Child-Window</td><td>Childwnd.htm#6</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>Child-Window</td><td>Childwnd.htm#7</td></tr><tr><th>dialogID?</th><td>hdr ID -- f</td><td> </td><td>COLON</td><td> </td><td>Dialog.htm#0</td></tr><tr><th>find-dialog-ID</th><td>id addr -- address-of-template-header</td><td> </td><td>COLON</td><td> </td><td>Dialog.htm#1</td></tr><tr><th>load-dialog</th><td>-<filename-without-an-extension>-</td><td> </td><td>COLON</td><td> </td><td>Dialog.htm#2</td></tr><tr><th>Dialog</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Dialog.htm#3</td></tr><tr><th>Start:</th><td>parent -- flag</td><td> </td><td>METHOD</td><td>Dialog</td><td>Dialog.htm#4</td></tr><tr><th>EndDialog:</th><td>return-value --</td><td> </td><td>METHOD</td><td>Dialog</td><td>Dialog.htm#5</td></tr><tr><th>On_Init:</th><td>hwndfocus -- f</td><td> </td><td>METHOD</td><td>Dialog</td><td>Dialog.htm#6</td></tr><tr><th>On_Command:</th><td>hCtrl code ID -- f</td><td> </td><td>METHOD</td><td>Dialog</td><td>Dialog.htm#7</td></tr><tr><th>ModelessDialog</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Dialog.htm#9</td></tr><tr><th>WindowStyle:</th><td>-- n1</td><td> </td><td>METHOD</td><td>ModelessDialog</td><td>Dialog.htm#10</td></tr><tr><th>ExWindowStyle:</th><td>-- n1</td><td> </td><td>METHOD</td><td>ModelessDialog</td><td>Dialog.htm#11</td></tr><tr><th>Origin:</th><td>-- x y</td><td> </td><td>METHOD</td><td>ModelessDialog</td><td>Dialog.htm#12</td></tr><tr><th>Start:</th><td>parent --</td><td> </td><td>METHOD</td><td>ModelessDialog</td><td>Dialog.htm#13</td></tr><tr><th>EndDialog:</th><td>n1 --</td><td> </td><td>METHOD</td><td>ModelessDialog</td><td>Dialog.htm#14</td></tr><tr><th>Control</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Control.htm#0</td></tr><tr><th>GetParent:</th><td>-- parent</td><td> </td><td>METHOD</td><td>Control</td><td>Control.htm#1</td></tr><tr><th>GetHandleOfParent:</th><td>-- handleofparent</td><td> </td><td>METHOD</td><td>Control</td><td>Control.htm#2</td></tr><tr><th>SetID:</th><td>id --</td><td> </td><td>METHOD</td><td>Control</td><td>Control.htm#3</td></tr><tr><th>GetID:</th><td>-- id</td><td> </td><td>METHOD</td><td>Control</td><td>Control.htm#4</td></tr><tr><th>ExWindowStyle:</th><td>-- exstyle</td><td> </td><td>METHOD</td><td>Control</td><td>Control.htm#5</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>Control</td><td>Control.htm#6</td></tr><tr><th>StartSize:</th><td>-- width height</td><td> </td><td>METHOD</td><td>Control</td><td>Control.htm#7</td></tr><tr><th>StartPos:</th><td>-- left top</td><td> </td><td>METHOD</td><td>Control</td><td>Control.htm#8</td></tr><tr><th>CreateStruct:</th><td>-- CreateStrucPointer</td><td> </td><td>METHOD</td><td>Control</td><td>Control.htm#9</td></tr><tr><th>EditControl</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#0</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>EditControl</td><td>Controls.htm#1</td></tr><tr><th>StartSize:</th><td>-- width height</td><td> </td><td>METHOD</td><td>EditControl</td><td>Controls.htm#2</td></tr><tr><th>WindowStyle:</th><td>-- Style</td><td> </td><td>METHOD</td><td>EditControl</td><td>Controls.htm#3</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>EditControl</td><td>Controls.htm#4</td></tr><tr><th>SetWmChar:</th><td>pWmChar --</td><td> </td><td>METHOD</td><td>EditControl</td><td>Controls.htm#5</td></tr><tr><th>SetWmKeyDown:</th><td>pWmKeyDown --</td><td> </td><td>METHOD</td><td>EditControl</td><td>Controls.htm#6</td></tr><tr><th>SetWmKillFocus:</th><td>pWmKillFocus --</td><td> </td><td>METHOD</td><td>EditControl</td><td>Controls.htm#7</td></tr><tr><th>SubClass:</th><td>hWnd Parent --</td><td> </td><td>METHOD</td><td>EditControl</td><td>Controls.htm#8</td></tr><tr><th>ComboControl</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#10</td></tr><tr><th>StartSize:</th><td>-- width height</td><td> </td><td>METHOD</td><td>ComboControl</td><td>Controls.htm#11</td></tr><tr><th>WindowStyle:</th><td>-- Style</td><td> </td><td>METHOD</td><td>ComboControl</td><td>Controls.htm#12</td></tr><tr><th>SetWmChar:</th><td>pWmChar --</td><td> </td><td>METHOD</td><td>ComboControl</td><td>Controls.htm#13</td></tr><tr><th>SetWmKeyDown:</th><td>pWmKeyDown --</td><td> </td><td>METHOD</td><td>ComboControl</td><td>Controls.htm#14</td></tr><tr><th>SetWmKillFocus:</th><td>pWmKillFocus --</td><td> </td><td>METHOD</td><td>ComboControl</td><td>Controls.htm#15</td></tr><tr><th>InsertString:</th><td>adr len --</td><td> </td><td>METHOD</td><td>ComboControl</td><td>Controls.htm#16</td></tr><tr><th>GetString:</th><td>adr index --</td><td> </td><td>METHOD</td><td>ComboControl</td><td>Controls.htm#17</td></tr><tr><th>GetCount:</th><td>-- n1</td><td> </td><td>METHOD</td><td>ComboControl</td><td>Controls.htm#18</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>ComboControl</td><td>Controls.htm#19</td></tr><tr><th>ComboListControl</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#21</td></tr><tr><th>WindowStyle:</th><td>-- Style</td><td> </td><td>METHOD</td><td>ComboListControl</td><td>Controls.htm#22</td></tr><tr><th>ListControl</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#24</td></tr><tr><th>WindowStyle:</th><td>-- Style</td><td> </td><td>METHOD</td><td>ListControl</td><td>Controls.htm#25</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>ListControl</td><td>Controls.htm#26</td></tr><tr><th>GroupControl</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#28</td></tr><tr><th>WindowStyle:</th><td>-- Style</td><td> </td><td>METHOD</td><td>GroupControl</td><td>Controls.htm#29</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>GroupControl</td><td>Controls.htm#30</td></tr><tr><th>StaticControl</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#32</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>StaticControl</td><td>Controls.htm#33</td></tr><tr><th>CheckControl</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#35</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>CheckControl</td><td>Controls.htm#36</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>CheckControl</td><td>Controls.htm#37</td></tr><tr><th>RadioControl</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#39</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>RadioControl</td><td>Controls.htm#40</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>RadioControl</td><td>Controls.htm#41</td></tr><tr><th>ButtonControl</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#43</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>ButtonControl</td><td>Controls.htm#44</td></tr><tr><th>SetFunc:</th><td>cfa --</td><td> </td><td>METHOD</td><td>ButtonControl</td><td>Controls.htm#45</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>ButtonControl</td><td>Controls.htm#46</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>ButtonControl</td><td>Controls.htm#47</td></tr><tr><th>DialogWindow</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#49</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>DialogWindow</td><td>Controls.htm#50</td></tr><tr><th>TextBox</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#0</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#1</td></tr><tr><th>SetWmSetFocus:</th><td>xt --</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#2</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#3</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#4</td></tr><tr><th>Enable:</th><td>f --</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#5</td></tr><tr><th>Disable:</th><td>--</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#6</td></tr><tr><th>ReadOnly:</th><td>f --</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#7</td></tr><tr><th>SetSelection:</th><td>nEnd nStart --</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#8</td></tr><tr><th>GetSelection:</th><td>-- nEnd nStart</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#9</td></tr><tr><th>SelectAll:</th><td>--</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#10</td></tr><tr><th>RemoveSelection:</th><td>--</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#11</td></tr><tr><th>GetCursor:</th><td>-- n</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#12</td></tr><tr><th>IsModified?:</th><td>-- f</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#13</td></tr><tr><th>SetModify:</th><td>f --</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#14</td></tr><tr><th>NotModified:</th><td>--</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#15</td></tr><tr><th>Undo?:</th><td>-- f</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#16</td></tr><tr><th>Undo:</th><td>--</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#17</td></tr><tr><th>Redo?:</th><td>-- f</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#18</td></tr><tr><th>Redo:</th><td>--</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#19</td></tr><tr><th>Cut:</th><td>--</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#20</td></tr><tr><th>Copy:</th><td>--</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#21</td></tr><tr><th>Paste:</th><td>--</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#22</td></tr><tr><th>Clear:</th><td>--</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#23</td></tr><tr><th>SetFont:</th><td>handle --</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#24</td></tr><tr><th>SetTextLimit:</th><td>n --</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#25</td></tr><tr><th>GetTextEx:</th><td>buffer$ maxlen -- buffer$ len</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#26</td></tr><tr><th>SetTextZ:</th><td>addrz --</td><td> </td><td>METHOD</td><td>TextBox</td><td>Controls.htm#27</td></tr><tr><th>PassWordBox</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#29</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>PassWordBox</td><td>Controls.htm#30</td></tr><tr><th>MultiLineTextBox</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#32</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>MultiLineTextBox</td><td>Controls.htm#33</td></tr><tr><th>SetTabStops:</th><td>tabarray #tabs --</td><td> </td><td>METHOD</td><td>MultiLineTextBox</td><td>Controls.htm#34</td></tr><tr><th>DefaultTabs:</th><td>--</td><td> </td><td>METHOD</td><td>MultiLineTextBox</td><td>Controls.htm#35</td></tr><tr><th>SetMargins:</th><td>left right --</td><td> </td><td>METHOD</td><td>MultiLineTextBox</td><td>Controls.htm#36</td></tr><tr><th>SelectAll:</th><td>--</td><td> </td><td>METHOD</td><td>MultiLineTextBox</td><td>Controls.htm#37</td></tr><tr><th>GetLine:</th><td>-- n</td><td> </td><td>METHOD</td><td>MultiLineTextBox</td><td>Controls.htm#38</td></tr><tr><th>Wrap:</th><td>--</td><td> </td><td>METHOD</td><td>MultiLineTextBox</td><td>Controls.htm#39</td></tr><tr><th>Unwrap:</th><td>--</td><td> </td><td>METHOD</td><td>MultiLineTextBox</td><td>Controls.htm#40</td></tr><tr><th>GetLineCount:</th><td>-- n</td><td> </td><td>METHOD</td><td>MultiLineTextBox</td><td>Controls.htm#41</td></tr><tr><th>GetSelText:</th><td>addr -- n</td><td> </td><td>METHOD</td><td>MultiLineTextBox</td><td>Controls.htm#42</td></tr><tr><th>LineScroll:</th><td>n --</td><td> </td><td>METHOD</td><td>MultiLineTextBox</td><td>Controls.htm#43</td></tr><tr><th>RichEditControl</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#45</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>RichEditControl</td><td>Controls.htm#46</td></tr><tr><th>GetSelText:</th><td>addr -- n</td><td> </td><td>METHOD</td><td>RichEditControl</td><td>Controls.htm#47</td></tr><tr><th>GetLines:</th><td>-- nr</td><td> </td><td>METHOD</td><td>RichEditControl</td><td>Controls.htm#48</td></tr><tr><th>ComboBox</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#50</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#51</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#52</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#53</td></tr><tr><th>SetDir:</th><td>dirz$ attrib --</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#54</td></tr><tr><th>AddStringTo:</th><td>z"string" --</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#55</td></tr><tr><th>SetSelection:</th><td>n --</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#56</td></tr><tr><th>GetSelectedString:</th><td>-- addr cnt</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#57</td></tr><tr><th>Setfont:</th><td>handle --</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#58</td></tr><tr><th>InsertStringAt:</th><td>lpszString posn --</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#59</td></tr><tr><th>DeleteString:</th><td>index --</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#60</td></tr><tr><th>Clear:</th><td>--</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#61</td></tr><tr><th>Find:</th><td>lpszString -- index</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#62</td></tr><tr><th>FindExact:</th><td>lpszString -- index</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#63</td></tr><tr><th>GetCount:</th><td>-- n</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#64</td></tr><tr><th>SelectString:</th><td>lpszString -- index</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#65</td></tr><tr><th>GetStringAt:</th><td>index -- a n</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#66</td></tr><tr><th>GetCurrent:</th><td>-- index</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#67</td></tr><tr><th>Enable:</th><td>f --</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#68</td></tr><tr><th>Disable:</th><td>--</td><td> </td><td>METHOD</td><td>ComboBox</td><td>Controls.htm#69</td></tr><tr><th>ComboListBox</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#71</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>ComboListBox</td><td>Controls.htm#72</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>ComboListBox</td><td>Controls.htm#73</td></tr><tr><th>ListBox</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#75</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#76</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#77</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#78</td></tr><tr><th>SetDir:</th><td>dirz$ attrib --</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#79</td></tr><tr><th>Clear:</th><td>--</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#80</td></tr><tr><th>AddStringTo:</th><td>z"string" --</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#81</td></tr><tr><th>SetSelection:</th><td>n --</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#82</td></tr><tr><th>GetSelection:</th><td>-- n</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#83</td></tr><tr><th>GetString:</th><td>n addr -- n</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#84</td></tr><tr><th>GetSelectedString:</th><td>-- addr cnt</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#85</td></tr><tr><th>GetCount:</th><td>-- n</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#86</td></tr><tr><th>Setfont:</th><td>handle --</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#87</td></tr><tr><th>AddString:</th><td>lpszString --</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#88</td></tr><tr><th>InsertString:</th><td>lpszString index --</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#89</td></tr><tr><th>DeleteString:</th><td>index --</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#90</td></tr><tr><th>Find:</th><td>lpszString -- index</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#91</td></tr><tr><th>FindExact:</th><td>lpszString -- index</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#92</td></tr><tr><th>GetString:</th><td>index -- a n</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#93</td></tr><tr><th>GetCurrent:</th><td>-- index</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#94</td></tr><tr><th>SelectString:</th><td>lpszString -- index</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#95</td></tr><tr><th>GetState:</th><td>index -- f</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#96</td></tr><tr><th>Enable:</th><td>f --</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#97</td></tr><tr><th>Disable:</th><td>--</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#98</td></tr><tr><th>SetTabStops:</th><td>addr cnt --</td><td> </td><td>METHOD</td><td>ListBox</td><td>Controls.htm#99</td></tr><tr><th>MultiListbox</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#101</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>MultiListbox</td><td>Controls.htm#102</td></tr><tr><th>Select:</th><td>index --</td><td> </td><td>METHOD</td><td>MultiListbox</td><td>Controls.htm#103</td></tr><tr><th>Unselect:</th><td>index --</td><td> </td><td>METHOD</td><td>MultiListbox</td><td>Controls.htm#104</td></tr><tr><th>GetSelCount:</th><td>-- n</td><td> </td><td>METHOD</td><td>MultiListbox</td><td>Controls.htm#105</td></tr><tr><th>GetSelectedItems:</th><td>array cnt -- count</td><td> </td><td>METHOD</td><td>MultiListbox</td><td>Controls.htm#106</td></tr><tr><th>MultiExListbox</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#108</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>MultiExListbox</td><td>Controls.htm#109</td></tr><tr><th>DragListbox</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#111</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>DragListbox</td><td>Controls.htm#112</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>DragListbox</td><td>Controls.htm#113</td></tr><tr><th>UpDownControl</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#115</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#116</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#117</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#118</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#119</td></tr><tr><th>StartSize:</th><td>-- cx cy</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#120</td></tr><tr><th>StartPos:</th><td>-- x y</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#121</td></tr><tr><th>SetBuddy:</th><td>hBuddy --</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#122</td></tr><tr><th>GetValue:</th><td>-- n</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#123</td></tr><tr><th>SetValue:</th><td>n --</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#124</td></tr><tr><th>SetDecimal:</th><td>--</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#125</td></tr><tr><th>SetHex:</th><td>--</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#126</td></tr><tr><th>GetBase:</th><td>-- n</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#127</td></tr><tr><th>SetRange:</th><td>lower upper --</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#128</td></tr><tr><th>GetRange:</th><td>-- lower upper</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#129</td></tr><tr><th>Enable:</th><td>f --</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#130</td></tr><tr><th>Disable:</th><td>--</td><td> </td><td>METHOD</td><td>UpDownControl</td><td>Controls.htm#131</td></tr><tr><th>CheckBox</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#133</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>CheckBox</td><td>Controls.htm#134</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>CheckBox</td><td>Controls.htm#135</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>CheckBox</td><td>Controls.htm#136</td></tr><tr><th>IsButtonChecked?:</th><td>-- f</td><td> </td><td>METHOD</td><td>CheckBox</td><td>Controls.htm#137</td></tr><tr><th>Enable:</th><td>f --</td><td> </td><td>METHOD</td><td>CheckBox</td><td>Controls.htm#138</td></tr><tr><th>Disable:</th><td>--</td><td> </td><td>METHOD</td><td>CheckBox</td><td>Controls.htm#139</td></tr><tr><th>Setfont:</th><td>handle --</td><td> </td><td>METHOD</td><td>CheckBox</td><td>Controls.htm#140</td></tr><tr><th>RadioButton</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#142</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>RadioButton</td><td>Controls.htm#143</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>RadioButton</td><td>Controls.htm#144</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>RadioButton</td><td>Controls.htm#145</td></tr><tr><th>IsButtonChecked?:</th><td>-- f</td><td> </td><td>METHOD</td><td>RadioButton</td><td>Controls.htm#146</td></tr><tr><th>CheckButton:</th><td>--</td><td> </td><td>METHOD</td><td>RadioButton</td><td>Controls.htm#147</td></tr><tr><th>UnCheckButton:</th><td>--</td><td> </td><td>METHOD</td><td>RadioButton</td><td>Controls.htm#148</td></tr><tr><th>Check:</th><td>f --</td><td> </td><td>METHOD</td><td>RadioButton</td><td>Controls.htm#149</td></tr><tr><th>Enable:</th><td>f --</td><td> </td><td>METHOD</td><td>RadioButton</td><td>Controls.htm#150</td></tr><tr><th>Disable:</th><td>--</td><td> </td><td>METHOD</td><td>RadioButton</td><td>Controls.htm#151</td></tr><tr><th>Setfont:</th><td>handle --</td><td> </td><td>METHOD</td><td>RadioButton</td><td>Controls.htm#152</td></tr><tr><th>GroupRadioButton</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#154</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>GroupRadioButton</td><td>Controls.htm#155</td></tr><tr><th>PushButton</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#157</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>PushButton</td><td>Controls.htm#158</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>PushButton</td><td>Controls.htm#159</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>PushButton</td><td>Controls.htm#160</td></tr><tr><th>Setfont:</th><td>handle --</td><td> </td><td>METHOD</td><td>PushButton</td><td>Controls.htm#161</td></tr><tr><th>Enable:</th><td>f --</td><td> </td><td>METHOD</td><td>PushButton</td><td>Controls.htm#162</td></tr><tr><th>Disable:</th><td>--</td><td> </td><td>METHOD</td><td>PushButton</td><td>Controls.htm#163</td></tr><tr><th>DefPushButton</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#165</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>DefPushButton</td><td>Controls.htm#166</td></tr><tr><th>Label</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#168</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>Label</td><td>Controls.htm#169</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>Label</td><td>Controls.htm#170</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>Label</td><td>Controls.htm#171</td></tr><tr><th>Setfont:</th><td>handle --</td><td> </td><td>METHOD</td><td>Label</td><td>Controls.htm#172</td></tr><tr><th>Enable:</th><td>f --</td><td> </td><td>METHOD</td><td>Label</td><td>Controls.htm#173</td></tr><tr><th>Disable:</th><td>--</td><td> </td><td>METHOD</td><td>Label</td><td>Controls.htm#174</td></tr><tr><th>StaticImage</th><td> </td><td> </td><td>|CLASS</td><td> </td><td>Controls.htm#176</td></tr><tr><th>ImageType:</th><td>-- ImageType</td><td> </td><td>METHOD</td><td>StaticImage</td><td>Controls.htm#177</td></tr><tr><th>GetImage:</th><td>-- hImage</td><td> </td><td>METHOD</td><td>StaticImage</td><td>Controls.htm#178</td></tr><tr><th>SetImage:</th><td>hImage --</td><td> </td><td>METHOD</td><td>StaticImage</td><td>Controls.htm#179</td></tr><tr><th>SetFont:</th><td>fhndl --</td><td> </td><td>METHOD</td><td>StaticImage</td><td>Controls.htm#180</td></tr><tr><th>StaticBitmap</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#182</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>StaticBitmap</td><td>Controls.htm#183</td></tr><tr><th>StaticIcon</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#185</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>StaticIcon</td><td>Controls.htm#186</td></tr><tr><th>ImageType:</th><td>-- ImageType</td><td> </td><td>METHOD</td><td>StaticIcon</td><td>Controls.htm#187</td></tr><tr><th>StaticMetafile</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#189</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>StaticMetafile</td><td>Controls.htm#190</td></tr><tr><th>ImageType:</th><td>-- ImageType</td><td> </td><td>METHOD</td><td>StaticMetafile</td><td>Controls.htm#191</td></tr><tr><th>StaticFrame</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#193</td></tr><tr><th>BlackRect:</th><td>--</td><td> </td><td>METHOD</td><td>StaticFrame</td><td>Controls.htm#194</td></tr><tr><th>GrayRect:</th><td>--</td><td> </td><td>METHOD</td><td>StaticFrame</td><td>Controls.htm#195</td></tr><tr><th>WhiteRect:</th><td>--</td><td> </td><td>METHOD</td><td>StaticFrame</td><td>Controls.htm#196</td></tr><tr><th>BlackFrame:</th><td>--</td><td> </td><td>METHOD</td><td>StaticFrame</td><td>Controls.htm#197</td></tr><tr><th>GrayFrame:</th><td>--</td><td> </td><td>METHOD</td><td>StaticFrame</td><td>Controls.htm#198</td></tr><tr><th>WhiteFrame:</th><td>--</td><td> </td><td>METHOD</td><td>StaticFrame</td><td>Controls.htm#199</td></tr><tr><th>EtchedFrame:</th><td>--</td><td> </td><td>METHOD</td><td>StaticFrame</td><td>Controls.htm#200</td></tr><tr><th>SunkenFrame:</th><td>--</td><td> </td><td>METHOD</td><td>StaticFrame</td><td>Controls.htm#201</td></tr><tr><th>GroupBox</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#203</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>GroupBox</td><td>Controls.htm#204</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>GroupBox</td><td>Controls.htm#205</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>GroupBox</td><td>Controls.htm#206</td></tr><tr><th>Setfont:</th><td>handle --</td><td> </td><td>METHOD</td><td>GroupBox</td><td>Controls.htm#207</td></tr><tr><th>Enable:</th><td>f --</td><td> </td><td>METHOD</td><td>GroupBox</td><td>Controls.htm#208</td></tr><tr><th>Disable:</th><td>--</td><td> </td><td>METHOD</td><td>GroupBox</td><td>Controls.htm#209</td></tr><tr><th>Progressbar</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#211</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>Progressbar</td><td>Controls.htm#212</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>Progressbar</td><td>Controls.htm#213</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>Progressbar</td><td>Controls.htm#214</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>Progressbar</td><td>Controls.htm#215</td></tr><tr><th>+Value:</th><td>n --</td><td> </td><td>METHOD</td><td>Progressbar</td><td>Controls.htm#216</td></tr><tr><th>GetValue:</th><td>-- n</td><td> </td><td>METHOD</td><td>Progressbar</td><td>Controls.htm#217</td></tr><tr><th>SetValue:</th><td>n --</td><td> </td><td>METHOD</td><td>Progressbar</td><td>Controls.htm#218</td></tr><tr><th>SetRange:</th><td>min max --</td><td> </td><td>METHOD</td><td>Progressbar</td><td>Controls.htm#219</td></tr><tr><th>SetStep:</th><td>n --</td><td> </td><td>METHOD</td><td>Progressbar</td><td>Controls.htm#220</td></tr><tr><th>GetStep:</th><td>-- n</td><td> </td><td>METHOD</td><td>Progressbar</td><td>Controls.htm#221</td></tr><tr><th>StepIt:</th><td>--</td><td> </td><td>METHOD</td><td>Progressbar</td><td>Controls.htm#222</td></tr><tr><th>SmoothProgressbar</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#224</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>SmoothProgressbar</td><td>Controls.htm#225</td></tr><tr><th>Trackbar</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#227</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#228</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#229</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#230</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#231</td></tr><tr><th>GetLineSize:</th><td>-- n</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#232</td></tr><tr><th>SetLineSize:</th><td>n --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#233</td></tr><tr><th>GetPageSize:</th><td>-- n</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#234</td></tr><tr><th>SetPageSize:</th><td>n --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#235</td></tr><tr><th>GetValue:</th><td>-- n</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#236</td></tr><tr><th>SetValue:</th><td>n --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#237</td></tr><tr><th>GetRangeMax:</th><td>-- n</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#238</td></tr><tr><th>SetRangeMax:</th><td>max f --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#239</td></tr><tr><th>GetRangeMin:</th><td>-- n</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#240</td></tr><tr><th>SetRangeMin:</th><td>min f --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#241</td></tr><tr><th>GetSelEnd:</th><td>-- n</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#242</td></tr><tr><th>SetSelEnd:</th><td>end f --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#243</td></tr><tr><th>GetSelStart:</th><td>-- n</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#244</td></tr><tr><th>SetSelStart:</th><td>start f --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#245</td></tr><tr><th>GetThumbLength:</th><td>-- n</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#246</td></tr><tr><th>SetThumbLength:</th><td>n --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#247</td></tr><tr><th>GetChannelRect:</th><td>lpRect --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#248</td></tr><tr><th>GetThumbRect:</th><td>lpRect --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#249</td></tr><tr><th>GetTick:</th><td>iTic -- n</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#250</td></tr><tr><th>SetTick:</th><td>pos --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#251</td></tr><tr><th>ClearTicks:</th><td>f --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#252</td></tr><tr><th>GetTickPos:</th><td>iTic -- n</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#253</td></tr><tr><th>GetTicksPtr:</th><td>-- pointer</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#254</td></tr><tr><th>SetTickFreq:</th><td>pos freq --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#255</td></tr><tr><th>GetNumTicks:</th><td>-- n</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#256</td></tr><tr><th>SetRange:</th><td>min max f --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#257</td></tr><tr><th>SetSel:</th><td>min max f --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#258</td></tr><tr><th>ClearSel:</th><td>f --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#259</td></tr><tr><th>Enable:</th><td>f --</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#260</td></tr><tr><th>Disable:</th><td>--</td><td> </td><td>METHOD</td><td>Trackbar</td><td>Controls.htm#261</td></tr><tr><th>VTrackBar</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#263</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>VTrackBar</td><td>Controls.htm#264</td></tr><tr><th>Statusbar</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#266</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>Statusbar</td><td>Controls.htm#267</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>Statusbar</td><td>Controls.htm#268</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>Statusbar</td><td>Controls.htm#269</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>Statusbar</td><td>Controls.htm#270</td></tr><tr><th>RaisedBorder:</th><td>--</td><td> </td><td>METHOD</td><td>Statusbar</td><td>Controls.htm#271</td></tr><tr><th>NoBorder:</th><td>--</td><td> </td><td>METHOD</td><td>Statusbar</td><td>Controls.htm#272</td></tr><tr><th>SunkenBorder:</th><td>--</td><td> </td><td>METHOD</td><td>Statusbar</td><td>Controls.htm#273</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>Statusbar</td><td>Controls.htm#274</td></tr><tr><th>MinHeight:</th><td>#pixels --</td><td> </td><td>METHOD</td><td>Statusbar</td><td>Controls.htm#275</td></tr><tr><th>GetBorders:</th><td>-- hWidth vWidth divWidth</td><td> </td><td>METHOD</td><td>Statusbar</td><td>Controls.htm#276</td></tr><tr><th>Redraw:</th><td>--</td><td> </td><td>METHOD</td><td>Statusbar</td><td>Controls.htm#277</td></tr><tr><th>SetText:</th><td>szText --</td><td> </td><td>METHOD</td><td>Statusbar</td><td>Controls.htm#278</td></tr><tr><th>Clear:</th><td>--</td><td> </td><td>METHOD</td><td>Statusbar</td><td>Controls.htm#279</td></tr><tr><th>Setfont:</th><td>handle --</td><td> </td><td>METHOD</td><td>Statusbar</td><td>Controls.htm#280</td></tr><tr><th>MultiStatusbar</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#282</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>MultiStatusbar</td><td>Controls.htm#283</td></tr><tr><th>SetParts:</th><td>aWidths nParts --</td><td> </td><td>METHOD</td><td>MultiStatusbar</td><td>Controls.htm#284</td></tr><tr><th>GetParts:</th><td>-- aWidths nParts</td><td> </td><td>METHOD</td><td>MultiStatusbar</td><td>Controls.htm#285</td></tr><tr><th>SetSimple:</th><td>--</td><td> </td><td>METHOD</td><td>MultiStatusbar</td><td>Controls.htm#286</td></tr><tr><th>SetMulti:</th><td>--</td><td> </td><td>METHOD</td><td>MultiStatusbar</td><td>Controls.htm#287</td></tr><tr><th>SetText:</th><td>szText n --</td><td> </td><td>METHOD</td><td>MultiStatusbar</td><td>Controls.htm#288</td></tr><tr><th>BitmapButton</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#290</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>BitmapButton</td><td>Controls.htm#291</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>BitmapButton</td><td>Controls.htm#292</td></tr><tr><th>IconButton</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#294</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>IconButton</td><td>Controls.htm#295</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>IconButton</td><td>Controls.htm#296</td></tr><tr><th>SetIcon:</th><td>hIcon --</td><td> </td><td>METHOD</td><td>IconButton</td><td>Controls.htm#297</td></tr><tr><th>GetIcon:</th><td>-- hIcon</td><td> </td><td>METHOD</td><td>IconButton</td><td>Controls.htm#298</td></tr><tr><th>ScrollBar</th><td> </td><td> </td><td>|CLASS</td><td> </td><td>Controls.htm#300</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>ScrollBar</td><td>Controls.htm#301</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>ScrollBar</td><td>Controls.htm#302</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>ScrollBar</td><td>Controls.htm#303</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>ScrollBar</td><td>Controls.htm#304</td></tr><tr><th>SetFont:</th><td>hndl --</td><td> </td><td>METHOD</td><td>ScrollBar</td><td>Controls.htm#305</td></tr><tr><th>Enable:</th><td>f --</td><td> </td><td>METHOD</td><td>ScrollBar</td><td>Controls.htm#306</td></tr><tr><th>Disable:</th><td>--</td><td> </td><td>METHOD</td><td>ScrollBar</td><td>Controls.htm#307</td></tr><tr><th>HorizScroll</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#308</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>HorizScroll</td><td>Controls.htm#309</td></tr><tr><th>VertScroll</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#311</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>VertScroll</td><td>Controls.htm#312</td></tr><tr><th>SizeBox</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#314</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>SizeBox</td><td>Controls.htm#315</td></tr><tr><th>MonthCalendar</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#317</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>MonthCalendar</td><td>Controls.htm#318</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>MonthCalendar</td><td>Controls.htm#319</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>MonthCalendar</td><td>Controls.htm#320</td></tr><tr><th>MinSize:</th><td>-- x y</td><td> </td><td>METHOD</td><td>MonthCalendar</td><td>Controls.htm#321</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>MonthCalendar</td><td>Controls.htm#322</td></tr><tr><th>GetDate:</th><td>-- day month year</td><td> </td><td>METHOD</td><td>MonthCalendar</td><td>Controls.htm#323</td></tr><tr><th>GetToday:</th><td>-- day month year</td><td> </td><td>METHOD</td><td>MonthCalendar</td><td>Controls.htm#324</td></tr><tr><th>DateTimePicker</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#326</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>DateTimePicker</td><td>Controls.htm#327</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>DateTimePicker</td><td>Controls.htm#328</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>DateTimePicker</td><td>Controls.htm#329</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>DateTimePicker</td><td>Controls.htm#330</td></tr><tr><th>SetCustomFormat:</th><td>z"format" --</td><td> </td><td>METHOD</td><td>DateTimePicker</td><td>Controls.htm#331</td></tr><tr><th>GetTime:</th><td>-- hrs min secs</td><td> </td><td>METHOD</td><td>DateTimePicker</td><td>Controls.htm#332</td></tr><tr><th>SetTime:</th><td>hr min sec --</td><td> </td><td>METHOD</td><td>DateTimePicker</td><td>Controls.htm#333</td></tr><tr><th>GetDate:</th><td>-- day month year</td><td> </td><td>METHOD</td><td>DateTimePicker</td><td>Controls.htm#334</td></tr><tr><th>TabControl</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#336</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>TabControl</td><td>Controls.htm#337</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>TabControl</td><td>Controls.htm#338</td></tr><tr><th>WindowStyle:</th><td>-- style</td><td> </td><td>METHOD</td><td>TabControl</td><td>Controls.htm#339</td></tr><tr><th>AddStyle:</th><td>n --</td><td> </td><td>METHOD</td><td>TabControl</td><td>Controls.htm#340</td></tr><tr><th>InsertTab:</th><td>index --</td><td> </td><td>METHOD</td><td>TabControl</td><td>Controls.htm#341</td></tr><tr><th>GetTabInfo:</th><td>index --</td><td> </td><td>METHOD</td><td>TabControl</td><td>Controls.htm#342</td></tr><tr><th>SetTabInfo:</th><td>index --</td><td> </td><td>METHOD</td><td>TabControl</td><td>Controls.htm#343</td></tr><tr><th>ClientSize:</th><td>-- x y w h</td><td> </td><td>METHOD</td><td>TabControl</td><td>Controls.htm#344</td></tr><tr><th>WindowSize:</th><td>0 0 width height -- x y w h</td><td> </td><td>METHOD</td><td>TabControl</td><td>Controls.htm#345</td></tr><tr><th>Enable:</th><td>f --</td><td> </td><td>METHOD</td><td>TabControl</td><td>Controls.htm#346</td></tr><tr><th>Disable:</th><td>--</td><td> </td><td>METHOD</td><td>TabControl</td><td>Controls.htm#347</td></tr><tr><th>Setfont:</th><td>handle --</td><td> </td><td>METHOD</td><td>TabControl</td><td>Controls.htm#348</td></tr><tr><th>WindowTitle:</th><td>-- null$</td><td> </td><td>METHOD</td><td>TabControl</td><td>Controls.htm#349</td></tr><tr><th>VertButtonBar</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#351</td></tr><tr><th>SetFont:</th><td>fonthndl \ hb1 --</td><td> </td><td>METHOD</td><td>VertButtonBar</td><td>Controls.htm#352</td></tr><tr><th>Enable:</th><td>flag \ hb1 --</td><td> </td><td>METHOD</td><td>VertButtonBar</td><td>Controls.htm#353</td></tr><tr><th>Disable:</th><td>--</td><td> </td><td>METHOD</td><td>VertButtonBar</td><td>Controls.htm#354</td></tr><tr><th>HorizButtonBar</th><td> </td><td> </td><td>CLASS</td><td> </td><td>Controls.htm#356</td></tr><tr><th>SetFont:</th><td>fonthndl \ hb1 --</td><td> </td><td>METHOD</td><td>HorizButtonBar</td><td>Controls.htm#357</td></tr><tr><th>Enable:</th><td>flag \ hb1 --</td><td> </td><td>METHOD</td><td>HorizButtonBar</td><td>Controls.htm#358</td></tr><tr><th>Disable:</th><td>--</td><td> </td><td>METHOD</td><td>HorizButtonBar</td><td>Controls.htm#359</td></tr><tr><th>MdiDialogWindow</th><td> </td><td> </td><td>CLASS</td><td> </td><td>MdiDialog.htm#0</td></tr><tr><th>ClassInit:</th><td>--</td><td> </td><td>METHOD</td><td>MdiDialogWindow</td><td>MdiDialog.htm#1</td></tr><tr><th>~:</th><td>--</td><td> </td><td>METHOD</td><td>MdiDialogWindow</td><td>MdiDialog.htm#2</td></tr><tr><th>AXControl</th><td> </td><td> </td><td>CLASS</td><td> </td><td>AXControl.htm#0</td></tr><tr><th>AXUCreate:</th><td>ustr --</td><td> </td><td>METHOD</td><td>AXControl</td><td>AXControl.htm#1</td></tr><tr><th>AXCreate:</th><td>str len --</td><td> </td><td>METHOD</td><td>AXControl</td><td>AXControl.htm#2</td></tr><tr><th>QueryInterface:</th><td>ppv riid -- flag</td><td> </td><td>METHOD</td><td>AXControl</td><td>AXControl.htm#3</td></tr><tr><th>HTMLControl</th><td> </td><td> </td><td>CLASS</td><td> </td><td>HTMLcontrol.htm#0</td></tr><tr><th>Start:</th><td>Parent --</td><td> </td><td>METHOD</td><td>HTMLControl</td><td... [truncated message content] |
1040 messages has been excluded from this view by a project administrator.
