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: Dirk B. <db...@us...> - 2006-05-28 09:48:26
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5515/doc Modified Files: p-classes.htm Log Message: Documentation for the TabControl class added. Index: p-classes.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-classes.htm,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** p-classes.htm 26 Feb 2006 07:27:42 -0000 1.11 --- p-classes.htm 28 May 2006 09:48:21 -0000 1.12 *************** *** 90,93 **** --- 90,99 ---- <li><a href="./classes/Controls.htm#ButtonControl">ButtonControl</a> Class for push button controls.</li> </ul> + + <h3>Other controls</h3> + <ul> + <li><a href="./classes/Controls.htm#TabControl">TabControl</a> Class for tabulator controls.</li> + </ul> + </ul> |
|
From: Dirk B. <db...@us...> - 2006-05-28 09:05:42
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22849/demos Added Files: TabControlDemo.f Log Message: New demo for a window that contains a tabulator control. Within the client area of the tabulator control listview controls are displayed. --- NEW FILE: TabControlDemo.f --- \ $Id: TabControlDemo.f,v 1.1 2006/05/28 09:05:31 dbu_de Exp $ \ \ Demo for a window that contains a tabulator control. \ Within the client area of the tabulator control listview controls \ are displayed. \ \ Written by Dirk Busch needs ExControls.f Needs ListView.f anew -TabControlDemo.f internal external \ ------------------------------------------------------------------------ \ ------------------------------------------------------------------------ :class TabControlEx <super TabControl :M WndClassStyle: ( -- style ) \ Set the style member of the the WNDCLASS structure. CS_DBLCLKS ;M :M Start: ( Parent -- ) Start: super DEFAULT_GUI_FONT call GetStockObject SetFont: self ;M ;class \ ------------------------------------------------------------------------ \ ------------------------------------------------------------------------ :class ListViewEx <super ListView :M WindowStyle: ( -- style ) WindowStyle: super [ LVS_REPORT LVS_SHOWSELALWAYS OR LVS_EDITLABELS or ] literal or ;M :M WndClassStyle: ( -- style ) \ Set the style member of the the WNDCLASS structure. CS_DBLCLKS ;M ;class \ ------------------------------------------------------------------------ \ ------------------------------------------------------------------------ :object DemoWindow <super Window TabControlEx cTab ListViewEx cFileList ListViewEx cBrowserList LV_ITEM LvItem LV_COLUMN lvc :M ReSize: ( -- ) \ Resize the controls within the main window. AutoSize: cTab ClientSize: cTab Move: cFileList ClientSize: cTab Move: cBrowserList ;M :M On_Size: ( -- ) \ Handle the WM_SIZE message. On_Size: super \ Note: This method can be called before the controls within the window \ are created, so we should better check if the parent of the tab control \ is valid or not! GetParent: cTab if ReSize: self then ;M :M SelChange: ( -- ) \ Show the listview control for the currently selected tab. GetSelectedTab: cTab 0= if SW_HIDE Show: cBrowserList SW_SHOW Show: cFileList else SW_HIDE Show: cFileList SW_SHOW Show: cBrowserList then ;M : selchange-func { lParam obj \ Parent -- false } \ This function es executed when the currently selected tab has changed. \ lParam is the adress of the Address of an NMHDR structure. \ obj is the address of the TabControl object that has send the \ notification message. GetParent: obj to Parent SelChange: Parent false ; :M WM_NOTIFY ( h m w l -- f ) \ Handle the notification messages of the tab control. dup @ GetHandle: cTab = if Handle_Notify: cTab then false ;M :M Start: ( -- ) Start: super self Start: cFileList self Start: cBrowserList self Start: cTab \ ------------------------------------------------------------------------ ['] selchange-func IsChangeFunc: cTab TCIF_TEXT IsMask: cTab z" Files" IsPszText: cTab 1 InsertTab: cTab TCIF_TEXT IsMask: cTab z" Browser" IsPszText: cTab 2 InsertTab: cTab \ ------------------------------------------------------------------------ [ LVCF_FMT LVCF_WIDTH or LVCF_TEXT or LVCF_SUBITEM or ] literal Setmask: lvc LVCFMT_LEFT Setfmt: lvc 50 Setcx: lvc z" Files" SetpszText: lvc Addr: lvc 1 InsertColumn: cFileList drop z" Words" SetpszText: lvc Addr: lvc 1 InsertColumn: cBrowserList drop \ ------------------------------------------------------------------------ LVIF_TEXT SetMask: LvItem z" File 1" SetpszText: LvItem Addr: LvItem InsertItem: cFileList drop z" File 2" SetpszText: LvItem Addr: LvItem InsertItem: cFileList drop z" abc" SetpszText: LvItem Addr: LvItem InsertItem: cBrowserList drop z" def" SetpszText: LvItem Addr: LvItem InsertItem: cBrowserList drop \ ------------------------------------------------------------------------ ReSize: self \ resize the controls within the main window SelChange: self \ show the control for the currently selected tab ;M :M WindowTitle: ( -- Zstring ) \ Set the window caption. Default is "Window". z" Tabulator control Demo" ;M ;object module Start: DemoWindow |
|
From: Jos v.d.V. <jo...@us...> - 2006-05-27 19:13:39
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7788/apps/Player4 Modified Files: PLAYER4.F Log Message: Jos: The button NEXT can now be activated by the fire button. Quite fun when you have a cordless joystick. Then you have a kind of remote control. Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.56 retrieving revision 1.57 diff -C2 -d -r1.56 -r1.57 *** PLAYER4.F 25 May 2006 15:36:50 -0000 1.56 --- PLAYER4.F 27 May 2006 19:13:33 -0000 1.57 *************** *** 32,36 **** --- 32,38 ---- needs multiopen.f needs AcceleratorTables.f + needs Joystick.f + 200 value IDJoystick defer PLAYER ' noop is PLAYER defer RefreshCatalog ' noop is RefreshCatalog *************** *** 239,245 **** --- 241,264 ---- addr: self to player-base RefreshCatalog + FindFirstJoyStick dup to IDJoystick + MaxJoysticks < + if 0 250 1 hWnd Call SetTimer drop + then ;M + :M WM_TIMER ( hm wl -- res >>> ) \ handle the WM_TIMER events + 2drop IDJoystick GetJoystickInfo 1 = + if IDM_NEXT DoCommand + begin IDJoystick GetJoystickInfo 2nip nip 0= + until + 3drop + then + 0 + ;M + :M On_Done: ( h m w l -- res ) + MaxJoysticks < + if 1 hWnd Call KillTimer + then Close: self 0 call PostQuitMessage drop *************** *** 498,502 **** : Player-Loop ( -- ) ! turnkey? if begin player again then ; : PLAYER4 ( -- ) --- 517,521 ---- : Player-Loop ( -- ) ! turnkey? if begin player again then ; : PLAYER4 ( -- ) |
|
From: Jos v.d.V. <jo...@us...> - 2006-05-27 15:13:48
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16558/src/lib Added Files: Joystick.f Log Message: Jos: Added joystick support. --- NEW FILE: Joystick.f --- Anew -joystick.f INTERNAL WinLibrary WINMM.DLL EXTERNAL Needs ExtStruct.f :struct joycapsa WORD wMid; /* manufacturer ID */ WORD wPid; /* product ID */ MAXPNAMELEN Field: szPname /* product name (NULL terminated string) */ UINT wXmin; /* minimum x position value */ UINT wXmax; /* maximum x position value */ UINT wYmin; /* minimum y position value */ UINT wYmax; /* maximum y position value */ UINT wZmin; /* minimum z position value */ UINT wZmax; /* maximum z position value */ UINT wNumButtons; /* number of buttons */ UINT wPeriodMin; /* minimum message period when captured */ UINT wPeriodMax; /* maximum message period when captured */ UINT wRmin; /* minimum r position value */ UINT wRmax; /* maximum r position value */ UINT wUmin; /* minimum u (5th axis) position value */ UINT wUmax; /* maximum u (5th axis) position value */ UINT wVmin; /* minimum v (6th axis) position value */ UINT wVmax; /* maximum v (6th axis) position value */ UINT wCaps; /* joystick capabilites */ UINT wMaxAxes; /* maximum number of axes supported */ UINT wNumAxes; /* number of axes in use */ UINT wMaxButtons; /* maximum number of buttons supported */ maxpnamelen Field: szRegKey /* registry key */ max_joystickoemvxdname Field: szOEMVxD /* OEM VxD in use */ ;struct sizeof joycapsa mkstruct: *lpjoycapsa :struct joyinfo UINT wXpos /* x position */ UINT wYpos /* y position */ UINT wZpos /* z position */ UINT wButtons /* button states */ ;struct sizeof joyinfo mkstruct: *lpjoyinfo :struct joyinfoex DWORD dwSize; /* size of structure */ DWORD dwFlags; /* flags to indicate what to return */ DWORD dwXpos; /* x position */ DWORD dwYpos; /* y position */ DWORD dwZpos; /* z position */ DWORD dwRpos; /* rudder/4th axis position */ DWORD dwUpos; /* 5th axis position */ DWORD dwVpos; /* 6th axis position */ DWORD dwButtons; /* button states */ DWORD dwButtonNumber; /* current button number pressed */ DWORD dwPOV; /* point of view state */ DWORD dwReserved1; /* reserved for communication between winmm & driver */ DWORD dwReserved2; /* reserved for future expansion */ ;struct sizeof joyinfoex mkstruct: *lpjoyinfoex : GetJoystickInfo ( id -- x y z buttons ) *lpjoyinfo [ sizeof joyinfo ] literal erase *lpjoyinfo swap Call joyGetPos drop struct, *lpjoyinfo joyinfo wXpos @ struct, *lpjoyinfo joyinfo wYpos @ struct, *lpjoyinfo joyinfo wZpos @ struct, *lpjoyinfo joyinfo wButtons @ ; 4 constant MaxJoysticks : FindFirstJoyStick ( - *lpjoycapsa ID ) \ ID should be <= MaxJoysticks *lpjoycapsa [ sizeof JOYCAPSA ] literal 2dup erase swap MaxJoysticks 0 do 2dup i Call joyGetDevCaps 0= if nip I leave then loop ; \s Test and demo: : JoystickTest ( - ) \ Move the joystick and press some buttons FindFirstJoyStick nip dup MaxJoysticks < if begin cr dup GetJoystickInfo dup>r . . . . 20 ms r> 1 = until \ the fire button has been pressed drop ." The fire button has been pressed." else cr ." No joystick found." then ; JoystickTest \s |
|
From: Dirk B. <db...@us...> - 2006-05-27 09:00:31
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/installer In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7758 Modified Files: Files.nsi Uninstall.nsi Win32Forth.nsi Removed Files: temp.nsi Log Message: New Version 6.11.09 released at www.win32forth.org. Index: Files.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Files.nsi,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Files.nsi 15 Jan 2006 11:06:36 -0000 1.2 --- Files.nsi 27 May 2006 09:00:27 -0000 1.3 *************** *** 92,95 **** --- 92,97 ---- SetOutPath "$INSTDIR\apps\Player4\" File "..\..\..\win32forth\apps\Player4\Catalog.f" + File "..\..\..\win32forth\apps\Player4\CommandID.f" + File "..\..\..\win32forth\apps\Player4\Commands.f" File "..\..\..\win32forth\apps\Player4\MciInterface.f" File "..\..\..\win32forth\apps\Player4\MciVideo.f" *************** *** 107,110 **** --- 109,113 ---- File "..\..\..\win32forth\apps\Player4\Pl_Toolset.f" File "..\..\..\win32forth\apps\Player4\Pl_Version.f" + File "..\..\..\win32forth\apps\Player4\PopupWindow.f" File "..\..\..\win32forth\apps\Player4\View.f" File "..\..\..\win32forth\apps\Player4\view.ff" *************** *** 195,198 **** --- 198,202 ---- SetOutPath "$INSTDIR\apps\Sudoku\" File "..\..\..\win32forth\apps\Sudoku\Applause7.wav" + File "..\..\..\win32forth\apps\Sudoku\Readme.rtf" File "..\..\..\win32forth\apps\Sudoku\Sudoku.f" File "..\..\..\win32forth\apps\Sudoku\Sudoku.fpj" *************** *** 322,325 **** --- 326,330 ---- File "..\..\..\win32forth\demos\HtmlControlDemo.f" File "..\..\..\win32forth\demos\HtmlDisplay.f" + File "..\..\..\win32forth\demos\ListViewDemo.f" File "..\..\..\win32forth\demos\MDIDialogExample.f" File "..\..\..\win32forth\demos\MDIExample.f" *************** *** 362,365 **** --- 367,371 ---- File "..\..\..\win32forth\doc\COPYASM.486.LGPL" File "..\..\..\win32forth\doc\DIALOGRC.TXT" + File "..\..\..\win32forth\doc\FloadCmdLine.htm" File "..\..\..\win32forth\doc\FORTHPRO.gif" File "..\..\..\win32forth\doc\Forth_Primer.pdf" *************** *** 374,377 **** --- 380,384 ---- File "..\..\..\win32forth\doc\p-arch3.htm" File "..\..\..\win32forth\doc\p-architecture.htm" + File "..\..\..\win32forth\doc\p-callback.htm" File "..\..\..\win32forth\doc\p-chains.htm" File "..\..\..\win32forth\doc\p-classdbg.htm" *************** *** 380,385 **** --- 387,394 ---- File "..\..\..\win32forth\doc\p-dexh.htm" File "..\..\..\win32forth\doc\p-faq.htm" + File "..\..\..\win32forth\doc\p-float.htm" File "..\..\..\win32forth\doc\p-gethelp.htm" File "..\..\..\win32forth\doc\p-getstart.htm" + File "..\..\..\win32forth\doc\p-glossary.htm" File "..\..\..\win32forth\doc\p-history.htm" File "..\..\..\win32forth\doc\p-imageman.htm" *************** *** 388,391 **** --- 397,401 ---- File "..\..\..\win32forth\doc\p-locals.htm" File "..\..\..\win32forth\doc\p-module.htm" + File "..\..\..\win32forth\doc\p-noconsole.htm" File "..\..\..\win32forth\doc\p-numconv.htm" File "..\..\..\win32forth\doc\p-objects.htm" *************** *** 412,415 **** --- 422,426 ---- File "..\..\..\win32forth\doc\UP.GIF" File "..\..\..\win32forth\doc\UTILDOC.TXT" + File "..\..\..\win32forth\doc\w32f-glossary.csv" File "..\..\..\win32forth\doc\WIN32FOR.jpg" File "..\..\..\win32forth\doc\WINED1.jpg" *************** *** 534,537 **** --- 545,549 ---- SetOutPath "$INSTDIR\doc\Guide\" File "..\..\..\win32forth\doc\Guide\bin_rts.txt" + File "..\..\..\win32forth\doc\Guide\blob.gif" File "..\..\..\win32forth\doc\Guide\chr_tbl.f" File "..\..\..\win32forth\doc\Guide\chr_tbl.htm" *************** *** 546,552 **** --- 558,569 ---- File "..\..\..\win32forth\doc\Guide\ftrandoc.txt" File "..\..\..\win32forth\doc\Guide\inner.gif" + File "..\..\..\win32forth\doc\Guide\left.gif" File "..\..\..\win32forth\doc\Guide\primer.htm" + File "..\..\..\win32forth\doc\Guide\red_box.gif" + File "..\..\..\win32forth\doc\Guide\right.gif" + File "..\..\..\win32forth\doc\Guide\up.gif" File "..\..\..\win32forth\doc\Guide\vector1.f" File "..\..\..\win32forth\doc\Guide\vector1.htm" + File "..\..\..\win32forth\doc\Guide\win32for.gif" SetOutPath "$INSTDIR\doc\ProMgr\" File "..\..\..\win32forth\doc\ProMgr\prjFileMenu.gif" *************** *** 590,593 **** --- 607,611 ---- File "..\..\..\win32forth\src\EXCEPTIO.F" File "..\..\..\win32forth\src\Extend.f" + File "..\..\..\win32forth\src\floadcmdline.f" File "..\..\..\win32forth\src\FLOAT.F" File "..\..\..\win32forth\src\FONTS.F" *************** *** 629,632 **** --- 647,651 ---- File "..\..\..\win32forth\src\console\Forthdlg.f" File "..\..\..\win32forth\src\console\LINEEDIT.F" + File "..\..\..\win32forth\src\console\NoConsole.f" File "..\..\..\win32forth\src\console\Statbar.f" File "..\..\..\win32forth\src\console\WinBase.f" *************** *** 678,681 **** --- 697,701 ---- File "..\..\..\win32forth\src\lib\HyperLink.f" File "..\..\..\win32forth\src\lib\linklist.f" + File "..\..\..\win32forth\src\lib\Listview.f" File "..\..\..\win32forth\src\lib\MDI.F" File "..\..\..\win32forth\src\lib\MdiDialog.f" *************** *** 695,699 **** File "..\..\..\win32forth\src\lib\sendmessage.f" File "..\..\..\win32forth\src\lib\SoundVolume.f" ! File "..\..\..\win32forth\src\lib\StatusBarClass.f" File "..\..\..\win32forth\src\lib\STRUCT.F" File "..\..\..\win32forth\src\lib\SUB_DIRS.F" --- 715,719 ---- File "..\..\..\win32forth\src\lib\sendmessage.f" File "..\..\..\win32forth\src\lib\SoundVolume.f" ! File "..\..\..\win32forth\src\lib\StatusBar.f" File "..\..\..\win32forth\src\lib\STRUCT.F" File "..\..\..\win32forth\src\lib\SUB_DIRS.F" *************** *** 760,761 **** --- 780,786 ---- File "..\..\..\win32forth\src\tools\W32fdexh.f" File "..\..\..\win32forth\src\tools\xref.f" + SetOutPath "$INSTDIR\Templates\" + File "..\..\..\win32forth\Templates\MinimalWindow.f" + File "..\..\..\win32forth\Templates\PopupWindow.f" + File "..\..\..\win32forth\Templates\SplitterWindow2.f" + File "..\..\..\win32forth\Templates\TreeViewInSplitWindow.f" --- temp.nsi DELETED --- Index: Uninstall.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Uninstall.nsi,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Uninstall.nsi 15 Jan 2006 11:06:36 -0000 1.2 --- Uninstall.nsi 27 May 2006 09:00:27 -0000 1.3 *************** *** 1,3 **** --- 1,4 ---- ; Clean up w32f + ; Clean up w32f Delete "$INSTDIR\fkernel.exe" Delete "$INSTDIR\FORTHFORM.CFG" *************** *** 87,90 **** --- 88,93 ---- Delete "$INSTDIR\apps\ForthForm\res\stop2.BMP" Delete "$INSTDIR\apps\Player4\Catalog.f" + Delete "$INSTDIR\apps\Player4\CommandID.f" + Delete "$INSTDIR\apps\Player4\Commands.f" Delete "$INSTDIR\apps\Player4\MciInterface.f" Delete "$INSTDIR\apps\Player4\MciVideo.f" *************** *** 102,105 **** --- 105,109 ---- Delete "$INSTDIR\apps\Player4\Pl_Toolset.f" Delete "$INSTDIR\apps\Player4\Pl_Version.f" + Delete "$INSTDIR\apps\Player4\PopupWindow.f" Delete "$INSTDIR\apps\Player4\View.f" Delete "$INSTDIR\apps\Player4\view.ff" *************** *** 182,185 **** --- 186,190 ---- Delete "$INSTDIR\apps\Solipon2\YAHOO.WAV" Delete "$INSTDIR\apps\Sudoku\Applause7.wav" + Delete "$INSTDIR\apps\Sudoku\Readme.rtf" Delete "$INSTDIR\apps\Sudoku\Sudoku.f" Delete "$INSTDIR\apps\Sudoku\Sudoku.fpj" *************** *** 304,307 **** --- 309,313 ---- Delete "$INSTDIR\demos\HtmlControlDemo.f" Delete "$INSTDIR\demos\HtmlDisplay.f" + Delete "$INSTDIR\demos\ListViewDemo.f" Delete "$INSTDIR\demos\MDIDialogExample.f" Delete "$INSTDIR\demos\MDIExample.f" *************** *** 340,343 **** --- 346,350 ---- Delete "$INSTDIR\doc\COPYASM.486.LGPL" Delete "$INSTDIR\doc\DIALOGRC.TXT" + Delete "$INSTDIR\doc\FloadCmdLine.htm" Delete "$INSTDIR\doc\FORTHPRO.gif" Delete "$INSTDIR\doc\Forth_Primer.pdf" *************** *** 352,355 **** --- 359,363 ---- Delete "$INSTDIR\doc\p-arch3.htm" Delete "$INSTDIR\doc\p-architecture.htm" + Delete "$INSTDIR\doc\p-callback.htm" Delete "$INSTDIR\doc\p-chains.htm" Delete "$INSTDIR\doc\p-classdbg.htm" *************** *** 358,363 **** --- 366,373 ---- Delete "$INSTDIR\doc\p-dexh.htm" Delete "$INSTDIR\doc\p-faq.htm" + Delete "$INSTDIR\doc\p-float.htm" Delete "$INSTDIR\doc\p-gethelp.htm" Delete "$INSTDIR\doc\p-getstart.htm" + Delete "$INSTDIR\doc\p-glossary.htm" Delete "$INSTDIR\doc\p-history.htm" Delete "$INSTDIR\doc\p-imageman.htm" *************** *** 366,369 **** --- 376,380 ---- Delete "$INSTDIR\doc\p-locals.htm" Delete "$INSTDIR\doc\p-module.htm" + Delete "$INSTDIR\doc\p-noconsole.htm" Delete "$INSTDIR\doc\p-numconv.htm" Delete "$INSTDIR\doc\p-objects.htm" *************** *** 390,393 **** --- 401,405 ---- Delete "$INSTDIR\doc\UP.GIF" Delete "$INSTDIR\doc\UTILDOC.TXT" + Delete "$INSTDIR\doc\w32f-glossary.csv" Delete "$INSTDIR\doc\WIN32FOR.jpg" Delete "$INSTDIR\doc\WINED1.jpg" *************** *** 508,511 **** --- 520,524 ---- Delete "$INSTDIR\doc\ForthForm\ForthForm.htm" Delete "$INSTDIR\doc\Guide\bin_rts.txt" + Delete "$INSTDIR\doc\Guide\blob.gif" Delete "$INSTDIR\doc\Guide\chr_tbl.f" Delete "$INSTDIR\doc\Guide\chr_tbl.htm" *************** *** 520,526 **** --- 533,544 ---- Delete "$INSTDIR\doc\Guide\ftrandoc.txt" Delete "$INSTDIR\doc\Guide\inner.gif" + Delete "$INSTDIR\doc\Guide\left.gif" Delete "$INSTDIR\doc\Guide\primer.htm" + Delete "$INSTDIR\doc\Guide\red_box.gif" + Delete "$INSTDIR\doc\Guide\right.gif" + Delete "$INSTDIR\doc\Guide\up.gif" Delete "$INSTDIR\doc\Guide\vector1.f" Delete "$INSTDIR\doc\Guide\vector1.htm" + Delete "$INSTDIR\doc\Guide\win32for.gif" Delete "$INSTDIR\doc\ProMgr\prjFileMenu.gif" Delete "$INSTDIR\doc\ProMgr\prjHelpMenu.gif" *************** *** 560,563 **** --- 578,582 ---- Delete "$INSTDIR\src\EXCEPTIO.F" Delete "$INSTDIR\src\Extend.f" + Delete "$INSTDIR\src\floadcmdline.f" Delete "$INSTDIR\src\FLOAT.F" Delete "$INSTDIR\src\FONTS.F" *************** *** 598,601 **** --- 617,621 ---- Delete "$INSTDIR\src\console\Forthdlg.f" Delete "$INSTDIR\src\console\LINEEDIT.F" + Delete "$INSTDIR\src\console\NoConsole.f" Delete "$INSTDIR\src\console\Statbar.f" Delete "$INSTDIR\src\console\WinBase.f" *************** *** 644,647 **** --- 664,668 ---- Delete "$INSTDIR\src\lib\HyperLink.f" Delete "$INSTDIR\src\lib\linklist.f" + Delete "$INSTDIR\src\lib\Listview.f" Delete "$INSTDIR\src\lib\MDI.F" Delete "$INSTDIR\src\lib\MdiDialog.f" *************** *** 661,665 **** Delete "$INSTDIR\src\lib\sendmessage.f" Delete "$INSTDIR\src\lib\SoundVolume.f" ! Delete "$INSTDIR\src\lib\StatusBarClass.f" Delete "$INSTDIR\src\lib\STRUCT.F" Delete "$INSTDIR\src\lib\SUB_DIRS.F" --- 682,686 ---- Delete "$INSTDIR\src\lib\sendmessage.f" Delete "$INSTDIR\src\lib\SoundVolume.f" ! Delete "$INSTDIR\src\lib\StatusBar.f" Delete "$INSTDIR\src\lib\STRUCT.F" Delete "$INSTDIR\src\lib\SUB_DIRS.F" *************** *** 722,725 **** --- 743,750 ---- Delete "$INSTDIR\src\tools\W32fdexh.f" Delete "$INSTDIR\src\tools\xref.f" + Delete "$INSTDIR\Templates\MinimalWindow.f" + Delete "$INSTDIR\Templates\PopupWindow.f" + Delete "$INSTDIR\Templates\SplitterWindow2.f" + Delete "$INSTDIR\Templates\TreeViewInSplitWindow.f" ; remove ExtSrc *************** *** 950,953 **** --- 975,979 ---- RMDir "$INSTDIR\src\" RMDir "$INSTDIR\proj\" + RMDir "$INSTDIR\Templates\" RMDir "$INSTDIR\doc\SciEdit\" RMDir "$INSTDIR\doc\ProMgr\" Index: Win32Forth.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Win32Forth.nsi,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Win32Forth.nsi 15 Jan 2006 11:06:36 -0000 1.6 --- Win32Forth.nsi 27 May 2006 09:00:27 -0000 1.7 *************** *** 8,14 **** !define VER_MAJOR 6 !define VER_MINOR 11 ! !define VER_REVISION 8 ! !define VER_DISPLAY "6.11.08" ! !define VER_FILE "61108" ; Define your application name --- 8,14 ---- !define VER_MAJOR 6 !define VER_MINOR 11 ! !define VER_REVISION 9 ! !define VER_DISPLAY "6.11.09" ! !define VER_FILE "61109" ; Define your application name |
|
From: Dirk B. <db...@us...> - 2006-05-27 08:54:11
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5305/src/kernel Modified Files: version.f Log Message: New Version 6.11.09 released at www.win32forth.org. Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/version.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** version.f 15 Jan 2006 11:07:27 -0000 1.9 --- version.f 27 May 2006 08:54:04 -0000 1.10 *************** *** 3,7 **** cr .( Loading META version info) ! 61108 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. --- 3,7 ---- cr .( Loading META version info) ! 61109 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. |
|
From: Dirk B. <db...@us...> - 2006-05-27 08:54:10
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5305 Modified Files: fkernel.exe setup.exe Log Message: New Version 6.11.09 released at www.win32forth.org. Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 Binary files /tmp/cvsg76D5V and /tmp/cvsntSD3v differ Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 Binary files /tmp/cvsR7VDPZ and /tmp/cvsMN86Oz differ |
|
From: Dirk B. <db...@us...> - 2006-05-27 08:30:22
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv29092 Modified Files: w32fConsole.dll Log Message: Removed Rod's change "an extra character has to be output in Paint() to redraw part of character under the scrollbar." because it output's rubish at the end of a line (the first char of the next line was printed). Index: w32fConsole.dll =================================================================== RCS file: /cvsroot/win32forth/win32forth/w32fConsole.dll,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 Binary files /tmp/cvstPnqPv and /tmp/cvsBEqtBQ differ |
|
From: Dirk B. <db...@us...> - 2006-05-27 08:29:38
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fConsole In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28724 Modified Files: Term.cpp Log Message: Removed Rod's change "an extra character has to be output in Paint() to redraw part of character under the scrollbar." because it output's rubish at the end of a line (the first char of the next line was printed). Index: Term.cpp =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fConsole/Term.cpp,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Term.cpp 21 May 2006 11:05:21 -0000 1.8 --- Term.cpp 27 May 2006 08:29:35 -0000 1.9 *************** *** 490,494 **** // don't let us type under the scrollbar ! width -= ( GetSystemMetrics( SM_CXHSCROLL ) + 1 ); int newrows = min( max (height / charH, 1), maxrows ); --- 490,494 ---- // don't let us type under the scrollbar ! width -= GetSystemMetrics( SM_CXHSCROLL ); int newrows = min( max (height / charH, 1), maxrows ); *************** *** 788,792 **** { if (((i + rowoff) < hlstlin) || ((i + rowoff) > hledlin)) ! TextOut (hdc, 1, i * charH, screen + ((i + rowoff) * maxcols), cols + 1); else { --- 788,792 ---- { if (((i + rowoff) < hlstlin) || ((i + rowoff) > hledlin)) ! TextOut (hdc, 1, i * charH, screen + ((i + rowoff) * maxcols), cols); else { *************** *** 805,814 **** SetTextColor(hdc, theFg); TextOut (hdc, 1+(charW*hledcol), i * charH, screen + ! ((i + rowoff) * maxcols) + hledcol, cols-hledcol + 1); } else // else put out remainder of starting line reversed { TextOut (hdc, 1+(charW*hlstcol), i * charH, screen + ! ((i + rowoff) * maxcols)+ hlstcol, cols-hlstcol + 1); SetBkColor(hdc, theBg); SetTextColor(hdc, theFg); --- 805,814 ---- SetTextColor(hdc, theFg); TextOut (hdc, 1+(charW*hledcol), i * charH, screen + ! ((i + rowoff) * maxcols) + hledcol, cols-hledcol); } else // else put out remainder of starting line reversed { TextOut (hdc, 1+(charW*hlstcol), i * charH, screen + ! ((i + rowoff) * maxcols)+ hlstcol, cols-hlstcol); SetBkColor(hdc, theBg); SetTextColor(hdc, theFg); *************** *** 826,830 **** SetTextColor(hdc, theFg); TextOut (hdc, 1+(charW*hledcol), i * charH, screen + ! ((i + rowoff) * maxcols) + hledcol, cols-hledcol + 1); } else // if not ending line either --- 826,830 ---- SetTextColor(hdc, theFg); TextOut (hdc, 1+(charW*hledcol), i * charH, screen + ! ((i + rowoff) * maxcols) + hledcol, cols-hledcol); } else // if not ending line either *************** *** 833,837 **** SetTextColor(hdc, theBg); TextOut (hdc, 1, i * charH, screen + ! ((i + rowoff) * maxcols), cols + 1); SetBkColor(hdc, theBg); SetTextColor(hdc, theFg); --- 833,837 ---- SetTextColor(hdc, theBg); TextOut (hdc, 1, i * charH, screen + ! ((i + rowoff) * maxcols), cols); SetBkColor(hdc, theBg); SetTextColor(hdc, theFg); |
|
From: Dirk B. <db...@us...> - 2006-05-27 08:21:57
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25301/src/kernel Modified Files: meta-fkernel.f Log Message: Changed the default application size to 1024000 bytes (SciEdit need's it). Index: meta-fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/meta-fkernel.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** meta-fkernel.f 14 Jul 2005 20:32:03 -0000 1.4 --- meta-fkernel.f 27 May 2006 08:21:54 -0000 1.5 *************** *** 48,54 **** SYS-SIZE 0x1000 naligned TO IMAGE-SSIZE \ size of kernel system dictionary ! 512000 0x1000 naligned constant MINAPPMEM \ minimum size of kernel application dictionary ! 40960 0x1000 naligned constant MINCODEMEM \ minimum size of kernel code dictionary ! 512000 0x1000 naligned constant MINSYSMEM \ minimum size of kernel system dictionary : PROMPT-SIZE ( -<"SETSIZE">- ) \ if SETSIZE follows on commandline --- 48,54 ---- SYS-SIZE 0x1000 naligned TO IMAGE-SSIZE \ size of kernel system dictionary ! 1024000 0x1000 naligned constant MINAPPMEM \ minimum size of kernel application dictionary ! 40960 0x1000 naligned constant MINCODEMEM \ minimum size of kernel code dictionary ! 512000 0x1000 naligned constant MINSYSMEM \ minimum size of kernel system dictionary : PROMPT-SIZE ( -<"SETSIZE">- ) \ if SETSIZE follows on commandline *************** *** 87,91 **** CR .( NEXT macros: ) KERN-NEXT COUNT TYPE CR .( Version from: ) KERN-VER COUNT TYPE ! CR .( Version: ) #version# ((version)) type .( Build: ) #build# . CR .( Build Image: ) KERN-NAME COUNT TYPE --- 87,91 ---- CR .( NEXT macros: ) KERN-NEXT COUNT TYPE CR .( Version from: ) KERN-VER COUNT TYPE ! CR .( Version: ) #version# ((version)) type .( Build: ) #build# . CR .( Build Image: ) KERN-NAME COUNT TYPE |
|
From: George H. <geo...@us...> - 2006-05-26 12:42:58
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5303/win32forth/src Modified Files: CALLBACK.f Log Message: gah: Added extra documentation Index: CALLBACK.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CALLBACK.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** CALLBACK.f 25 May 2006 09:20:41 -0000 1.7 --- CALLBACK.f 26 May 2006 12:42:38 -0000 1.8 *************** *** 9,12 **** --- 9,20 ---- \ *T Windows Callback support + \ *P The Windows operating system DLLs often needs application defined callbacks to be + \ ** supplied for certain jobs. Since it is written in C then it assumes the callback only + \ ** needs a single stack to work with, so Win32Forth must wrap a Forth word to allocate a + \ ** second stack and transfer the input arguments to it. It also sets up other registers + \ ** for Forth, including the USER pointer for the calling Task (Versions of Win32Forth prior + \ ** to V6.06.xx always used the CONUSER pointer for this so callbacks were restricted to the + \ ** main (console) task only). It is important to remember a normal xt will not work as a callback. + \ *S Glossary *************** *** 110,114 **** : __CDECL ( -- ) \ w32f sys ! \ *G Turn on __cdecl type callback. __CDECLV ON ; --- 118,122 ---- : __CDECL ( -- ) \ w32f sys ! \ *G Turn on __cdecl type callback for the next callback only. __CDECLV ON ; *************** *** 229,235 **** 1 PROC DispatchMessage : HandleMessages { pMsg -- 0 } ! \ *G This is the callback which handles the messages send by windows to our \ ** Application. The chain MSG-CHAIN receives all messages. ! \ *P This callback is called by the console window and by WINPAUSE. pMsg TRUE msg-chain do-chain nip if pMsg Call TranslateMessage drop --- 237,243 ---- 1 PROC DispatchMessage : HandleMessages { pMsg -- 0 } ! \ *G This is the word which handles the messages send by windows to our \ ** Application. The chain MSG-CHAIN receives all messages. ! \ *P This word is called by WINPAUSE, and is also used as a callback by the console. pMsg TRUE msg-chain do-chain nip if pMsg Call TranslateMessage drop |
|
From: George H. <geo...@us...> - 2006-05-26 12:42:48
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5303/win32forth/doc Modified Files: p-callback.htm Log Message: gah: Added extra documentation Index: p-callback.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-callback.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** p-callback.htm 25 May 2006 09:22:35 -0000 1.1 --- p-callback.htm 26 May 2006 12:42:38 -0000 1.2 *************** *** 17,25 **** width="32" height="32"> Win32Forth</h1> <hr /><h1>Windows Callback support ! </h1><hr /><h2>Glossary </h2><pre><b><a name="0">: __STDCALL ( -- ) \ w32f sys </a></b></pre><p>Turn on stdcall type callback (the default). </p><pre><b><a name="1">: __CDECL ( -- ) \ w32f sys ! </a></b></pre><p>Turn on __cdecl type callback. </p><pre><b><a name="2">: CALLBACK ( n1 -<name function>- ) \ w32f sys </a></b></pre><p>Define a callback with "name" that has n1 arguments. --- 17,32 ---- width="32" height="32"> Win32Forth</h1> <hr /><h1>Windows Callback support ! </h1><hr /><p>The Windows operating system DLLs often needs application defined callbacks to be ! supplied for certain jobs. Since it is written in C then it assumes the callback only ! needs a single stack to work with, so Win32Forth must wrap a Forth word to allocate a ! second stack and transfer the input arguments to it. It also sets up other registers ! for Forth, including the USER pointer for the calling Task (Versions of Win32Forth prior ! to V6.06.xx always used the CONUSER pointer for this so callbacks were restricted to the ! main (console) task only). It is important to remember a normal xt will not work as a callback. ! </p><h2>Glossary </h2><pre><b><a name="0">: __STDCALL ( -- ) \ w32f sys </a></b></pre><p>Turn on stdcall type callback (the default). </p><pre><b><a name="1">: __CDECL ( -- ) \ w32f sys ! </a></b></pre><p>Turn on __cdecl type callback for the next callback only. </p><pre><b><a name="2">: CALLBACK ( n1 -<name function>- ) \ w32f sys </a></b></pre><p>Define a callback with "name" that has n1 arguments. *************** *** 92,98 **** </h2>********************************************************************** <pre><b><a name="5">: HandleMessages { pMsg -- 0 } ! </a></b></pre><p>This is the callback which handles the messages send by windows to our Application. The chain MSG-CHAIN receives all messages. ! </p><p>This callback is called by the console window and by WINPAUSE. </p>********************************************************************** <h2>Allow Forth to send messages to itself. --- 99,105 ---- </h2>********************************************************************** <pre><b><a name="5">: HandleMessages { pMsg -- 0 } ! </a></b></pre><p>This is the word which handles the messages send by windows to our Application. The chain MSG-CHAIN receives all messages. ! </p><p>This word is called by WINPAUSE, and is also used as a callback by the console. </p>********************************************************************** <h2>Allow Forth to send messages to itself. |
|
From: George H. <geo...@us...> - 2006-05-26 12:41:17
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4909/win32forth/src/lib Modified Files: AcceleratorTables.f Log Message: gah: Converted tabs to spaces Index: AcceleratorTables.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/AcceleratorTables.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** AcceleratorTables.f 21 May 2006 10:07:05 -0000 1.4 --- AcceleratorTables.f 26 May 2006 12:41:05 -0000 1.5 *************** *** 91,95 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ Define some accelerator tables \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 91,95 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ Define some accelerator tables \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 100,104 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ Define a small window that will receive the accelerator commands \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 100,104 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ Define a small window that will receive the accelerator commands \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 126,130 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ Accelerator table entries \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 126,130 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ Accelerator table entries \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 173,177 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ Instructions \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 173,177 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ Instructions \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ |
|
From: Jos v.d.V. <jo...@us...> - 2006-05-25 18:09:34
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28072/apps/Player4 Modified Files: Catalog.f Log Message: Jos: Sorry. Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.33 retrieving revision 1.34 diff -C2 -d -r1.33 -r1.34 *** Catalog.f 25 May 2006 17:59:20 -0000 1.33 --- Catalog.f 25 May 2006 18:09:27 -0000 1.34 *************** *** 599,603 **** : next-not-played ( - n ) \ -1 means all done. ! -2 database-mhndl #records-in-database last-selected-rec 0 max \ Starting from the last-selected record do i n>record >r Requests? \ Handle requests first when they are there and not ignored if r@ Requested? dup --- 599,603 ---- : next-not-played ( - n ) \ -1 means all done. ! -1 database-mhndl #records-in-database last-selected-rec 0 max \ Starting from the last-selected record do i n>record >r Requests? \ Handle requests first when they are there and not ignored if r@ Requested? dup |
|
From: Jos v.d.V. <jo...@us...> - 2006-05-25 17:59:27
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23981/apps/Player4 Modified Files: Catalog.f Pl_MciWindow.f Log Message: Jos: Corrected a small bug Index: Pl_MciWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** Pl_MciWindow.f 25 May 2006 15:36:50 -0000 1.22 --- Pl_MciWindow.f 25 May 2006 17:59:20 -0000 1.23 *************** *** 283,287 **** then else n>record dup>r ! RecordDef File_name r@ Cnt_File_name c@ 2dup type-space r@ incr-#played r> mark-played (PlayOneFile) --- 283,287 ---- then else n>record dup>r ! RecordDef File_name r@ Cnt_File_name c@ 2dup type-cr r@ incr-#played r> mark-played (PlayOneFile) Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** Catalog.f 25 May 2006 15:36:50 -0000 1.32 --- Catalog.f 25 May 2006 17:59:20 -0000 1.33 *************** *** 18,22 **** 0 value #Excluded ! 0 value _DriveType \ Define the configuration of the database --- 18,22 ---- 0 value #Excluded ! true value _DriveType \ Define the configuration of the database *************** *** 599,603 **** : next-not-played ( - n ) \ -1 means all done. ! -1 database-mhndl #records-in-database last-selected-rec 0 max \ Starting from the last-selected record do i n>record >r Requests? \ Handle requests first when they are there and not ignored if r@ Requested? dup --- 599,603 ---- : next-not-played ( - n ) \ -1 means all done. ! -2 database-mhndl #records-in-database last-selected-rec 0 max \ Starting from the last-selected record do i n>record >r Requests? \ Handle requests first when they are there and not ignored if r@ Requested? dup *************** *** 606,610 **** else #excluded \ There is a collection when > 0 if r@ Incollection? ! else r@ Requested? not and r@ RecordDef Played- c@ 0= and then --- 606,610 ---- else #excluded \ There is a collection when > 0 if r@ Incollection? ! else r@ Requested? not r@ RecordDef Played- c@ 0= and then |
|
From: Jos v.d.V. <jo...@us...> - 2006-05-25 15:37:29
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6986/apps/Player4 Modified Files: Catalog.f Commands.f Mediatree.f PLAYER4.F Pl_MciWindow.f Log Message: Jos: Made an endless play optional and changed the handling of requests and collections more logical. Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.55 retrieving revision 1.56 diff -C2 -d -r1.55 -r1.56 *** PLAYER4.F 24 May 2006 15:27:43 -0000 1.55 --- PLAYER4.F 25 May 2006 15:36:50 -0000 1.56 *************** *** 158,162 **** : DoSizing ( -- ) mousedown? dragging? or 0= ?EXIT ! mousex ( 1+ ) width min thickness 2/ - SeparatorX ! position-windows WINPAUSE ; --- 158,164 ---- : DoSizing ( -- ) mousedown? dragging? or 0= ?EXIT ! mousex ( 1+ ) width min thickness 2/ - ! [ thickness 2* ] literal max width [ thickness 2* ] literal - min ! SeparatorX ! position-windows WINPAUSE ; *************** *** 296,300 **** Playing?: Player4W if Close: Player4W ! else catalog-exist? if play-catalog-random: Player4W then then ; IDM_NEXT SetCommand --- 298,305 ---- Playing?: Player4W if Close: Player4W ! else catalog-exist? ! if SetFocus: ControlCenter ! play-catalog-random: Player4W ! then then ; IDM_NEXT SetCommand *************** *** 378,381 **** --- 383,387 ---- MENUITEM "S&earch and make a collection..." SearchCatalog ; MENUSEPARATOR + :MENUITEM mEndless "Endless play" Endless ; \ >>> MENUITEM "&Start/Resume playing\tCtrl+R" IDM_START/RESUME DoCommand ; MENUSEPARATOR *************** *** 427,430 **** --- 433,437 ---- vadr-config IgnoreRequests c@ Check: mHandelReq vadr-config KeepRequests c@ Check: mKeepReq + vadr-config Endless- c@ Check: mEndless ; is MenuChecks \ enable/disable the menu items Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** Catalog.f 12 Apr 2006 19:44:24 -0000 1.31 --- Catalog.f 25 May 2006 15:36:50 -0000 1.32 *************** *** 16,19 **** --- 16,21 ---- string: database$ string: index$ + 0 value #Excluded + 0 value _DriveType *************** *** 50,53 **** --- 52,56 ---- BYTE KeepRequests BYTE _SeparatorX + BYTE Endless- ;struct *************** *** 106,110 **** BYTE Request- BYTE RequestLevelRecord ! WORD NotUsed1 DWORD NotUsed2 ;struct --- 109,114 ---- BYTE Request- BYTE RequestLevelRecord ! BYTE CollectedNotPlayed- ! BYTE NotUsed1 DWORD NotUsed2 ;struct *************** *** 334,338 **** ; ! : RequestKeyFagged vadr-config IgnoreRequests c@ not if RequestKey --- 338,342 ---- ; ! : RequestKeyFlagged vadr-config IgnoreRequests c@ not if RequestKey *************** *** 340,347 **** ; ! : 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 --- 344,351 ---- ; ! : By_FileName ( - by ) by[ FileNameKey RequestKeyFlagged ]by ; ! : By_Random ( - by ) by[ RandomKey RequestKeyFlagged ]by ; ! : by_leastPlayed ( - by ) by[ leastPlayedKey Ascending RequestKeyFlagged ]by ; ! : by_FileSize ( - by ) by[ FileSizeKey RequestKeyFlagged ]by ; : not-deleted? ( rec-adr - flag ) s" RecordDef deleted- c@ 0= " EVALUATE ; IMMEDIATE *************** *** 434,439 **** ; ! : record-not-played ( n - ) n>record 0 swap RecordDef Played- c! ; ! : set-all-not-played ( - ) for-all-records record-not-played ; : change-randomlevel ( level n - ) --- 438,443 ---- ; ! : record-not-played ( n - ) n>record 0 swap RecordDef Played- c! ; ! : set-all-not-played ( - ) for-all-records record-not-played ; : change-randomlevel ( level n - ) *************** *** 452,459 **** 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 --- 456,463 ---- r@ s_Random_impopular- c@ of by[ by_record RandomKey ! leastPlayedKey Ascending RequestKeyFlagged ]by sort-database endof r@ s_Random_popular- c@ of by[ by_record RandomKey ! leastPlayedKey Descending RequestKeyFlagged ]by sort-database endof *************** *** 475,479 **** then FlexKey &key-len @ 0> ! if by[ FlexKey RequestKeyFagged ]by sort-database then --- 479,483 ---- then FlexKey &key-len @ 0> ! if by[ FlexKey RequestKeyFlagged ]by sort-database then *************** *** 484,495 **** : sort_by_RandomLevel ( - ) By_Random sort-database - \ 1 cells to key-len - \ 0 RecordDef RandomLevel to key-start sort-database-bin - \ 0 RecordDef #played to key-start sort-database-bin - \ \ 0 RecordDef Deleted- to key-start sort-database-bin - ; ! : random-shuffle ( - ) vadr-config MaximumRandomLevel @ for-all-records change-randomlevel drop sort_by_RandomLevel RefreshCatalog --- 488,494 ---- : sort_by_RandomLevel ( - ) By_Random sort-database ; ! : random-shuffle ( - >>> ) vadr-config MaximumRandomLevel @ for-all-records change-randomlevel drop sort_by_RandomLevel RefreshCatalog *************** *** 588,606 **** 0 value #InCollection ! : NoRequests? ( adr - flag ) #requests 0> vadr-config IgnoreRequests c@ not and ; : Requested? ( adr - flag ) RecordDef Request- c@ ; ! : next-not-played ( - n ) \ -1 means done. >>> ! -1 database-mhndl #records-in-database last-selected-rec 0 max \ Starting from the last-selected record ! do i n>record >r NoRequests? ! if r@ Requested? dup ! if r@ RequestDone ! then ! else ! r@ RecordDef Excluded- c@ not ! r@ Requested? not and then - r@ RecordDef Played- c@ 0= and r> RecordDef Deleted- c@ 0= and if drop i leave --- 587,613 ---- 0 value #InCollection ! : RemoveFromCollection ( adr - ) true swap RecordDef Excluded- c! -1 +to #excluded ; ! : Requests? ( adr - flag ) #requests 0> vadr-config IgnoreRequests c@ not and ; : Requested? ( adr - flag ) RecordDef Request- c@ ; ! : Incollection? ( adr - flag ) ! dup RecordDef Excluded- c@ not dup ! if swap RemoveFromCollection ! else nip ! then ! ; + : next-not-played ( - n ) \ -1 means all done. + -1 database-mhndl #records-in-database last-selected-rec 0 max \ Starting from the last-selected record + do i n>record >r Requests? \ Handle requests first when they are there and not ignored + if r@ Requested? dup + if r@ RequestDone + then + else #excluded \ There is a collection when > 0 + if r@ Incollection? + else r@ Requested? not and + r@ RecordDef Played- c@ 0= and + then then r> RecordDef Deleted- c@ 0= and if drop i leave *************** *** 678,682 **** : search-record ( arg-adr$ count #rec - arg-adr$ count ) n>record dup>r record-size 2over 2swap false *search ! not nip nip r> RecordDef Excluded- c! ; --- 685,690 ---- : search-record ( arg-adr$ count #rec - arg-adr$ count ) n>record dup>r record-size 2over 2swap false *search ! nip nip dup not r@ RecordDef Excluded- c! ! r> RecordDef CollectedNotPlayed- c! ; *************** *** 687,698 **** NewEditDialog searchDlg "Search for artist/album in the catalog." "The name contains:" "Ok" "Cancel" "" : search-records ( base - ) s" artist*album " init-dlg Start: searchDlg >r pad$_ok? over and r> 0> and ! if for-all-records search-record 2drop RefreshCatalog else 2drop then ; string: tmp$ --- 695,712 ---- NewEditDialog searchDlg "Search for artist/album in the catalog." "The name contains:" "Ok" "Cancel" "" + : "search-records ( adr count - ) + for-all-records search-record 2drop + ; + : search-records ( base - ) s" artist*album " init-dlg Start: searchDlg >r pad$_ok? over and r> 0> and ! if "search-records RefreshCatalog else 2drop then ; + : EnableAllRecords ( - ) s" *" "search-records ; + string: tmp$ Index: Pl_MciWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** Pl_MciWindow.f 24 May 2006 15:27:43 -0000 1.21 --- Pl_MciWindow.f 25 May 2006 15:36:50 -0000 1.22 *************** *** 275,282 **** database-mhndl #records-in-database vadr-config #free-list @ - 0> if AbortPlaying: self false to catalog-aborted? ! begin catalog-aborted? #InCollection 0= or if exitm then Playing?: Self not if next-not-played dup -1 = ! if set-all-not-played random-shuffle else n>record dup>r RecordDef File_name r@ Cnt_File_name c@ 2dup type-space --- 275,285 ---- database-mhndl #records-in-database vadr-config #free-list @ - 0> if AbortPlaying: self false to catalog-aborted? ! begin catalog-aborted? if exitm then Playing?: Self not if next-not-played dup -1 = ! if vadr-config Endless- c@ ! if EnableAllRecords randomize-catalog ! else exitm ! then else n>record dup>r RecordDef File_name r@ Cnt_File_name c@ 2dup type-space *************** *** 285,288 **** --- 288,292 ---- then then + again then Index: Mediatree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** Mediatree.f 16 May 2006 17:41:26 -0000 1.31 --- Mediatree.f 25 May 2006 15:36:50 -0000 1.32 *************** *** 25,30 **** : NotIncollection? ( n - f ) ! n>record dup RecordDef Deleted- c@ 0= show-deleted = ! swap RecordDef Excluded- c@ or ; --- 25,30 ---- : NotIncollection? ( n - f ) ! n>record dup RecordDef Deleted- c@ 0= dup>r show-deleted = ! swap RecordDef Excluded- c@ dup r> and 1 min +to #Excluded or ; *************** *** 187,191 **** TVI_ROOT DeleteItem: self \ delete all items from the tree view ! 0 to #InCollection 0 to #requests --- 187,191 ---- TVI_ROOT DeleteItem: self \ delete all items from the tree view ! 0 to #Excluded 0 to #InCollection 0 to #requests Index: Commands.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Commands.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Commands.f 21 May 2006 11:42:10 -0000 1.2 --- Commands.f 25 May 2006 15:36:50 -0000 1.3 *************** *** 172,175 **** --- 172,178 ---- vadr-config AutoStart- invert-check ; + : Endless ( -- ) + vadr-config Endless- invert-check ; + : TrayWindowCmd ( -- ) vadr-config AutoMinimized- invert-check ; *************** *** 198,199 **** --- 201,203 ---- ResumeVideo On_Paint: MainWindow ; IDM_ABOUT SetCommand + \s |
|
From: Dirk B. <db...@us...> - 2006-05-25 09:22:38
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv30984/doc Modified Files: p-index.htm w32f-glossary.csv Added Files: p-callback.htm Log Message: A little documentation for callbacks added. Index: w32f-glossary.csv =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/w32f-glossary.csv,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** w32f-glossary.csv 20 Feb 2006 12:32:44 -0000 1.9 --- w32f-glossary.csv 25 May 2006 09:22:35 -0000 1.10 *************** *** 62,97 **** "SetOrigin:","x y --","","METHOD","Window","Window.htm#10" "StartPos:","-- left top","","METHOD","Window","Window.htm#11" ! "On_Init:","--","","METHOD","Window","Window.htm#12" ! "On_Done:","--","","METHOD","Window","Window.htm#13" ! "SetClassName:","adr len --","","METHOD","Window","Window.htm#14" ! "GetClassName:","-- adr len","","METHOD","Window","Window.htm#15" ! "SetParent:","hwndParent --","","METHOD","Window","Window.htm#16" ! "ParentWindow:","-- hwndparent | 0 if no parent","","METHOD","Window","Window.htm#17" ! "DefaultCursor:","-- cursor-id","","METHOD","Window","Window.htm#18" ! "DefaultIcon:","-- hIcon","","METHOD","Window","Window.htm#19" ! "WindowStyle:","-- style","","METHOD","Window","Window.htm#20" ! "ExWindowStyle:","-- extended_style","","METHOD","Window","Window.htm#21" ! "WindowTitle:","-- Zstring","","METHOD","Window","Window.htm#22" ! "&ps","","","RECORD:","Window","Window.htm#24" ! "On_EraseBackground:","hwnd msg wparam lparam -- res","","METHOD","Window","Window.htm#25" ! "On_Paint:","--","","METHOD","Window","Window.htm#26" ! "WindowHasMenu:","-- flag","","METHOD","Window","Window.htm#27" ! "MoveCursor:","gx gy --","","METHOD","Window","Window.htm#28" ! "MakeCursor:","gx gy width height --","","METHOD","Window","Window.htm#29" ! "DestroyCursor:","--","","METHOD","Window","Window.htm#30" ! "ShowCursor:","--","","METHOD","Window","Window.htm#31" ! "HideCursor:","--","","METHOD","Window","Window.htm#32" ! "On_SetFocus:","h m w l --","","METHOD","Window","Window.htm#33" ! "On_KillFocus:","h m w l --","","METHOD","Window","Window.htm#34" ! "PushKey:","c1 --","","METHOD","Window","Window.htm#35" ! "Win32Forth:","h m w l --","","METHOD","Window","Window.htm#36" ! "DefWindowProc:","h m w l -- res","","METHOD","Window","Window.htm#37" ! "CenterWindow:","-- x y","","METHOD","Window","Window.htm#38" ! "Enable:","f1 --","","METHOD","Window","Window.htm#39" ! "GetWindowRect:","-- left top right bottom","","METHOD","Window","Window.htm#40" ! "SetTitle:","adr len \ temp$ --","","METHOD","Window","Window.htm#41" ! "find-window","z""a1 -- hWnd","w32f","COLON","","Window.htm#43" ! "send-window","lParam wParam Message_ID hWnd --","w32f","COLON","","Window.htm#44" ! "LoadIconFile","adr len -- hIcon","w32f","COLON","","Window.htm#45" "TrayWindow","","","CLASS","","TrayWindow.htm#0" "DefaultIcon:","-- hIcon","","METHOD","TrayWindow","TrayWindow.htm#1" --- 62,101 ---- "SetOrigin:","x y --","","METHOD","Window","Window.htm#10" "StartPos:","-- left top","","METHOD","Window","Window.htm#11" ! "SetClassLong:","long offset --","","METHOD","Window","Window.htm#12" ! "GetClassLong:","offset -- long","","METHOD","Window","Window.htm#13" ! "WndClassStyle:","-- style","","METHOD","Window","Window.htm#14" ! "Start:","--","","METHOD","Window","Window.htm#15" ! "On_Init:","--","","METHOD","Window","Window.htm#16" ! "On_Done:","--","","METHOD","Window","Window.htm#17" ! "SetClassName:","addr len --","","METHOD","Window","Window.htm#18" ! "GetClassName:","-- addr len","","METHOD","Window","Window.htm#19" ! "SetParent:","Parent --","","METHOD","Window","Window.htm#20" ! "ParentWindow:","-- Parent | 0 if no parent","","METHOD","Window","Window.htm#21" ! "DefaultCursor:","-- cursor-id","","METHOD","Window","Window.htm#22" ! "DefaultIcon:","-- hIcon","","METHOD","Window","Window.htm#23" ! "WindowStyle:","-- style","","METHOD","Window","Window.htm#24" ! "ExWindowStyle:","-- extended_style","","METHOD","Window","Window.htm#25" ! "WindowTitle:","-- Zstring","","METHOD","Window","Window.htm#26" ! "&ps","","","RECORD:","Window","Window.htm#28" ! "On_EraseBackground:","hwnd msg wparam lparam -- res","","METHOD","Window","Window.htm#29" ! "On_Paint:","--","","METHOD","Window","Window.htm#30" ! "WindowHasMenu:","-- flag","","METHOD","Window","Window.htm#31" ! "MoveCursor:","gx gy --","","METHOD","Window","Window.htm#32" ! "MakeCursor:","gx gy width height --","","METHOD","Window","Window.htm#33" ! "DestroyCursor:","--","","METHOD","Window","Window.htm#34" ! "ShowCursor:","--","","METHOD","Window","Window.htm#35" ! "HideCursor:","--","","METHOD","Window","Window.htm#36" ! "On_SetFocus:","h m w l --","","METHOD","Window","Window.htm#37" ! "On_KillFocus:","h m w l --","","METHOD","Window","Window.htm#38" ! "PushKey:","c1 --","","METHOD","Window","Window.htm#39" ! "Win32Forth:","h m w l --","","METHOD","Window","Window.htm#40" ! "DefWindowProc:","h m w l -- res","","METHOD","Window","Window.htm#41" ! "CenterWindow:","-- x y","","METHOD","Window","Window.htm#42" ! "Enable:","f1 --","","METHOD","Window","Window.htm#43" ! "GetWindowRect:","-- left top right bottom","","METHOD","Window","Window.htm#44" ! "SetTitle:","adr len \ temp$ --","","METHOD","Window","Window.htm#45" ! "find-window","z""a1 -- hWnd","w32f","COLON","","Window.htm#47" ! "send-window","lParam wParam Message_ID hWnd --","w32f","COLON","","Window.htm#48" ! "LoadIconFile","adr len -- hIcon","w32f","COLON","","Window.htm#49" "TrayWindow","","","CLASS","","TrayWindow.htm#0" "DefaultIcon:","-- hIcon","","METHOD","TrayWindow","TrayWindow.htm#1" *************** *** 110,116 **** "GetID:","-- n","","METHOD","Child-Window","Childwnd.htm#3" "WindowStyle:","-- style","","METHOD","Child-Window","Childwnd.htm#4" ! "ExWindowStyle:","-- extended_style","","METHOD","Child-Window","Childwnd.htm#5" ! "WindowTitle:","-- Zstring","","METHOD","Child-Window","Childwnd.htm#6" ! "Start:","Parent --","","METHOD","Child-Window","Childwnd.htm#7" "dialogID?","hdr ID -- f","","COLON","","Dialog.htm#0" "find-dialog-ID","id addr -- address-of-template-header","","COLON","","Dialog.htm#1" --- 114,119 ---- "GetID:","-- n","","METHOD","Child-Window","Childwnd.htm#3" "WindowStyle:","-- style","","METHOD","Child-Window","Childwnd.htm#4" ! "WindowTitle:","-- Zstring","","METHOD","Child-Window","Childwnd.htm#5" ! "Start:","Parent --","","METHOD","Child-Window","Childwnd.htm#6" "dialogID?","hdr ID -- f","","COLON","","Dialog.htm#0" "find-dialog-ID","id addr -- address-of-template-header","","COLON","","Dialog.htm#1" *************** *** 417,503 **** "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" --- 420,484 ---- "VTrackBar","","","CLASS","","Controls.htm#262" "WindowStyle:","-- style","","METHOD","VTrackBar","Controls.htm#263" ! "BitmapButton","","","CLASS","","Controls.htm#265" ! "ClassInit:","--","","METHOD","BitmapButton","Controls.htm#266" ! "WindowStyle:","-- style","","METHOD","BitmapButton","Controls.htm#267" ! "IconButton","","","CLASS","","Controls.htm#269" ! "ClassInit:","--","","METHOD","IconButton","Controls.htm#270" ! "WindowStyle:","-- style","","METHOD","IconButton","Controls.htm#271" ! "SetIcon:","hIcon --","","METHOD","IconButton","Controls.htm#272" ! "GetIcon:","-- hIcon","","METHOD","IconButton","Controls.htm#273" ! "ScrollBar","","","|CLASS","","Controls.htm#275" ! "ClassInit:","--","","METHOD","ScrollBar","Controls.htm#276" ! "WindowStyle:","-- style","","METHOD","ScrollBar","Controls.htm#277" ! "AddStyle:","n --","","METHOD","ScrollBar","Controls.htm#278" ! "Start:","Parent --","","METHOD","ScrollBar","Controls.htm#279" ! "SetFont:","hndl --","","METHOD","ScrollBar","Controls.htm#280" ! "Enable:","f --","","METHOD","ScrollBar","Controls.htm#281" ! "Disable:","--","","METHOD","ScrollBar","Controls.htm#282" ! "HorizScroll","","","CLASS","","Controls.htm#283" ! "WindowStyle:","-- style","","METHOD","HorizScroll","Controls.htm#284" ! "VertScroll","","","CLASS","","Controls.htm#286" ! "WindowStyle:","-- style","","METHOD","VertScroll","Controls.htm#287" ! "SizeBox","","","CLASS","","Controls.htm#289" ! "WindowStyle:","-- style","","METHOD","SizeBox","Controls.htm#290" ! "MonthCalendar","","","CLASS","","Controls.htm#292" ! "ClassInit:","--","","METHOD","MonthCalendar","Controls.htm#293" ! "AddStyle:","n --","","METHOD","MonthCalendar","Controls.htm#294" ! "Start:","Parent --","","METHOD","MonthCalendar","Controls.htm#295" ! "MinSize:","-- x y","","METHOD","MonthCalendar","Controls.htm#296" ! "WindowStyle:","-- style","","METHOD","MonthCalendar","Controls.htm#297" ! "GetDate:","-- day month year","","METHOD","MonthCalendar","Controls.htm#298" ! "GetToday:","-- day month year","","METHOD","MonthCalendar","Controls.htm#299" ! "DateTimePicker","","","CLASS","","Controls.htm#301" ! "ClassInit:","--","","METHOD","DateTimePicker","Controls.htm#302" ! "AddStyle:","n --","","METHOD","DateTimePicker","Controls.htm#303" ! "Start:","Parent --","","METHOD","DateTimePicker","Controls.htm#304" ! "WindowStyle:","-- style","","METHOD","DateTimePicker","Controls.htm#305" ! "SetCustomFormat:","z""format"" --","","METHOD","DateTimePicker","Controls.htm#306" ! "GetTime:","-- hrs min secs","","METHOD","DateTimePicker","Controls.htm#307" ! "SetTime:","hr min sec --","","METHOD","DateTimePicker","Controls.htm#308" ! "GetDate:","-- day month year","","METHOD","DateTimePicker","Controls.htm#309" ! "TabControl","","","CLASS","","Controls.htm#311" ! "Start:","Parent --","","METHOD","TabControl","Controls.htm#312" ! "ClassInit:","--","","METHOD","TabControl","Controls.htm#313" ! "WindowStyle:","-- style","","METHOD","TabControl","Controls.htm#314" ! "AddStyle:","n --","","METHOD","TabControl","Controls.htm#315" ! "InsertTab:","index --","","METHOD","TabControl","Controls.htm#316" ! "GetTabInfo:","index --","","METHOD","TabControl","Controls.htm#317" ! "SetTabInfo:","index --","","METHOD","TabControl","Controls.htm#318" ! "ClientSize:","-- x y w h","","METHOD","TabControl","Controls.htm#319" ! "WindowSize:","0 0 width height -- x y w h","","METHOD","TabControl","Controls.htm#320" ! "Enable:","f --","","METHOD","TabControl","Controls.htm#321" ! "Disable:","--","","METHOD","TabControl","Controls.htm#322" ! "Setfont:","handle --","","METHOD","TabControl","Controls.htm#323" ! "WindowTitle:","-- null$","","METHOD","TabControl","Controls.htm#324" ! "VertButtonBar","","","CLASS","","Controls.htm#326" ! "SetFont:","fonthndl \ hb1 --","","METHOD","VertButtonBar","Controls.htm#327" ! "Enable:","flag \ hb1 --","","METHOD","VertButtonBar","Controls.htm#328" ! "Disable:","--","","METHOD","VertButtonBar","Controls.htm#329" ! "HorizButtonBar","","","CLASS","","Controls.htm#331" ! "SetFont:","fonthndl \ hb1 --","","METHOD","HorizButtonBar","Controls.htm#332" ! "Enable:","flag \ hb1 --","","METHOD","HorizButtonBar","Controls.htm#333" ! "Disable:","--","","METHOD","HorizButtonBar","Controls.htm#334" "MdiDialogWindow","","","CLASS","","MdiDialog.htm#0" "ClassInit:","--","","METHOD","MdiDialogWindow","MdiDialog.htm#1" *************** *** 930,1046 **** "B/FLOAT","-- n","W32F Floating extra","CONSTANT","","p-float.htm#5" "cells/float","","","VALUE","","p-float.htm#6" ! "finit","--","W32F Floating extra","CODE","","p-float.htm#7" ! "F@","addr -- ; fs: -- r","ANSI Floating","CODE","","p-float.htm#8" ! "SF@","addr -- ; fs: -- r","ANSI Floating ext","CODE","","p-float.htm#9" ! "DF@","addr -- ; fs: -- r","ANSI Floating ext","CODE","","p-float.htm#10" ! "F!","addr -- ; fs: r --","ANSI Floating","CODE","","p-float.htm#11" ! "SF!","addr -- ; fs: r --","ANSI Floating ext","CODE","","p-float.htm#12" ! "DF!","addr -- ; fs: r --","ANSI Floating ext","CODE","","p-float.htm#13" ! "F+!","addr -- ; fs: r --","W32F Floating extra","CODE","","p-float.htm#14" ! "FVARIABLE","compiling -<name>- -- ; run-time -- addr","ANSI Floating","COLON","","p-float.htm#15" ! "FVALUE","compiling -<name>- -- ; fs: r -- ; run-time FS: -- r","W32F Floating extra","COLON","","p-float.htm#16" ! "FTO","","W32F Floating extra","COLON","","p-float.htm#17" ! "FCONSTANT","-<name>- ; fs: r --","ANSI Floating","COLON","","p-float.htm#18" ! "FLITERAL","Compilation fs: r -- ; Runtime fs: -- r","ANSI Floating","COLON","","p-float.htm#19" ! "FDROP","fs: r --","ANSI Floating","CODE","","p-float.htm#20" ! "FDUP","fs: r -- r r","ANSI Floating","CODE","","p-float.htm#21" ! "FSWAP","fs: r1 r2 -- r2 r1","ANSI Floating","CODE","","p-float.htm#22" ! "FOVER","fs: r1 r2 -- r1 r2 r1","ANSI Floating","CODE","","p-float.htm#23" ! "FROT","fs: r1 r2 r3 -- r2 r3 r1","ANSI Floating","CODE","","p-float.htm#24" ! "FPICK","n -- ; fs: -- r","W32F Floating extra","CODE","","p-float.htm#25" ! "FNIP","fs: r1 r2 -- r2","W32F Floating extra","COLON","","p-float.htm#26" ! "F2DROP","fs: r1 r2 --","W32F Floating extra","CODE","","p-float.htm#27" ! "F2DUP","fs: r1 r2 -- r1 r2 r1 r2","W32F Floating extra","COLON","","p-float.htm#28" ! "F2SWAP","fs: r1 r2 r3 r4 -- r3 r4 r2 r1","W32F Floating extra","COLON","","p-float.htm#29" ! "F2NIP","fs: r1 r2 r3 r4 -- r3 r4","W32F Floating extra","COLON","","p-float.htm#30" ! "fpi","fs: -- r","W32F Floating extra","CODE","","p-float.htm#31" ! "f0.0","fs: -- r","W32F Floating extra","CODE","","p-float.htm#32" ! "f1.0","fs: -- r","W32F Floating extra","CODE","","p-float.htm#33" ! "fL2t","fs: -- r","W32F Floating extra","CODE","","p-float.htm#34" ! "fL2e","fs: -- r","W32F Floating extra","CODE","","p-float.htm#35" ! "fLog2","fs: -- r","W32F Floating extra","CODE","","p-float.htm#36" ! "fLn2","fs: -- r","W32F Floating extra","CODE","","p-float.htm#37" ! "finf","fs: -- r","W32F Floating extra","FCONSTANT","","p-float.htm#38" ! "f2.0","fs: -- r","W32F Floating extra","FCONSTANT","","p-float.htm#39" ! "f10.0","fs: -- r","W32F Floating extra","FCONSTANT","","p-float.htm#40" ! "f0.5","fs: -- r","W32F Floating extra","FCONSTANT","","p-float.htm#41" ! "fbig","fs: -- r","W32F Floating extra","FCONSTANT","","p-float.htm#42" ! "feps","fs: -- r","W32F Floating extra","FCONSTANT","","p-float.htm#43" ! "fsmall","fs: -- r","W32F Floating extra","FCONSTANT","","p-float.htm#44" ! "a2**63","-- addr","W32F Floating extra","FVARIABLE","","p-float.htm#45" ! "sq2m1","-- addr","W32F Floating extra","FVARIABLE","","p-float.htm#46" ! "sq2/2m1","-- addr","W32F Floating extra","FVARIABLE","","p-float.htm#47" ! "FLOOR","fs: r1 -- r2","ANSI Floating","CODE","","p-float.htm#48" ! "FCEIL","fs: r1 -- r2","W32F Floating extra","CODE","","p-float.htm#49" ! "FTRUNC","fs: r1 -- r2","W32F Floating extra","CODE","","p-float.htm#50" ! "FROUND","fs: r1 -- r2","ANSI Floating","CODE","","p-float.htm#51" ! "D>F","d -- ; Fs: -- r","ANSI Floating","CODE","","p-float.htm#52" ! "F>D","-- d ; fs: r --","ANSI Floating","CODE","","p-float.htm#53" ! "ZF>D","-- d ; fs: r --","W32F Floating extra","CODE","","p-float.htm#54" ! "s>f","n -- ; fs: -- r","W32F Floating extra","COLON","","p-float.htm#55" ! "f>s","-- n ; fs: r --","W32F Floating extra","COLON","","p-float.htm#56" ! "FS>DS","-- dfloat fs: r --","W32F Floating extra","CODE","","p-float.htm#57" ! "SFS>DS","-- float ; fs: r --","W32F Floating extra","CODE","","p-float.htm#58" ! "F0=","-- f ; fs: r --","ANSI Floating","COLON","","p-float.htm#59" ! "F0<","-- f ; fs: r --","ANSI Floating","COLON","","p-float.htm#60" ! "f0>","-- f ; fs: r --","W32F Floating extra","COLON","","p-float.htm#61" ! "f=","-- f ; fs: r1 r2 --","W32F Floating extra","COLON","","p-float.htm#62" ! "F<","-- f ; fs: r1 r2 --","ANSI Floating","COLON","","p-float.htm#63" ! "f>","-- f ; fs: r1 r2 --","W32F Floating extra","COLON","","p-float.htm#64" ! "f<=","-- f ; fs: r1 r2 --","W32F Floating extra","COLON","","p-float.htm#65" ! "f>=","-- f ; fs: r1 r2 --","W32F Floating extra","COLON","","p-float.htm#66" ! "FMAX","fs: r1 r2 -- r3","ANSI Floating","COLON","","p-float.htm#67" ! "FMIN","fs: r1 r2 -- r3","ANSI Floating","COLON","","p-float.htm#68" ! "F+","fs: r1 r2 -- r3","ANSI Floating","CODE","","p-float.htm#69" ! "F-","fs: r1 r2 -- r3","ANSI Floating","CODE","","p-float.htm#70" ! "F*","fs: r1 r2 -- r3","ANSI Floating","CODE","","p-float.htm#71" ! "F/","fs: r1 r2 -- r3","ANSI Floating","CODE","","p-float.htm#72" ! "FNEGATE","fs: r1 -- r2","ANSI Floating","CODE","","p-float.htm#73" ! "1/f","fs: r1 -- r2","W32F Floating extra","COLON","","p-float.htm#74" ! "f2*","fs: r1 -- r2","W32F Floating extra","CODE","","p-float.htm#75" ! "f2/","fs: r1 -- r2","W32F Floating extra","CODE","","p-float.htm#76" ! "FABS","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#77" ! "FSQRT","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#78" ! "FSIN","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#79" ! "FCOS","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#80" ! "FSINCOS","fs: r1 -- r2 r3","ANSI Floating ext","COLON","","p-float.htm#81" ! "FTAN","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#82" ! "FASIN","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#83" ! "FACOS","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#84" ! "FATAN","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#85" ! "FATAN2","fs: r1 r2 -- r3","ANSI Floating ext","CODE","","p-float.htm#86" ! "FLN","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#87" ! "FLNP1","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#88" ! "FLOG","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#89" ! "FEXP","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#90" ! "FEXPM1","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#91" ! "f**","fs: r1 r2 -- r3","ANSI Floating ext","COLON","","p-float.htm#92" ! "FALOG","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#93" ! "FSINH","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#94" ! "FCOSH","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#95" ! "FTANH","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#96" ! "FASINH","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#97" ! "FACOSH","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#98" ! "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" ! "min-precision","u --","W32F Floating extra","COLON","","p-float.htm#106" ! "(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" "NoConsoleInImage","--","W32F console","COLON","","p-noconsole.htm#2" --- 911,1039 ---- "B/FLOAT","-- n","W32F Floating extra","CONSTANT","","p-float.htm#5" "cells/float","","","VALUE","","p-float.htm#6" ! "FLOATSP","-- addr","W32F Floating extra","NEWUSER","","p-float.htm#7" ! "finit","--","W32F Floating extra","CODE","","p-float.htm#8" ! "F@","addr -- ; fs: -- r","ANSI Floating","CODE","","p-float.htm#9" ! "SF@","addr -- ; fs: -- r","ANSI Floating ext","CODE","","p-float.htm#10" ! "DF@","addr -- ; fs: -- r","ANSI Floating ext","CODE","","p-float.htm#11" ! "F!","addr -- ; fs: r --","ANSI Floating","CODE","","p-float.htm#12" ! "SF!","addr -- ; fs: r --","ANSI Floating ext","CODE","","p-float.htm#13" ! "DF!","addr -- ; fs: r --","ANSI Floating ext","CODE","","p-float.htm#14" ! "F+!","addr -- ; fs: r --","W32F Floating extra","CODE","","p-float.htm#15" ! "F,","fs: r --","W32F Floating extra","COLON","","p-float.htm#16" ! "FVARIABLE","compiling -<name>- -- ; run-time -- addr","ANSI Floating","COLON","","p-float.htm#17" ! "FVALUE","compiling -<name>- -- ; fs: r -- ; run-time FS: -- r","W32F Floating extra","COLON","","p-float.htm#18" ! "FTO","","W32F Floating extra","COLON","","p-float.htm#19" ! "FCONSTANT","-<name>- ; fs: r --","ANSI Floating","COLON","","p-float.htm#20" ! "FLITERAL","Compilation fs: r -- ; Runtime fs: -- r","ANSI Floating","COLON","","p-float.htm#21" ! "FDROP","fs: r --","ANSI Floating","CODE","","p-float.htm#22" ! "FDUP","fs: r -- r r","ANSI Floating","CODE","","p-float.htm#23" ! "FSWAP","fs: r1 r2 -- r2 r1","ANSI Floating","CODE","","p-float.htm#24" ! "FOVER","fs: r1 r2 -- r1 r2 r1","ANSI Floating","CODE","","p-float.htm#25" ! "FROT","fs: r1 r2 r3 -- r2 r3 r1","ANSI Floating","CODE","","p-float.htm#26" ! "FPICK","n -- ; fs: -- r","W32F Floating extra","CODE","","p-float.htm#27" ! "FNIP","fs: r1 r2 -- r2","W32F Floating extra","COLON","","p-float.htm#28" ! "F2DROP","fs: r1 r2 --","W32F Floating extra","CODE","","p-float.htm#29" ! "F2DUP","fs: r1 r2 -- r1 r2 r1 r2","W32F Floating extra","COLON","","p-float.htm#30" ! "F2SWAP","fs: r1 r2 r3 r4 -- r3 r4 r1 r2","W32F Floating extra","COLON","","p-float.htm#31" ! "F2NIP","fs: r1 r2 r3 r4 -- r3 r4","W32F Floating extra","COLON","","p-float.htm#32" ! "fpi","fs: -- r","W32F Floating extra","CODE","","p-float.htm#33" ! "f0.0","fs: -- r","W32F Floating extra","CODE","","p-float.htm#34" ! "f1.0","fs: -- r","W32F Floating extra","CODE","","p-float.htm#35" ! "fL2t","fs: -- r","W32F Floating extra","CODE","","p-float.htm#36" ! "fL2e","fs: -- r","W32F Floating extra","CODE","","p-float.htm#37" ! "fLog2","fs: -- r","W32F Floating extra","CODE","","p-float.htm#38" ! "fLn2","fs: -- r","W32F Floating extra","CODE","","p-float.htm#39" ! "finf","fs: -- r","W32F Floating extra","FCONSTANT","","p-float.htm#40" ! "f2.0","fs: -- r","W32F Floating extra","FCONSTANT","","p-float.htm#41" ! "f10.0","fs: -- r","W32F Floating extra","FCONSTANT","","p-float.htm#42" ! "f0.5","fs: -- r","W32F Floating extra","FCONSTANT","","p-float.htm#43" ! "fbig","fs: -- r","W32F Floating extra","FCONSTANT","","p-float.htm#44" ! "feps","fs: -- r","W32F Floating extra","FCONSTANT","","p-float.htm#45" ! "fsmall","fs: -- r","W32F Floating extra","FCONSTANT","","p-float.htm#46" ! "a2**63","-- addr","W32F Floating extra","FVARIABLE","","p-float.htm#47" ! "sq2m1","-- addr","W32F Floating extra","FVARIABLE","","p-float.htm#48" ! "sq2/2m1","-- addr","W32F Floating extra","FVARIABLE","","p-float.htm#49" ! "FLOOR","fs: r1 -- r2","ANSI Floating","CODE","","p-float.htm#50" ! "FCEIL","fs: r1 -- r2","W32F Floating extra","CODE","","p-float.htm#51" ! "FTRUNC","fs: r1 -- r2","W32F Floating extra","CODE","","p-float.htm#52" ! "FROUND","fs: r1 -- r2","ANSI Floating","CODE","","p-float.htm#53" ! "D>F","d -- ; Fs: -- r","ANSI Floating","CODE","","p-float.htm#54" ! "F>D","-- d ; fs: r --","ANSI Floating","CODE","","p-float.htm#55" ! "ZF>D","-- d ; fs: r --","W32F Floating extra","CODE","","p-float.htm#56" ! "s>f","n -- ; fs: -- r","W32F Floating extra","COLON","","p-float.htm#57" ! "f>s","-- n ; fs: r --","W32F Floating extra","COLON","","p-float.htm#58" ! "FS>DS","-- dfloat fs: r --","W32F Floating extra","CODE","","p-float.htm#59" ! "SFS>DS","-- float ; fs: r --","W32F Floating extra","CODE","","p-float.htm#60" ! "F0=","-- f ; fs: r --","ANSI Floating","COLON","","p-float.htm#61" ! "F0<","-- f ; fs: r --","ANSI Floating","COLON","","p-float.htm#62" ! "f0>","-- f ; fs: r --","W32F Floating extra","COLON","","p-float.htm#63" ! "f=","-- f ; fs: r1 r2 --","W32F Floating extra","COLON","","p-float.htm#64" ! "F<","-- f ; fs: r1 r2 --","ANSI Floating","COLON","","p-float.htm#65" ! "f>","-- f ; fs: r1 r2 --","W32F Floating extra","COLON","","p-float.htm#66" ! "f<=","-- f ; fs: r1 r2 --","W32F Floating extra","COLON","","p-float.htm#67" ! "f>=","-- f ; fs: r1 r2 --","W32F Floating extra","COLON","","p-float.htm#68" ! "FMAX","fs: r1 r2 -- r3","ANSI Floating","COLON","","p-float.htm#69" ! "FMIN","fs: r1 r2 -- r3","ANSI Floating","COLON","","p-float.htm#70" ! "F+","fs: r1 r2 -- r3","ANSI Floating","CODE","","p-float.htm#71" ! "F-","fs: r1 r2 -- r3","ANSI Floating","CODE","","p-float.htm#72" ! "F*","fs: r1 r2 -- r3","ANSI Floating","CODE","","p-float.htm#73" ! "F/","fs: r1 r2 -- r3","ANSI Floating","CODE","","p-float.htm#74" ! "FNEGATE","fs: r1 -- r2","ANSI Floating","CODE","","p-float.htm#75" ! "1/f","fs: r1 -- r2","W32F Floating extra","COLON","","p-float.htm#76" ! "f2*","fs: r1 -- r2","W32F Floating extra","CODE","","p-float.htm#77" ! "f2/","fs: r1 -- r2","W32F Floating extra","CODE","","p-float.htm#78" ! "FABS","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#79" ! "FSQRT","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#80" ! "F~","-- flag ; fs: r1 r2 r3 --","ANSI Floating ext","COLON","","p-float.htm#81" ! "FSIN","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#82" ! "FCOS","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#83" ! "FSINCOS","fs: r1 -- r2 r3","ANSI Floating ext","COLON","","p-float.htm#84" ! "FTAN","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#85" ! "FASIN","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#86" ! "FACOS","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#87" ! "FATAN","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#88" ! "FATAN2","fs: r1 r2 -- r3","ANSI Floating ext","CODE","","p-float.htm#89" ! "FLN","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#90" ! "FLNP1","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#91" ! "FLOG","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#92" ! "FEXP","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#93" ! "FEXPM1","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#94" ! "f**","fs: r1 r2 -- r3","ANSI Floating ext","COLON","","p-float.htm#95" ! "FALOG","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#96" ! "FSINH","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#97" ! "FCOSH","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#98" ! "FTANH","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#99" ! "FASINH","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#100" ! "FACOSH","fs: r1 -- r2","ANSI Floating ext","CODE","","p-float.htm#101" ! "FATANH","fs: r1 -- r2","ANSI Floating ext","COLON","","p-float.htm#102" ! ">FLOAT","addr len -- f ; fs: -- r | <nothing>","ANSI Floating","COLON","","p-float.htm#103" ! "f#","Interpretation: ""fp no."" -- ; fs: -- r","W32F Floating extra","COLON","","p-float.htm#104" ! "REPRESENT","addr u -- n flag1 flag2 ; fs: r --","ANSI Floating","COLON","","p-float.htm#105" ! "PRECISION","-- u","ANSI Floating ext","COLON","","p-float.htm#106" ! "SET-PRECISION","u --","ANSI Floating ext","COLON","","p-float.htm#107" ! "min-precision","u --","W32F Floating extra","COLON","","p-float.htm#108" ! "(F.)","addr -- ; fs: r --","W32F Floating extra","COLON","","p-float.htm#109" ! "(FE.)","addr -- ; fs: r --","W32F Floating extra","COLON","","p-float.htm#110" ! "(FS.)","addr -- ; fs: r --","W32F Floating extra","COLON","","p-float.htm#111" ! "(E.)","FS.","W32F Floating extra","SYNONYM","","p-float.htm#112" ! "(G.)","addr -- ; fs: r --","W32F Floating extra","COLON","","p-float.htm#113" ! "F.","fs: r --","ANSI Floating ext","COLON","","p-float.htm#114" ! "FE.","fs: r --","ANSI Floating ext","COLON","","p-float.htm#115" ! "FS.","fs: r --","ANSI Floating ext","COLON","","p-float.htm#116" ! "E.","fs: r --","W32F Floating extra","SYNONYM","","p-float.htm#117" ! "G.","fs: r --","W32F Floating extra","COLON","","p-float.htm#118" ! "f.s","--","W32F Floating debug","COLON","","p-float.htm#119" ! ".fdepth","--","W32F Floating debug","COLON","","p-float.htm#120" ! "fdump","--","W32F Floating debug","COLON","","p-float.htm#121" "MessageLoop","--","W32F console","COLON","","p-noconsole.htm#0" "NoConsoleIO","--","W32F console","COLON","","p-noconsole.htm#1" "NoConsoleInImage","--","W32F console","COLON","","p-noconsole.htm#2" + "__STDCALL","--","w32f sys","COLON","","p-callback.htm#0" + "__CDECL","--","w32f sys","COLON","","p-callback.htm#1" + "CALLBACK","n1 -<name function>-","w32f sys","COLON","","p-callback.htm#2" + "CALLBACK:","args -<name>-","w32f sys","COLON","","p-callback.htm#3" + ".fonts","--","w32f sys","COLON","","p-callback.htm#4" + "HandleMessages","pMsg -- 0","","COLON","","p-callback.htm#5" + "WM_WIN32FORTH","","w32f","VALUE","","p-callback.htm#6" + "WM_WIN32FOR-INIT","--","w32f internal","COLON","","p-callback.htm#7" + "HandleWindowsMessages","hwnd msg wParam lParam -- flag","","COLON","","p-callback.htm#9" Index: p-index.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-index.htm,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** p-index.htm 26 Feb 2006 07:13:13 -0000 1.12 --- p-index.htm 25 May 2006 09:22:35 -0000 1.13 *************** *** 134,137 **** --- 134,138 ---- <li><a href="p-debugging.htm">Debugging in Win32Forth</a></li> <li><a href="p-windlls.htm">Calling Windows Procedures</a></li> + <li><a href="p-callback.htm">Using Callback functions</a></li> <li><a href="p-objects.htm">Object Oriented Programming</a></li> <li><a href="p-classes.htm">Win32Forth Classes</a></li> --- NEW FILE: p-callback.htm --- <html> <head> <meta http-equiv="Content-Language" content="en-gb"> <meta name="GENERATOR" content="dexh00"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title> </title><style><!-- h1 { font-family: Tahoma; font-size: 24pt; font-weight: bold } h2 { font-family: Tahoma; font-size: 18pt; font-weight: bold } --> </style> </head> <body><h1 align="center"> <a href="mailto:win...@ya...?subject=DOC:Doc error in $Id: p-callback.htm,v 1.1 2006/05/25 09:22:35 dbu_de Exp $"> <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a> <img border="0" src="FORTHPRO.gif" width="32" height="32"> Win32Forth</h1> <hr /><h1>Windows Callback support </h1><hr /><h2>Glossary </h2><pre><b><a name="0">: __STDCALL ( -- ) \ w32f sys </a></b></pre><p>Turn on stdcall type callback (the default). </p><pre><b><a name="1">: __CDECL ( -- ) \ w32f sys </a></b></pre><p>Turn on __cdecl type callback. </p><pre><b><a name="2">: CALLBACK ( n1 -<name function>- ) \ w32f sys </a></b></pre><p>Define a callback with "name" that has n1 arguments. "name" will return the address of the callback at runtime. </p><p>Note that a maximum of 19 arguments is supported by Win32Forth. </p><pre><b><a name="3">: CALLBACK: ( args -<name>- ) \ w32f sys </a></b></pre><p>Define a callback function that has n1 arguments. </p><p>CALLBACK: creates TWO definitions! The first has the name you specify, and the second has the same name, prefixed with a '&' meaning 'address of' This second definition is the one which returns the address of the callback, and must be passed to Windows. </p><p>Note that a maximum of 19 arguments is supported by Win32Forth. </p>********************************************************************** <h2>An example of how to use a callback </h2>********************************************************************** <p>The "EnumFonts" windows call requires an application callback that will be called repeatedly to process each font in the system. We are just displaying the fonts, so we just look at the "dwType" to decide how to display each font. </p><pre> 4 CallBack: FontFunc { lplf lptm dwType lpData -- int } \ The callback function for EnumFonts() used by .FONTS to dump \ all installed fonts to the console window. \ This callback as specified by "EnumFonts" passes four (4) parameters to \ the callback procedure, so we must say "4 CallBack: FontFunc" to define \ a callback that accepts four parameters. cr dwType dup TRUETYPE_FONTTYPE and IF ." " ELSE ." Non-" THEN ." TrueType " dup RASTER_FONTTYPE and IF ." Raster " ELSE ." Vector " THEN DEVICE_FONTTYPE and IF ." Device " ELSE ." GDI " THEN lplf 28 + LF_FACESIZE 2dup 0 scan nip - type cr 5 spaces lplf dup @ 4 .r \ height 4 + dup @ 4 .r \ width 4 + dup @ 6 .r.1 \ escapement angle 4 + dup @ 6 .r.1 \ orientation angle 4 + dup @ 4 .r \ weight 4 + dup c@ 1 and 2 .r \ italics 1 + dup c@ 1 and 2 .r \ underline 1 + dup c@ 1 and 2 .r \ strike-out 1 + dup c@ 4 .r \ character set 1 + dup c@ 2 .r \ output precision 1 + dup c@ 4 .r \ clip precision 1 + dup c@ 2 .r \ output quality 1 + c@ 4 h.r \ family and pitch 1 ; \ return "1=success" flag to windows : .fonts ( -- ) \ w32f sys </pre><pre><b><a name="4">: .fonts ( -- ) \ w32f sys </a></b></pre><p>Dump all installed Fonts to the console window. </p><pre>\ The callback name is passed to windows as shown. cr 5 spaces ." ht wide esc ornt wt I U S set p cp q fp" 0 &FontFunc \ here it goes... 0 conDC Call EnumFonts drop ; </pre>********************************************************************** <h2>The window message handler for Win32Forth. </h2>********************************************************************** <pre><b><a name="5">: HandleMessages { pMsg -- 0 } </a></b></pre><p>This is the callback which handles the messages send by windows to our Application. The chain MSG-CHAIN receives all messages. </p><p>This callback is called by the console window and by WINPAUSE. </p>********************************************************************** <h2>Allow Forth to send messages to itself. </h2>********************************************************************** <p>Each instance of forth running under windows is able through the method WM32Forth: and a unique set of application specific constants (WM_BEEPME in this example) to detect a message being set to itself, and subsequently perform some specific operation as ordered. </p><pre>:M Win32Forth: ( h m w l -- ) over WM_BEEPME = if beep then ;M </pre><p><b> Note: </b> This Win32Forth feature is <b> deprecated </b>, and may be removed in a future release. </p><pre><b><a name="6">-1 value WM_WIN32FORTH \ w32f </a></b></pre><p>This windows message definition for WM_WIN32FORTH, provides a way for multiple Win32Forth applications to interact between themselves wile running. </p><pre><b><a name="7">: WM_WIN32FOR-INIT ( -- ) \ w32f internal </a></b></pre><p>WM_WIN32FOR-INIT obtains a unique windows message value from Windows then Win32Forth starts up, so this instance of forth will be able to talk to other instances of forth. </p><pre><b><a name="8">' _win32forth-message is win32forth-message ( lParam wParam -- ) \ w32f </a></b></pre><p>WIN32FORTH-MESSAGE allows a unique message to be broadcast to all currently running instances of Win32Forth. </p><p>'wParam' is the application specific sub-message that each instance can </p><p>** use to determine if it should handle the message. 'lParam' is available to pass specific information between instances of Win32Forth. </p><p>Note: The message is not only broadcast to to all currently running instances of Win32Forth. It is brodcast to ALL windows in the system. So it may be rather slow... </p><pre><b><a name="9">: HandleWindowsMessages { hwnd msg wParam lParam -- flag } </a></b></pre><p>This is the callback which handles the messages send by win32forth-message. It is called in the windows procedure of the console window of win32forth. </p><h2>A Win32Forth-message example: </h2><pre> 31415 constant WM_BEEPME \ a command code to beep \ Send the message "WM_BEEPME" to all running instances of Win32Forth : beepme ( -- ) 0 WM_BEEPME win32forth-message ; \ The chain "FORTH-MSG-CHAIN" receives all messages that are broadcast by any \ program with the WM_WIN32FORTH message. "FORTH-MSG-BEEP" tests the sub-message \ WM_BEEPME, and if it matches, then it beeps the console. Any sub-message that \ is not recognized by any instance of a Win32Forth program must be ignored. : forth-msg-beep ( wParam lParam -- wParam lParam ) over WM_BEEPME = if beep then ; forth-msg-chain chain-add forth-msg-beep </pre>********************************************************************** ********************************************************************** ********************************************************************** ********************************************************************** <hr><p>Document $Id: p-callback.htm,v 1.1 2006/05/25 09:22:35 dbu_de Exp $</p> </body></html> |
|
From: Dirk B. <db...@us...> - 2006-05-25 09:20:51
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv30263/src Modified Files: CALLBACK.f Log Message: A little documentation for callbacks added. Index: CALLBACK.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CALLBACK.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** CALLBACK.f 13 Feb 2006 14:06:08 -0000 1.6 --- CALLBACK.f 25 May 2006 09:20:41 -0000 1.7 *************** *** 5,18 **** \ arm 15/08/2005 20:01:54 n callback -- n is now max of 19 args ! cr .( Loading Windows Callback...) ! in-application ! \ -------------------- Callback Support ------------------------------------- \ CALLBACK-RETURN and CALLBACK-BEGIN restore and save regs, set up EBP and ESP \ BUILD-CALLBACK uses ECX as parm count, ret count on stack -- __CDECL sets to zero ! NCODE CALLBACK-RETURN \ general return code, restores all but ecx! code-here cell+ code-, \ make an ITC mov eax, ebx \ return value --- 5,23 ---- \ arm 15/08/2005 20:01:54 n callback -- n is now max of 19 args ! \ *D doc ! \ *! p-callback ! \ *T Windows Callback support ! \ *S Glossary ! cr .( Loading Windows Callback...) ! ! IN-APPLICATION \ CALLBACK-RETURN and CALLBACK-BEGIN restore and save regs, set up EBP and ESP \ BUILD-CALLBACK uses ECX as parm count, ret count on stack -- __CDECL sets to zero ! NCODE CALLBACK-RETURN \ w32f intern ! \ General return code, restores all but ecx! code-here cell+ code-, \ make an ITC mov eax, ebx \ return value *************** *** 50,54 **** c; ! CFA-CODE CALLBACK-BEGIN \ general start code, don't disturb EAX! push ebp \ save regs, return count is already on the stack push ebx --- 55,60 ---- c; ! CFA-CODE CALLBACK-BEGIN \ w32f intern ! \ General start code, don't disturb EAX! push ebp \ save regs, return count is already on the stack push ebx *************** *** 95,106 **** exec c; \ go for it ! in-system variable __CDECLV 0 __CDECLV ! \ for __cdecl type callbacks - : __STDCALL ; IMMEDIATE \ does nothing, callback is stdcall - : __CDECL __CDECLV ON ; \ turn on __cdecl type callback ! : BUILD-CALLBACK ( n1 -- a1 a2 ) \ define a callback procedure ! dup 20 0 within abort" arg value too large for callback" >r \ generated via macro[ ]macro code-here \ func address (a1) --- 101,119 ---- exec c; \ go for it ! IN-SYSTEM variable __CDECLV 0 __CDECLV ! \ for __cdecl type callbacks ! : __STDCALL ( -- ) \ w32f sys ! \ *G Turn on stdcall type callback (the default). ! ; IMMEDIATE ! ! : __CDECL ( -- ) \ w32f sys ! \ *G Turn on __cdecl type callback. ! __CDECLV ON ; ! ! : BUILD-CALLBACK ( n1 -- a1 a2 ) \ w32f sys ! \ Define a callback procedure. ! dup 20 0 within abort" Argument value too large for callback." >r \ generated via macro[ ]macro code-here \ func address (a1) *************** *** 118,129 **** ; ! : CALLBACK ( n1 -<name function>- ) \ define a callback with "name" that has n1 args ! ( -- a1 ) \ runtime, returns address of callback ! BUILD-CALLBACK >R CONSTANT ' R> ! ! ; ! : CALLBACK: ( args -<name>- ) \ makes a headerless callback function, only ! ( -- a1 ) \ the callback structure has a header ! BUILD-CALLBACK >R MAXSTRING _LOCALALLOC >R \ use a dynamic string buffer S" CONSTANT &" R@ PLACE --- 131,148 ---- ; ! : CALLBACK ( n1 -<name function>- ) \ w32f sys ! \ *G Define a callback with "name" that has n1 arguments. ! \ ** "name" will return the address of the callback at runtime. ! \ *P Note that a maximum of 19 arguments is supported by Win32Forth. ! BUILD-CALLBACK >R CONSTANT ' R> ! ; ! : CALLBACK: ( args -<name>- ) \ w32f sys ! \ *G Define a callback function that has n1 arguments. ! \ *P CALLBACK: creates TWO definitions! The first has the name you specify, ! \ ** and the second has the same name, prefixed with a '&' meaning 'address of' ! \ ** This second definition is the one which returns the address of the callback, ! \ ** and must be passed to Windows. ! \ *P Note that a maximum of 19 arguments is supported by Win32Forth. ! BUILD-CALLBACK >R \ the callback structure has a header MAXSTRING _LOCALALLOC >R \ use a dynamic string buffer S" CONSTANT &" R@ PLACE *************** *** 139,249 **** \ ************************************************************************* ! \ **************** allow Forth to handle windows messages ***************** \ ************************************************************************* ! (( ! The following windows message definition for WM_WIN32FORTH, provides a ! way for multiple Win32Forth applications to interact between themselves ! wile running. ! )) ! ! -1 value WM_WIN32FORTH ! ! (( ! Each instance of forth running under windows is able through the method ! WM32Forth: and a unique set of application specific constants ! (WM_BEEPME in this example) to detect a message being set to itself, ! and subsequently perform some specific operation as ordered. ! :M Win32Forth: ( h m w l -- ) \ The REAL version of this is at the ! \ end of this file ! over WM_BEEPME = ! if beep ! then ! ;M ! WM_WIN32FOR-INIT following obtains a unique windows message value from ! Windows then Win32Forth starts up, so this instance of forth will be ! able to talk to other instances of forth. ! )) ! \ changed Sonntag, August 22 2004 dbu ! 1 proc RegisterWindowMessage ! : wm_win32for-init ( -- ) ! \ create a unique message name; we do this to make shure ! \ that the console only talk to WinEd/SciEdit with the ! \ build with the Win32Forth Version. ! \ using PAD is ok here; because this is called before any ! \ application code is executed ! s" WM_WIN32FORTH_" pad place version# 0 (d.) pad +place pad +null ! pad 1+ Call RegisterWindowMessage ?dup ! if to WM_WIN32FORTH ! then ; ! initialization-chain chain-add wm_win32for-init \ initialize the message ! (( ! WIN32FORTH-MESSAGE allows a unique message to be broadcast to all ! currently running instances of Win32Forth. The 'w' parameter is the ! application specific sub-message that each instance can use to ! determine if it should handle the message. The 'l' parameter is ! available to pass specific information between instances of Win32Forth. ! )) ! \ changed September 6th, 2003 - 17:30 dbu ! 7 proc SendMessageTimeout ! : _win32forth-message ( lParam wParam -- ) ! 2>R 0 SP@ 2 ( ms ) SMTO_ABORTIFHUNG 2R> ! WM_WIN32FORTH HWND_BROADCAST Call SendMessageTimeout 2drop ! ; ! ' _win32forth-message is win32forth-message \ link to deferred word 1 PROC TranslateMessage 1 PROC DispatchMessage : HandleMessages { pMsg -- 0 } ! pMsg TRUE msg-chain do-chain nip ! if pMsg Call TranslateMessage drop ! pMsg Call DispatchMessage drop ! then 0 ; ! : HandleWindowsMessages { hwnd msg wParam lParam -- flag } ! msg WM_WIN32FORTH = ! if hwnd msg wParam lParam ! forth-msg-chain do-chain \ perform the handlers ! 4drop ! 0 ! else hwnd msg wParam lParam ! DefaultWindowProc \ use default handler ! then ; ! 1 callback &HandleMessages HandleMessages \ callback for DoForthFunc ! 4 callback &WindowsMessages HandleWindowsMessages ! 0 callback &bye bye \ callback to terminate forth ! : HandleMessages-init ( -- ) ! &HandleMessages &CB-MSG ! ! &WindowsMessages &CB-WINMSG ! ! &bye &CB-BYE ! ; ! initialization-chain chain-add HandleMessages-init ! HandleMessages-init ! 5 proc PeekMessage ! :Noname ( -- ) ! { \ hwnd mess wparm lparm time pt.x pt.y -- } ! BEGIN PM_REMOVE 0 0 0 &of hwnd Call PeekMessage ! WHILE &of hwnd HandleMessages drop ! REPEAT ; is winpause ! \ A Win32Forth-message example: 31415 constant WM_BEEPME \ a command code to beep \ Send the message "WM_BEEPME" to all running instances of Win32Forth - : beepme ( -- ) 0 WM_BEEPME win32forth-message ; --- 158,316 ---- \ ************************************************************************* ! \ *S An example of how to use a callback \ ************************************************************************* ! \ *P The "EnumFonts" windows call requires an application callback that will be ! \ ** called repeatedly to process each font in the system. We are just ! \ ** displaying the fonts, so we just look at the "dwType" to decide how to ! \ ** display each font. ! 4 PROC EnumFonts \ must be in-application for WinEd !!! ! IN-SYSTEM ! \ *+ ! 4 CallBack: FontFunc { lplf lptm dwType lpData -- int } ! \ The callback function for EnumFonts() used by .FONTS to dump ! \ all installed fonts to the console window. ! \ This callback as specified by "EnumFonts" passes four (4) parameters to ! \ the callback procedure, so we must say "4 CallBack: FontFunc" to define ! \ a callback that accepts four parameters. ! cr ! dwType ! dup TRUETYPE_FONTTYPE and ! IF ." " ! ELSE ." Non-" ! THEN ." TrueType " ! dup RASTER_FONTTYPE and ! IF ." Raster " ! ELSE ." Vector " ! THEN ! DEVICE_FONTTYPE and ! IF ." Device " ! ELSE ." GDI " ! THEN ! lplf 28 + LF_FACESIZE 2dup 0 scan nip - type ! cr 5 spaces ! lplf dup @ 4 .r \ height ! 4 + dup @ 4 .r \ width ! 4 + dup @ 6 .r.1 \ escapement angle ! 4 + dup @ 6 .r.1 \ orientation angle ! 4 + dup @ 4 .r \ weight ! 4 + dup c@ 1 and 2 .r \ italics ! 1 + dup c@ 1 and 2 .r \ underline ! 1 + dup c@ 1 and 2 .r \ strike-out ! 1 + dup c@ 4 .r \ character set ! 1 + dup c@ 2 .r \ output precision ! 1 + dup c@ 4 .r \ clip precision ! 1 + dup c@ 2 .r \ output quality ! 1 + c@ 4 h.r \ family and pitch ! 1 ; \ return "1=success" flag to windows ! : .fonts ( -- ) \ w32f sys ! \ *G Dump all installed Fonts to the console window. ! \ The callback name is passed to windows as shown. ! cr 5 spaces ! ." ht wide esc ornt wt I U S set p cp q fp" ! 0 ! &FontFunc \ here it goes... ! 0 conDC Call EnumFonts drop ; ! \ *- ! IN-APPLICATION ! \ ************************************************************************* ! \ *S The window message handler for Win32Forth. ! \ ************************************************************************* 1 PROC TranslateMessage 1 PROC DispatchMessage : HandleMessages { pMsg -- 0 } ! \ *G This is the callback which handles the messages send by windows to our ! \ ** Application. The chain MSG-CHAIN receives all messages. ! \ *P This callback is called by the console window and by WINPAUSE. ! pMsg TRUE msg-chain do-chain nip ! if pMsg Call TranslateMessage drop ! pMsg Call DispatchMessage drop ! then 0 ; ! \ ************************************************************************* ! \ *S Allow Forth to send messages to itself. ! \ ************************************************************************* ! \ *P Each instance of forth running under windows is able through the method ! \ ** WM32Forth: and a unique set of application specific constants ! \ ** (WM_BEEPME in this example) to detect a message being set to itself, ! \ ** and subsequently perform some specific operation as ordered. ! \ *E :M Win32Forth: ( h m w l -- ) ! \ ** over WM_BEEPME = ! \ ** if beep ! \ ** then ;M ! \ *P \b Note: \d This Win32Forth feature is \b deprecated \d, and may be ! \ ** removed in a future release. ! -1 value WM_WIN32FORTH \ w32f ! \ *G This windows message definition for WM_WIN32FORTH, provides a way for ! \ ** multiple Win32Forth applications to interact between themselves ! \ ** wile running. ! \ changed Sonntag, August 22 2004 dbu ! 1 proc RegisterWindowMessage ! : WM_WIN32FOR-INIT ( -- ) \ w32f internal ! \ *G WM_WIN32FOR-INIT obtains a unique windows message value from Windows ! \ ** then Win32Forth starts up, so this instance of forth will be ! \ ** able to talk to other instances of forth. ! \ Create a unique message name; we do this to make shure ! \ that the console only talk to WinEd/SciEdit with the ! \ build with the Win32Forth Version. ! \ using PAD is ok here; because this is called before any ! \ application code is executed ! s" WM_WIN32FORTH_" pad place version# 0 (d.) pad +place pad +null ! pad 1+ Call RegisterWindowMessage ?dup ! if to WM_WIN32FORTH ! then ; ! initialization-chain chain-add wm_win32for-init \ initialize the message ! ! \ changed September 6th, 2003 - 17:30 dbu ! 7 proc SendMessageTimeout ! : _win32forth-message ( lParam wParam -- ) \ w32f intern ! 2>R 0 SP@ 2 ( ms ) SMTO_ABORTIFHUNG 2R> ! WM_WIN32FORTH HWND_BROADCAST Call SendMessageTimeout 2drop ; ! ! ' _win32forth-message is win32forth-message ( lParam wParam -- ) \ w32f ! \ *G WIN32FORTH-MESSAGE allows a unique message to be broadcast to all ! \ ** currently running instances of Win32Forth. ! \ *P 'wParam' is the application specific sub-message that each instance can ! \ *P ** use to determine if it should handle the message. ! \ ** 'lParam' is available to pass specific information between instances ! \ ** of Win32Forth. ! \ *P Note: The message is not only broadcast to to all currently running ! \ ** instances of Win32Forth. It is brodcast to ALL windows in the system. ! \ ** So it may be rather slow... ! ! : HandleWindowsMessages { hwnd msg wParam lParam -- flag } ! \ *G This is the callback which handles the messages send by win32forth-message. ! \ ** It is called in the windows procedure of the console window of win32forth. ! msg WM_WIN32FORTH = ! if hwnd msg wParam lParam ! forth-msg-chain do-chain \ perform the handlers ! 4drop 0 ! else hwnd msg wParam lParam ! DefaultWindowProc \ use default handler ! then ; ! ! \ *S A Win32Forth-message example: ! ! \ *+ 31415 constant WM_BEEPME \ a command code to beep \ Send the message "WM_BEEPME" to all running instances of Win32Forth : beepme ( -- ) 0 WM_BEEPME win32forth-message ; *************** *** 253,332 **** \ WM_BEEPME, and if it matches, then it beeps the console. Any sub-message that \ is not recognized by any instance of a Win32Forth program must be ignored. - : forth-msg-beep ( wParam lParam -- wParam lParam ) over WM_BEEPME = ! if beep ! then ; ! forth-msg-chain chain-add forth-msg-beep \ default first entry to forth messages ! in-system \ ************************************************************************* ! \ ***************** An example of how to use a callback ******************* \ ************************************************************************* ! \ The "EnumFonts" windows call requires an application callback that will be ! \ called repeatedly to process each font in the system. We are just ! \ displaying the fonts, so we just look at the "dwType" to decide how to ! \ display each font. ! ! \ NOTE!: CallBack: creates TWO definitions! The first has the name you specify, ! \ and the second has the same name, prefixed with a '&' meaning 'address of' ! \ This second definition is the one which returns the address of the ! \ callback, and must be passed to Windows. ! ! 4 CallBack: FontFunc { lplf lptm dwType lpData -- int } ! cr \ rls - many additions ! dwType ! dup TRUETYPE_FONTTYPE and ! IF ." " ! ELSE ." Non-" ! THEN ." TrueType " ! dup RASTER_FONTTYPE and ! IF ." Raster " ! ELSE ." Vector " ! THEN ! DEVICE_FONTTYPE and ! IF ." Device " ! ELSE ." GDI " ! THEN ! lplf 28 + LF_FACESIZE 2dup 0 scan nip - type ! cr 5 spaces ! lplf dup @ 4 .r \ height ! 4 + dup @ 4 .r \ width ! 4 + dup @ 6 .r.1 \ escapement angle ! 4 + dup @ 6 .r.1 \ orientation angle ! 4 + dup @ 4 .r \ weight ! 4 + dup c@ 1 and 2 .r \ italics ! 1 + dup c@ 1 and 2 .r \ underline ! 1 + dup c@ 1 and 2 .r \ strike-out ! 1 + dup c@ 4 .r \ character set ! 1 + dup c@ 2 .r \ output precision ! 1 + dup c@ 4 .r \ clip precision ! 1 + dup c@ 2 .r \ output quality ! 1 + c@ 4 h.r \ family and pitch ! 1 ; \ return "1=success" flag to windows ! ! \ this callback as specified by "EnumFonts" passes four (4) parameters to ! \ the callback procedure, so we must say "4 CallBack: FontFunc" to define ! \ a callback that accepts four parameters. ! ! \ the callback name is passed to windows as shown, after converting the ! \ callback address to an absolute address for windows. ! in-application ! 4 PROC EnumFonts \ must be in-application for WinEd !!! ! in-system ! : .fonts ( -- ) ! cr 5 spaces ! ." ht wide esc ornt wt I U S set p cp q fp" ! 0 ! &FontFunc ! 0 ! conDC \ the Device Context of the DC ! Call EnumFonts drop ; ! in-application --- 320,358 ---- \ WM_BEEPME, and if it matches, then it beeps the console. Any sub-message that \ is not recognized by any instance of a Win32Forth program must be ignored. : forth-msg-beep ( wParam lParam -- wParam lParam ) over WM_BEEPME = ! if beep ! then ; ! forth-msg-chain chain-add forth-msg-beep ! \ *- \ ************************************************************************* ! \ A definition of WINPAUSE that doesn't need the console window. \ ************************************************************************* + 5 proc PeekMessage + :Noname ( -- ) + { \ hwnd mess wparm lparm time pt.x pt.y -- } + BEGIN PM_REMOVE 0 0 0 &of hwnd Call PeekMessage + WHILE &of hwnd HandleMessages drop + REPEAT ; is WINPAUSE ! \ ************************************************************************* ! \ Init the system callbacks. ! \ These callbacks are needed by the console window. ! \ ************************************************************************* ! 1 callback &HandleMessages HandleMessages \ callback for HandleMessages ! 4 callback &WindowsMessages HandleWindowsMessages \ callback for HandleWindowsMessages ! 0 callback &bye bye \ callback to terminate forth ! : HandleMessages-init ( -- ) ! &HandleMessages &CB-MSG ! ! &WindowsMessages &CB-WINMSG ! ! &bye &CB-BYE ! ; ! initialization-chain chain-add HandleMessages-init ! HandleMessages-init ! \ *Z |
|
From: Dirk B. <db...@us...> - 2006-05-25 08:41:42
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15571/src/tools Modified Files: DexH-CreateDocs.f Log Message: A little documentation for callbacks added. Index: DexH-CreateDocs.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/DexH-CreateDocs.f,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** DexH-CreateDocs.f 9 Feb 2006 18:01:44 -0000 1.13 --- DexH-CreateDocs.f 25 May 2006 08:41:35 -0000 1.14 *************** *** 59,63 **** s" src\FLOAT.F" create-doc s" src\console\NoConsole.f" create-doc ! ; --- 59,63 ---- s" src\FLOAT.F" create-doc s" src\console\NoConsole.f" create-doc ! s" src\Callback.f" create-doc ; |
|
From: Dirk B. <db...@us...> - 2006-05-24 15:27:55
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7250/apps/Player4 Modified Files: CommandID.f PLAYER4.F PLAYER4.ff PLAYER4.frm Pl_MciWindow.f Log Message: "Control center" dialog updated and some minor changes. Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.54 retrieving revision 1.55 diff -C2 -d -r1.54 -r1.55 *** PLAYER4.F 23 May 2006 19:39:59 -0000 1.54 --- PLAYER4.F 24 May 2006 15:27:43 -0000 1.55 *************** *** 288,301 **** \ ----------------------------------------------------------------------------- : Pause/Resume ( -- ) ! Playing?: Player4W if Pause/Resume: Player4W then ; ! : Stop/Next ( -- ) ! Playing?: Player4W ! if Close: Player4W ! else catalog-exist? ! if play-catalog-random: Player4W ! then ! then ! ; IDM_STOP_NEXT SetCommand 5000 value step --- 288,301 ---- \ ----------------------------------------------------------------------------- : Pause/Resume ( -- ) ! Playing?: Player4W if Pause/Resume: Player4W then ; IDM_PAUSE/RESUME SetCommand ! : Stop ( -- ) ! Playing?: Player4W if AbortPlaying: Player4W then ; IDM_STOP SetCommand ! ! : Next ( -- ) ! Playing?: Player4W ! if Close: Player4W ! else catalog-exist? if play-catalog-random: Player4W then ! then ; IDM_NEXT SetCommand 5000 value step *************** *** 308,312 **** ' Pause/Resume SetFunc: PauseButton ! ' Stop/Next SetFunc: StopButton ' Forward SetFunc: ForwardButton ' Rewind SetFunc: BackButton --- 308,313 ---- ' Pause/Resume SetFunc: PauseButton ! ' Stop SetFunc: StopButton ! ' Next SetFunc: NextButton ' Forward SetFunc: ForwardButton ' Rewind SetFunc: BackButton *************** *** 460,469 **** \ other commands FCONTROL 'Q' IDM_STOP ACCELENTRY 0 VK_ESCAPE IDM_STOPPLAYER ACCELENTRY 0 VK_LEFT IDM_REWIND ACCELENTRY 0 VK_RIGHT IDM_FORWARD ACCELENTRY ! 0 VK_PRIOR IDM_STOP_NEXT ACCELENTRY \ page up ! 0 VK_NEXT IDM_STOP_NEXT ACCELENTRY \ page down MainWindow HandlesThem --- 461,472 ---- \ other commands FCONTROL 'Q' IDM_STOP ACCELENTRY + FCONTROL 'S' IDM_STOP ACCELENTRY + FCONTROL 'P' IDM_PAUSE/RESUME ACCELENTRY 0 VK_ESCAPE IDM_STOPPLAYER ACCELENTRY 0 VK_LEFT IDM_REWIND ACCELENTRY 0 VK_RIGHT IDM_FORWARD ACCELENTRY ! 0 VK_PRIOR IDM_NEXT ACCELENTRY \ page up ! 0 VK_NEXT IDM_NEXT ACCELENTRY \ page down MainWindow HandlesThem Index: Pl_MciWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** Pl_MciWindow.f 21 May 2006 11:42:10 -0000 1.20 --- Pl_MciWindow.f 24 May 2006 15:27:43 -0000 1.21 *************** *** 120,127 **** : 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 --- 120,125 ---- : ReTitle ( addr len -- ) ! WindowTitle: parent zcount title$ place ?dup ! if s" - " title$ +place title$ +place \ append filename s" - " title$ +place GetLength: self (.ms) title$ +place s" / " title$ +place GetPosition: self (.ms) title$ +place *************** *** 133,136 **** --- 131,135 ---- Playing? if 0 0 ReTitle + SW_HIDE Show: MouseHandlerWindow Close: super false to Playing? Index: CommandID.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/CommandID.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** CommandID.f 21 May 2006 11:42:10 -0000 1.2 --- CommandID.f 24 May 2006 15:27:43 -0000 1.3 *************** *** 34,44 **** NewID IDM_AUDIO_OFF \ Other commands NewID IDM_STOP ! NewID IDM_ABOUT ! NewID IDM_STOPPLAYER NewID IDM_REWIND NewID IDM_FORWARD ! NewID IDM_STOP_NEXT IdCounter constant IDM_LAST --- 34,48 ---- NewID IDM_AUDIO_OFF + \ Help menu + NewID IDM_ABOUT + \ Other commands + NewID IDM_PAUSE/RESUME NewID IDM_STOP ! NewID IDM_NEXT NewID IDM_REWIND NewID IDM_FORWARD ! ! NewID IDM_STOPPLAYER IdCounter constant IDM_LAST Index: PLAYER4.frm =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.frm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** PLAYER4.frm 21 May 2006 11:42:10 -0000 1.6 --- PLAYER4.frm 24 May 2006 15:27:43 -0000 1.7 *************** *** 1,15 **** \ PLAYER4.FRM PushButton PauseButton PushButton StopButton PushButton BackButton PushButton ForwardButton - 96 constant FontHeight :Object ControlCenter <Super DialogWindow ! Font WinFont ' 2drop value WmCommand-Func \ function pointer for WM_COMMAND ! ColorObject FrmColor \ the background color :M ClassInit: ( -- ) --- 1,18 ---- \ PLAYER4.FRM + \- textbox needs excontrols.f PushButton PauseButton PushButton StopButton + PushButton NextButton PushButton BackButton PushButton ForwardButton :Object ControlCenter <Super DialogWindow ! Font WinFont \ default font ' 2drop value WmCommand-Func \ function pointer for WM_COMMAND ! ColorObject FrmColor \ the background color ! ! PushButton Button6 :M ClassInit: ( -- ) *************** *** 19,23 **** :M WindowStyle: ( -- style ) ! WS_POPUPWINDOW WS_DLGFRAME or ;M --- 22,26 ---- :M WindowStyle: ( -- style ) ! WS_POPUPWINDOW WS_DLGFRAME or ;M *************** *** 36,44 **** :M StartSize: ( -- width height ) ! 284 40 ;M :M StartPos: ( -- x y ) ! CenterWindow: Self FontHeight + ;M --- 39,52 ---- :M StartSize: ( -- width height ) ! 395 40 ;M :M StartPos: ( -- x y ) ! 150 175 ! ;M ! ! :M Close: ( -- ) ! \ Insert your code here ! Close: super ;M *************** *** 46,50 **** s" MS Sans Serif" SetFaceName: WinFont 8 Width: WinFont ! Create: WinFont \ set form color to system color --- 54,58 ---- s" MS Sans Serif" SetFaceName: WinFont 8 Width: WinFont ! Create: WinFont drop \ set form color to system color *************** *** 53,57 **** self Start: PauseButton ! 10 10 95 20 Move: PauseButton Handle: Winfont SetFont: PauseButton s" Pause / Resume" SetText: PauseButton --- 61,65 ---- self Start: PauseButton ! 10 10 95 21 Move: PauseButton Handle: Winfont SetFont: PauseButton s" Pause / Resume" SetText: PauseButton *************** *** 60,75 **** 110 10 95 20 Move: StopButton Handle: Winfont SetFont: StopButton ! s" Stop / Next" SetText: StopButton self Start: BackButton ! 210 10 30 20 Move: BackButton Handle: Winfont SetFont: BackButton s" <<" SetText: BackButton self Start: ForwardButton ! 245 10 30 20 Move: ForwardButton Handle: Winfont SetFont: ForwardButton s" >>" SetText: ForwardButton ;M --- 68,93 ---- 110 10 95 20 Move: StopButton Handle: Winfont SetFont: StopButton ! s" Stop " SetText: StopButton ! ! self Start: NextButton ! 212 10 95 20 Move: NextButton ! Handle: Winfont SetFont: NextButton ! s" Next" SetText: NextButton self Start: BackButton ! 319 10 30 20 Move: BackButton Handle: Winfont SetFont: BackButton s" <<" SetText: BackButton self Start: ForwardButton ! 354 10 30 20 Move: ForwardButton Handle: Winfont SetFont: ForwardButton s" >>" SetText: ForwardButton + self Start: Button6 + 336 19 43 0 Move: Button6 + Handle: Winfont SetFont: Button6 + s" Button6" SetText: Button6 + ;M *************** *** 77,83 **** over LOWORD ( ID ) self \ object address on stack WMCommand-Func ?dup \ must not be zero ! if ( SetFocus: Self ) execute ! else 2drop \ drop ID and object address ! then 0 ;M :M SetCommand: ( cfa -- ) \ set WMCommand function --- 95,101 ---- over LOWORD ( ID ) self \ object address on stack WMCommand-Func ?dup \ must not be zero ! if execute ! else 2drop \ drop ID and object address ! then 0 ;M :M SetCommand: ( cfa -- ) \ set WMCommand function *************** *** 95,100 **** ;M - \ :M On_SetFocus: - \ SetFocus: parent ;M - ;Object --- 113,115 ---- Index: PLAYER4.ff =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.ff,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 Binary files /tmp/cvs2ECAsJ and /tmp/cvsMni5DS differ |
|
From: Jos v.d.V. <jo...@us...> - 2006-05-23 19:49:32
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6507/demos Modified Files: ListViewDemo.f Log Message: Jos: The SetExtendedStyle: made it possible to select a whole line. It is now also possible to use a grid in a listview. Index: ListViewDemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/ListViewDemo.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** ListViewDemo.f 9 May 2006 16:18:47 -0000 1.12 --- ListViewDemo.f 23 May 2006 19:49:26 -0000 1.13 *************** *** 417,420 **** --- 417,421 ---- InitListViewColumns: SplitterWindow InitListViewItems: SplitterWindow + true LVS_EX_FULLROWSELECT SetExtendedStyle: ListViewRightBottom turnkey? if MessageLoop bye then ; |
|
From: Jos v.d.V. <jo...@us...> - 2006-05-23 19:42:53
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3713/src/lib Modified Files: Listview.f Log Message: Jos: Enabled the extended styles fro a listview Index: Listview.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/Listview.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Listview.f 7 May 2006 10:54:26 -0000 1.7 --- Listview.f 23 May 2006 19:42:38 -0000 1.8 *************** *** 322,326 **** :M SetItemState: ( pitem i -- f ) LVM_SETITEMSTATE hWnd Call SendMessage ;M :M SetItemText: ( pitem i -- f ) LVM_SETITEMTEXT hWnd Call SendMessage ;M ! ( -------------------------------------------------------------------) ( Callback Items ) --- 322,327 ---- :M SetItemState: ( pitem i -- f ) LVM_SETITEMSTATE hWnd Call SendMessage ;M :M SetItemText: ( pitem i -- f ) LVM_SETITEMTEXT hWnd Call SendMessage ;M ! :M SetExtendedStyle: ( fl lvs_ex_style - ) LVM_SETEXTENDEDLISTVIEWSTYLE ! hWnd Call SendMessage drop ;M ( -------------------------------------------------------------------) ( Callback Items ) |
|
From: Jos v.d.V. <jo...@us...> - 2006-05-23 19:40:15
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2593/apps/Player4 Modified Files: PLAYER4.F Log Message: Jos: Made it possible to use the Stop/Next button to stop and play the next file while a folder is playing, or when a catalog is playing, and made it possible to start playing the catalog. Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.53 retrieving revision 1.54 diff -C2 -d -r1.53 -r1.54 *** PLAYER4.F 21 May 2006 15:05:28 -0000 1.53 --- PLAYER4.F 23 May 2006 19:39:59 -0000 1.54 *************** *** 291,298 **** : Stop/Next ( -- ) ! catalog-exist? ! if SetFocus: ControlCenter play-catalog-random: Player4W ! else Playing?: Player4W if Close: Player4W then ! then ; IDM_STOP_NEXT SetCommand --- 291,300 ---- : Stop/Next ( -- ) ! Playing?: Player4W ! if Close: Player4W ! else catalog-exist? ! if play-catalog-random: Player4W ! then ! then ; IDM_STOP_NEXT SetCommand |
|
From: George H. <geo...@us...> - 2006-05-22 12:01:46
|
Update of /cvsroot/win32forth/win32forth/Templates In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28611/win32forth/Templates Modified Files: PopupWindow.f Log Message: gah: Added WS_EX_TOOLWINDOW to extended style to suppress icon on taskbar Index: PopupWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Templates/PopupWindow.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** PopupWindow.f 21 May 2006 14:17:34 -0000 1.2 --- PopupWindow.f 22 May 2006 12:01:39 -0000 1.3 *************** *** 19,22 **** --- 19,23 ---- :M ClassInit: ( -- ) ClassInit: super PopupOnItem SetPopupBar: Self ;M :M WindowStyle: ( -- style ) WS_POPUP ;M + :M ExWindowStyle: ( -- extended_style ) WS_EX_TOOLWINDOW ;M :M StartSize: ( -- width height ) 1 1 ;M :M StartPos: ( -- x y ) mousex mousey ;M |
|
From: George H. <geo...@us...> - 2006-05-22 11:44:32
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22457/win32forth/src/kernel Modified Files: fkernel.f Log Message: gah: Fixed bug in FILE-SIZE where low order part is 0xFFFFFFFF.. Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.30 retrieving revision 1.31 diff -C2 -d -r1.30 -r1.31 *** fkernel.f 21 May 2006 10:04:49 -0000 1.30 --- fkernel.f 22 May 2006 11:44:14 -0000 1.31 *************** *** 3994,3999 **** else call GetLastError NO_ERROR <> ! if ! 2drop 0 0 true then then ; --- 3994,3999 ---- else call GetLastError NO_ERROR <> ! -if ! 3drop 0 0 true then then ; |
1040 messages has been excluded from this view by a project administrator.
