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...> - 2005-12-17 15:15:15
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7406/src/lib Modified Files: ScintillaLexer.f Log Message: Added coloring of |CLASS Index: ScintillaLexer.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaLexer.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** ScintillaLexer.f 22 May 2005 10:04:26 -0000 1.4 --- ScintillaLexer.f 17 Dec 2005 15:15:07 -0000 1.5 *************** *** 64,68 **** ,{ CATCH THROW ABORT QUIT AS MACRO #DEFINE } ,{ RECORD: ;RECORD ;RECORDSIZE: BYTES BYTE BITS SHORT INT DINT } ! ,{ MACRO: ENDM SUBR: CFA-FUNC } create UserWords2 --- 64,68 ---- ,{ CATCH THROW ABORT QUIT AS MACRO #DEFINE } ,{ RECORD: ;RECORD ;RECORDSIZE: BYTES BYTE BITS SHORT INT DINT } ! ,{ MACRO: ENDM SUBR: CFA-FUNC |CLASS } create UserWords2 *************** *** 116,118 **** - |
|
From: Dirk B. <db...@us...> - 2005-12-17 15:12:07
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7022/src Modified Files: CALLBACK.f GENERIC.F Window.f Log Message: Some cleanup and start of adding DexH style comments. Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Window.f 25 Sep 2005 14:14:34 -0000 1.6 --- Window.f 17 Dec 2005 15:11:59 -0000 1.7 *************** *** 1,4 **** --- 1,8 ---- \ $Id$ + \ *! Window + \ *T Window -- Class for window objects. + \ *S Glossary + cr .( Loading Window Class...) *************** [...1173 lines suppressed...] + : small-font ( -- ) + ANSI_FIXED_FONT SelectStockObject: dc drop ; + ;CLASS + \ *G End of window class ! : find-window ( z"a1 -- hWnd ) \ w32f ! \ *G Find a window 0 swap Call FindWindow ; ! : send-window ( lParam wParam Message_ID hWnd -- ) \ w32f ! \ *G Send a message to a window Call SendMessage drop ; ! : LoadIconFile ( adr len -- hIcon ) \ w32f ! \ *G load an icon from a icon file ! asciiz >r LR_LOADFROMFILE 0 0 IMAGE_ICON r> ! NULL call LoadImage ; ! ! \ *Z Index: CALLBACK.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CALLBACK.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** CALLBACK.f 29 Aug 2005 15:56:27 -0000 1.4 --- CALLBACK.f 17 Dec 2005 15:11:59 -0000 1.5 *************** *** 64,68 **** and esp, # -16 \ align to 16 byte boundary mov SP0 [UP] , esp \ reset SP0 ! lea ebx, 7 19 - cells [ebp] [ecx*4] \ adjust ebx neg ecx \ negate ecx --- 64,68 ---- and esp, # -16 \ align to 16 byte boundary mov SP0 [UP] , esp \ reset SP0 ! lea ebx, 7 19 - cells [ebp] [ecx*4] \ adjust ebx neg ecx \ negate ecx *************** *** 84,88 **** push 11 cells [ebx] push 12 cells [ebx] ! push 13 cells [ebx] push 14 cells [ebx] push 15 cells [ebx] --- 84,88 ---- push 11 cells [ebx] push 12 cells [ebx] ! push 13 cells [ebx] push 14 cells [ebx] push 15 cells [ebx] *************** *** 141,145 **** \ **************** allow Forth to handle windows messages ***************** \ ************************************************************************* ! -1 value WM_WIN32FORTH 1 PROC TranslateMessage --- 141,203 ---- \ **************** 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 *************** *** 174,177 **** --- 232,257 ---- HandleMessages-init + + \ 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 ; + + \ 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 \ default first entry to forth messages + in-system *************** *** 241,245 **** conDC \ the Device Context of the DC Call EnumFonts drop ; ! in-application --- 321,325 ---- conDC \ the Device Context of the DC Call EnumFonts drop ; ! in-application Index: GENERIC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** GENERIC.F 29 Aug 2005 15:56:27 -0000 1.3 --- GENERIC.F 17 Dec 2005 15:11:59 -0000 1.4 *************** *** 1,36 **** \ $Id$ - \ SetForegroundWindow: -- Fix by Jos Ven (added by rbs) - - cr .( Loading Generic Window...) ! Doc ! Generic-Window is the base class for all window objects. This class ! contains a single ivar, hWnd, that is the (MS Windows) handle for the ! window. This class encapsulates all the Win32 API calls that specify a ! window handle. There will be 3 subclasses of Generic-Window: ! Window Adds a device context and the ablility ! to display text and graphics output. ! Control Adds support for the standard Win32 controls ! with subclassing. ! Dialog Support for dialog boxes ! Since Generic-Window is a generic class it should not be used to create ! any instances. The Global Rectangle objects wRect and WndRect ( originally ! defined in Window.f ) have been replaced by a Rectangle IVAR WinRect so that ! Windows in different threads don't interfere with each other's drawing ! operations. For backwards compatibility wRect is defined as an int which is set ! to the address of WinRect by the ClassInit: method ( and WndRect is defined as ! an alias of wRect in Window.f. Also ) however WinRect should be used in new ! code since it uses early binding. ClientRect in class EditControl ( in Controls.f ) ! is also defined as an alias of wRect for compatibility. ! We also provide wRect as an alias of TempRect for compatibility. ! Temporarily added new generic class Dialog&Control and moved some code into it and ! duplicated the same code in Class Window so that Ivar offsets in Class Window are ! the same for temporary compatibility ! EndDoc only forth also definitions decimal --- 1,39 ---- \ $Id$ ! \ *! Generic ! \ *T Generic-Window -- Base class for all window objects. ! \ *P Generic-Window is the base class for all window objects. This class ! \ ** contains a single ivar, hWnd, that is the (MS Windows) handle for the ! \ ** window. This class encapsulates all the Win32 API calls that specify a ! \ ** window handle. There will be 3 subclasses of Generic-Window: ! \ *E Window Adds a device context and the ablility ! \ ** to display text and graphics output. ! \ ** ! \ ** Control Adds support for the standard Win32 controls ! \ ** with subclassing. ! \ ** ! \ ** Dialog Support for dialog boxes ! \ *P Since Generic-Window is a generic class it should not be used to create ! \ ** any instances. \n ! \ ** The Global Rectangle objects wRect and WndRect ( originally ! \ ** defined in Window.f ) have been replaced by a Rectangle IVAR WinRect so that ! \ ** Windows in different threads don't interfere with each other's drawing ! \ ** operations. \n ! \ ** For backwards compatibility wRect is defined as an int which is set ! \ ** to the address of WinRect by the ClassInit: method ( and WndRect is defined as ! \ ** an alias of wRect in Window.f. Also ) however WinRect should be used in new ! \ ** code since it uses early binding. ClientRect in class EditControl ( in Controls.f ) ! \ ** is also defined as an alias of wRect for compatibility. \n ! \ ** We also provide wRect as an alias of TempRect for compatibility. \n ! \ ** Temporarily added new generic class Dialog&Control and moved some code into it and ! \ ** duplicated the same code in Class Window so that Ivar offsets in Class Window are ! \ ** the same for temporary compatibility. ! \ *S Glossary ! cr .( Loading Generic Window...) only forth also definitions decimal *************** *** 52,55 **** --- 55,59 ---- :CLASS Generic-Window <Super Object + \ *G Base class for all window objects. \ Macros for backward compatibility *************** *** 67,73 **** in-application ! \ -------------------- Instance Variables -------------------- ! \ *** WARNING: DO NOT ADD ANY INSTANCE VARIABLES TO THIS CLASS BEFORE HWND ! *** \ HWND MUST BE THE FIRST IVAR. THIS IS ESSENTIAL TO THE --- 71,79 ---- in-application ! \ ----------------------------------------------------------------- ! \ *N Instance Variables ! \ ----------------------------------------------------------------- ! \ WARNING: DO NOT ADD ANY INSTANCE VARIABLES TO THIS CLASS BEFORE HWND \ HWND MUST BE THE FIRST IVAR. THIS IS ESSENTIAL TO THE *************** *** 75,86 **** \ USED BY CLASS CONTROL. ! int hWnd \ handle to Win32 window object ! (( ! int mydialoglink ! \ The following is for backward compatibility. Use WinRect for new code since it will ! \ be early bound whereas wRect will be latebound. ! int wRect ! Rectangle WinRect ! )) in-system --- 81,90 ---- \ USED BY CLASS CONTROL. ! int hWnd ! \ *G handle to Win32 window object ! ! \ ----------------------------------------------------------------- ! \ ----------------------------------------------------------------- ! in-system *************** *** 106,151 **** in-application ! \ -------------------- Window Methods -------------------- :M Classinit: ( -- ) ClassInit: super - \ addr: WinRect to wRect 0 to hWnd turnkeyed? 0= \ only dynamic windows can be used in a \in-system-ok if link-window then \ turnkeyed application so skip linking ;M ! :M GetHandle: ( -- hWnd ) \ return window handle ! hWnd ! ;M ! :M PutHandle: ( hWnd -- ) \ store window handle ! to hWnd ! ;M :M ZeroWindow: ( -- ) ! 0 to hWnd ! ;M :M DestroyWindow: ( -- ) hWnd ! if hWnd Call DestroyWindow ?win-error ! 0 to hWnd ! then ! ;M :M Close: ( -- ) ! DestroyWindow: self ! ;M ! :M Paint: ( -- ) \ force window repaint hWnd ! if 1 0 hWnd Call InvalidateRect ?win-error ! then ! ;M :M Show: ( state -- ) \ use words like SW_SHOWNORMAL hWnd ! if hWnd Call ShowWindow ! then drop ;M --- 110,157 ---- in-application ! \ ----------------------------------------------------------------- ! \ *N Methods ! \ ----------------------------------------------------------------- :M Classinit: ( -- ) + \ *G Init the class ClassInit: super 0 to hWnd turnkeyed? 0= \ only dynamic windows can be used in a \in-system-ok if link-window then \ turnkeyed application so skip linking ;M ! :M GetHandle: ( -- hWnd ) ! \ *G Get the window handle ! hWnd ;M ! :M PutHandle: ( hWnd -- ) ! \ *G Set the window handle ! to hWnd ;M :M ZeroWindow: ( -- ) ! \ *G Clear the window handle ! 0 to hWnd ;M :M DestroyWindow: ( -- ) + \ *G Destroy the window hWnd ! if hWnd Call DestroyWindow ?win-error ! 0 to hWnd ! then ;M :M Close: ( -- ) ! \ *G Close the window ! DestroyWindow: self ;M ! :M Paint: ( -- ) ! \ *G force window repaint hWnd ! if 1 0 hWnd Call InvalidateRect ?win-error ! then ;M :M Show: ( state -- ) \ use words like SW_SHOWNORMAL hWnd ! if hWnd Call ShowWindow ! then drop ;M *************** *** 195,198 **** --- 201,205 ---- ;M )) + :M SetMenu: ( menuhandle -- ) hWnd -if Call SetMenu ?win-error else 2drop then ;M *************** *** 287,291 **** ;M - :M IsDlgButtonChecked: ( id -- f1 ) hWnd Call IsDlgButtonChecked --- 294,297 ---- *************** *** 301,308 **** ;M - \ ** Obsolescent Method use SetDlgItemAlign: instead ** :M SetAlign: ( flag id -- ) \ hold over from the past ! SetDlgItemAlign: self ! ;M :M EnableDlgItem: ( flag id -- ) \ 0=disable, 1=enable --- 307,313 ---- ;M :M SetAlign: ( flag id -- ) \ hold over from the past ! \ *G Obsolescent Method use SetDlgItemAlign: instead ! SetDlgItemAlign: self ;M :M EnableDlgItem: ( flag id -- ) \ 0=disable, 1=enable *************** *** 335,338 **** --- 340,344 ---- 1 -rot WM_SETFONT swap SendDlgItemMessage: self ;M + (( \ The following definitions are for handling Dialog messages and have been moved *************** *** 360,366 **** msg-chain chain-add DoDialogMsg - ;CLASS ! : zero-windows { \ wlink -- } \ startup the console's menubar --- 366,371 ---- msg-chain chain-add DoDialogMsg ;CLASS ! \ *G End of generic-window class : zero-windows { \ wlink -- } \ startup the console's menubar *************** *** 412,413 **** --- 417,419 ---- ;CLASS + \ *Z |
|
From: Dirk B. <db...@us...> - 2005-12-17 15:11:28
|
Update of /cvsroot/win32forth/win32forth/src/gdi In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6948/src/gdi Modified Files: gdiBase.f gdiBrush.f gdiPen.f Added Files: gdiTools.f Log Message: Some cleanup and start of adding DexH style comments. Index: gdiBase.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiBase.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** gdiBase.f 6 Nov 2005 07:41:16 -0000 1.3 --- gdiBase.f 17 Dec 2005 15:11:19 -0000 1.4 *************** *** 1,64 **** ! \ gdiBase.f ! \ ! \ Written by Dirk Busch ! \ Sonntag, Oktober 09 2005 ! \ Licence: Public Domain ! ! cr .( Loading GDI class library - Base...) ! ! needs gdiStruct.f ! ! internal ! external ! ! in-application ! [undefined] S-REVERSE [IF] \ from toolset.f ! \ Reverse n items on stack ! \ Usage: 1 2 3 4 5 5 S_REVERSE ==> 5 4 3 2 1 ! CODE S-REVERSE ( n[k]..2 1 0 k -- 0 1 2..n[k] ) ! lea ecx, -4 [esp] \ ecx points 4 under top of stack ! lea ebx, 4 [ecx] [ebx*4] \ ebx points 4 over stack ! \ bump pointers, if they overlap, stop ! @@1: sub ebx, # 4 \ adjust top ! add ecx, # 4 \ adjust bottom ! cmp ecx, ebx \ compare ! jae short @@2 \ ecx passing ebx, so exit ! \ rotate a pair ! \ xor a,b xor b,a xor a,b swaps a and b ! mov eax, 0 [ebx] \ bottom to eax ! xor 0 [ecx], eax \ exchange top and eax ! xor eax, 0 [ecx] ! xor 0 [ecx], eax ! mov 0 [ebx], eax \ eax to bottom ! jmp short @@1 \ next pair ! @@2: pop ebx \ tos ! next c; ! [then] ! [undefined] 3reverse [if] ! : 3reverse ( n1 n2 n3 -- n3 n2 n1 ) ! 3 S-REVERSE ; ! [then] ! [undefined] 4reverse [if] ! : 4reverse ( n1 n2 n3 n4 -- n4 n3 n2 n1 ) ! 4 S-REVERSE ; ! [then] ! [undefined] 5reverse [if] ! : 5reverse ( n1 n2 n3 n4 n5 -- n5 n4 n3 n2 n1 ) ! 5 S-REVERSE ; ! [then] ! [undefined] 6reverse [if] ! : 6reverse ( n1 n2 n3 n4 n5 n6 -- n6 n5 n4 n3 n2 n1 ) ! 6 S-REVERSE ; ! [then] ! [undefined] 8reverse [if] ! : 8reverse ( n1 n2 n3 n4 n5 n6 n7 n8 -- n8 n7 n6 n5 n4 n3 n2 n1 ) ! 8 S-REVERSE ; ! [then] \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 1,35 ---- ! \ *! gdiBase ! \ *T GdiObject -- Base class for GDI objects ! \ *Q Version 1.0 ! \ ** This GDI class library was written and placed in the Public Domain ! \ ** in 2005 by Dirk Busch ! \ *P GdiObject is the base class for all GDI objects. This class ! \ ** contains a single ivar, hObject, that is the (MS Windows) handle for the ! \ ** GDI object. \n ! \ ** There will be the following subclasses of GdiObject: ! \ *E gdiPen Class for cosmetic pen's ! \ ** gdiGeometricPen Class for geometric pen's ! \ ** gdiSolidBrush Solid brush class ! \ ** gdiHatchBrush Hatch brush class ! \ ** gdiPatternBrush Pattern brush class ! \ ** gdiDIBPatternBrush DIBPattern brush class ! \ ** GdiFont Class for windows fonts ! \ ** gdiBitmap Class for bitmaps ! \ ** gdiMetafile Class for enhanced metafiles ! \ ** gdiDC Base device context class ! \ ** gdiWindowDC Device context class for windows ! \ ** gdiMetafileDC Device context class for enhanced metafiles ! \ *P Since GdiObject is a generic class it should not be used to create ! \ ** any instances. \n ! \ *S Glossary ! cr .( Loading GDI class library - Base...) ! needs gdiStruct.f ! needs gdiTools.f \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 68,71 **** --- 39,43 ---- internal + \ List of all GDI objects that are currently defined in the system. VARIABLE gdi-object-link gdi-object-link OFF *************** *** 76,87 **** --- 48,64 ---- \ Base class for all GDI Objects \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + :class GdiObject <super object + \ *G GdiObject is the base class for all GDI Object classes. int hObject \ handle of the GDI object :M ZeroHandle: ( -- ) + \ *G Clear the handle of the object. \n + \ ** If the current handle of the object is valid it will not be destroyed. 0 to hObject ;M :M ClassInit: ( -- ) + \ Init the class ClassInit: super *************** *** 91,120 **** ;M - \ The GetType method retrieves the type of the specified object. - \ Possible return values are: - \ OBJ_BITMAP Bitmap - \ OBJ_BRUSH Brush - \ OBJ_COLORSPACE Color space - \ OBJ_DC Device context - \ OBJ_ENHMETADC Enhanced metafile DC - \ OBJ_ENHMETAFILE Enhanced metafile - \ OBJ_EXTPEN Extended pen - \ OBJ_FONT Font - \ OBJ_MEMDC Memory DC - \ OBJ_METAFILE Metafile - \ OBJ_METADC Metafile DC - \ OBJ_PAL Palette - \ OBJ_PEN Pen - \ OBJ_REGION Region :M GetType: ( -- n ) hObject call GetObjectType ;M - \ The GetObject function retrieves information for the specified graphics object. - \ If the function succeeds, and lpvObject is a valid pointer, the return value is - \ the number of bytes stored into the buffer. - \ If the function succeeds, and lpvObject is NULL, the return value is the number - \ of bytes required to hold the information the function would store into the buffer. - \ If the function fails, the return value is zero. :M GetObject: ( cbBuffer lpvObject -- n ) hObject 3reverse call GetObject ;M --- 68,97 ---- ;M :M GetType: ( -- n ) + \ *G Get the type of the object. \n + \ ** Possible return values are: + \ *L OBJ_BITMAP | Bitmap | + \ *| OBJ_BRUSH | Brush | + \ *| OBJ_COLORSPACE | Color space | + \ *| OBJ_DC | Device context | + \ *| OBJ_ENHMETADC | Enhanced metafile DC | + \ *| OBJ_ENHMETAFILE | Enhanced metafile | + \ *| OBJ_EXTPEN | Extended pen | + \ *| OBJ_FONT | Font | + \ *| OBJ_MEMDC | Memory DC | + \ *| OBJ_METAFILE | Metafile | + \ *| OBJ_METADC | Metafile DC | + \ *| OBJ_PAL | Palette | + \ *| OBJ_PEN | Pen | + \ *| OBJ_REGION | Region | hObject call GetObjectType ;M :M GetObject: ( cbBuffer lpvObject -- n ) + \ *G Get information for the object. \n + \ ** If the function succeeds, and lpvObject is a valid pointer, the return value is + \ ** the number of bytes stored into the buffer. \n + \ ** If the function succeeds, and lpvObject is NULL, the return value is the number + \ ** of bytes required to hold the information the function would store into the buffer. + \ ** If the function fails, the return value is zero. hObject 3reverse call GetObject ;M *************** *** 132,135 **** --- 109,113 ---- :M Destroy: ( -- ) + \ *G Destroy the object. Destroy? if hObject call DeleteObject ?win-error *************** *** 138,152 **** :M GetHandle: ( -- hObject ) hObject ;M :M SetHandle: ( hObject -- ) Destroy: self to hObject ;M - \ Check if this object is valid :M Valid?: ( -- f ) hObject 0<> ;M ! \ **************** INTERNAL SYSTEM FUNCTIONS FOLLOW **************** \ The following functions and methods make sure that any gdi objects \ created in your application get reset at system startup, and deleted --- 116,133 ---- :M GetHandle: ( -- hObject ) + \ *G Get the handle of the object. hObject ;M :M SetHandle: ( hObject -- ) + \ *G Set the handle of the object. \n + \ ** If the current handle of the object is valid it will be destroyed. Destroy: self to hObject ;M :M Valid?: ( -- f ) + \ *G Check if this object is valid. hObject 0<> ;M ! \ ---------------- INTERNAL SYSTEM FUNCTIONS FOLLOW ---------------- \ The following functions and methods make sure that any gdi objects \ created in your application get reset at system startup, and deleted *************** *** 176,180 **** 0 SetHandle: self ;M ! : destroy-gdi-objects ( -- ) \ destroy all font handles [getmethod] destroy-gdi-objects: GdiObject do-objects ; --- 157,161 ---- 0 SetHandle: self ;M ! : destroy-gdi-objects ( -- ) \ destroy all GDI objects [getmethod] destroy-gdi-objects: GdiObject do-objects ; *************** *** 183,186 **** --- 164,168 ---- ;class + \ *G End of class in-system *************** *** 189,194 **** \ Displays the current set of defined gdi objects \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! : .gdi-objects ( -- ) ! gdi-object-link @ begin dup --- 171,176 ---- \ Displays the current set of defined gdi objects \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! : .gdi-objects ( -- ) \ w32f sys ! \ *G Display GDI objects whitch are currently defined. gdi-object-link @ begin dup *************** *** 206,210 **** in-application ! : ?IsGdiObject ( a1 -- f ) >r gdi-object-link @ begin dup --- 188,193 ---- in-application ! : ?IsGdiObject ( a1 -- f ) \ w32f ! \ *G Check if a1 is the address of a GdiObject. >r gdi-object-link @ begin dup *************** *** 215,220 **** r>drop false ; ! \ Check if GdiObject is an valid GdiObject. If so return the handle of the object. ! : GetGdiObjectHandle { GdiObject -- handle } GdiObject ?IsGdiObject if GetHandle: GdiObject --- 198,204 ---- r>drop false ; ! : GetGdiObjectHandle { GdiObject -- handle } \ w32f ! \ *G Check if GdiObject is the address of a valid GdiObject. ! \ ** If so return the handle of the object. GdiObject ?IsGdiObject if GetHandle: GdiObject *************** *** 224,228 **** in-system ! : (?GdiCheck) ( a1 -- a1 ) dup ?IsGdiObject 0= if forth-io .rstack --- 208,214 ---- in-system ! : (?GdiCheck) ( a1 -- a1 ) \ w32f sys internal ! \ Verify if a1 is the address of a GdiObject. ! \ If a1 isn't the address of a GdiObject the application will be aborted. dup ?IsGdiObject 0= if forth-io .rstack *************** *** 232,238 **** in-application ! : ?GdiCheck ( a1 -- a1 ) \ verify that a1 is a gdi object address TURNKEYED? ?win-error-enabled 0= or ?EXIT \ leave if error checking is not enabled \in-system-ok (?GdiCheck) ; module --- 218,231 ---- in-application ! : ?GdiCheck ( a1 -- a1 ) \ w32f ! \ *G Verify if a1 is the address of a GdiObject. ! \ ** If a1 isn't the address of a GdiObject and the error checking is enabled ! \ ** the application will be aborted. \n ! \ ** Use it for debugging only. TURNKEYED? ?win-error-enabled 0= or ?EXIT \ leave if error checking is not enabled \in-system-ok (?GdiCheck) ; module + + \ *Z + --- NEW FILE: gdiTools.f --- \ *! gdiTools \ *T GdiTools -- Helper words for the GDI class library \ *Q Version 1.0 \ ** This GDI class library was written and placed in the Public Domain \ ** in 2005 by Dirk Busch \ *S Glossary cr .( Loading GDI class library - Tools...) internal external in-application [undefined] S-REVERSE [IF] \ from toolset.f CODE S-REVERSE ( n[k]..2 1 0 k -- 0 1 2..n[k] ) \ w32f \ *G Reverse n items on stack \n \ ** Usage: 1 2 3 4 5 5 S_REVERSE ==> 5 4 3 2 1 lea ecx, -4 [esp] \ ecx points 4 under top of stack lea ebx, 4 [ecx] [ebx*4] \ ebx points 4 over stack \ bump pointers, if they overlap, stop @@1: sub ebx, # 4 \ adjust top add ecx, # 4 \ adjust bottom cmp ecx, ebx \ compare jae short @@2 \ ecx passing ebx, so exit \ rotate a pair \ xor a,b xor b,a xor a,b swaps a and b mov eax, 0 [ebx] \ bottom to eax xor 0 [ecx], eax \ exchange top and eax xor eax, 0 [ecx] xor 0 [ecx], eax mov 0 [ebx], eax \ eax to bottom jmp short @@1 \ next pair @@2: pop ebx \ tos next c; [then] [undefined] 3reverse [if] : 3reverse ( n1 n2 n3 -- n3 n2 n1 ) \ w32f \ *G Reverse 3 items on stack 3 S-REVERSE ; [then] [undefined] 4reverse [if] : 4reverse ( n1 n2 n3 n4 -- n4 n3 n2 n1 ) \ w32f \ *G Reverse 4 items on stack 4 S-REVERSE ; [then] [undefined] 5reverse [if] : 5reverse ( n1 n2 n3 n4 n5 -- n5 n4 n3 n2 n1 ) \ w32f \ *G Reverse 5 items on stack 5 S-REVERSE ; [then] [undefined] 6reverse [if] : 6reverse ( n1 n2 n3 n4 n5 n6 -- n6 n5 n4 n3 n2 n1 ) \ w32f \ *G Reverse 6 items on stack 6 S-REVERSE ; [then] [undefined] 8reverse [if] : 8reverse ( n1 n2 n3 n4 n5 n6 n7 n8 -- n8 n7 n6 n5 n4 n3 n2 n1 ) \ w32f \ *G Reverse 8 items on stack 8 S-REVERSE ; [then] module \ *Z Index: gdiPen.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiPen.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** gdiPen.f 1 Nov 2005 12:21:40 -0000 1.1 --- gdiPen.f 17 Dec 2005 15:11:19 -0000 1.2 *************** *** 1,8 **** ! \ gdiPen.f ! \ ! \ Written by Dirk Busch ! \ Sonntag, Oktober 09 2005 ! \ Licence: Public Domain ! \ \ TODO: finish gdiGeometricPen class --- 1,9 ---- ! \ *! gdiPen ! \ *T GdiPen -- Class for GDI Pens ! \ *Q Version 1.0 ! \ ** This GDI class library was written and placed in the Public Domain ! \ ** in 2005 by Dirk Busch ! \ *S Glossary ! \ TODO: finish gdiGeometricPen class *************** *** 15,37 **** \ ---------------------------------------------------------------------- - \ Pen class - for cosmetic pen's \ ---------------------------------------------------------------------- :class gdiPen <super gdiObject ! \ Syle of the pen. Possible values are: ! \ PS_SOLID The pen is solid. ! \ PS_DASH The pen is dashed. This style is valid only when the pen width ! \ is one or less in device units. ! \ PS_DOT The pen is dotted. This style is valid only when the pen width ! \ is one or less in device units. ! \ PS_DASHDOT The pen has alternating dashes and dots. This style is valid ! \ only when the pen width is one or less in device units. ! \ PS_DASHDOTDOT The pen has alternating dashes and double dots. This style is ! \ valid only when the pen width is one or less in device units. ! \ PS_NULL The pen is invisible. ! \ PS_INSIDEFRAME The pen is solid. When this pen is used in any GDI drawing ! \ function that takes a bounding rectangle, the dimensions of the figure are ! \ shrunk so that it fits entirely in the bounding rectangle, taking into account ! \ the width of the pen. This applies only to geometric pens. int Style --- 16,26 ---- \ ---------------------------------------------------------------------- \ ---------------------------------------------------------------------- + \ *W <a name="gdiPen"></a> + :class gdiPen <super gdiObject + \ *G Class for cosmetic pen's ! \ Syle of the pen. int Style *************** *** 44,47 **** --- 33,37 ---- :M ClassInit: ( -- ) + \ *G Init the class ClassInit: super *************** *** 50,79 **** ;M ! :M SetStyle: ( style -- ) to style ;M ! :M SetWidth: ( width -- ) 0 max to width ;M ! :M SetRValue: ( r -- ) SetRValue: Color ;M ! :M SetGValue: ( g -- ) SetGValue: Color ;M ! :M SetBValue: ( b -- ) SetBValue: Color ;M ! :M SetRGB: ( r g b -- ) SetRGB: Color ;M ! :M SetColor: ( colorref -- ) SetColor: Color ;M ! :M SetSysColor: ( n -- ) SetSysColor: Color ;M ! :M ChooseColor: ( hWnd -- f ) Choose: Color ;M ! :M GetStyle: ( -- style ) style ;M ! :M GetWidth: ( -- width ) width ;M ! :M GetRValue: ( -- r ) GetRValue: Color ;M ! :M GetGValue: ( -- g ) GetGValue: Color ;M ! :M GetBValue: ( -- b ) GetBValue: Color ;M ! :M GetColor: ( -- colorref ) GetColor: Color ;M :M Create: ( -- f ) GetColor: color width style call CreatePen SetHandle: super Valid?: super ;M - \ The CreateIndirect function creates a logical cosmetic pen that - \ has the style, width, and color specified in a structure. :M CreateIndirect: ( pLogpen -- f ) dup @ SetStyle: self dup cell+ @ SetWidth: self --- 40,127 ---- ;M ! :M SetStyle: ( style -- ) ! \ *G Set Syle of the pen. Possible values are: ! \ *L PS_SOLID | The pen is solid. | ! \ *| PS_DASH | The pen is dashed. This style is valid only when the pen width is one or less in device units. | ! \ *| PS_DOT | The pen is dotted. This style is valid only when the pen width is one or less in device units. | ! \ *| PS_DASHDOT | The pen has alternating dashes and dots. This style is valid only when the pen width is one or less in device units. | ! \ *| PS_DASHDOTDOT | The pen has alternating dashes and double dots. This style is valid only when the pen width is one or less in device units. | ! \ *| PS_NULL | The pen is invisible. | ! \ *| PS_INSIDEFRAME | The pen is solid. When this pen is used in any GDI drawing function that takes a bounding rectangle, the dimensions of the figure are shrunk so that it fits entirely in the bounding rectangle, taking into account the width of the pen. This applies only to geometric pens. | ! to style ;M ! :M SetWidth: ( width -- ) ! \ *G Set the width of the pen in logical units. If Width is zero, the pen is a single pixel ! \ ** wide, regardless of the current transformation. ! 0 max to width ;M ! :M SetRValue: ( r -- ) ! \ *G Set the red component of the pen color. ! SetRValue: Color ;M ! :M SetGValue: ( g -- ) ! \ *G Set the green component of the pen color. ! SetGValue: Color ;M ! ! :M SetBValue: ( b -- ) ! \ *G Set the blue component of the pen color. ! SetBValue: Color ;M ! ! :M SetRGB: ( r g b -- ) ! \ *G Set the red, green and blue component of the pen color. ! SetRGB: Color ;M ! ! :M SetColor: ( colorref -- ) ! \ *G Set color of the pen. ! SetColor: Color ;M ! ! :M SetSysColor: ( n -- ) ! \ *G Set the color of the pen to a system color. ! SetSysColor: Color ;M ! ! :M ChooseColor: ( hWnd -- f ) ! \ *G Open a dialog to choose the color of the pen. ! Choose: Color ;M ! ! :M GetStyle: ( -- style ) ! \ *G Get Syle of the pen. Possible values are: ! \ *L PS_SOLID | The pen is solid. | ! \ *| PS_DASH | The pen is dashed. This style is valid only when the pen width is one or less in device units. | ! \ *| PS_DOT | The pen is dotted. This style is valid only when the pen width is one or less in device units. | ! \ *| PS_DASHDOT | The pen has alternating dashes and dots. This style is valid only when the pen width is one or less in device units. | ! \ *| PS_DASHDOTDOT | The pen has alternating dashes and double dots. This style is valid only when the pen width is one or less in device units. | ! \ *| PS_NULL | The pen is invisible. | ! \ *| PS_INSIDEFRAME | The pen is solid. When this pen is used in any GDI drawing function that takes a bounding rectangle, the dimensions of the figure are shrunk so that it fits entirely in the bounding rectangle, taking into account the width of the pen. This applies only to geometric pens. | ! style ;M ! ! :M GetWidth: ( -- width ) ! \ *G Get the width of the pen in logical units. If the width is zero, the pen is a single pixel ! \ ** wide, regardless of the current transformation. ! width ;M ! ! :M GetRValue: ( -- r ) ! \ *G Get the red component of the pen color. ! GetRValue: Color ;M ! ! :M GetGValue: ( -- g ) ! \ *G Get the green component of the pen color. ! GetGValue: Color ;M ! ! :M GetBValue: ( -- b ) ! \ *G Get the blue component of the pen color. ! GetBValue: Color ;M ! ! :M GetColor: ( -- colorref ) ! \ *G Get the color of the pen as a windows COLORREF value. ! GetColor: Color ;M :M Create: ( -- f ) + \ *G Create the pen with the current style, color and width. GetColor: color width style call CreatePen SetHandle: super Valid?: super ;M :M CreateIndirect: ( pLogpen -- f ) + \ *G The CreateIndirect function creates a logical cosmetic pen that + \ ** has the style, width, and color specified in a structure. dup @ SetStyle: self dup cell+ @ SetWidth: self *************** *** 83,95 **** ;class \ ---------------------------------------------------------------------- - \ GeometricPen class - for geometric pen's \ ---------------------------------------------------------------------- :class gdiGeometricPen <super gdiObject ! \ ExtCreatePen ;class module --- 131,153 ---- ;class + \ *G End of class \ ---------------------------------------------------------------------- \ ---------------------------------------------------------------------- + \ *W <a name="gdiGeometricPen"></a> + :class gdiGeometricPen <super gdiObject + \ *G Class for geometric pen's \n + \ ** Note: this class isn't implemented yet ! :M ClassInit: ( -- ) ! \ *G Init the class ! ClassInit: super ! ;M ;class + \ *G End of class module + + \ *Z Index: gdiBrush.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiBrush.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** gdiBrush.f 1 Nov 2005 12:21:40 -0000 1.1 --- gdiBrush.f 17 Dec 2005 15:11:19 -0000 1.2 *************** *** 1,7 **** ! \ gdiBrush.f ! \ ! \ Written by Dirk Busch ! \ Sonntag, Oktober 09 2005 ! \ Licence: Public Domain cr .( Loading GDI class library - Brush...) --- 1,8 ---- ! \ *! gdiBrush ! \ *T GdiBrush -- Classes for GDI Brushes. ! \ *Q Version 1.0 ! \ ** This GDI class library was written and placed in the Public Domain ! \ ** in 2005 by Dirk Busch ! \ *S Glossary cr .( Loading GDI class library - Brush...) *************** *** 13,21 **** \ ---------------------------------------------------------------------- - \ Base class for all brush objects \ ---------------------------------------------------------------------- internal :class gdiBrush <super gdiObject gdiPoint origin --- 14,22 ---- \ ---------------------------------------------------------------------- \ ---------------------------------------------------------------------- internal :class gdiBrush <super gdiObject + \ *G Base class for all brush objects gdiPoint origin *************** *** 47,53 **** \ ---------------------------------------------------------------------- - \ Solid brush class \ ---------------------------------------------------------------------- :class gdiSolidBrush <super gdiBrush \ Color of the brush. --- 48,54 ---- \ ---------------------------------------------------------------------- \ ---------------------------------------------------------------------- :class gdiSolidBrush <super gdiBrush + \ *G Solid brush class \ Color of the brush. *************** *** 58,75 **** ;M ! :M SetRValue: ( r -- ) SetRValue: Color ;M ! :M SetGValue: ( g -- ) SetGValue: Color ;M ! :M SetBValue: ( b -- ) SetBValue: Color ;M ! :M SetRGB: ( r g b -- ) SetRGB: Color ;M ! :M SetColor: ( colorref -- ) SetColor: Color ;M ! :M SetSysColor: ( n -- ) SetSysColor: Color ;M ! :M ChooseColor: ( hWnd -- f ) Choose: Color ;M ! :M GetRValue: ( -- r ) GetRValue: Color ;M ! :M GetGValue: ( -- g ) GetGValue: Color ;M ! :M GetBValue: ( -- b ) GetBValue: Color ;M ! :M GetColor: ( -- colorref ) GetColor: Color ;M :M Create: ( -- f ) GetColor: color call CreateSolidBrush SetHandle: super Valid?: super ;M --- 59,108 ---- ;M ! :M SetRValue: ( r -- ) ! \ *G Set the red component of the brush color. ! SetRValue: Color ;M ! :M SetGValue: ( g -- ) ! \ *G Set the green component of the brush color. ! SetGValue: Color ;M ! ! :M SetBValue: ( b -- ) ! \ *G Set the blue component of the brush color. ! SetBValue: Color ;M ! ! :M SetRGB: ( r g b -- ) ! \ *G Set the red, green and blue component of the brush color. ! SetRGB: Color ;M ! ! :M SetColor: ( colorref -- ) ! \ *G Set color of the brush. ! SetColor: Color ;M ! ! :M SetSysColor: ( n -- ) ! \ *G Set the color of the brush to a system color. ! SetSysColor: Color ;M ! ! :M ChooseColor: ( hWnd -- f ) ! \ *G Open a dialog to choose the color of the brush. ! Choose: Color ;M ! ! :M GetRValue: ( -- r ) ! \ *G Get the red component of the brush color. ! GetRValue: Color ;M ! ! :M GetGValue: ( -- g ) ! \ *G Get the green component of the brush color. ! GetGValue: Color ;M ! ! :M GetBValue: ( -- b ) ! \ *G Get the blue component of the brush color. ! GetBValue: Color ;M ! ! :M GetColor: ( -- colorref ) ! \ *G Get the color of the brush as a windows COLORREF value. ! GetColor: Color ;M :M Create: ( -- f ) + \ *G Create the brush with the current color. GetColor: color call CreateSolidBrush SetHandle: super Valid?: super ;M *************** *** 78,84 **** \ ---------------------------------------------------------------------- - \ Hatch brush class \ ---------------------------------------------------------------------- :class gdiHatchBrush <super gdiSolidBrush \ Style of the brush. Possible values are: --- 111,117 ---- \ ---------------------------------------------------------------------- \ ---------------------------------------------------------------------- :class gdiHatchBrush <super gdiSolidBrush + \ *G Hatch brush class \ Style of the brush. Possible values are: *************** *** 96,103 **** ;M ! :M SetStyle: ( style -- ) to style ;M ! :M GetStyle: ( -- style ) style ;M :M Create: ( -- f ) GetColor: color Style call CreateHatchBrush SetHandle: super Valid?: super ;M --- 129,154 ---- ;M ! :M SetStyle: ( style -- ) ! \ *G Set the style of the brush. Possible values are: ! \ *L HS_BDIAGONAL | 45-degree downward left-to-right hatch | ! \ *| HS_CROSS | Horizontal and vertical crosshatch | ! \ *| HS_DIAGCROSS | 45-degree crosshatch | ! \ *| HS_FDIAGONAL | 45-degree upward left-to-right hatch | ! \ *| HS_HORIZONTAL | Horizontal hatch | ! \ *| HS_VERTICAL | Vertical hatch | ! to style ;M ! ! :M GetStyle: ( -- style ) ! \ *G Get the style of the brush. Possible return values are: ! \ *L HS_BDIAGONAL | 45-degree downward left-to-right hatch | ! \ *| HS_CROSS | Horizontal and vertical crosshatch | ! \ *| HS_DIAGCROSS | 45-degree crosshatch | ! \ *| HS_FDIAGONAL | 45-degree upward left-to-right hatch | ! \ *| HS_HORIZONTAL | Horizontal hatch | ! \ *| HS_VERTICAL | Vertical hatch | ! style ;M :M Create: ( -- f ) + \ *G Create the brush with the current style and color. GetColor: color Style call CreateHatchBrush SetHandle: super Valid?: super ;M *************** *** 106,112 **** \ ---------------------------------------------------------------------- - \ Pattern brush class \ ---------------------------------------------------------------------- :class gdiPatternBrush <super gdiBrush \ Bitmap of the brush. --- 157,163 ---- \ ---------------------------------------------------------------------- \ ---------------------------------------------------------------------- :class gdiPatternBrush <super gdiBrush + \ *G Pattern brush class \ Bitmap of the brush. *************** *** 118,123 **** ;M ! :M SetBitmap: ( Bitmap -- ) to Bitmap ;M ! :M GetBitmap: ( -- Bitmap ) Bitmap ;M :M Create: ( -- f ) --- 169,177 ---- ;M ! :M SetBitmap: ( Bitmap -- ) ! to Bitmap ;M ! ! :M GetBitmap: ( -- Bitmap ) ! Bitmap ;M :M Create: ( -- f ) *************** *** 131,134 **** --- 185,189 ---- \ ---------------------------------------------------------------------- :class gdiDIBPatternBrush <super gdiBrush + \ *G DIBPattern brush class :M ClassInit: ( -- ) *************** *** 136,159 **** ;M - \ The Create function creates a logical brush that has the pattern specified - \ by the device-independent bitmap (DIB). - \ - \ lpPackedDIB Pointer to a packed DIB consisting of a BITMAPINFO structure immediately - \ followed by an array of bytes defining the pixels of the bitmap. - \ Windows 95: Creating brushes from bitmaps or DIBs larger than 8 by 8 pixels - \ is not supported. If a larger bitmap is specified, only a portion of the bitmap - \ is used. - \ Windows NT/ 2000 and Windows 98: Brushes can be created from bitmaps or DIBs - \ larger than 8 by 8 pixels. - \ - \ iUsage Specifies whether the bmiColors member of the BITMAPINFO structure contains - \ a valid color table and, if so, whether the entries in this color table contain - \ explicit red, green, blue (RGB) values or palette indexes. The iUsage parameter - \ must be one of the following values. - \ DIB_PAL_COLORS A color table is provided and consists of an array of 16-bit indexes - \ into the logical palette of the device context into which the brush - \ is to be selected. - \ DIB_RGB_COLORS A color table is provided and contains literal RGB values. :M Create: ( lpPackedDIB iUsage -- f ) call CreateDIBPatternBrushPt SetHandle: super Valid?: super ;M --- 191,210 ---- ;M :M Create: ( lpPackedDIB iUsage -- f ) + \ *G The Create function creates a logical brush that has the pattern specified + \ ** by the device-independent bitmap (DIB). \n + \ ** lpPackedDIB Pointer to a packed DIB consisting of a BITMAPINFO structure immediately + \ ** followed by an array of bytes defining the pixels of the bitmap. \n + \ ** Windows 95: Creating brushes from bitmaps or DIBs larger than 8 by 8 pixels + \ ** is not supported. If a larger bitmap is specified, only a portion of the bitmap + \ ** is used. \n + \ ** Windows NT/ 2000 and Windows 98: Brushes can be created from bitmaps or DIBs + \ ** larger than 8 by 8 pixels. \n + \ ** iUsage Specifies whether the bmiColors member of the BITMAPINFO structure contains + \ ** a valid color table and, if so, whether the entries in this color table contain + \ ** explicit red, green, blue (RGB) values or palette indexes. The iUsage parameter + \ ** must be one of the following values. + \ *L DIB_PAL_COLORS | A color table is provided and consists of an array of 16-bit indexes into the logical palette of the device context into which the brush is to be selected. | + \ ** DIB_RGB_COLORS | A color table is provided and contains literal RGB values. | call CreateDIBPatternBrushPt SetHandle: super Valid?: super ;M *************** *** 162,163 **** --- 213,216 ---- module + + \ *Z |
|
From: George H. <geo...@us...> - 2005-12-14 13:50:46
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8720/win32forth/src Modified Files: Module.f Log Message: gah: Added documentation for dexh to module.f Index: Module.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Module.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Module.f 21 Dec 2004 00:19:08 -0000 1.1 --- Module.f 14 Dec 2005 13:50:30 -0000 1.2 *************** *** 1,2 **** --- 1,4 ---- + \ $Id$ + \ MODULE.F Local Definitions for Modules by Tom Zimmer *************** *** 9,15 **** \ multiple files 8Aug03 gah ! \ Modified INTERNAL to only a new module if pre-voc is zero or the hidden vocabulary is not \ at the top of the search order to allow using either MODULE or PREVIOUS to be used to end ! \ a module cr .( Loading Modules...) --- 11,34 ---- \ multiple files 8Aug03 gah ! \ Modified INTERNAL to only start a new module if pre-voc is zero or the hidden vocabulary is not \ at the top of the search order to allow using either MODULE or PREVIOUS to be used to end ! \ a module ! ! \ *! doc\p-module W32F modules ! \ *T Using the Module Wordset ! \ *P Win32Forth implements the ANSI search-order wordset and extensions as well as it's ! \ ** own set of words for constructing modules. Since the module wordset works by manipulating ! \ ** the search order then care should be taken when using the module wordset and search order ! \ ** wordset together. If the search order is changed with the search order words it should be ! \ ** restored to it's previous state before any of the words INTERNAL EXTERNAL or MODULE are ! \ ** executed. Similarly since the object compiler also manipulates the search order the same ! \ ** criterion applies while building classes or objects (with :OBJECT). The words INTERNAL ! \ ** EXTERNAL and MODULE should not be executed within a CLASS or OBJECT although they can ! \ ** be used before and after the CLASS or OBJECT. ! ! \ *S Error Handling ! ! \ *P If an uncaught error occurs while building a module then the default error handler resets ! \ ** the state of the module wordset as though the module had been finished correctly. cr .( Loading Modules...) *************** *** 25,37 **** forth definitions ! : (PRIVATE) ( xt-of-voc-- ) \ Set vocabulary for internal definitions dup @ [ ' forth @ ] literal <> abort" must be a Vocabulary" is hidden-voc ; ! : PRIVATE ( -<voc>- ) \ Set vocabulary for internal definitions ' (private) ; ! : INTERNAL ( -- ) \ start the internal list of words for a module context @ [ ' hidden-voc >body ] literal @ vcfa>voc = pre-voc and \ 0 if starting module --- 44,67 ---- forth definitions ! \ *S Glossary ! ! : (PRIVATE) ( xt-of-voc -- ) ! \ *G Set the vocabulary for internal definitions for the next module to be built. ! \ ** This is a non-parsing version of the word PRIVATE. dup @ [ ' forth @ ] literal <> abort" must be a Vocabulary" is hidden-voc ; ! : PRIVATE ( -<voc>- ) ! \ *G Set the vocabulary for internal definitions for the next module to be built. ! \ ** This is a parsing version of the word (PRIVATE). ' (private) ; ! : INTERNAL ( -- ) ! \ *G If a module hasn't yet been started or the internal vocabulary isn't the context ! \ ** vocabulary add the internal vocabulary to the search order and save the current ! \ ** vocabulary as the external vocabulary, then make the current vocabulary the internal ! \ ** vocabulary. If a module is already being built then make the current vocabulary ! \ ** the internal vocabulary. context @ [ ' hidden-voc >body ] literal @ vcfa>voc = pre-voc and \ 0 if starting module *************** *** 41,49 **** then ; ! : EXTERNAL ( -- ) \ Start the external list of words for a module pre-voc 0= abort" Use Only while building a module" pre-voc current ! ; ! : MODULE ( -- ) \ complete the module EXTERNAL context @ [ ' hidden-voc >body ] literal @ --- 71,83 ---- then ; ! : EXTERNAL ( -- ) ! \ *G Make the external vocabulary the current vocabulary. pre-voc 0= abort" Use Only while building a module" pre-voc current ! ; ! : MODULE ( -- ) ! \ *G Complete the module by making the external vocabulary the current vocabulary, ! \ ** removing the internal vocabulary from the search order if it's the context ! \ ** vocabulary and resetting the internal vocabulary to hidden. EXTERNAL context @ [ ' hidden-voc >body ] literal @ *************** *** 71,95 **** \S ! ! (PRIVATE) xt-of-voc -- ! ! .. Use vocab as hidden vocabulary for next module .. ! ! PRIVATE -<vocab>- ! ! .. Use -<vocab>- as hidden vocabulary for next module .. ! ! INTERNAL ! ! .. internal definitions .. ! ! EXTERNAL ! ! .. externally available definitions .. ! ! MODULE ! ! .. back to whatever vocabulary we started in .. ! ! ! --- 105,107 ---- \S ! \ *Z |
|
From: George H. <geo...@us...> - 2005-12-14 13:49:41
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8330/win32forth/doc Modified Files: p-advanced.htm Added Files: p-module.htm Log Message: gah: Added documentation --- NEW FILE: p-module.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> W32F modules</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-module.htm,v 1.1 2005/12/14 13:49:30 georgeahubert 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> Using the Module Wordset </h1> <hr /> <p> Win32Forth implements the ANSI search-order wordset and extensions as well as it's own set of words for constructing modules. Since the module wordset works by manipulating the search order then care should be taken when using the module wordset and search order wordset together. If the search order is changed with the search order words it should be restored to it's previous state before any of the words INTERNAL EXTERNAL or MODULE are executed. Similarly since the object compiler also manipulates the search order the same criterion applies while building classes or objects (with :OBJECT). The words INTERNAL EXTERNAL and MODULE should not be executed within a CLASS or OBJECT although they can be used before and after the CLASS or OBJECT. </p> <h2> Error Handling </h2> <p> If an uncaught error occurs while building a module then the default error handler resets the state of the module wordset as though the module had been finished correctly. </p> <h2> Glossary </h2> <pre><b> : (PRIVATE) ( xt-of-voc -- ) </b></pre> <p> Set the vocabulary for internal definitions for the next module to be built. This is a non-parsing version of the word PRIVATE. </p> <pre><b> : PRIVATE ( -<voc>- ) </b></pre> <p> Set the vocabulary for internal definitions for the next module to be built. This is a parsing version of the word (PRIVATE). </p> <pre><b> : INTERNAL ( -- ) </b></pre> <p> If a module hasn't yet been started or the internal vocabulary isn't the context vocabulary add the internal vocabulary to the search order and save the current vocabulary as the external vocabulary, then make the current vocabulary the internal vocabulary. If a module is already being built then make the current vocabulary the internal vocabulary. </p> <pre><b> : EXTERNAL ( -- ) </b></pre> <p> Make the external vocabulary the current vocabulary. </p> <pre><b> : MODULE ( -- ) </b></pre> <p> Complete the module by making the external vocabulary the current vocabulary, removing the internal vocabulary from the search order if it's the context vocabulary and resetting the internal vocabulary to hidden. </p> <hr><p>Document $Id: p-module.htm,v 1.1 2005/12/14 13:49:30 georgeahubert Exp $</p> </body></html> Index: p-advanced.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-advanced.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** p-advanced.htm 16 May 2005 20:56:24 -0000 1.2 --- p-advanced.htm 14 Dec 2005 13:49:30 -0000 1.3 *************** *** 35,38 **** --- 35,39 ---- <li><a href="p-windlls.htm">Calling Windows Procedures</a></li> <li><a href="p-objects.htm">Object Oriented Programming</a></li> + <li><a href="p-module.htm">Using the Module Wordset</a></li> <li><a href="p-random.htm">The Random Number Generator</a></li> <li><a href="p-switch.htm">Using Switches</a></li> |
|
From: Jos v.d.V. <jo...@us...> - 2005-12-13 21:57:54
|
Update of /cvsroot/win32forth/win32forth/apps/Chess In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2871/apps/Chess Modified Files: _fcp3D.f Log Message: Jos: Left a challenge for Fcp. Index: _fcp3D.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/_fcp3D.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** _fcp3D.f 13 Dec 2005 21:45:08 -0000 1.2 --- _fcp3D.f 13 Dec 2005 21:57:43 -0000 1.3 *************** *** 1,3 **** ! \ June 19th, 2004 loader for fcp3D. Needs Win32Forth version 6.09.07 sys-warning-off --- 1,3 ---- ! \ loader for fcp3D. Needs Win32Forth version 6.11.07 sys-warning-off *************** *** 21,26 **** \s ! \ I was surprised to see the following setup solved in FCP in an autoplay ! \ with ply-depth 5. setup 8/3K4/7N/2k8/8/8/2B3 b --- 21,25 ---- \s ! \ Still a challenge for Fcp: setup 8/3K4/7N/2k8/8/8/2B3 b |
|
From: Jos v.d.V. <jo...@us...> - 2005-12-13 21:45:17
|
Update of /cvsroot/win32forth/win32forth/apps/Chess In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32653/apps/Chess Modified Files: BMPDOT.F Oglwin.f TOOLSET.F _fcp3D.f fcp3d.f fcp_inputwin.f Added Files: FCP.F FCP131.F Log Message: Jos Updates for the new version of Fcp3D. There are some minor changes in the OpenGl part. --- NEW FILE: FCP131.F --- \ FCP.F, version 1.3 by Ian Osgood ia...@qu... \ A simple chess program written in ANS Forth. \ Uses Core Extension words: \ .( .R U.R <> U> ?DO ERASE FALSE NIP TO TRUE TUCK VALUE WITHIN \ \ Uses Exception words: CATCH THROW ABORT" \ Uses Tools Extension words: [IF] [ELSE] [THEN] \ Uses String words: TOLOWER /STRING \ Uses Win32Forth utilities: ms@ CELL CELL- DEFER IS [DEFINED] [UNDEFINED] \ Will use DEFER and IS if available for board iterator and vectors. \ Uses defacto-standard HEX constant specifier: $FF \ (I would use decimal #99, but it isn't supported by Win32Forth. \ Thus, BASE 10 is assumed. Use the next line if this is not the case.) \ BASE @ DECIMAL UNUSED \ Assumes 32-bit cells \ Recursive: assumes a data stack larger than MAX_PLY \ and a return stack larger than 3*MAX_PLY. [...1954 lines suppressed...] [UNDEFINED] WINBOARD-ENGINE [IF] \ *** EXECUTE WHEN LOADING *** CR .( FCP 1.3 loaded. ) INCLUDE fcp-book.f \ opening book (lots of line:s) CR UNUSED - . .( total bytes used. ) .( Type "fcp-help" for instructions. ) newGame [ELSE] INCLUDE fcp-book.f UNUSED - DROP [THEN] \ BASE ! Index: fcp3d.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/fcp3d.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** fcp3d.f 21 Dec 2004 00:18:44 -0000 1.1 --- fcp3d.f 13 Dec 2005 21:45:08 -0000 1.2 *************** *** 73,76 **** --- 73,78 ---- CREATE 3D-board 64 ALLOT + : dark? dark and ; + : piece>3dBoard ( n p - n1 p ) dup>r ?rotate bd@ *************** *** 215,219 **** : init-3Dfont ( - ) s" Comic Sans MS" SetFaceName: vFont ! Create: vFont Handle: vFont ghdc call SelectObject drop ghdc 1 255 1 .0200e .0880e WGL_FONT_POLYGONS lpgmf_buffer wglUseFontOutlines --- 217,221 ---- : init-3Dfont ( - ) s" Comic Sans MS" SetFaceName: vFont ! Create: vFont drop Handle: vFont ghdc call SelectObject drop ghdc 1 255 1 .0200e .0880e WGL_FONT_POLYGONS lpgmf_buffer wglUseFontOutlines Index: fcp_inputwin.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/fcp_inputwin.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** fcp_inputwin.f 21 Dec 2004 00:18:44 -0000 1.1 --- fcp_inputwin.f 13 Dec 2005 21:45:08 -0000 1.2 *************** *** 3,7 **** needs struct.f \ For the use of C-like structures. needs toolset.f \ Anything I like ! needs fcp111.f \ The chess engine needs multithr.f \ For threads and events needs oglevts.f \ Defines the threads and events --- 3,8 ---- needs struct.f \ For the use of C-like structures. needs toolset.f \ Anything I like ! all-warnings-off ! needs fcp131.f \ The chess engine needs multithr.f \ For threads and events needs oglevts.f \ Defines the threads and events Index: TOOLSET.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/TOOLSET.F,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** TOOLSET.F 20 Jun 2005 07:40:43 -0000 1.6 --- TOOLSET.F 13 Dec 2005 21:45:08 -0000 1.7 *************** *** 1518,1524 **** : context>current ( - ) context @ current ! ; ! all-warnings-on \s ! |
|
From: Dirk B. <db...@us...> - 2005-12-08 17:27:21
|
Update of /cvsroot/win32forth/win32forth/apps/SciEdit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3776/apps/SciEdit Modified Files: CommandID.f EdCommand.f EdMenu.f EdVersion.f Main.f ScintillaMDI.f Log Message: New "Glossary" command (ALT+G), that turns the selected lines into a glossary entry (for DexH). Index: EdVersion.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdVersion.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** EdVersion.f 31 Aug 2005 17:03:19 -0000 1.6 --- EdVersion.f 8 Dec 2005 17:27:12 -0000 1.7 *************** *** 1,5 **** \ $Id$ ! 10124 value sciedit_version# \ Version numbers: v.ww.rr --- 1,5 ---- \ $Id$ ! 10125 value sciedit_version# \ Version numbers: v.ww.rr *************** *** 207,208 **** --- 207,213 ---- dbu Mittwoch, August 31 2005 - New options "Remove trailing white space" and "Ensure final line ending" + + \ changes for Version 1.01.25 + dbu Donnerstag, Dezember 08 2005 + - New "Glossary" command (ALT+G), that turns the selected lines into + a glossary entry (for DexH) Index: EdMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdMenu.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** EdMenu.f 31 Aug 2005 17:03:19 -0000 1.4 --- EdMenu.f 8 Dec 2005 17:27:12 -0000 1.5 *************** *** 70,73 **** --- 70,75 ---- :MenuItem me_lower "&Lowercase\tCtrl+U" IDM_LOWERCASE DoCommand ; :MenuItem me_upper "&Uppercase\tCtrl+Shift+U" IDM_UPPERCASE DoCommand ; + MenuSeparator + :MenuItem me_glossaryblock "&Glossary\tAlt+G" IDM_GLOSSARY_BLOCK DoCommand ; Popup "&View" *************** *** 107,117 **** :MenuItem mp_browser "Class and &Vocabulary browser..." IDM_VOC_BROWSER DoCommand ; ! POPUP "W&indow" ! :MenuItem mf_tile_hor "Tile &horizontally" IDM_TILE_HORIZONTAL DoCommand ; ! :MenuItem mf_tile_ver "Tile &vertically" IDM_TILE_VERTICAL DoCommand ; ! :MenuItem mf_arrange "&Arrange" IDM_ARRANGE DoCommand ; ! :MenuItem mf_cascade "Ca&scade" IDM_CASCADE DoCommand ; MenuSeparator ! :MenuItem mf_close_all "&Close all" IDM_CLOSE_ALL DoCommand ; Popup "&Help" --- 109,119 ---- :MenuItem mp_browser "Class and &Vocabulary browser..." IDM_VOC_BROWSER DoCommand ; ! POPUP "W&indow" ! :MenuItem mf_tile_hor "Tile &horizontally" IDM_TILE_HORIZONTAL DoCommand ; ! :MenuItem mf_tile_ver "Tile &vertically" IDM_TILE_VERTICAL DoCommand ; ! :MenuItem mf_arrange "&Arrange" IDM_ARRANGE DoCommand ; ! :MenuItem mf_cascade "Ca&scade" IDM_CASCADE DoCommand ; MenuSeparator ! :MenuItem mf_close_all "&Close all" IDM_CLOSE_ALL DoCommand ; Popup "&Help" *************** *** 150,209 **** : EnableEdit ( f -- ) ! \ File menu ! dup Enable: mf_save ! dup Enable: mf_saveas ! \ dup Enable: mf_reload ! dup Enable: mf_openhl ! \ Edit menu ! dup Enable: me_undo ! dup Enable: me_redo ! dup Enable: me_cut ! dup Enable: me_copy ! dup Enable: me_paste ! dup Enable: me_delete ! dup Enable: me_selectall ! dup Enable: me_removesel ! dup Enable: me_find ! dup Enable: me_findnext ! \ dup Enable: me_findprev ! dup Enable: me_date ! dup Enable: me_date&time ! dup Enable: me_commentblock ! dup Enable: me_uncommentblock ! dup Enable: me_lower ! dup Enable: me_upper ! dup Enable: me_linecut ! dup Enable: me_linedelete ! dup Enable: me_linecopy ! dup Enable: me_linetranspose ! dup Enable: me_lineduplicate ! \ View menu ! dup Enable: mp_vieweol ! dup Enable: mp_viewws ! dup Enable: mp_viewln ! dup Enable: mp_colorize ! dup Enable: mp_browse ! \ Options menu ! dup Enable: mf_windows ! dup Enable: mf_unix ! dup Enable: mf_mac ! dup Enable: mp_backup ! dup Enable: mp_sabcompile ! dup Enable: mp_tabs dup Enable: mp_rtwh dup Enable: mp_efle ! \ Win32Forth menu ! dup Enable: mp_compile ! dup Enable: mp_debug \ dup Enable: mp_HandleW32FMsg ! \ Help menu ! dup Enable: mp_anshelp ! dup Enable: mp_apihelp ! drop ; : EnableMenuBar ( -- ) \ enable/disable the menu items --- 152,212 ---- : EnableEdit ( f -- ) ! \ File menu ! dup Enable: mf_save ! dup Enable: mf_saveas ! \ dup Enable: mf_reload ! dup Enable: mf_openhl ! \ Edit menu ! dup Enable: me_undo ! dup Enable: me_redo ! dup Enable: me_cut ! dup Enable: me_copy ! dup Enable: me_paste ! dup Enable: me_delete ! dup Enable: me_selectall ! dup Enable: me_removesel ! dup Enable: me_find ! dup Enable: me_findnext ! \ dup Enable: me_findprev ! dup Enable: me_date ! dup Enable: me_date&time ! dup Enable: me_commentblock ! dup Enable: me_uncommentblock ! dup Enable: me_lower ! dup Enable: me_upper ! dup Enable: me_linecut ! dup Enable: me_linedelete ! dup Enable: me_linecopy ! dup Enable: me_linetranspose ! dup Enable: me_lineduplicate ! dup Enable: me_glossaryblock ! \ View menu ! dup Enable: mp_vieweol ! dup Enable: mp_viewws ! dup Enable: mp_viewln ! dup Enable: mp_colorize ! dup Enable: mp_browse ! \ Options menu ! dup Enable: mf_windows ! dup Enable: mf_unix ! dup Enable: mf_mac ! dup Enable: mp_backup ! dup Enable: mp_sabcompile ! dup Enable: mp_tabs dup Enable: mp_rtwh dup Enable: mp_efle ! \ Win32Forth menu ! dup Enable: mp_compile ! dup Enable: mp_debug \ dup Enable: mp_HandleW32FMsg ! \ Help menu ! dup Enable: mp_anshelp ! dup Enable: mp_apihelp ! drop ; : EnableMenuBar ( -- ) \ enable/disable the menu items *************** *** 238,241 **** --- 241,245 ---- GetTextLength: ActiveChild Enable: me_linetranspose GetTextLength: ActiveChild Enable: me_lineduplicate + ?Selection: ActiveChild Enable: me_glossaryblock \ View menu Index: EdCommand.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdCommand.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** EdCommand.f 31 Aug 2005 17:03:19 -0000 1.4 --- EdCommand.f 8 Dec 2005 17:27:12 -0000 1.5 *************** *** 171,196 **** : InsertDate ( -- ) ! InsertDate: ActiveChild Update ; IDM_INSERT_DATE SetCommand : InsertDate&Time ( -- ) ! InsertDate&Time: ActiveChild Update ; IDM_INSERT_DATE&TIME SetCommand : CommentBlock ( -- ) ! CommentBlock: ActiveChild Update ; IDM_COMMENT_BLOCK SetCommand : UnCommentBlock ( -- ) ! UnCommentBlock: ActiveChild Update ; IDM_UNCOMMENT_BLOCK SetCommand : mcLowercase ( -- ) ! SCI_LOWERCASE KeyCommand: CurrentWindow Update ; IDM_LOWERCASE SetCommand : mcUppercase ( -- ) ! SCI_UPPERCASE KeyCommand: CurrentWindow Update ; IDM_UPPERCASE SetCommand : LineCut ( -- ) ! SCI_LINECUT KeyCommand: CurrentWindow Update ; IDM_LINECUT SetCommand : LineDelete ( -- ) ! SCI_LINEDELETE KeyCommand: CurrentWindow Update ; IDM_LINEDELETE SetCommand : LineCopy ( -- ) --- 171,199 ---- : InsertDate ( -- ) ! InsertDate: ActiveChild Update ; IDM_INSERT_DATE SetCommand : InsertDate&Time ( -- ) ! InsertDate&Time: ActiveChild Update ; IDM_INSERT_DATE&TIME SetCommand : CommentBlock ( -- ) ! CommentBlock: ActiveChild Update ; IDM_COMMENT_BLOCK SetCommand : UnCommentBlock ( -- ) ! UnCommentBlock: ActiveChild Update ; IDM_UNCOMMENT_BLOCK SetCommand ! ! : GlossaryBlock ( -- ) ! GlossaryBlock: ActiveChild Update ; IDM_GLOSSARY_BLOCK SetCommand : mcLowercase ( -- ) ! SCI_LOWERCASE KeyCommand: CurrentWindow Update ; IDM_LOWERCASE SetCommand : mcUppercase ( -- ) ! SCI_UPPERCASE KeyCommand: CurrentWindow Update ; IDM_UPPERCASE SetCommand : LineCut ( -- ) ! SCI_LINECUT KeyCommand: CurrentWindow Update ; IDM_LINECUT SetCommand : LineDelete ( -- ) ! SCI_LINEDELETE KeyCommand: CurrentWindow Update ; IDM_LINEDELETE SetCommand : LineCopy ( -- ) Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** Main.f 6 Nov 2005 07:36:40 -0000 1.12 --- Main.f 8 Dec 2005 17:27:12 -0000 1.13 *************** *** 616,619 **** --- 616,620 ---- FALT 'C' IDM_COMMENT_BLOCK ACCELENTRY FALT 'U' IDM_UNCOMMENT_BLOCK ACCELENTRY + FALT 'G' IDM_GLOSSARY_BLOCK ACCELENTRY \ Properties menu Index: CommandID.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/CommandID.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** CommandID.f 31 Aug 2005 17:03:19 -0000 1.4 --- CommandID.f 8 Dec 2005 17:27:12 -0000 1.5 *************** *** 48,51 **** --- 48,52 ---- NewID IDM_COMMENT_BLOCK NewID IDM_UNCOMMENT_BLOCK + NewID IDM_GLOSSARY_BLOCK NewID IDM_LOWERCASE NewID IDM_UPPERCASE Index: ScintillaMDI.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/ScintillaMDI.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ScintillaMDI.f 19 Sep 2005 15:32:36 -0000 1.5 --- ScintillaMDI.f 8 Dec 2005 17:27:12 -0000 1.6 *************** *** 196,200 **** GetSelectionStart: ChildWindow LineFromPosition: ChildWindow ; ! : Comment? ( #line -- ) \ check if line starts with a comment PositionFromLine: ChildWindow dup GetCharAt: ChildWindow [char] \ = swap --- 196,200 ---- GetSelectionStart: ChildWindow LineFromPosition: ChildWindow ; ! : Comment? ( #line -- f ) \ check if line starts with a comment PositionFromLine: ChildWindow dup GetCharAt: ChildWindow [char] \ = swap *************** *** 223,226 **** --- 223,244 ---- then ;M + :M GlossaryBlock: { \ FirstLine? -- } \ Turn a block of lines into a glossary entry + ?Selection: self + if true to FirstLine? + BeginUndoAction: ChildWindow + SelBounds + ?do i Comment? + if \ remove current comment " \ " first + i PositionFromLine: ChildWindow + dup 2 + SetSel: ChildWindow Delete: self + then + i PositionFromLine: ChildWindow + FirstLine? + if z" \ *G " false to FirstLine? + else z" \ ** " + then InsertText: ChildWindow + loop EndUndoAction: ChildWindow + then ;M + :M GotoColumn: ( n -- ) GetCurrentPos: ChildWindow |
|
From: Jos v.d.V. <jo...@us...> - 2005-12-03 12:32:01
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30156/apps/Player4 Modified Files: Catalog.f Log Message: Jos: Removed the fatal debug Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** Catalog.f 29 Nov 2005 16:51:47 -0000 1.20 --- Catalog.f 3 Dec 2005 12:31:50 -0000 1.21 *************** *** 451,456 **** ; - debug write-record - external --- 451,454 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2005-11-29 17:12:20
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31286/apps/Player4 Modified Files: PLAYER4.F Log Message: Jos: Removed the starting notes. Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** PLAYER4.F 29 Nov 2005 16:51:47 -0000 1.31 --- PLAYER4.F 29 Nov 2005 17:12:08 -0000 1.32 *************** *** 1,15 **** - (( > I found a Bug in the latest Player 4th from the CVS: - > - > 1. Delete the catalog files - > 2. Start the Player - > 3. Choose "Catalog>Add file(s)" - > 4. Click "Abort" - > => the Player will be closed - > - > 5. Start the Player again - > => the Menu and the splitter window are missing - )) - - \ Play flat Music? => adr lastmusic/vid \ File: PLAYER4.F \ --- 1,2 ---- *************** *** 570,572 **** PLAYER4 [then] ! |
|
From: Jos v.d.V. <jo...@us...> - 2005-11-29 16:51:58
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25966/apps/Player4 Modified Files: Catalog.f PLAYER4.F Pl_MciWindow.f Log Message: Jos: Solved the reported bug by Dirk Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.30 retrieving revision 1.31 diff -C2 -d -r1.30 -r1.31 *** PLAYER4.F 26 Nov 2005 21:56:34 -0000 1.30 --- PLAYER4.F 29 Nov 2005 16:51:47 -0000 1.31 *************** *** 1,2 **** --- 1,14 ---- + (( > I found a Bug in the latest Player 4th from the CVS: + > + > 1. Delete the catalog files + > 2. Start the Player + > 3. Choose "Catalog>Add file(s)" + > 4. Click "Abort" + > => the Player will be closed + > + > 5. Start the Player again + > => the Menu and the splitter window are missing + )) + \ Play flat Music? => adr lastmusic/vid \ File: PLAYER4.F Index: Pl_MciWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** Pl_MciWindow.f 16 Nov 2005 19:47:22 -0000 1.12 --- Pl_MciWindow.f 29 Nov 2005 16:51:47 -0000 1.13 *************** *** 251,264 **** :M AddFilesFromSelector: ( - ) \ add one or more files ! OpenAppendDatabase ! GetHandle: self Start: GetFilesDialog count nip 0> ! if 0 GetFile: GetFilesDialog GetLabel ! #SelectedFiles: GetFilesDialog wait-cursor 0 do dup i GetFile: GetFilesDialog AddFile loop ! arrow-cursor then - CloseReMap - RefreshCatalog ;M --- 251,265 ---- :M AddFilesFromSelector: ( - ) \ add one or more files ! GetHandle: self Start: GetFilesDialog count nip 0> ! if vadr-config 0= ! if map-config-file ! then ! OpenAppendDatabase 0 GetFile: GetFilesDialog GetLabel ! #SelectedFiles: GetFilesDialog ! wait-cursor 0 do dup i GetFile: GetFilesDialog AddFile loop ! arrow-cursor CloseReMap RefreshCatalog then ;M *************** *** 280,284 **** if begin MAXCOUNTED drop$ #File wParam Call DragQueryFile dup 0> drag-aborted? 0= and while drop$ swap (PlayOneFile) 1 +to #File ! repeat drop then wParam Call DragFinish ; --- 281,285 ---- if begin MAXCOUNTED drop$ #File wParam Call DragQueryFile dup 0> drag-aborted? 0= and while drop$ swap (PlayOneFile) 1 +to #File ! repeat drop then wParam Call DragFinish ; Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** Catalog.f 16 Nov 2005 19:47:22 -0000 1.19 --- Catalog.f 29 Nov 2005 16:51:47 -0000 1.20 *************** *** 451,454 **** --- 451,456 ---- ; + debug write-record + external *************** *** 487,494 **** --- 489,501 ---- >hfile @ -1 <> ; + : DataBaseFilled? ( - f ) + database$ count r/o open-file drop dup file-size drop d0= not + swap close-file drop + ; : catalog-exist? ( -- f ) DatFile$ count file-exist? database$ count file-exist? and \ database-mhndl map-file-open? or + DataBaseFilled? and [defined] MciDebug? [if] MciDebug? *************** *** 497,501 **** [then] ; - \ -------------------------------------------------------------------------- \ add a directory tree to the catalog --- 504,507 ---- |
|
From: Dirk B. <db...@us...> - 2005-11-28 09:25:50
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29748/src/kernel Modified Files: fkernel.f Log Message: Added some doc. Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** fkernel.f 3 Sep 2005 09:00:25 -0000 1.23 --- fkernel.f 28 Nov 2005 09:25:42 -0000 1.24 *************** *** 2181,2184 **** --- 2181,2187 ---- Call c_cls drop ; + \ ?CR checks if there is room for at least n chars in the current + \ row of the console window. If not it emits CR and LF to move the + \ cursor to the beginnig of the next row. : x_?CR ( n -- ) Call c_qcr drop ; |
|
From: Jos v.d.V. <jo...@us...> - 2005-11-26 21:56:42
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1650/apps/Player4 Modified Files: PLAYER4.F Log Message: Jos: Changed the turnkey setting Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** PLAYER4.F 26 Nov 2005 19:17:07 -0000 1.29 --- PLAYER4.F 26 Nov 2005 21:56:34 -0000 1.30 *************** *** 21,26 **** decimal ! \ true value turnkey? ! false value turnkey? true value MciDebug? --- 21,26 ---- decimal ! true value turnkey? ! \ false value turnkey? true value MciDebug? |
|
From: Jos v.d.V. <jo...@us...> - 2005-11-26 19:17:19
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6404/apps/Player4 Modified Files: Mediatree.f PLAYER4.F Pl_Toolset.f mshell_r.f Log Message: Jos: Made a hierarical view possible Index: mshell_r.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/mshell_r.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** mshell_r.f 26 Oct 2005 15:16:46 -0000 1.1 --- mshell_r.f 26 Nov 2005 19:17:07 -0000 1.2 *************** *** 19,22 **** --- 19,67 ---- needs w_search.f + \ September 9th, 2001 - 14:38 + \ :INLINE was posted in comp.lang.forth by Marcel Hendrix + + : next_char ( -- char ) \ next-char was used in float.f + source >in @ <= if drop -1 exit endif + >in @ chars + c@ ; + + : skip-line ( -- ) + begin next_char -1 <> + while 1 >in +! + repeat ; + + : @+ ( adr -- adr n ) dup cell+ swap @ ; + + -- Embedded linebreaks are allowed. Maximum length is 4096 characters. + -- Not allowed: EXIT LOCALS| DLOCALS| FLOCALS| , DOES> R> DROP etc. + -- It needs a space as the first character on each line + + : multi-line ( quote "ccc<quote>" tmp-buffer -- str len ) + 0 locals| ch buff quote | + buff off + begin + next_char to ch + ch '\' = if skip-line -1 to ch endif + ch -1 = if bl to ch refill else true endif + while + ch quote <> + while + ch buff @+ + c! 1 buff +! 1 >in +! + buff @ 4096 >= + until then then + buff @+ refill drop ; + + + : :inline ( ccc; -- ) + create immediate + ';' + 4096 cell+ chars malloc dup>r + multi-line ( addr u tmp-buffer ) + dup , here cell+ , + here over allot swap move + r> release + does> 2@ evaluate ; + + 23 value record-size 112 value #records *************** *** 24,41 **** 0 value records-pointer ! : n>aptr ( n -- a ) S" aptrs +cells " EVALUATE ; IMMEDIATE ! : r>record ( n -- a ) S" records-pointer ( CHARS) + " EVALUATE ; IMMEDIATE ! : record>r ( a -- n ) S" records-pointer ( CHARS) - " EVALUATE ; IMMEDIATE ! : n>record ( n -- a ) S" n>aptr @ r>record " EVALUATE ; IMMEDIATE ! \ : n>key ( n -- a ) S" n>record >key " EVALUATE ; IMMEDIATE ! : records ( n -- ra ) S" record-size * " EVALUATE ; IMMEDIATE ! : >record ( n -- a ) S" records r>record " EVALUATE ; IMMEDIATE ! : xchange ( a1 a2 -- ) S" dup>r @ over @ r> ! swap ! " EVALUATE ; IMMEDIATE ! : &key-len ( key - &key-len ) s" cell+ " EVALUATE ; IMMEDIATE ! : >key ( ra - key-start ) s" by @ + " EVALUATE ; IMMEDIATE ! : key-len ( ra - cnt ) s" by &key-len @ " EVALUATE ; IMMEDIATE ! : <>= ( n1 n2 - -1|0|1 ) ! s" 2dup = if 2drop 0 else < if 1 else true then then " EVALUATE ; IMMEDIATE : cmp-cell { by } ( cand1 cand2 by - p1 p2 n ) --- 69,86 ---- 0 value records-pointer ! :inline n>aptr ( n -- a ) aptrs +cells ; ! :inline r>record ( n -- a ) records-pointer ( CHARS) + ; ! :inline record>r ( a -- n ) records-pointer ( CHARS) - ; ! :inline n>record ( n -- a ) n>aptr @ r>record ; ! \ :inline n>key ( n -- a ) n>record >key ; ! :inline records ( n -- ra ) record-size * ; ! :inline >record ( n -- a ) records r>record ; ! :inline xchange ( a1 a2 -- ) dup>r @ over @ r> ! swap ! ; ! :inline &key-len ( key - &key-len ) cell+ ; ! :inline >key ( ra - key-start ) by @ + ; ! :inline key-len ( ra - cnt ) by &key-len @ ; ! :inline <>= ( n1 n2 - -1|0|1 ) ! 2dup = if 2drop 0 else < if 1 else true then then ; : cmp-cell { by } ( cand1 cand2 by - p1 p2 n ) *************** *** 53,57 **** : bin-sort ( key - ) ['] cmp-cell 3 mod-cell ; ! : Descending? ( key - ) s" 2 cells+ @ " EVALUATE ; IMMEDIATE \ Ascending and cmp$ are default in key: --- 98,102 ---- : bin-sort ( key - ) ['] cmp-cell 3 mod-cell ; ! :inline Descending? ( key - ) 2 cells+ @ ; \ Ascending and cmp$ are default in key: *************** *** 60,65 **** ; ! : by[ ( R: - #stack ) s" depth >r " EVALUATE ; IMMEDIATE ! : ]by ( - #stack-inc) ( R: #stack - ) s" depth r> - " EVALUATE ; IMMEDIATE : CmpBy ( cand1 cand2 ByStackTop #keys - p1 p2 f ) --- 105,110 ---- ; ! :inline by[ ( R: - #stack ) depth >r ; ! :inline ]by ( - #stack-inc) ( R: #stack - ) depth r> - ; : CmpBy ( cand1 cand2 ByStackTop #keys - p1 p2 f ) Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** PLAYER4.F 26 Oct 2005 15:19:15 -0000 1.28 --- PLAYER4.F 26 Nov 2005 19:17:07 -0000 1.29 *************** *** 1,2 **** --- 1,3 ---- + \ Play flat Music? => adr lastmusic/vid \ File: PLAYER4.F \ *************** *** 20,25 **** decimal ! true value turnkey? ! \ false value turnkey? true value MciDebug? --- 21,26 ---- decimal ! \ true value turnkey? ! false value turnkey? true value MciDebug? Index: Mediatree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** Mediatree.f 16 Nov 2005 19:47:22 -0000 1.22 --- Mediatree.f 26 Nov 2005 19:17:07 -0000 1.23 *************** *** 6,15 **** needs catalog.f needs TreeView.F 0 value hItem-last-selected - \ *************************************************** - \ S ******** Below please find a small example ******** - \ *************************************************** :Class MediaTree <super TreeViewControl --- 6,13 ---- needs catalog.f needs TreeView.F + needs struct.f 0 value hItem-last-selected :Class MediaTree <super TreeViewControl *************** *** 17,21 **** :M WindowStyle: ( -- style ) WindowStyle: super ! [ TVS_DISABLEDRAGDROP TVS_SHOWSELALWAYS or ] literal or ;M --- 15,24 ---- :M WindowStyle: ( -- style ) WindowStyle: super ! \ [ TVS_DISABLEDRAGDROP TVS_SHOWSELALWAYS or ] literal or ! WS_BORDER or WS_CHILD or WS_VISIBLE or ! LVS_REPORT or ! TVS_HASLINES or ! TVS_SHOWSELALWAYS or ! TVS_LINESATROOT or ;M *************** *** 23,35 **** : +(l.int) ( n ) (l.int) +InlineRecord ; ! : add-record ( n - ) \ Add when not deleted and found in a collection ! dup n>record dup RecordDef Deleted- c@ 0= show-deleted = swap RecordDef Excluded- c@ or ! if drop ! else 1 +to #InCollection vadr-config over to lParam 0 InlineRecord ! ! dup l_Index- c@ ! if over +(l.int) ! then ! swap n>record \ ( vadr-config rec-addr - ) over l_Drivetype- c@ if dup RecordDef DriveType c@ DriveType$ +InlineRecord --- 26,45 ---- : +(l.int) ( n ) (l.int) +InlineRecord ; ! ! : NotIncollection? ( n - f ) ! n>record dup RecordDef Deleted- c@ 0= show-deleted = swap RecordDef Excluded- c@ or ! ; ! ! : ResetInlineRecord ( n - n vadr-config ) ! 1 +to #InCollection vadr-config 0 InlineRecord ! ! ; ! ! : CountedArtist ( adr - adr count ) dup RecordDef Artist swap Cnt_Artist c@ ; ! : CountedFilename ( adr - adr count ) dup RecordDef File_name swap Cnt_File_name c@ ; ! : CountedAlbum ( adr - adr count ) dup RecordDef Album swap Cnt_Album c@ ; ! : CountedTitle ( adr - adr count ) dup RecordDef Title swap Cnt_Title c@ ; ! ! : OptionalElements ( vadr-config rec-addr - vadr-config rec-addr ) over l_Drivetype- c@ if dup RecordDef DriveType c@ DriveType$ +InlineRecord *************** *** 47,64 **** if dup RecordDef #played @ +(l.int) then swap l_Filename- c@ ! if dup RecordDef File_name swap Cnt_File_name c@ ! else dup RecordDef Artist over Cnt_Artist c@ +InlineRecord s" --" +InlineRecord ! dup RecordDef Album over Cnt_Album c@ +InlineRecord s" --" +InlineRecord ! dup RecordDef Title swap Cnt_Title c@ then ! InlineRecord +place ! InlineRecord +null InlineRecord 1+ to pszText tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hInsertAfter then ; :M FillTreeView: ( -- ) 0 to #InCollection --- 57,179 ---- if dup RecordDef #played @ +(l.int) then + ; + + : AddRecordFlat ( n - ) \ Add when not deleted and found in a collection + dup NotIncollection? + if drop + else ResetInlineRecord + dup l_Index- c@ + if over +(l.int) + then + swap dup to lParam n>record \ ( vadr-config rec-addr - ) + OptionalElements swap l_Filename- c@ ! if CountedFilename ! else dup CountedArtist +InlineRecord s" --" +InlineRecord ! dup CountedAlbum +InlineRecord s" --" +InlineRecord ! CountedTitle then ! InlineRecord +place InlineRecord +null ! InlineRecord 1+ to pszText tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hInsertAfter then ; + int hPrev + + : AddItemHierarical ( sztext hAfter hParent nChildren -- hPrev ) + ( nChildren) to cChildren + ( hParent) to hParent + ( hAfter) to hInsertAfter + to pszText tvitem->tvins + tvins 0 TVM_INSERTITEMA hWnd Call SendMessage + dup to hPrev + ; + + struct{ \ PrevMusic + DWORD PrevMusicRecord + DWORD hArtist + DWORD hAlbum + }struct PrevMember + + sizeof PrevMember mkstruct: &PrevMusic + sizeof PrevMember mkstruct: &PrevMovie + + int hMovies + int hMusic + int hRequests + int OtherArtist? + + sizeof RecordDef dup create dummy allot dummy swap 01 fill + + : NotPlayable ( - ) -1 to lParam ; + + : root-items ( - hPrev ) + NotPlayable TVI_LAST TVI_ROOT 2>r + TVI_ROOT TVI_LAST z" Movies" 2r@ 1 AddItemHierarical to hMovies + TVI_ROOT TVI_LAST z" Music" 2r> 1 AddItemHierarical dup to hMusic + \ TVI_ROOT TVI_LAST z" Requests" 2r> 1 AddItemHierarical dup to hRequests + dummy dup &PrevMusic ! &PrevMovie ! + dup &PrevMovie hArtist ! &PrevMovie hArtist ! + (( z" First Artist" hPrev hMusic 1 AddItemHierarical to hArtist + z" Second Music" hPrev hArtist 0 AddItemHierarical drop + z" Third Music" hPrev hArtist 0 AddItemHierarical drop )) + ; + + : music? ( adr len - f ) valid-sound-ext count (IsValidFileType?) ; + + : AddArtist { PrevRecAdr } ( rec-addr PrevRecAdr - ) + dup CountedArtist 1 max PrevRecAdr @ CountedArtist 1 max compareia 0<> + if dup PrevRecAdr ! true to OtherArtist? NotPlayable + dup RecordDef Artist hPrev + rot CountedFilename music? + if hMusic + else hMovies + then + 1 AddItemHierarical PrevRecAdr hArtist ! + else drop false to OtherArtist? + then + ; + + : AddAlbum { PrevRecAdr } ( rec-addr PrevRecAdr - ) + dup CountedAlbum 1 max PrevRecAdr @ CountedAlbum 1 max compareia 0<> OtherArtist? or + if dup PrevRecAdr ! NotPlayable + RecordDef Album hPrev PrevRecAdr hArtist @ + 1 AddItemHierarical PrevRecAdr hAlbum ! + else drop + then + ; + + : AddTitle ( rec-addr PrevRecAdr - ) + \ over swap ! + >r + RecordDef CountedTitle +InlineRecord InlineRecord +null + InlineRecord 1+ hPrev r> hAlbum @ + 0 AddItemHierarical drop + ; + + : AddRecordHierarical ( n - ) + dup NotIncollection? + if drop + else ( 1306 +) >r ResetInlineRecord + r@ n>record + dup CountedFilename music? + if &PrevMusic + else &PrevMovie + then \ ( n vadr-config rec-addr PrevRecAdr - ) + 2dup AddArtist + 2dup AddAlbum + 2 pick l_Index- c@ + if r> dup +(l.int) + else r> + then + to lParam + >r OptionalElements r> + AddTitle drop + then + ; + :M FillTreeView: ( -- ) 0 to #InCollection *************** *** 67,74 **** tvitem /tvitem erase TVI_ROOT to hParent - 1 to cChildren TVI_LAST to hInsertAfter - \ -1 to statemask [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_STATE or ] literal to mask ! for-all-records add-record ;M --- 182,194 ---- tvitem /tvitem erase TVI_ROOT to hParent [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_STATE or ] literal to mask ! vadr-config l_Filename- c@ ! if 1 to cChildren TVI_LAST to hInsertAfter ! for-all-records AddRecordFlat ! else root-items to hPrev ! for-all-records AddRecordHierarical ! \ 1318 1305 do I AddRecordHierarical loop ! ! then ;M *************** *** 86,97 **** tvitem 0 TVM_GETITEMA hWnd Call SendMessage drop hItem to hItem-last-selected ! lParam to last-selected-rec ! last-selected-rec n>record dup>r RecordDef File_name r@ Cnt_File_name c@ ! r@ incr-#played ! r> mark-played ! 2dup cr type-space ! PlayFile: PLAYER4W ! false ;M --- 206,221 ---- tvitem 0 TVM_GETITEMA hWnd Call SendMessage drop hItem to hItem-last-selected ! lParam dup to last-selected-rec -1 <> ! if last-selected-rec n>record dup>r ! RecordDef File_name r@ Cnt_File_name c@ ! r@ incr-#played ! r> mark-played ! turnkey? not ! if 2dup cr type-space ! then ! PlayFile: PLAYER4W ! false ! then ;M Index: Pl_Toolset.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_Toolset.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 Binary files /tmp/cvsoDvt96 and /tmp/cvsNpHK2F differ |
|
From: Dirk B. <db...@us...> - 2005-11-19 11:13:33
|
Update of /cvsroot/win32forth/win32forth/src/gdi In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30912/src/gdi Modified Files: gdiDC.f Log Message: Fixed a bug in the gdiDC and DC class whitch broke WinEd very badly. Index: gdiDC.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiDC.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** gdiDC.f 5 Nov 2005 14:08:13 -0000 1.4 --- gdiDC.f 19 Nov 2005 11:13:09 -0000 1.5 *************** *** 13,20 **** internal - 8 constant TAB-CHAR-WIDTH - external \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Base device context class --- 13,21 ---- internal external + 8 value CHAR-WIDTH \ Width of each character in pixels + 14 value CHAR-HEIGHT \ Height of each character in pixels + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Base device context class *************** *** 144,148 **** \ context stack. :M Save: ( -- ) ! hObject call SaveDC ?win-error ;M \ The Restore method restores the device context to the specified state. --- 145,149 ---- \ context stack. :M Save: ( -- ) ! hObject call SaveDC ;M \ The Restore method restores the device context to the specified state. *************** *** 907,911 **** :M DefaultTabs: ( -- ) deftabs 0 ! ?DO i 1+ tabwidth * TAB-CHAR-WIDTH * tabarray i cells+ ! \ fill default tabs LOOP --- 908,912 ---- :M DefaultTabs: ( -- ) deftabs 0 ! ?DO i 1+ tabwidth * CHAR-WIDTH * tabarray i cells+ ! \ fill default tabs LOOP |
|
From: Dirk B. <db...@us...> - 2005-11-19 11:13:33
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30912/src Modified Files: Dc.f Log Message: Fixed a bug in the gdiDC and DC class whitch broke WinEd very badly. Index: Dc.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Dc.f 5 Nov 2005 14:08:12 -0000 1.11 --- Dc.f 19 Nov 2005 11:13:09 -0000 1.12 *************** *** 61,65 **** :M RestoreDC: ( -- ) \ restore current DC context including font ! Restore: super drop ;M :M SetFont: ( font_handle -- ) --- 61,65 ---- :M RestoreDC: ( -- ) \ restore current DC context including font ! Restore: super ;M :M SetFont: ( font_handle -- ) *************** *** 148,154 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - 8 value CHAR-WIDTH \ Width of each character in pixels - 14 value CHAR-HEIGHT \ Height of each character in pixels - 0 value #PAGES-UP 644 value SCREEN-WIDTH \ Width of screen in bits --- 148,151 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2005-11-16 19:47:30
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4160/apps/Player4 Modified Files: Catalog.f Mediatree.f Pl_MciWindow.f Log Message: Jos: Removed a few bugs. Index: Pl_MciWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Pl_MciWindow.f 16 Oct 2005 10:24:39 -0000 1.11 --- Pl_MciWindow.f 16 Nov 2005 19:47:22 -0000 1.12 *************** *** 221,239 **** database-mhndl #records-in-database vadr-config #free-list @ - 0> if AbortPlaying: self false to catalog-aborted? ! begin PLAYER catalog-aborted? if exitm then Playing?: Self not if next-not-played dup -1 = if cr cr ." All done. Reset randomlevel and shuffle..." ! set-all-not-played random-shuffle else cr 2 spaces dup . 2 spaces n>record dup>r RecordDef File_name r@ Cnt_File_name c@ 2dup type-space r@ incr-#played r> mark-played ! PlayFile: Self 2drop then then again then ! ;M : add-to-catalog ( -- ) \ Delete the *.dat files to start a new catalog --- 221,239 ---- database-mhndl #records-in-database vadr-config #free-list @ - 0> if AbortPlaying: self false to catalog-aborted? ! begin PLAYER catalog-aborted? #InCollection 0= or if exitm then Playing?: Self not if next-not-played dup -1 = if cr cr ." All done. Reset randomlevel and shuffle..." ! set-all-not-played random-shuffle else cr 2 spaces dup . 2 spaces n>record dup>r RecordDef File_name r@ Cnt_File_name c@ 2dup type-space r@ incr-#played r> mark-played ! PlayFile: Self then then again then ! ;M : add-to-catalog ( -- ) \ Delete the *.dat files to start a new catalog *************** *** 254,260 **** GetHandle: self Start: GetFilesDialog count nip 0> if 0 GetFile: GetFilesDialog GetLabel ! #SelectedFiles: GetFilesDialog 0 do dup i GetFile: GetFilesDialog AddFile loop then CloseReMap --- 254,261 ---- GetHandle: self Start: GetFilesDialog count nip 0> if 0 GetFile: GetFilesDialog GetLabel ! #SelectedFiles: GetFilesDialog wait-cursor 0 do dup i GetFile: GetFilesDialog AddFile loop + arrow-cursor then CloseReMap Index: Mediatree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** Mediatree.f 30 Oct 2005 18:58:14 -0000 1.21 --- Mediatree.f 16 Nov 2005 19:47:22 -0000 1.22 *************** *** 27,31 **** swap RecordDef Excluded- c@ or if drop ! else vadr-config over to lParam 0 InlineRecord ! dup l_Index- c@ if over +(l.int) --- 27,31 ---- swap RecordDef Excluded- c@ or if drop ! else 1 +to #InCollection vadr-config over to lParam 0 InlineRecord ! dup l_Index- c@ if over +(l.int) *************** *** 62,65 **** --- 62,66 ---- :M FillTreeView: ( -- ) + 0 to #InCollection 0 to last-selected-rec tvins /tvins erase Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** Catalog.f 31 Oct 2005 18:05:17 -0000 1.18 --- Catalog.f 16 Nov 2005 19:47:22 -0000 1.19 *************** *** 1,3 **** - \ Error: GetxxxxFileName failed RC=0x3003 anew catalog.f \ 15-10-2005 --- 1,2 ---- *************** *** 232,235 **** --- 231,239 ---- ; + : build-free-list ( - ) + 0 vadr-config #free-list ! + for-all-records free-list-check + ; + : get-a-record-from-the-free-list ( - adr ) vadr-config dup>r first-free-record @ *************** *** 241,245 **** : write-record ( wHndl - ) \ Recycle deleted records first. InlineRecord [ sizeof RecordDef ] literal ! vadr-config #free-list @ if get-a-record-from-the-free-list swap cmove drop else rot write-file abort" Can't save record" --- 245,249 ---- : write-record ( wHndl - ) \ Recycle deleted records first. InlineRecord [ sizeof RecordDef ] literal ! vadr-config #free-list @ 0> if get-a-record-from-the-free-list swap cmove drop else rot write-file abort" Can't save record" *************** *** 247,254 **** ; - : build-free-list ( - ) - 0 vadr-config #free-list ! - for-all-records free-list-check - ; : delete-record ( n - ) --- 251,254 ---- *************** *** 405,409 **** : random-shuffle ( - ) vadr-config MaximumRandomLevel @ for-all-records change-randomlevel drop ! sort_by_RandomLevel ; --- 405,409 ---- : random-shuffle ( - ) vadr-config MaximumRandomLevel @ for-all-records change-randomlevel drop ! sort_by_RandomLevel RefreshCatalog ; *************** *** 470,476 **** 0 value played_from_catalog 0 value last-selected-rec : next-not-played ( - n ) \ -1 means done. ! -1 #records last-selected-rec \ Starting from the last-selected record do i n>record dup>r RecordDef Excluded- c@ not r@ RecordDef Played- c@ 0= and r> RecordDef Deleted- c@ 0= and --- 470,477 ---- 0 value played_from_catalog 0 value last-selected-rec + 0 value #InCollection : 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 dup>r RecordDef Excluded- c@ not r@ RecordDef Played- c@ 0= and r> RecordDef Deleted- c@ 0= and *************** *** 522,529 **** : add_dir_tree ( -- ) \ add a directory tree to the catalog ! ['] proc_fileinfo_sdir is process-1file OpenAppendDatabase select_tree sdir CloseReMap ; --- 523,531 ---- : add_dir_tree ( -- ) \ add a directory tree to the catalog ! wait-cursor ['] proc_fileinfo_sdir is process-1file OpenAppendDatabase select_tree sdir CloseReMap + arrow-cursor ; |
|
From: George H. <geo...@us...> - 2005-11-16 09:11:49
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23125/win32forth/src Modified Files: FLOAT.F Log Message: gah: More optimisations to produce shorter and faster code Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** FLOAT.F 15 Nov 2005 10:42:39 -0000 1.20 --- FLOAT.F 16 Nov 2005 09:11:38 -0000 1.21 *************** *** 257,266 **** \ Input: eax = number of floats we need subr: fstack-check ! ! B/FLOAT 10 = [IF] ! lea eax, 0 [eax*4] [eax] ! add eax, eax ! [ELSE] shl eax, # 3 ! [THEN] mov ecx, FSP_MEMORY cmp ecx, eax js short L$1 --- 257,261 ---- \ Input: eax = number of floats we need subr: fstack-check ! mov ecx, FSP_MEMORY cmp ecx, eax js short L$1 *************** *** 274,278 **** \ makro to check if there is at least one element on the floating point stack macro: fstack-check_1 ! mov eax, # 1 call fstack-check true to fsp-cached? --- 269,273 ---- \ makro to check if there is at least one element on the floating point stack macro: fstack-check_1 ! mov eax, # b/float call fstack-check true to fsp-cached? *************** *** 281,285 **** \ makro to check if there are at least two elements on the floating point stack macro: fstack-check_2 ! mov eax, # 2 call fstack-check true to fsp-cached? --- 276,280 ---- \ makro to check if there are at least two elements on the floating point stack macro: fstack-check_2 ! mov eax, # b/float 2* call fstack-check true to fsp-cached? *************** *** 288,292 **** \ makro to check if there are at least three elements on the floating point stack macro: fstack-check_3 ! mov eax, # 3 call fstack-check true to fsp-cached? --- 283,287 ---- \ makro to check if there are at least three elements on the floating point stack macro: fstack-check_3 ! mov eax, # b/float 3 * call fstack-check true to fsp-cached? *************** *** 493,496 **** --- 488,496 ---- mov eax, ebx inc eax + B/FLOAT 10 = [IF] + lea eax, 0 [eax*4] [eax] + add eax, eax + [ELSE] shl eax, # 3 + [THEN] call fstack-check *************** *** 818,821 **** --- 818,847 ---- : f>s f>d drop ; + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ Transfering floats to the data stack (as floats) for windows + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + + code FS>DS ( -- d ) ( f: r -- ) \ move floating point number bits to + \ data stack as a 64-bit float + fstack-check_1 + >fpu + push ebx + push ebx + push ebx + fstp double 0 [esp] + pop ebx + float; + + \ from Jos v.d. Ven + \ Push the top of the float stack onto the data stack as a 32-bit float + code SFS>DS ( -- float ) ( fs: r -- ) \ 10 b/float + fstack-check_1 + >fpu + push ebx + push ebx + fstp float 0 [esp] + pop ebx + float; + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Floating point comparison operators *************** *** 1093,1101 **** code FLNP1 ( fs: r1 -- r2 ) \ ? error for x <= -1 ! mov ecx, FSP_MEMORY ! sub ecx, # B/FLOAT ! js short L$1 fldln2 ! fld FSIZE FSTACK_MEMORY fld FSIZE sq2m1 fcomp st(1) --- 1119,1128 ---- code FLNP1 ( fs: r1 -- r2 ) \ ? error for x <= -1 ! fstack-check_1 ! fldln2 ! ! >FPU ! fld FSIZE sq2m1 fcomp st(1) *************** *** 1110,1114 **** jb short L$4 fyl2xp1 ! fstp FSIZE FSTACK_MEMORY jmp short L$2 L$4: fld1 \ add the "1" explicitly --- 1137,1143 ---- jb short L$4 fyl2xp1 ! ! (FPU>) \ Used to balance branches ! jmp short L$2 L$4: fld1 \ add the "1" explicitly *************** *** 1116,1126 **** fabs fyl2x ! fstp FSIZE FSTACK_MEMORY jmp short L$2 L$3: fcompp \ return arg if incomparable ! jmp short L$2 ! L$1: mov esi, # ' fstkuflo >body ! L$2: next, ! end-code code FLOG ( fs: r1 -- r2 ) --- 1145,1155 ---- fabs fyl2x ! ! FPU> ! jmp short L$2 L$3: fcompp \ return arg if incomparable ! ! L$2: float; code FLOG ( fs: r1 -- r2 ) *************** *** 1184,1192 **** code FEXP ( fs: r1 -- r2 ) \ ? error for x too large ! mov ecx, FSP_MEMORY ! sub ecx, # B/FLOAT ! js short L$1 fldl2e \ log base 2 of e \ 1 ! fld FSIZE FSTACK_MEMORY \ 2 fmulp st(1), st \ modified exponent \ 1 fld st(0) \ duplicate exponent \ 2 --- 1213,1219 ---- code FEXP ( fs: r1 -- r2 ) \ ? error for x too large ! fstack-check_1 fldl2e \ log base 2 of e \ 1 ! >FPU \ 2 fmulp st(1), st \ modified exponent \ 1 fld st(0) \ duplicate exponent \ 2 *************** *** 1204,1212 **** faddp st(1), st \ 2**frac \ 2 fmulp st(1), st \ 2**(int + frac) \ 1 ! fstp FSIZE FSTACK_MEMORY \ 0 ! jmp short L$2 ! L$1: mov esi, # ' FSTKUFLO >body ! L$2: next, ! end-code : FCOSH ( f: r1 -- r2 ) \ ? error for x too large --- 1231,1236 ---- faddp st(1), st \ 2**frac \ 2 fmulp st(1), st \ 2**(int + frac) \ 1 ! FPU> \ 0 ! float; : FCOSH ( f: r1 -- r2 ) \ ? error for x too large *************** *** 1424,1437 **** code f**+n ( f: r1 -- r2 ; n -- ) ! mov ecx, FSP_MEMORY ! sub ecx, # B/FLOAT ! js short L$4 ! fld1 ! or ebx, ebx je short L$5 ! fld FSIZE FSTACK_MEMORY fxch st(1) ! L$1: shr ebx, # 1 jnc short L$2 fmul st(0), st(1) --- 1448,1458 ---- code f**+n ( f: r1 -- r2 ; n -- ) ! fstack-check_1 fld1 ! or tos, tos je short L$5 ! >fpu fxch st(1) ! L$1: shr tos, # 1 jnc short L$2 fmul st(0), st(1) *************** *** 1443,1453 **** L$3: fxch st(1) fstp st(0) ! L$5: fstp FSIZE FSTACK_MEMORY ! ! jmp short L$6 ! L$4: mov esi, # ' FSTKUFLO >body ! L$6: pop ebx ! next, ! end-code : f**n ( F: r1 -- r2 ; n -- ) \ Floating number raised to integer power. --- 1464,1470 ---- L$3: fxch st(1) fstp st(0) ! L$5: fpu> ! pop tos ! float; : f**n ( F: r1 -- r2 ; n -- ) \ Floating number raised to integer power. *************** *** 2247,2283 **** )) - code FS>DS ( -- d ) ( f: r -- ) \ move floating point number bits to - \ data stack as a 64-bit float - mov ecx, FSP_MEMORY - sub ecx, # B/FLOAT - js short L$1 - fld FSIZE FSTACK_MEMORY - mov FSP_MEMORY , ecx - push ebx - push ebx - push ebx - fstp double 0 [esp] - pop ebx - jmp short L$2 - L$1: mov esi, # ' FSTKUFLO >body - pop ebx - L$2: next, - end-code - - \ from Jos v.d. Ven - \ Push the top of the float stack onto the data stack as a 32-bit float - code SFS>DS ( -- float ) ( fs: r -- ) \ 10 b/float - mov ecx, FSP_MEMORY - sub ecx, # B/FLOAT - js short L$1 - fld FSIZE FSTACK_MEMORY - mov FSP_MEMORY , ecx - push ebx - push ebx - fstp float 0 [esp] - pop ebx - jmp short L$2 - L$1: mov esi, # ' FSTKUFLO >body - pop ebx - L$2: next, - end-code --- 2264,2265 ---- |
|
From: George H. <geo...@us...> - 2005-11-15 10:42:48
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5436/win32forth/src Modified Files: FLOAT.F Log Message: gah: More optimisations to produce shorter and faster code and fixed a bug in ZF>D Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** FLOAT.F 7 Nov 2005 13:19:27 -0000 1.19 --- FLOAT.F 15 Nov 2005 10:42:39 -0000 1.20 *************** *** 34,37 **** --- 34,38 ---- \ gah Sunday, November 6 2005 major changes to macros to reduce code size and increase speed \ and make code more easy to port to STC (work in progress) + \ gah Monday, November 14 2005 corrected bug in ZF>D and further optimizations \ ------------------------------------------------------------------------- *************** *** 111,121 **** macro: FSP_MEMORY ( -- ) ! FSP [edx] endm macro: FSTACK_MEMORY ( -- ) ! FSTACK [ecx] [edx] endm macro: +FSTACK_MEMORY ( n -- ) ! FSTACK + [ecx] [edx] endm in-application --- 112,122 ---- macro: FSP_MEMORY ( -- ) ! FLOATSP [up] endm macro: FSTACK_MEMORY ( -- ) ! FLOATSTACK [ecx] [up] endm macro: +FSTACK_MEMORY ( n -- ) ! FLOATSTACK + [ecx] [up] endm in-application *************** *** 809,813 **** sub esp, # 8 fistp qword 0 [esp] ! xchg ebx, 0 [esp] float; --- 810,814 ---- sub esp, # 8 fistp qword 0 [esp] ! xchg ebx, 4 [esp] float; *************** *** 1619,1630 **** count -1 charcnt +! charcnt @ 0< ; ! code sig>f ( ?? -- ?? ) \ ?? fbld fbcd-buf ! mov ecx, FSP_MEMORY ! fstp FSIZE FSTACK_MEMORY ! add ecx, # B/FLOAT ! mov FSP_MEMORY , ecx ! next, ! end-code : >float-int ( f: -- r ) --- 1620,1627 ---- count -1 charcnt +! charcnt @ 0< ; ! code sig>f ( f: -- r ) \ Push contents of 80-bit BCD number in fbcd-buf onto FP stack fbld fbcd-buf ! fpu> ! float; : >float-int ( f: -- r ) *************** *** 2285,2287 **** L$2: next, end-code - |
|
From: Dirk B. <db...@us...> - 2005-11-12 10:51:26
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17470/src/kernel Modified Files: version.f Log Message: Updated for Version 6.11.07 Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/version.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** version.f 26 Sep 2005 15:22:04 -0000 1.7 --- version.f 12 Nov 2005 10:51:10 -0000 1.8 *************** *** 3,7 **** cr .( Loading META version info) ! 61106 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. --- 3,7 ---- cr .( Loading META version info) ! 61107 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. |
|
From: Dirk B. <db...@us...> - 2005-11-12 10:51:22
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17470 Modified Files: fkernel.exe setup.exe Log Message: Updated for Version 6.11.07 Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 Binary files /tmp/cvsYeL09e and /tmp/cvsidOGQF differ Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 Binary files /tmp/cvsMTplfj and /tmp/cvswAfVYJ differ |
|
From: Dirk B. <db...@us...> - 2005-11-12 10:50:43
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/installer In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17031/extsrc/installer Modified Files: Win32Forth.nsi Added Files: ExtFiles.nsi Files.nsi Uninstall.nsi temp.nsi Log Message: Updated for Version 6.11.07 Index: Win32Forth.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Win32Forth.nsi,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Win32Forth.nsi 6 Aug 2005 09:19:32 -0000 1.4 --- Win32Forth.nsi 12 Nov 2005 10:50:09 -0000 1.5 *************** *** 8,14 **** !define VER_MAJOR 6 !define VER_MINOR 11 ! !define VER_REVISION 4 ! !define VER_DISPLAY "6.11.04" ! !define VER_FILE "61104" ; Define your application name --- 8,14 ---- !define VER_MAJOR 6 !define VER_MINOR 11 [...1830 lines suppressed...] --- 186,204 ---- RMDir /r "$SMPROGRAMS\${APPNAMEANDVERSION}" ! ; Delete Files and Folders ! Delete "$INSTDIR\ForthForm.exe" ! Delete "$INSTDIR\HELP.NDX" ! Delete "$INSTDIR\HYPER.NDX" ! Delete "$INSTDIR\Player4.exe" Delete "$INSTDIR\PlayVirginRadio.exe" + Delete "$INSTDIR\Project.exe" + Delete "$INSTDIR\SciEditMdi.exe" Delete "$INSTDIR\solipion.exe" ! Delete "$INSTDIR\Sudoku.exe" ! Delete "$INSTDIR\WIN32FOR.DBG" ! Delete "$INSTDIR\Win32for.exe" ! Delete "$INSTDIR\WinEd.exe" ! ! !include "Uninstall.nsi" SectionEnd --- NEW FILE: temp.nsi --- ; Script generated with the Venis Install Wizard ; Define your application name !define APPNAME "w32f" !define APPNAMEANDVERSION "w32f 6.11.02" ; Main Install settings Name "${APPNAMEANDVERSION}" InstallDir "$PROGRAMFILES\w32f" InstallDirRegKey HKLM "Software\${APPNAME}" "" OutFile "..\..\..\..\..\..\..\Temp\w32finstaller.exe" ; Use compression SetCompressor LZMA ; Modern interface settings !include "MUI.nsh" !define MUI_ABORTWARNING [...1985 lines suppressed...] RMDir "$INSTDIR\apps\PlayVirginRadio\" RMDir "$INSTDIR\apps\Player4\" RMDir "$INSTDIR\apps\ForthForm\res\" RMDir "$INSTDIR\apps\ForthForm\" RMDir "$INSTDIR\apps\Chess\" RMDir "$INSTDIR\apps\" RMDir "$INSTDIR\" SectionEnd ; On initialization Function .onInit !insertmacro MUI_LANGDLL_DISPLAY FunctionEnd BrandingText "Win32Forth" ; eof --- NEW FILE: Uninstall.nsi --- Delete "$INSTDIR\fkernel.exe" Delete "$INSTDIR\FORTHFORM.CFG" Delete "$INSTDIR\Help.cfg" Delete "$INSTDIR\Hyper.cfg" Delete "$INSTDIR\setup.exe" Delete "$INSTDIR\w32fConsole.dll" Delete "$INSTDIR\w32fScintilla.dll" Delete "$INSTDIR\Win32for.cfg" Delete "$INSTDIR\Win32forUser.cfg" Delete "$INSTDIR\Wincon.dll" Delete "$INSTDIR\WinEdColorize.f" Delete "$INSTDIR\WinEdColorize1.COL" Delete "$INSTDIR\WinEdColorize2.COL" Delete "$INSTDIR\Zip32.dll" Delete "$INSTDIR\apps\Chess\BMPDOT.F" Delete "$INSTDIR\apps\Chess\BMPIO.F" Delete "$INSTDIR\apps\Chess\Bounce3d.f" Delete "$INSTDIR\apps\Chess\FCP-BOOK.F" Delete "$INSTDIR\apps\Chess\FCP111.F" Delete "$INSTDIR\apps\Chess\fcp3d.f" Delete "$INSTDIR\apps\Chess\fcp3D.htm" Delete "$INSTDIR\apps\Chess\fcp_inputwin.f" Delete "$INSTDIR\apps\Chess\Fullscreen.f" Delete "$INSTDIR\apps\Chess\Gldefs.f" Delete "$INSTDIR\apps\Chess\OGLEVTS.F" Delete "$INSTDIR\apps\Chess\Oglwin.f" Delete "$INSTDIR\apps\Chess\Opengl.f" Delete "$INSTDIR\apps\Chess\PALETTE.F" Delete "$INSTDIR\apps\Chess\PIXELFRM.F" Delete "$INSTDIR\apps\Chess\t1600017.bmp" Delete "$INSTDIR\apps\Chess\TOOLSET.F" Delete "$INSTDIR\apps\Chess\_fcp3D.f" Delete "$INSTDIR\apps\ForthForm\ABOUT.F" Delete "$INSTDIR\apps\ForthForm\CaseEx.f" Delete "$INSTDIR\apps\ForthForm\CONTROLPROPERTYII.ff" Delete "$INSTDIR\apps\ForthForm\CreateMenu.f" Delete "$INSTDIR\apps\ForthForm\CreateMenuFormII.ff" Delete "$INSTDIR\apps\ForthForm\CreatePropertyForm.f" Delete "$INSTDIR\apps\ForthForm\CreatePropertyForm.ff" Delete "$INSTDIR\apps\ForthForm\CreateToolBar.f" Delete "$INSTDIR\apps\ForthForm\CreateToolBarForm.ff" Delete "$INSTDIR\apps\ForthForm\EXAMPLE.F" Delete "$INSTDIR\apps\ForthForm\EXAMPLE.ff" Delete "$INSTDIR\apps\ForthForm\EXAMPLE.frm" Delete "$INSTDIR\apps\ForthForm\FileLister.f" Delete "$INSTDIR\apps\ForthForm\FORMCONTROLS.F" Delete "$INSTDIR\apps\ForthForm\FormHelp.f" Delete "$INSTDIR\apps\ForthForm\FormMenu.f" Delete "$INSTDIR\apps\ForthForm\FORMOBJECT.F" Delete "$INSTDIR\apps\ForthForm\FormPad.f" Delete "$INSTDIR\apps\ForthForm\FormPad.ff" Delete "$INSTDIR\apps\ForthForm\FORMPROPERTY.F" Delete "$INSTDIR\apps\ForthForm\FORMPROPERTY.ff" Delete "$INSTDIR\apps\ForthForm\Forms.frm" Delete "$INSTDIR\apps\ForthForm\FORMTOOLBAR.F" Delete "$INSTDIR\apps\ForthForm\FORTHFORM.F" Delete "$INSTDIR\apps\ForthForm\GroupAction.f" Delete "$INSTDIR\apps\ForthForm\GroupAction.ff" Delete "$INSTDIR\apps\ForthForm\IMAGEWINDOW.F" Delete "$INSTDIR\apps\ForthForm\POINT.F" Delete "$INSTDIR\apps\ForthForm\PREFERENCES.ff" Delete "$INSTDIR\apps\ForthForm\RECT.F" Delete "$INSTDIR\apps\ForthForm\SplitterWindow.f" Delete "$INSTDIR\apps\ForthForm\SplitterWindow.ff" Delete "$INSTDIR\apps\ForthForm\TABORDER.F" Delete "$INSTDIR\apps\ForthForm\TabPropertyWindow.ff" Delete "$INSTDIR\apps\ForthForm\TESTEXAMPLE.F" Delete "$INSTDIR\apps\ForthForm\res\FFBITMAPS.BMP" Delete "$INSTDIR\apps\ForthForm\res\PICTURE.BMP" Delete "$INSTDIR\apps\ForthForm\res\save1.bmp" Delete "$INSTDIR\apps\ForthForm\res\save2.bmp" Delete "$INSTDIR\apps\ForthForm\res\SCRLDOWN.BMP" Delete "$INSTDIR\apps\ForthForm\res\SCRLleft.BMP" Delete "$INSTDIR\apps\ForthForm\res\SCRLRight.BMP" Delete "$INSTDIR\apps\ForthForm\res\SCRLUP.BMP" Delete "$INSTDIR\apps\ForthForm\res\splitwin-type1.bmp" Delete "$INSTDIR\apps\ForthForm\res\splitwin-type2.BMP" Delete "$INSTDIR\apps\ForthForm\res\Splitwin-type3.bmp" Delete "$INSTDIR\apps\ForthForm\res\Splitwin-type4.bmp" Delete "$INSTDIR\apps\ForthForm\res\Splitwin-type5.bmp" Delete "$INSTDIR\apps\ForthForm\res\Splitwin-type6.bmp" Delete "$INSTDIR\apps\ForthForm\res\STATIC.BMP" Delete "$INSTDIR\apps\ForthForm\res\stop1.BMP" Delete "$INSTDIR\apps\ForthForm\res\stop2.BMP" Delete "$INSTDIR\apps\Player4\Catalog.f" Delete "$INSTDIR\apps\Player4\MciInterface.f" Delete "$INSTDIR\apps\Player4\MciVideo.f" Delete "$INSTDIR\apps\Player4\MCIWnd.f" Delete "$INSTDIR\apps\Player4\Mediatree.f" Delete "$INSTDIR\apps\Player4\mshell_r.f" Delete "$INSTDIR\apps\Player4\NUMBER.F" Delete "$INSTDIR\apps\Player4\PLAYER4.F" Delete "$INSTDIR\apps\Player4\PLAYER4.ff" Delete "$INSTDIR\apps\Player4\PLAYER4.frm" Delete "$INSTDIR\apps\Player4\Player4.ico" Delete "$INSTDIR\apps\Player4\player4titre4.jpg" Delete "$INSTDIR\apps\Player4\Pl_About.f" Delete "$INSTDIR\apps\Player4\Pl_MciWindow.f" Delete "$INSTDIR\apps\Player4\Pl_Toolset.f" Delete "$INSTDIR\apps\Player4\Pl_Version.f" Delete "$INSTDIR\apps\Player4\TrayWindow.f" Delete "$INSTDIR\apps\Player4\View.f" Delete "$INSTDIR\apps\Player4\view.ff" Delete "$INSTDIR\apps\PlayVirginRadio\PlayVirginRadio.f" Delete "$INSTDIR\apps\PlayVirginRadio\Virgin.ico" Delete "$INSTDIR\apps\ProMgr\AboutForm.f" Delete "$INSTDIR\apps\ProMgr\HexViewer.f" Delete "$INSTDIR\apps\ProMgr\PMMenu.f" Delete "$INSTDIR\apps\ProMgr\ProjectManager.f" Delete "$INSTDIR\apps\ProMgr\zipper.f" Delete "$INSTDIR\apps\ProMgr\res\pbitmaps.BMP" Delete "$INSTDIR\apps\ProMgr\res\ToolbarBitmaps.bmp" Delete "$INSTDIR\apps\ProMgr\res\treeimages.bmp" Delete "$INSTDIR\apps\SciEdit\AnsLink.f" Delete "$INSTDIR\apps\SciEdit\ClassBrowser.f" Delete "$INSTDIR\apps\SciEdit\CommandID.f" Delete "$INSTDIR\apps\SciEdit\EdAbout.f" Delete "$INSTDIR\apps\SciEdit\EdCommand.f" Delete "$INSTDIR\apps\SciEdit\EdCompile.f" Delete "$INSTDIR\apps\SciEdit\EdDebug.f" Delete "$INSTDIR\apps\SciEdit\EdFindInFiles.f" Delete "$INSTDIR\apps\SciEdit\EdMenu.f" Delete "$INSTDIR\apps\SciEdit\EdRemote.f" Delete "$INSTDIR\apps\SciEdit\EdStatusbar.f" Delete "$INSTDIR\apps\SciEdit\EdToolbar.f" Delete "$INSTDIR\apps\SciEdit\EdVersion.f" Delete "$INSTDIR\apps\SciEdit\Main.f" Delete "$INSTDIR\apps\SciEdit\ScintillaHyperMDI.f" Delete "$INSTDIR\apps\SciEdit\ScintillaMDI.f" Delete "$INSTDIR\apps\SciEdit\X_SEARCH.F" Delete "$INSTDIR\apps\SciEdit\res\Toolbar.bmp" Delete "$INSTDIR\apps\Setup\COM01.F" Delete "$INSTDIR\apps\Setup\dtop_lnk.f" Delete "$INSTDIR\apps\Setup\HYPER.F" Delete "$INSTDIR\apps\Setup\MakeSetup.bat" Delete "$INSTDIR\apps\Setup\Setup.f" Delete "$INSTDIR\apps\Setup\Setup_dtop_lnk.f" Delete "$INSTDIR\apps\Solipon2\051.SOL" Delete "$INSTDIR\apps\Solipon2\052.SOL" Delete "$INSTDIR\apps\Solipon2\053.SOL" Delete "$INSTDIR\apps\Solipon2\054.SOL" Delete "$INSTDIR\apps\Solipon2\055.SOL" Delete "$INSTDIR\apps\Solipon2\056.SOL" Delete "$INSTDIR\apps\Solipon2\057.SOL" Delete "$INSTDIR\apps\Solipon2\058.SOL" Delete "$INSTDIR\apps\Solipon2\059.SOL" Delete "$INSTDIR\apps\Solipon2\060.SOL" Delete "$INSTDIR\apps\Solipon2\061.SOL" Delete "$INSTDIR\apps\Solipon2\062.SOL" Delete "$INSTDIR\apps\Solipon2\063.SOL" Delete "$INSTDIR\apps\Solipon2\064.SOL" Delete "$INSTDIR\apps\Solipon2\065.SOL" Delete "$INSTDIR\apps\Solipon2\066.SOL" Delete "$INSTDIR\apps\Solipon2\067.SOL" Delete "$INSTDIR\apps\Solipon2\068.SOL" Delete "$INSTDIR\apps\Solipon2\069.SOL" Delete "$INSTDIR\apps\Solipon2\070.SOL" Delete "$INSTDIR\apps\Solipon2\071.SOL" Delete "$INSTDIR\apps\Solipon2\072.SOL" Delete "$INSTDIR\apps\Solipon2\073.SOL" Delete "$INSTDIR\apps\Solipon2\074.SOL" Delete "$INSTDIR\apps\Solipon2\081.SOL" Delete "$INSTDIR\apps\Solipon2\083.SOL" Delete "$INSTDIR\apps\Solipon2\107.SOL" Delete "$INSTDIR\apps\Solipon2\Applause7.wav" Delete "$INSTDIR\apps\Solipon2\Av7.wav" Delete "$INSTDIR\apps\Solipon2\BLEEP7.wav" Delete "$INSTDIR\apps\Solipon2\ep7.wav" Delete "$INSTDIR\apps\Solipon2\L101.SOL" Delete "$INSTDIR\apps\Solipon2\L121.SOL" Delete "$INSTDIR\apps\Solipon2\L164.SOL" Delete "$INSTDIR\apps\Solipon2\L49.SOL" Delete "$INSTDIR\apps\Solipon2\L97.SOL" Delete "$INSTDIR\apps\Solipon2\readme.txt" Delete "$INSTDIR\apps\Solipon2\SOLIDIAL.F" Delete "$INSTDIR\apps\Solipon2\Solipion.bmp" Delete "$INSTDIR\apps\Solipon2\solipion.dat" Delete "$INSTDIR\apps\Solipon2\SOLIPION.F" Delete "$INSTDIR\apps\Solipon2\solipion.ico" Delete "$INSTDIR\apps\Solipon2\YAHOO.WAV" Delete "$INSTDIR\apps\Sudoku\Applause7.wav" Delete "$INSTDIR\apps\Sudoku\Sudoku.f" Delete "$INSTDIR\apps\Sudoku\Sudoku.fpj" Delete "$INSTDIR\apps\Sudoku\SudokuDialogs.f" Delete "$INSTDIR\apps\Sudoku\SudokuMenu.f" Delete "$INSTDIR\apps\Sudoku\SudokuPrinting.f" Delete "$INSTDIR\apps\Sudoku\SudokuResources.f" Delete "$INSTDIR\apps\Sudoku\SudokuStatusBar.f" Delete "$INSTDIR\apps\Sudoku\SudokuToolbar.f" Delete "$INSTDIR\apps\Sudoku\Games\Easy1.sku" Delete "$INSTDIR\apps\Sudoku\Games\Easy10.sku" Delete "$INSTDIR\apps\Sudoku\Games\Easy2.sku" Delete "$INSTDIR\apps\Sudoku\Games\Easy3.sku" Delete "$INSTDIR\apps\Sudoku\Games\Easy4.sku" Delete "$INSTDIR\apps\Sudoku\Games\Easy5.sku" Delete "$INSTDIR\apps\Sudoku\Games\Easy6.sku" Delete "$INSTDIR\apps\Sudoku\Games\Easy7.sku" Delete "$INSTDIR\apps\Sudoku\Games\Easy8.sku" Delete "$INSTDIR\apps\Sudoku\Games\Easy9.sku" Delete "$INSTDIR\apps\Sudoku\Games\Expert1.sku" Delete "$INSTDIR\apps\Sudoku\Games\Expert10.sku" Delete "$INSTDIR\apps\Sudoku\Games\Expert2.sku" Delete "$INSTDIR\apps\Sudoku\Games\Expert3.sku" Delete "$INSTDIR\apps\Sudoku\Games\Expert4.sku" Delete "$INSTDIR\apps\Sudoku\Games\Expert5.sku" Delete "$INSTDIR\apps\Sudoku\Games\Expert6.sku" Delete "$INSTDIR\apps\Sudoku\Games\Expert7.sku" Delete "$INSTDIR\apps\Sudoku\Games\Expert8.sku" Delete "$INSTDIR\apps\Sudoku\Games\Expert9.sku" Delete "$INSTDIR\apps\Sudoku\Games\Extreme1.sku" Delete "$INSTDIR\apps\Sudoku\Games\Extreme10.sku" Delete "$INSTDIR\apps\Sudoku\Games\Extreme2.sku" Delete "$INSTDIR\apps\Sudoku\Games\Extreme3.sku" Delete "$INSTDIR\apps\Sudoku\Games\Extreme4.sku" Delete "$INSTDIR\apps\Sudoku\Games\Extreme5.sku" Delete "$INSTDIR\apps\Sudoku\Games\Extreme6.sku" Delete "$INSTDIR\apps\Sudoku\Games\Extreme7.sku" Delete "$INSTDIR\apps\Sudoku\Games\Extreme8.sku" Delete "$INSTDIR\apps\Sudoku\Games\Extreme9.sku" Delete "$INSTDIR\apps\Sudoku\Games\Hard1.sku" Delete "$INSTDIR\apps\Sudoku\Games\Hard10.sku" Delete "$INSTDIR\apps\Sudoku\Games\Hard2.sku" Delete "$INSTDIR\apps\Sudoku\Games\Hard3.sku" Delete "$INSTDIR\apps\Sudoku\Games\Hard4.sku" Delete "$INSTDIR\apps\Sudoku\Games\Hard5.sku" Delete "$INSTDIR\apps\Sudoku\Games\Hard6.sku" Delete "$INSTDIR\apps\Sudoku\Games\Hard7.sku" Delete "$INSTDIR\apps\Sudoku\Games\Hard8.sku" Delete "$INSTDIR\apps\Sudoku\Games\Hard9.sku" Delete "$INSTDIR\apps\Sudoku\Games\Standard1.sku" Delete "$INSTDIR\apps\Sudoku\Games\Standard10.sku" Delete "$INSTDIR\apps\Sudoku\Games\Standard2.sku" Delete "$INSTDIR\apps\Sudoku\Games\Standard3.sku" Delete "$INSTDIR\apps\Sudoku\Games\Standard4.sku" Delete "$INSTDIR\apps\Sudoku\Games\Standard5.sku" Delete "$INSTDIR\apps\Sudoku\Games\Standard6.sku" Delete "$INSTDIR\apps\Sudoku\Games\Standard7.sku" Delete "$INSTDIR\apps\Sudoku\Games\Standard8.sku" Delete "$INSTDIR\apps\Sudoku\Games\Standard9.sku" Delete "$INSTDIR\apps\Sudoku\Res\arrow_m0.cur" Delete "$INSTDIR\apps\Sudoku\Res\arrow_m1.cur" Delete "$INSTDIR\apps\Sudoku\Res\arrow_m2.cur" Delete "$INSTDIR\apps\Sudoku\Res\arrow_m3.cur" Delete "$INSTDIR\apps\Sudoku\Res\arrow_m4.cur" Delete "$INSTDIR\apps\Sudoku\Res\arrow_m5.cur" Delete "$INSTDIR\apps\Sudoku\Res\arrow_m6.cur" Delete "$INSTDIR\apps\Sudoku\Res\arrow_m7.cur" Delete "$INSTDIR\apps\Sudoku\Res\arrow_m8.cur" Delete "$INSTDIR\apps\Sudoku\Res\arrow_m9.cur" Delete "$INSTDIR\apps\Sudoku\Res\Sudoku.ico" Delete "$INSTDIR\apps\Sudoku\Res\SudokuDialog.h" Delete "$INSTDIR\apps\Sudoku\Res\SudokuDialog.RES" Delete "$INSTDIR\apps\Sudoku\Res\Toolbar.bmp" Delete "$INSTDIR\apps\WinEd\Ed_About.F" Delete "$INSTDIR\apps\WinEd\Ed_Clipboard.F" Delete "$INSTDIR\apps\WinEd\Ed_Colorize.F" Delete "$INSTDIR\apps\WinEd\Ed_Debug.F" Delete "$INSTDIR\apps\WinEd\Ed_Defaults.F" Delete "$INSTDIR\apps\WinEd\Ed_Do-Html-Link.F" Delete "$INSTDIR\apps\WinEd\Ed_EditorWords.F" Delete "$INSTDIR\apps\WinEd\Ed_EditWindow.F" Delete "$INSTDIR\apps\WinEd\Ed_EditWindowObj.F" Delete "$INSTDIR\apps\WinEd\Ed_FileFuncs.F" Delete "$INSTDIR\apps\WinEd\Ed_FileStack.F" Delete "$INSTDIR\apps\WinEd\Ed_FindInFiles.F" Delete "$INSTDIR\apps\WinEd\Ed_Findrepl.F" Delete "$INSTDIR\apps\WinEd\Ed_FrameWindowObj.F" Delete "$INSTDIR\apps\WinEd\Ed_Globals.F" Delete "$INSTDIR\apps\WinEd\Ed_Gotoline.F" Delete "$INSTDIR\apps\WinEd\Ed_HyperLink.F" Delete "$INSTDIR\apps\WinEd\Ed_ImageDC.F" Delete "$INSTDIR\apps\WinEd\Ed_KeyCMD.F" Delete "$INSTDIR\apps\WinEd\Ed_Keys.F" Delete "$INSTDIR\apps\WinEd\Ed_LineFuncs.F" Delete "$INSTDIR\apps\WinEd\Ed_LoadFileFuncs.F" Delete "$INSTDIR\apps\WinEd\Ed_Menu.F" Delete "$INSTDIR\apps\WinEd\Ed_MenuFuncs.F" Delete "$INSTDIR\apps\WinEd\Ed_MessageBrodcast.F" Delete "$INSTDIR\apps\WinEd\Ed_MiscFunc.F" Delete "$INSTDIR\apps\WinEd\Ed_MouseHighlight.F" Delete "$INSTDIR\apps\WinEd\Ed_Remote.F" Delete "$INSTDIR\apps\WinEd\Ed_SdkHelp.F" Delete "$INSTDIR\apps\WinEd\Ed_Search.F" Delete "$INSTDIR\apps\WinEd\Ed_Sfont.F" Delete "$INSTDIR\apps\WinEd\Ed_Statbar.F" Delete "$INSTDIR\apps\WinEd\Ed_SubjectListObj.F" Delete "$INSTDIR\apps\WinEd\Ed_ToolBar.F" Delete "$INSTDIR\apps\WinEd\Ed_Url.F" Delete "$INSTDIR\apps\WinEd\Ed_Version.F" Delete "$INSTDIR\apps\WinEd\HYPER.F" Delete "$INSTDIR\apps\WinEd\WinEd.f" Delete "$INSTDIR\apps\WinEd\X_SEARCH.F" Delete "$INSTDIR\apps\WinEd\res\WinEd.bmp" Delete "$INSTDIR\apps\WinEd\res\WinEdit.h" Delete "$INSTDIR\apps\WinEd\res\WinEdit.res" Delete "$INSTDIR\demos\clock.swf" Delete "$INSTDIR\demos\DIALOGS.F" Delete "$INSTDIR\demos\DLGTEST.F" Delete "$INSTDIR\demos\FILEDUMP.F" Delete "$INSTDIR\demos\FlashControlDemo.f" Delete "$INSTDIR\demos\HELLO.F" Delete "$INSTDIR\demos\HtmlControlDemo.f" Delete "$INSTDIR\demos\HtmlDisplay.f" Delete "$INSTDIR\demos\MDIDialogExample.f" Delete "$INSTDIR\demos\MDIExample.f" Delete "$INSTDIR\demos\MultiHello.f" Delete "$INSTDIR\demos\PdfControlDemo.f" Delete "$INSTDIR\demos\pentom.f" Delete "$INSTDIR\demos\ROMCALC.F" Delete "$INSTDIR\demos\taskdemo.f" Delete "$INSTDIR\demos\WINBROWS.BMP" Delete "$INSTDIR\demos\WINBROWS.F" Delete "$INSTDIR\demos\WINCLOCK.F" Delete "$INSTDIR\demos\windemo.bmp" Delete "$INSTDIR\demos\WINDEMO.F" Delete "$INSTDIR\demos\WINDILOG.F" Delete "$INSTDIR\demos\WINHELLO.F" Delete "$INSTDIR\demos\WINMULTI.F" Delete "$INSTDIR\demos\WINPAR.F" Delete "$INSTDIR\demos\WINSER.F" Delete "$INSTDIR\demos\AccelDemo\Accel.f" Delete "$INSTDIR\demos\AccelDemo\AccelDemo.bmp" Delete "$INSTDIR\demos\AccelDemo\AccelDemo.f" Delete "$INSTDIR\demos\COM\D3Dtest.f" Delete "$INSTDIR\demos\COM\EX_ADO.F" Delete "$INSTDIR\demos\COM\EX_D3D.F" Delete "$INSTDIR\demos\COM\EX_DDRAW.F" Delete "$INSTDIR\demos\COM\EX_SAPI.F" Delete "$INSTDIR\demos\GdiDemo\BitBlt.f" Delete "$INSTDIR\demos\GdiDemo\Figfonts.f" Delete "$INSTDIR\demos\GdiDemo\Figraph.f" Delete "$INSTDIR\demos\GdiDemo\Metafile.f" Delete "$INSTDIR\demos\GdiDemo\SixEasyFonts.f" Delete "$INSTDIR\demos\GdiDemo\TextList.f" Delete "$INSTDIR\demos\GdiDemo\TxtAlign.f" Delete "$INSTDIR\doc\ADJFORTH.TXT" Delete "$INSTDIR\doc\COPYASM.486.GPL" Delete "$INSTDIR\doc\COPYASM.486.LGPL" Delete "$INSTDIR\doc\DIALOGRC.TXT" Delete "$INSTDIR\doc\FORTHPRO.gif" Delete "$INSTDIR\doc\Forth_Primer.pdf" Delete "$INSTDIR\doc\LEFT.GIF" Delete "$INSTDIR\doc\ONWEB.gif" Delete "$INSTDIR\doc\p-486asm.htm" Delete "$INSTDIR\doc\p-advanced.htm" Delete "$INSTDIR\doc\p-ansi.htm" Delete "$INSTDIR\doc\p-arch1.htm" Delete "$INSTDIR\doc\p-arch2-a.gif" Delete "$INSTDIR\doc\p-arch2.htm" Delete "$INSTDIR\doc\p-arch3.htm" Delete "$INSTDIR\doc\p-architecture.htm" Delete "$INSTDIR\doc\p-chains.htm" Delete "$INSTDIR\doc\p-debugging.htm" Delete "$INSTDIR\doc\p-faq.htm" Delete "$INSTDIR\doc\p-gethelp.htm" Delete "$INSTDIR\doc\p-getstart.htm" Delete "$INSTDIR\doc\p-history.htm" Delete "$INSTDIR\doc\p-imageman.htm" Delete "$INSTDIR\doc\p-index.htm" Delete "$INSTDIR\doc\p-locals-stack.gif" Delete "$INSTDIR\doc\p-locals.htm" Delete "$INSTDIR\doc\p-numconv.htm" Delete "$INSTDIR\doc\p-objects.htm" Delete "$INSTDIR\doc\p-obtain.htm" Delete "$INSTDIR\doc\p-osvers.htm" Delete "$INSTDIR\doc\p-overview.htm" Delete "$INSTDIR\doc\p-random.htm" Delete "$INSTDIR\doc\p-relnotes.6.10.htm" Delete "$INSTDIR\doc\p-relnotes.6.12.htm" Delete "$INSTDIR\doc\p-relnotes.htm" Delete "$INSTDIR\doc\p-structures.htm" Delete "$INSTDIR\doc\p-switch.htm" Delete "$INSTDIR\doc\p-using-if.htm" Delete "$INSTDIR\doc\p-windlls.htm" Delete "$INSTDIR\doc\RIGHT.GIF" Delete "$INSTDIR\doc\SELF-EXT.gif" Delete "$INSTDIR\doc\Setup01.jpg" Delete "$INSTDIR\doc\Setup02.jpg" Delete "$INSTDIR\doc\Setup03.jpg" Delete "$INSTDIR\doc\Setup04.jpg" Delete "$INSTDIR\doc\Setup05.jpg" Delete "$INSTDIR\doc\TELLUS.gif" Delete "$INSTDIR\doc\UP.GIF" Delete "$INSTDIR\doc\UTILDOC.TXT" Delete "$INSTDIR\doc\WIN32FOR.jpg" Delete "$INSTDIR\doc\WINED1.jpg" Delete "$INSTDIR\doc\dpans\A0001.HTM" Delete "$INSTDIR\doc\dpans\A0002.HTM" Delete "$INSTDIR\doc\dpans\A0003.HTM" Delete "$INSTDIR\doc\dpans\A0004.HTM" Delete "$INSTDIR\doc\dpans\A0005.HTM" Delete "$INSTDIR\doc\dpans\A0006.HTM" Delete "$INSTDIR\doc\dpans\A0007.HTM" Delete "$INSTDIR\doc\dpans\DPANS.HTM" Delete "$INSTDIR\doc\dpans\DPANS1.HTM" Delete "$INSTDIR\doc\dpans\DPANS10.HTM" Delete "$INSTDIR\doc\dpans\DPANS11.HTM" Delete "$INSTDIR\doc\dpans\DPANS12.HTM" Delete "$INSTDIR\doc\dpans\DPANS13.HTM" Delete "$INSTDIR\doc\dpans\DPANS14.HTM" Delete "$INSTDIR\doc\dpans\DPANS15.HTM" Delete "$INSTDIR\doc\dpans\DPANS16.HTM" Delete "$INSTDIR\doc\dpans\DPANS17.HTM" Delete "$INSTDIR\doc\dpans\DPANS2.HTM" Delete "$INSTDIR\doc\dpans\DPANS3.HTM" Delete "$INSTDIR\doc\dpans\DPANS4.HTM" Delete "$INSTDIR\doc\dpans\DPANS5.HTM" Delete "$INSTDIR\doc\dpans\DPANS6.HTM" Delete "$INSTDIR\doc\dpans\DPANS7.HTM" Delete "$INSTDIR\doc\dpans\DPANS8.HTM" Delete "$INSTDIR\doc\dpans\DPANS9.HTM" Delete "$INSTDIR\doc\dpans\DPANS94.TXT" Delete "$INSTDIR\doc\dpans\DPANSA1.HTM" Delete "$INSTDIR\doc\dpans\DPANSA10.HTM" Delete "$INSTDIR\doc\dpans\DPANSA11.HTM" Delete "$INSTDIR\doc\dpans\DPANSA12.HTM" Delete "$INSTDIR\doc\dpans\DPANSA13.HTM" Delete "$INSTDIR\doc\dpans\DPANSA14.HTM" Delete "$INSTDIR\doc\dpans\DPANSA15.HTM" Delete "$INSTDIR\doc\dpans\DPANSA16.HTM" Delete "$INSTDIR\doc\dpans\DPANSA17.HTM" Delete "$INSTDIR\doc\dpans\DPANSA2.HTM" Delete "$INSTDIR\doc\dpans\DPANSA3.HTM" Delete "$INSTDIR\doc\dpans\DPANSA4.HTM" Delete "$INSTDIR\doc\dpans\DPANSA5.HTM" Delete "$INSTDIR\doc\dpans\DPANSA6.HTM" Delete "$INSTDIR\doc\dpans\DPANSA7.HTM" Delete "$INSTDIR\doc\dpans\DPANSA8.HTM" Delete "$INSTDIR\doc\dpans\DPANSA9.HTM" Delete "$INSTDIR\doc\dpans\DPANSB.HTM" Delete "$INSTDIR\doc\dpans\DPANSC.HTM" Delete "$INSTDIR\doc\dpans\DPANSD.HTM" Delete "$INSTDIR\doc\dpans\DPANSE.HTM" Delete "$INSTDIR\doc\dpans\DPANSF.HTM" Delete "$INSTDIR\doc\dpans\LEFT.GIF" Delete "$INSTDIR\doc\dpans\NOTES.HTM" Delete "$INSTDIR\doc\dpans\RFILIST.HTM" Delete "$INSTDIR\doc\dpans\RIGHT.GIF" Delete "$INSTDIR\doc\dpans\UP.GIF" Delete "$INSTDIR\doc\ForthForm\FF-back.gif" Delete "$INSTDIR\doc\ForthForm\FF-Bitmap Preview Window.gif" Delete "$INSTDIR\doc\ForthForm\FF-Control Property Window.gif" Delete "$INSTDIR\doc\ForthForm\FF-ControlMenu.gif" Delete "$INSTDIR\doc\ForthForm\FF-CreateToolbar Window.gif" Delete "$INSTDIR\doc\ForthForm\FF-Creating a Form.htm" Delete "$INSTDIR\doc\ForthForm\FF-Creating a Toolbar.htm" Delete "$INSTDIR\doc\ForthForm\FF-Customize Window.gif" Delete "$INSTDIR\doc\ForthForm\FF-Define a Menu.htm" Delete "$INSTDIR\doc\ForthForm\FF-Define Menu Window.gif" Delete "$INSTDIR\doc\ForthForm\FF-Form Property Window.gif" Delete "$INSTDIR\doc\ForthForm\FF-FormMenu.gif" Delete "$INSTDIR\doc\ForthForm\FF-FormPad Window.gif" Delete "$INSTDIR\doc\ForthForm\FF-FormPad.htm" Delete "$INSTDIR\doc\ForthForm\FF-Forthform Screen.gif" Delete "$INSTDIR\doc\ForthForm\FF-GroupAction.gif" Delete "$INSTDIR\doc\ForthForm\FF-GroupExample.gif" Delete "$INSTDIR\doc\ForthForm\FF-HelpMenu.gif" Delete "$INSTDIR\doc\ForthForm\FF-History.htm" Delete "$INSTDIR\doc\ForthForm\FF-Menu Functions.htm" Delete "$INSTDIR\doc\ForthForm\FF-New Window.gif" Delete "$INSTDIR\doc\ForthForm\FF-OptionsMenu.gif" Delete "$INSTDIR\doc\ForthForm\FF-Overview.htm" Delete "$INSTDIR\doc\ForthForm\FF-Preferences.gif" Delete "$INSTDIR\doc\ForthForm\FF-PropertyForm.htm" Delete "$INSTDIR\doc\ForthForm\FF-PropertyFormDialog.gif" Delete "$INSTDIR\doc\ForthForm\FF-Rebuilding The System.htm" Delete "$INSTDIR\doc\ForthForm\FF-Splitter Windows.htm" Delete "$INSTDIR\doc\ForthForm\FF-SplitterDialog.gif" Delete "$INSTDIR\doc\ForthForm\FF-Status Window.gif" Delete "$INSTDIR\doc\ForthForm\FF-System Requirements.htm" Delete "$INSTDIR\doc\ForthForm\FF-textbutton.gif" Delete "$INSTDIR\doc\ForthForm\FF-Toolbar Functions.htm" Delete "$INSTDIR\doc\ForthForm\FF-Toolbar.gif" Delete "$INSTDIR\doc\ForthForm\FF-ToolsMenu.gif" Delete "$INSTDIR\doc\ForthForm\FF-top.gif" Delete "$INSTDIR\doc\ForthForm\FF-Using Forms.htm" Delete "$INSTDIR\doc\ForthForm\FF-What's New.htm" Delete "$INSTDIR\doc\ForthForm\Forthform.gif" Delete "$INSTDIR\doc\ForthForm\ForthForm.htm" Delete "$INSTDIR\doc\Guide\bin_rts.txt" Delete "$INSTDIR\doc\Guide\chr_tbl.f" Delete "$INSTDIR\doc\Guide\chr_tbl.htm" Delete "$INSTDIR\doc\Guide\compiler.gif" Delete "$INSTDIR\doc\Guide\complex.f" Delete "$INSTDIR\doc\Guide\complex.htm" Delete "$INSTDIR\doc\Guide\frth_int.gif" Delete "$INSTDIR\doc\Guide\fsm2.f" Delete "$INSTDIR\doc\Guide\fsm2.htm" Delete "$INSTDIR\doc\Guide\ftran202.f" Delete "$INSTDIR\doc\Guide\ftran202.htm" Delete "$INSTDIR\doc\Guide\ftrandoc.txt" Delete "$INSTDIR\doc\Guide\inner.gif" Delete "$INSTDIR\doc\Guide\primer.htm" Delete "$INSTDIR\doc\Guide\vector1.f" Delete "$INSTDIR\doc\Guide\vector1.htm" Delete "$INSTDIR\doc\ProMgr\prjFileMenu.gif" Delete "$INSTDIR\doc\ProMgr\prjHelpMenu.gif" Delete "$INSTDIR\doc\ProMgr\prjProjectMenu.gif" Delete "$INSTDIR\doc\ProMgr\prjProjectWindow.gif" Delete "$INSTDIR\doc\ProMgr\prjViewMenu.gif" Delete "$INSTDIR\doc\ProMgr\ProjectManager.htm" Delete "$INSTDIR\doc\SciEdit\SciEdit.htm" Delete "$INSTDIR\proj\ForthForm.fpj" Delete "$INSTDIR\proj\ProMgr.fpj" Delete "$INSTDIR\proj\SciEdit.fpj" Delete "$INSTDIR\proj\WinEd.fpj" Delete "$INSTDIR\src\486ASM.F" Delete "$INSTDIR\src\586ASMCM.f" Delete "$INSTDIR\src\ANSFILE.F" Delete "$INSTDIR\src\ASMMAC.F" Delete "$INSTDIR\src\ASMWIN32.F" Delete "$INSTDIR\src\builtby.f" Delete "$INSTDIR\src\BUTTON.F" Delete "$INSTDIR\src\CALLBACK.f" Delete "$INSTDIR\src\CHILDWND.F" Delete "$INSTDIR\src\Class.f" Delete "$INSTDIR\src\CLASSDBG.F" Delete "$INSTDIR\src\COLORS.F" Delete "$INSTDIR\src\Comment.f" Delete "$INSTDIR\src\CONTROL.F" Delete "$INSTDIR\src\CONTROLS.F" Delete "$INSTDIR\src\DBGSRC1.F" Delete "$INSTDIR\src\DBGSRC2.F" Delete "$INSTDIR\src\Dc.f" Delete "$INSTDIR\src\Debug.f" Delete "$INSTDIR\src\Dialog.f" Delete "$INSTDIR\src\DIS486.F" Delete "$INSTDIR\src\DTHREAD.F" Delete "$INSTDIR\src\editor_io.f" Delete "$INSTDIR\src\ENVIRON.F" Delete "$INSTDIR\src\EXCEPTIO.F" Delete "$INSTDIR\src\Extend.f" Delete "$INSTDIR\src\FLOAT.F" Delete "$INSTDIR\src\FONTS.F" Delete "$INSTDIR\src\GENERIC.F" Delete "$INSTDIR\src\imagehds.f" Delete "$INSTDIR\src\imageman.f" Delete "$INSTDIR\src\INTERPIF.F" Delete "$INSTDIR\src\KEYBOARD.F" Delete "$INSTDIR\src\Keysave.f" Delete "$INSTDIR\src\MAPFILE.F" Delete "$INSTDIR\src\Menu.f" Delete "$INSTDIR\src\Module.f" Delete "$INSTDIR\src\Nforget.f" Delete "$INSTDIR\src\numconv.f" Delete "$INSTDIR\src\Order.f" Delete "$INSTDIR\src\paths.f" Delete "$INSTDIR\src\POINTER.F" Delete "$INSTDIR\src\PRIMHASH.F" Delete "$INSTDIR\src\Primutil.f" Delete "$INSTDIR\src\PrintSupport.f" Delete "$INSTDIR\src\REGISTRY.F" Delete "$INSTDIR\src\SCRNCTRL.F" Delete "$INSTDIR\src\SEE.F" Delete "$INSTDIR\src\Shell.f" Delete "$INSTDIR\src\sysload.f" Delete "$INSTDIR\src\transient.f" Delete "$INSTDIR\src\Utils.f" Delete "$INSTDIR\src\Window.f" Delete "$INSTDIR\src\Winlib.f" Delete "$INSTDIR\src\WINMSG.F" Delete "$INSTDIR\src\WORDS.F" Delete "$INSTDIR\src\xfiledlg.f" Delete "$INSTDIR\src\console\BasicWin.f" Delete "$INSTDIR\src\console\CONSOLE.F" Delete "$INSTDIR\src\console\Console2.f" Delete "$INSTDIR\src\console\ConsoleMenu.f" Delete "$INSTDIR\src\console\ConsoleStatbar.f" Delete "$INSTDIR\src\console\Forthdlg.f" Delete "$INSTDIR\src\console\LINEEDIT.F" Delete "$INSTDIR\src\console\Statbar.f" Delete "$INSTDIR\src\console\WinBase.f" Delete "$INSTDIR\src\gdi\gdi.f" Delete "$INSTDIR\src\gdi\gdiBase.f" Delete "$INSTDIR\src\gdi\gdiBitmap.f" Delete "$INSTDIR\src\gdi\gdiBrush.f" Delete "$INSTDIR\src\gdi\gdiDC.f" Delete "$INSTDIR\src\gdi\gdiFont.f" Delete "$INSTDIR\src\gdi\gdiMetafile.f" Delete "$INSTDIR\src\gdi\gdiMetafileDc.f" Delete "$INSTDIR\src\gdi\gdiPen.f" Delete "$INSTDIR\src\gdi\gdiStruct.f" Delete "$INSTDIR\src\gdi\gdiWindowDc.f" Delete "$INSTDIR\src\kernel\fkernel.f" Delete "$INSTDIR\src\kernel\fkernext.f" Delete "$INSTDIR\src\kernel\meta-compiler.f" Delete "$INSTDIR\src\kernel\meta-fkernel.f" Delete "$INSTDIR\src\kernel\Meta.f" Delete "$INSTDIR\src\kernel\metadlg.f" Delete "$INSTDIR\src\kernel\version.f" Delete "$INSTDIR\src\lib\AcceleratorTables.f" Delete "$INSTDIR\src\lib\array.f" Delete "$INSTDIR\src\lib\AXControl.F" Delete "$INSTDIR\src\lib\binsearch.f" Delete "$INSTDIR\src\lib\bitmap.f" Delete "$INSTDIR\src\lib\BLOCK.F" Delete "$INSTDIR\src\lib\BROWSEFLD.F" Delete "$INSTDIR\src\lib\CTYPE.F" Delete "$INSTDIR\src\lib\DIALOGRC.F" Delete "$INSTDIR\src\lib\ENUM.F" Delete "$INSTDIR\src\lib\eStruct.f" Delete "$INSTDIR\src\lib\excontrols.f" Delete "$INSTDIR\src\lib\ExtStruct.f" Delete "$INSTDIR\src\lib\ExUtils.f" Delete "$INSTDIR\src\lib\Fcases.f" Delete "$INSTDIR\src\lib\FCOM.F" Delete "$INSTDIR\src\lib\file.f" Delete "$INSTDIR\src\lib\FileAssociations.f" Delete "$INSTDIR\src\lib\FlashControl.F" Delete "$INSTDIR\src\lib\GetWindowPlacment.f" Delete "$INSTDIR\src\lib\HTMLcontrol.F" Delete "$INSTDIR\src\lib\HtmlDisplayControl.f" Delete "$INSTDIR\src\lib\HtmlDisplayWindow.f" Delete "$INSTDIR\src\lib\HyperLink.f" Delete "$INSTDIR\src\lib\linklist.f" Delete "$INSTDIR\src\lib\MDI.F" Delete "$INSTDIR\src\lib\MdiDialog.f" Delete "$INSTDIR\src\lib\MessageLoop.f" Delete "$INSTDIR\src\lib\multiopen.f" Delete "$INSTDIR\src\lib\multithr.f" Delete "$INSTDIR\src\lib\PDFControl.F" Delete "$INSTDIR\src\lib\RebarControl.f" Delete "$INSTDIR\src\lib\RecentFiles.f" Delete "$INSTDIR\src\lib\RegistrySupport.f" Delete "$INSTDIR\src\lib\RegistryWindowPos.f" Delete "$INSTDIR\src\lib\RESOURCES.F" Delete "$INSTDIR\src\lib\ScintillaControl.f" Delete "$INSTDIR\src\lib\ScintillaEdit.f" Delete "$INSTDIR\src\lib\ScintillaHyperEdit.f" Delete "$INSTDIR\src\lib\ScintillaLexer.f" Delete "$INSTDIR\src\lib\sendmessage.f" Delete "$INSTDIR\src\lib\StatusBarClass.f" Delete "$INSTDIR\src\lib\STRUCT.F" Delete "$INSTDIR\src\lib\SUB_DIRS.F" Delete "$INSTDIR\src\lib\switch.f" Delete "$INSTDIR\src\lib\task.f" Delete "$INSTDIR\src\lib\toolbar.f" Delete "$INSTDIR\src\lib\treeview.f" Delete "$INSTDIR\src\lib\Volinfo.f" Delete "$INSTDIR\src\lib\Win32Help.f" Delete "$INSTDIR\src\lib\w_search.f" Delete "$INSTDIR\src\lib\fmacro\FMACRO.F" Delete "$INSTDIR\src\lib\fmacro\fsl_util.f" Delete "$INSTDIR\src\lib\fmacro\mm_fw.f" Delete "$INSTDIR\src\lib\fmacro\mm_fw_fm.f" Delete "$INSTDIR\src\lib\fmacro\PROFILER.F" Delete "$INSTDIR\src\lib\fmacro\SIEVE.F" Delete "$INSTDIR\src\old\ASSERT.F" Delete "$INSTDIR\src\old\Compat.f" Delete "$INSTDIR\src\old\IID.F" Delete "$INSTDIR\src\old\ISPY.F" Delete "$INSTDIR\src\old\Later.f" Delete "$INSTDIR\src\old\OPTIMIZE.F" Delete "$INSTDIR\src\old\optv1.F" Delete "$INSTDIR\src\old\PIPES.F" Delete "$INSTDIR\src\old\primcode.f" Delete "$INSTDIR\src\old\PRIMES.F" Delete "$INSTDIR\src\old\small.f" Delete "$INSTDIR\src\old\TRANSIT.F" Delete "$INSTDIR\src\old\VCALL.F" Delete "$INSTDIR\src\old\WINSTACK.F" Delete "$INSTDIR\src\res\Forthdlg.h" Delete "$INSTDIR\src\res\Forthdlg.res" Delete "$INSTDIR\src\res\ForthForm.ico" Delete "$INSTDIR\src\res\metadlg.aps" Delete "$INSTDIR\src\res\metadlg.h" Delete "$INSTDIR\src\res\metadlg.rc" Delete "$INSTDIR\src\res\metadlg.rct" Delete "$INSTDIR\src\res\metadlg.res" Delete "$INSTDIR\src\res\Project.ico" Delete "$INSTDIR\src\res\RESFORTH.H" Delete "$INSTDIR\src\res\resource.h" Delete "$INSTDIR\src\res\SciEditMdi.ico" Delete "$INSTDIR\src\res\Win32For.ico" Delete "$INSTDIR\src\res\WinEd.ico" Delete "$INSTDIR\src\tools\AxConInfo.f" Delete "$INSTDIR\src\tools\AXConList.F" Delete "$INSTDIR\src\tools\ClassBrowser.f" Delete "$INSTDIR\src\tools\Config.f" Delete "$INSTDIR\src\tools\dfc.F" Delete "$INSTDIR\src\tools\dump.f" Delete "$INSTDIR\src\tools\HelpSystem.f" Delete "$INSTDIR\src\tools\MsdnHelp.f" Delete "$INSTDIR\src\tools\SdkHelp.f" Delete "$INSTDIR\src\tools\TESTANSI.F" Delete "$INSTDIR\src\tools\tools.f" Delete "$INSTDIR\src\tools\xref.f" Delete "$INSTDIR\extsrc\installer\ExtFiles.nsi" Delete "$INSTDIR\extsrc\installer\Files.nsi" Delete "$INSTDIR\extsrc\installer\Uninstall.nsi" Delete "$INSTDIR\extsrc\installer\Registry.nsi" Delete "$INSTDIR\extsrc\installer\Win32Forth.nsi" Delete "$INSTDIR\extsrc\w32fConsole\Console.cpp" Delete "$INSTDIR\extsrc\w32fConsole\Console.def" Delete "$INSTDIR\extsrc\w32fConsole\Console.dsp" Delete "$INSTDIR\extsrc\w32fConsole\Console.dsw" Delete "$INSTDIR\extsrc\w32fConsole\Console.rc" Delete "$INSTDIR\extsrc\w32fConsole\HAND.CUR" Delete "$INSTDIR\extsrc\w32fConsole\harrow.cur" Delete "$INSTDIR\extsrc\w32fConsole\Keyboard.cpp" Delete "$INSTDIR\extsrc\w32fConsole\MAGNIFY.CUR" Delete "$INSTDIR\extsrc\w32fConsole\resource.h" Delete "$INSTDIR\extsrc\w32fConsole\SPLITH.CUR" Delete "$INSTDIR\extsrc\w32fConsole\SPLITV.CUR" Delete "$INSTDIR\extsrc\w32fConsole\StdAfx.cpp" Delete "$INSTDIR\extsrc\w32fConsole\StdAfx.h" Delete "$INSTDIR\extsrc\w32fConsole\Term.cpp" Delete "$INSTDIR\extsrc\w32fConsole\Term.h" Delete "$INSTDIR\extsrc\w32fScintilla\delbin.bat" Delete "$INSTDIR\extsrc\w32fScintilla\delcvs.bat" Delete "$INSTDIR\extsrc\w32fScintilla\License.txt" Delete "$INSTDIR\extsrc\w32fScintilla\README" Delete "$INSTDIR\extsrc\w32fScintilla\tgzsrc" Delete "$INSTDIR\extsrc\w32fScintilla\version.txt" Delete "$INSTDIR\extsrc\w32fScintilla\zipsrc.bat" Delete "$INSTDIR\extsrc\w32fScintilla\doc\Design.html" Delete "$INSTDIR\extsrc\w32fScintilla\doc\index.html" Delete "$INSTDIR\extsrc\w32fScintilla\doc\Lexer.txt" Delete "$INSTDIR\extsrc\w32fScintilla\doc\SciBreak.jpg" Delete "$INSTDIR\extsrc\w32fScintilla\doc\SciCoding.html" Delete "$INSTDIR\extsrc\w32fScintilla\doc\ScintillaDoc.html" Delete "$INSTDIR\extsrc\w32fScintilla\doc\ScintillaDownload.html" Delete "$INSTDIR\extsrc\w32fScintilla\doc\ScintillaHistory.html" Delete "$INSTDIR\extsrc\w32fScintilla\doc\ScintillaRelated.html" Delete "$INSTDIR\extsrc\w32fScintilla\doc\ScintillaToDo.html" Delete "$INSTDIR\extsrc\w32fScintilla\doc\ScintillaUsage.html" Delete "$INSTDIR\extsrc\w32fScintilla\doc\SciRest.jpg" Delete "$INSTDIR\extsrc\w32fScintilla\doc\SciTEIco.png" Delete "$INSTDIR\extsrc\w32fScintilla\doc\SciWord.jpg" Delete "$INSTDIR\extsrc\w32fScintilla\doc\Steps.html" Delete "$INSTDIR\extsrc\w32fScintilla\gtk\Converter.h" Delete "$INSTDIR\extsrc\w32fScintilla\gtk\deps.mak" Delete "$INSTDIR\extsrc\w32fScintilla\gtk\makefile" Delete "$INSTDIR\extsrc\w32fScintilla\gtk\PlatGTK.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\gtk\scintilla-marshal.c" Delete "$INSTDIR\extsrc\w32fScintilla\gtk\scintilla-marshal.h" Delete "$INSTDIR\extsrc\w32fScintilla\gtk\scintilla-marshal.list" Delete "$INSTDIR\extsrc\w32fScintilla\gtk\scintilla.mak" Delete "$INSTDIR\extsrc\w32fScintilla\gtk\ScintillaGTK.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\include\Accessor.h" Delete "$INSTDIR\extsrc\w32fScintilla\include\Face.py" Delete "$INSTDIR\extsrc\w32fScintilla\include\HFacer.py" Delete "$INSTDIR\extsrc\w32fScintilla\include\KeyWords.h" Delete "$INSTDIR\extsrc\w32fScintilla\include\Platform.h" Delete "$INSTDIR\extsrc\w32fScintilla\include\PropSet.h" Delete "$INSTDIR\extsrc\w32fScintilla\include\SciLexer.h" Delete "$INSTDIR\extsrc\w32fScintilla\include\Scintilla.h" Delete "$INSTDIR\extsrc\w32fScintilla\include\Scintilla.iface" Delete "$INSTDIR\extsrc\w32fScintilla\include\ScintillaWidget.h" Delete "$INSTDIR\extsrc\w32fScintilla\include\SString.h" Delete "$INSTDIR\extsrc\w32fScintilla\include\WindowAccessor.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\AutoComplete.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\AutoComplete.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\CallTip.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\CallTip.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\CellBuffer.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\CellBuffer.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\ContractionState.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\ContractionState.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\Document.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\Document.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\DocumentAccessor.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\DocumentAccessor.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\Editor.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\Editor.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\ExternalLexer.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\ExternalLexer.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\Indicator.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\Indicator.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\KeyMap.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\KeyMap.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\KeyWords.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexAda.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexAPDL.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexAsm.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexAsn1.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexAU3.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexAVE.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexBaan.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexBash.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexBullant.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexCLW.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexConf.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexCPP.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexCrontab.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexCSS.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexEiffel.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexErlang.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexEScript.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexForth.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexFortran.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexGen.py" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexGui4Cli.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexHTML.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexKix.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexLisp.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexLout.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexLua.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexMatlab.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexMetapost.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexMMIXAL.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexMPT.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexMSSQL.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexNsis.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexOthers.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexPascal.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexPB.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexPerl.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexPOV.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexPS.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexPython.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexRuby.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexScriptol.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexSpecman.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexSQL.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexTeX.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexVB.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexVerilog.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexVHDL.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LexYAML.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LineMarker.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\LineMarker.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\PropSet.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\RESearch.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\RESearch.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\ScintillaBase.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\ScintillaBase.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\SciTE.properties" Delete "$INSTDIR\extsrc\w32fScintilla\src\Style.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\Style.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\StyleContext.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\StyleContext.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\SVector.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\UniConversion.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\UniConversion.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\ViewStyle.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\ViewStyle.h" Delete "$INSTDIR\extsrc\w32fScintilla\src\WindowAccessor.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\XPM.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\src\XPM.h" Delete "$INSTDIR\extsrc\w32fScintilla\vcbuild\SciLexer.dsp" Delete "$INSTDIR\extsrc\w32fScintilla\vcbuild\SciLexer.dsw" Delete "$INSTDIR\extsrc\w32fScintilla\win32\deps.mak" Delete "$INSTDIR\extsrc\w32fScintilla\win32\makefile" Delete "$INSTDIR\extsrc\w32fScintilla\win32\Margin.cur" Delete "$INSTDIR\extsrc\w32fScintilla\win32\PlatformRes.h" Delete "$INSTDIR\extsrc\w32fScintilla\win32\PlatWin.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\win32\resource.h" Delete "$INSTDIR\extsrc\w32fScintilla\win32\Scintilla.def" Delete "$INSTDIR\extsrc\w32fScintilla\win32\scintilla.mak" Delete "$INSTDIR\extsrc\w32fScintilla\win32\ScintillaWin.cxx" Delete "$INSTDIR\extsrc\w32fScintilla\win32\scintilla_vc6.mak" Delete "$INSTDIR\extsrc\w32fScintilla\win32\ScintRes.aps" Delete "$INSTDIR\extsrc\w32fScintilla\win32\ScintRes.rc" Delete "$INSTDIR\extsrc\w32fScintilla\win32\SciTE.properties" Delete "$INSTDIR\extsrc\wincon\BUILD.BAT" Delete "$INSTDIR\extsrc\wincon\BUILD.C" Delete "$INSTDIR\extsrc\wincon\BUILD.h" Delete "$INSTDIR\extsrc\wincon\LCC.TXT" Delete "$INSTDIR\extsrc\wincon\README.TXT" Delete "$INSTDIR\extsrc\wincon\resource.h" Delete "$INSTDIR\extsrc\wincon\TEST.F" Delete "$INSTDIR\extsrc\wincon\TestWinconVersion.f" Delete "$INSTDIR\extsrc\wincon\wincon.aps" Delete "$INSTDIR\extsrc\wincon\WINCON.C" Delete "$INSTDIR\extsrc\wincon\WINCON.DEF" Delete "$INSTDIR\extsrc\wincon\WINCON.DSP" Delete "$INSTDIR\extsrc\wincon\WINCON.DSW" Delete "$INSTDIR\extsrc\wincon\wincon.i" Delete "$INSTDIR\extsrc\wincon\wincon.rc" Delete "$INSTDIR\extsrc\wincon\wincon.txt" Delete "$INSTDIR\extsrc\wincon\winconcpp\CPP.C" Delete "$INSTDIR\extsrc\wincon\winconcpp\CPP.DSP" Delete "$INSTDIR\extsrc\wincon\winconcpp\CPP.DSW" Delete "$INSTDIR\extsrc\wincon\winconcpp\CPP.exe" Delete "$INSTDIR\extsrc\wincon\winconcpp\CPP.H" Delete "$INSTDIR\extsrc\wincon\winconcpp\CPP.P" Delete "$INSTDIR\extsrc\wincon\winconcpp\EVAL.C" Delete "$INSTDIR\extsrc\wincon\winconcpp\GETOPT.C" Delete "$INSTDIR\extsrc\wincon\winconcpp\HIDESET.C" Delete "$INSTDIR\extsrc\wincon\winconcpp\INCLUDE.C" Delete "$INSTDIR\extsrc\wincon\winconcpp\LEX.C" Delete "$INSTDIR\extsrc\wincon\winconcpp\MACRO.C" Delete "$INSTDIR\extsrc\wincon\winconcpp\NLIST.C" Delete "$INSTDIR\extsrc\wincon\winconcpp\TOKENS.C" Delete "$INSTDIR\extsrc\wincon\winconcpp\UNIX.C" RMDir "$SMPROGRAMS\w32f" RMDir "$INSTDIR\extsrc\wincon\winconcpp\" RMDir "$INSTDIR\extsrc\wincon\" RMDir "$INSTDIR\extsrc\w32fScintilla\win32\" RMDir "$INSTDIR\extsrc\w32fScintilla\vcbuild\" RMDir "$INSTDIR\extsrc\w32fScintilla\src\" RMDir "$INSTDIR\extsrc\w32fScintilla\include\" RMDir "$INSTDIR\extsrc\w32fScintilla\gtk\" RMDir "$INSTDIR\extsrc\w32fScintilla\doc\" RMDir "$INSTDIR\extsrc\w32fScintilla\" RMDir "$INSTDIR\extsrc\w32fConsole\" RMDir "$INSTDIR\extsrc\installer\" RMDir "$INSTDIR\extsrc\" RMDir "$INSTDIR\src\tools\" RMDir "$INSTDIR\src\res\" RMDir "$INSTDIR\src\old\" RMDir "$INSTDIR\src\lib\fmacro\" RMDir "$INSTDIR\src\lib\" RMDir "$INSTDIR\src\kernel\" RMDir "$INSTDIR\src\gdi\" RMDir "$INSTDIR\src\console\" RMDir "$INSTDIR\src\" RMDir "$INSTDIR\proj\" RMDir "$INSTDIR\doc\SciEdit\" RMDir "$INSTDIR\doc\ProMgr\" RMDir "$INSTDIR\doc\Guide\" RMDir "$INSTDIR\doc\ForthForm\" RMDir "$INSTDIR\doc\dpans\" RMDir "$INSTDIR\doc\" RMDir "$INSTDIR\demos\GdiDemo\" RMDir "$INSTDIR\demos\COM\" RMDir "$INSTDIR\demos\AccelDemo\" RMDir "$INSTDIR\demos\" RMDir "$INSTDIR\apps\WinEd\res\" RMDir "$INSTDIR\apps\WinEd\" RMDir "$INSTDIR\apps\Sudoku\Res\" RMDir "$INSTDIR\apps\Sudoku\Games\" RMDir "$INSTDIR\apps\Sudoku\" RMDir "$INSTDIR\apps\Solipon2\" RMDir "$INSTDIR\apps\Setup\" RMDir "$INSTDIR\apps\SciEdit\res\" RMDir "$INSTDIR\apps\SciEdit\" RMDir "$INSTDIR\apps\ProMgr\res\" RMDir "$INSTDIR\apps\ProMgr\" RMDir "$INSTDIR\apps\PlayVirginRadio\" RMDir "$INSTDIR\apps\Player4\" RMDir "$INSTDIR\apps\ForthForm\res\" RMDir "$INSTDIR\apps\ForthForm\" RMDir "$INSTDIR\apps\Chess\" RMDir "$INSTDIR\apps\" RMDir "$INSTDIR\" --- NEW FILE: Files.nsi --- SetOutPath "$INSTDIR\" File "..\..\..\win32forth\fkernel.exe" File "..\..\..\win32forth\FORTHFORM.CFG" File "..\..\..\win32forth\Help.cfg" File "..\..\..\win32forth\Hyper.cfg" File "..\..\..\win32forth\setup.exe" File "..\..\..\win32forth\w32fConsole.dll" File "..\..\..\win32forth\w32fScintilla.dll" File "..\..\..\win32forth\Win32for.cfg" File "..\..\..\win32forth\Win32forUser.cfg" File "..\..\..\win32forth\Wincon.dll" File "..\..\..\win32forth\WinEdColorize.f" File "..\..\..\win32forth\WinEdColorize1.COL" File "..\..\..\win32forth\WinEdColorize2.COL" File "..\..\..\win32forth\Zip32.dll" SetOutPath "$INSTDIR\apps\Chess\" File "..\..\..\win32forth\apps\Chess\BMPDOT.F" File "..\..\..\win32forth\apps\Chess\BMPIO.F" File "..\..\..\win32forth\apps\Chess\Bounce3d.f" File "..\..\..\win32forth\apps\Chess\FCP-BOOK.F" File "..\..\..\win32forth\apps\Chess\FCP111.F" File "..\..\..\win32forth\apps\Chess\fcp3d.f" File "..\..\..\win32forth\apps\Chess\fcp3D.htm" File "..\..\..\win32forth\apps\Chess\fcp_inputwin.f" File "..\..\..\win32forth\apps\Chess\Fullscreen.f" File "..\..\..\win32forth\apps\Chess\Gldefs.f" File "..\..\..\win32forth\apps\Chess\OGLEVTS.F" File "..\..\..\win32forth\apps\Chess\Oglwin.f" File "..\..\..\win32forth\apps\Chess\Opengl.f" File "..\..\..\win32forth\apps\Chess\PALETTE.F" File "..\..\..\win32forth\apps\Chess\PIXELFRM.F" File "..\..\..\win32forth\apps\Chess\t1600017.bmp" File "..\..\..\win32forth\apps\Chess\TOOLSET.F" File "..\..\..\win32forth\apps\Chess\_fcp3D.f" SetOutPath "$INSTDIR\apps\ForthForm\" File "..\..\..\win32forth\apps\ForthForm\ABOUT.F" File "..\..\..\win32forth\apps\ForthForm\CaseEx.f" File "..\..\..\win32forth\apps\ForthForm\CONTROLPROPERTYII.ff" File "..\..\..\win32forth\apps\ForthForm\CreateMenu.f" File "..\..\..\win32forth\apps\ForthForm\CreateMenuFormII.ff" File "..\..\..\win32forth\apps\ForthForm\CreatePropertyForm.f" File "..\..\..\win32forth\apps\ForthForm\CreatePropertyForm.ff" File "..\..\..\win32forth\apps\ForthForm\CreateToolBar.f" File "..\..\..\win32forth\apps\ForthForm\CreateToolBarForm.ff" File "..\..\..\win32forth\apps\ForthForm\EXAMPLE.F" File "..\..\..\win32forth\apps\ForthForm\EXAMPLE.ff" File "..\..\..\win32forth\apps\ForthForm\EXAMPLE.frm" File "..\..\..\win32forth\apps\ForthForm\FileLister.f" File "..\..\..\win32forth\apps\ForthForm\FORMCONTROLS.F" File "..\..\..\win32forth\apps\ForthForm\FormHelp.f" File "..\..\..\win32forth\apps\ForthForm\FormMenu.f" File "..\..\..\win32forth\apps\ForthForm\FORMOBJECT.F" File "..\..\..\win32forth\apps\ForthForm\FormPad.f" File "..\..\..\win32forth\apps\ForthForm\FormPad.ff" File "..\..\..\win32forth\apps\ForthForm\FORMPROPERTY.F" File "..\..\..\win32forth\apps\ForthForm\FORMPROPERTY.ff" File "..\..\..\win32forth\apps\ForthForm\Forms.frm" File "..\..\..\win32forth\apps\ForthForm\FORMTOOLBAR.F" File "..\..\..\win32forth\apps\ForthForm\FORTHFORM.F" File "..\..\..\win32forth\apps\ForthForm\GroupAction.f" File "..\..\..\win32forth\apps\ForthForm\GroupAction.ff" File "..\..\..\win32forth\apps\ForthForm\IMAGEWINDOW.F" File "..\..\..\win32forth\apps\ForthForm\POINT.F" File "..\..\..\win32forth\apps\ForthForm\PREFERENCES.ff" File "..\..\..\win32forth\apps\ForthForm\RECT.F" File "..\..\..\win32forth\apps\ForthForm\SplitterWindow.f" File "..\..\..\win32forth\apps\ForthForm\SplitterWindow.ff" File "..\..\..\win32forth\apps\ForthForm\TABORDER.F" File "..\..\..\win32forth\apps\ForthForm\TabPropertyWindow.ff" File "..\..\..\win32forth\apps\ForthForm\TESTEXAMPLE.F" SetOutPath "$INSTDIR\apps\ForthForm\res\" File "..\..\..\win32forth\apps\ForthForm\res\FFBITMAPS.BMP" File "..\..\..\win32forth\apps\ForthForm\res\PICTURE.BMP" File "..\..\..\win32forth\apps\ForthForm\res\save1.bmp" File "..\..\..\win32forth\apps\ForthForm\res\save2.bmp" File "..\..\..\win32forth\apps\ForthForm\res\SCRLDOWN.BMP" File "..\..\..\win32forth\apps\ForthForm\res\SCRLleft.BMP" File "..\..\..\win32forth\apps\ForthForm\res\SCRLRight.BMP" File "..\..\..\win32forth\apps\ForthForm\res\SCRLUP.BMP" File "..\..\..\win32forth\apps\ForthForm\res\splitwin-type1.bmp" File "..\..\..\win32forth\apps\ForthForm\res\splitwin-type2.BMP" File "..\..\..\win32forth\apps\ForthForm\res\Splitwin-type3.bmp" File "..\..\..\win32forth\apps\ForthForm\res\Splitwin-type4.bmp" File "..\..\..\win32forth\apps\ForthForm\res\Splitwin-type5.bmp" File "..\..\..\win32forth\apps\ForthForm\res\Splitwin-type6.bmp" File "..\..\..\win32forth\apps\ForthForm\res\STATIC.BMP" File "..\..\..\win32forth\apps\ForthForm\res\stop1.BMP" File "..\..\..\win32forth\apps\ForthForm\res\stop2.BMP" SetOutPath "$INSTDIR\apps\Player4\" File "..\..\..\win32forth\apps\Player4\Catalog.f" File "..\..\..\win32forth\apps\Player4\MciInterface.f" File "..\..\..\win32forth\apps\Player4\MciVideo.f" File "..\..\..\win32forth\apps\Player4\MCIWnd.f" File "..\..\..\win32forth\apps\Player4\Mediatree.f" File "..\..\..\win32forth\apps\Player4\mshell_r.f" File "..\..\..\win32forth\apps\Player4\NUMBER.F" File "..\..\..\win32forth\apps\Player4\PLAYER4.F" File "..\..\..\win32forth\apps\Player4\PLAYER4.ff" File "..\..\..\win32forth\apps\Player4\PLAYER4.frm" File "..\..\..\win32forth\apps\Player4\Player4.ico" File "..\..\..\win32forth\apps\Player4\player4titre4.jpg" File "..\..\..\win32forth\apps\Player4\Pl_About.f" File "..\..\..\win32forth\apps\Player4\Pl_MciWindow.f" File "..\..\..\win32forth\apps\Player4\Pl_Toolset.f" File "..\..\..\win32forth\apps\Player4\Pl_Version.f" File "..\..\..\win32forth\apps\Player4\TrayWindow.f" File "..\..\..\win32forth\apps\Player4\View.f" File "..\..\..\win32forth\apps\Player4\view.ff" SetOutPath "$INSTDIR\apps\PlayVirginRadio\" File "..\..\..\win32forth\apps\PlayVirginRadio\PlayVirginRadio.f" File "..\..\..\win32forth\apps\PlayVirginRadio\Virgin.ico" SetOutPath "$INSTDIR\apps\ProMgr\" File "..\..\..\win32forth\apps\ProMgr\AboutForm.f" File "..\..\..\win32forth\apps\ProMgr\HexViewer.f" File "..\..\..\win32forth\apps\ProMgr\PMMenu.f" File "..\..\..\win32forth\apps\ProMgr\ProjectManager.f" File "..\..\..\win32forth\apps\ProMgr\zipper.f" SetOutPath "$INSTDIR\apps\ProMgr\res\" File "..\..\..\win32forth\apps\ProMgr\res\pbitmaps.BMP" File "..\..\..\win32forth\apps\ProMgr\res\ToolbarBitmaps.bmp" File "..\..\..\win32forth\apps\ProMgr\res\treeimages.bmp" SetOutPath "$INSTDIR\apps\SciEdit\" File "..\..\..\win32forth\apps\SciEdit\AnsLink.f" File "..\..\..\win32forth\apps\SciEdit\ClassBrowser.f" File "..\..\..\win32forth\apps\SciEdit\CommandID.f" File "..\..\..\win32forth\apps\SciEdit\EdAbout.f" File "..\..\..\win32forth\apps\SciEdit\EdCommand.f" File "..\..\..\win32forth\apps\SciEdit\EdCompile.f" File "..\..\..\win32forth\apps\SciEdit\EdDebug.f" File "..\..\..\win32forth\apps\SciEdit\EdFindInFiles.f" File "..\..\..\win32forth\apps\SciEdit\EdMenu.f" File "..\..\..\win32forth\apps\SciEdit\EdRemote.f" File "..\..\..\win32forth\apps\SciEdit\EdStatusbar.f" File "..\..\..\win32forth\apps\SciEdit\EdToolbar.f" File "..\..\..\win32forth\apps\SciEdit\EdVersion.f" File "..\..\..\win32forth\apps\SciEdit\Main.f" File "..\..\..\win32forth\apps\SciEdit\ScintillaHyperMDI.f" File "..\..\..\win32forth\apps\SciEdit\ScintillaMDI.f" File "..\..\..\win32forth\apps\SciEdit\X_SEARCH.F" SetOutPath "$INSTDIR\apps\SciEdit\res\" File "..\..\..\win32forth\apps\SciEdit\res\Toolbar.bmp" SetOutPath "$INSTDIR\apps\Setup\" File "..\..\..\win32forth\apps\Setup\COM01.F" File "..\..\..\win32forth\apps\Setup\dtop_lnk.f" File "..\..\..\win32forth\apps\Setup\HYPER.F" File "..\..\..\win32forth\apps\Setup\MakeSetup.bat" File "..\..\..\win32forth\apps\Setup\Setup.f" File "..\..\..\win32forth\apps\Setup\Setup_dtop_lnk.f" SetOutPath "$INSTDIR\apps\Solipon2\" File "..\..\..\win32forth\apps\Solipon2\051.SOL" File "..\..\..\win32forth\apps\Solipon2\052.SOL" File "..\..\..\win32forth\apps\Solipon2\053.SOL" File "..\..\..\win32forth\apps\Solipon2\054.SOL" File "..\..\..\win32forth\apps\Solipon2\055.SOL" File "..\..\..\win32forth\apps\Solipon2\056.SOL" File "..\..\..\win32forth\apps\Solipon2\057.SOL" File "..\..\..\win32forth\apps\Solipon2\058.SOL" File "..\..\..\win32forth\apps\Solipon2\059.SOL" File "..\..\..\win32forth\apps\Solipon2\060.SOL" File "..\..\..\win32forth\apps\Solipon2\061.SOL" File "..\..\..\win32forth\apps\Solipon2\062.SOL" File "..\..\..\win32forth\apps\Solipon2\063.SOL" File "..\..\..\win32forth\apps\Solipon2\064.SOL" File "..\..\..\win32forth\apps\Solipon2\065.SOL" File "..\..\..\win32forth\apps\Solipon2\066.SOL" File "..\..\..\win32forth\apps\Solipon2\067.SOL" File "..\..\..\win32forth\apps\Solipon2\068.SOL" File "..\..\..\win32forth\apps\Solipon2\069.SOL" File "..\..\..\win32forth\apps\Solipon2\070.SOL" File "..\..\..\win32forth\apps\Solipon2\071.SOL" File "..\..\..\win32forth\apps\Solipon2\072.SOL" File "..\..\..\win32forth\apps\Solipon2\073.SOL" File "..\..\..\win32forth\apps\Solipon2\074.SOL" File "..\..\..\win32forth\apps\Solipon2\081.SOL" File "..\..\..\win32forth\apps\Solipon2\083.SOL" File "..\..\..\win32forth\apps\Solipon2\107.SOL" File "..\..\..\win32forth\apps\Solipon2\Applause7.wav" File "..\..\..\win32forth\apps\Solipon2\Av7.wav" File "..\..\..\win32forth\apps\Solipon2\BLEEP7.wav" File "..\..\..\win32forth\apps\Solipon2\ep7.wav" File "..\..\..\win32forth\apps\Solipon2\L101.SOL" File "..\..\..\win32forth\apps\Solipon2\L121.SOL" File "..\..\..\win32forth\apps\Solipon2\L164.SOL" File "..\..\..\win32forth\apps\Solipon2\L49.SOL" File "..\..\..\win32forth\apps\Solipon2\L97.SOL" File "..\..\..\win32forth\apps\Solipon2\readme.txt" File "..\..\..\win32forth\apps\Solipon2\SOLIDIAL.F" File "..\..\..\win32forth\apps\Solipon2\Solipion.bmp" File "..\..\..\win32forth\apps\Solipon2\solipion.dat" File "..\..\..\win32forth\apps\Solipon2\SOLIPION.F" File "..\..\..\win32forth\apps\Solipon2\solipion.ico" File "..\..\..\win32forth\apps\Solipon2\YAHOO.WAV" SetOutPath "$INSTDIR\apps\Sudoku\" File "..\..\..\win32forth\apps\Sudoku\Applause7.wav" File "..\..\..\win32forth\apps\Sudoku\Sudoku.f" File "..\..\..\win32forth\apps\Sudoku\Sudoku.fpj" File "..\..\..\win32forth\apps\Sudoku\SudokuDialogs.f" File "..\..\..\win32forth\apps\Sudoku\SudokuMenu.f" File "..\..\..\win32forth\apps\Sudoku\SudokuPrinting.f" File "..\..\..\win32forth\apps\Sudoku\SudokuResources.f" File "..\..\..\win32forth\apps\Sudoku\SudokuStatusBar.f" File "..\..\..\win32forth\apps\Sudoku\SudokuToolbar.f" SetOutPath "$INSTDIR\apps\Sudoku\Games\" File "..\..\..\win32forth\apps\Sudoku\Games\Easy1.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Easy10.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Easy2.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Easy3.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Easy4.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Easy5.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Easy6.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Easy7.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Easy8.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Easy9.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Expert1.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Expert10.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Expert2.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Expert3.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Expert4.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Expert5.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Expert6.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Expert7.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Expert8.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Expert9.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Extreme1.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Extreme10.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Extreme2.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Extreme3.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Extreme4.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Extreme5.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Extreme6.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Extreme7.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Extreme8.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Extreme9.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Hard1.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Hard10.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Hard2.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Hard3.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Hard4.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Hard5.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Hard6.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Hard7.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Hard8.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Hard9.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Standard1.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Standard10.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Standard2.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Standard3.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Standard4.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Standard5.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Standard6.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Standard7.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Standard8.sku" File "..\..\..\win32forth\apps\Sudoku\Games\Standard9.sku" SetOutPath "$INSTDIR\apps\Sudoku\Res\" File "..\..\..\win32forth\apps\Sudoku\Res\arrow_m0.cur" File "..\..\..\win32forth\apps\Sudoku\Res\arrow_m1.cur" File "..\..\..\win32forth\apps\Sudoku\Res\arrow_m2.cur" File "..\..\..\win32forth\apps\Sudoku\Res\arrow_m3.cur" File "..\..\..\win32forth\apps\Sudoku\Res\arrow_m4.cur" File "..\..\..\win32forth\apps\Sudoku\Res\arrow_m5.cur" File "..\..\..\win32forth\apps\Sudoku\Res\arrow_m6.cur" File "..\..\..\win32forth\apps\Sudoku\Res\arrow_m7.cur" File "..\..\..\win32forth\apps\Sudoku\Res\arrow_m8.cur" File "..\..\..\win32forth\apps\Sudoku\Res\arrow_m9.cur" File "..\..\..\win32forth\apps\Sudoku\Res\Sudoku.ico" File "..\..\..\win32forth\apps\Sudoku\Res\SudokuDialog.h" File "..\..\..\win32forth\apps\Sudoku\Res\SudokuDialog.RES" File "..\..\..\win32forth\apps\Sudoku\Res\Toolbar.bmp" SetOutPath "$INSTDIR\apps\WinEd\" File "..\..\..\win32forth\apps\WinEd\Ed_About.F" File "..\..\..\win32forth\apps\WinEd\Ed_Clipboard.F" File "..\..\..\win32forth\apps\WinEd\Ed_Colorize.F" File "..\..\..\win32forth\apps\WinEd\Ed_Debug.F" File "..\..\..\win32forth\apps\WinEd\Ed_Defaults.F" File "..\..\..\win32forth\apps\WinEd\Ed_Do-Html-Link.F" File "..\..\..\win32forth\apps\WinEd\Ed_EditorWords.F" File "..\..\..\win32forth\apps\WinEd\Ed_EditWindow.F" File "..\..\..\win32forth\apps\WinEd\Ed_EditWindowObj.F" File "..\..\..\win32forth\apps\WinEd\Ed_FileFuncs.F" File "..\..\..\win32forth\apps\WinEd\Ed_FileStack.F" File "..\..\..\win32forth\apps\WinEd\Ed_FindInFiles.F" File "..\..\..\win32forth\apps\WinEd\Ed_Findrepl.F" File "..\..\..\win32forth\apps\WinEd\Ed_FrameWindowObj.F" File "..\..\..\win32forth\apps\WinEd\Ed_Globals.F" File "..\..\..\win32forth\apps\WinEd\Ed_Gotoline.F" File "..\..\..\win32forth\apps\WinEd\Ed_HyperLink.F" File "..\..\..\win32forth\apps\WinEd\Ed_ImageDC.F" File "..\..\..\win32forth\apps\WinEd\Ed_KeyCMD.F" File "..\..\..\win32forth\apps\WinEd\Ed_Keys.F" File "..\..\..\win32forth\apps\WinEd\Ed_LineFuncs.F" File "..\..\..\win32forth\apps\WinEd\Ed_LoadFileFuncs.F" File "..\..\..\win32forth\apps\WinEd\Ed_Menu.F" File "..\..\..\win32forth\apps\WinEd\Ed_MenuFuncs.F" File "..\..\..\win32forth\apps\WinEd\Ed_MessageBrodcast.F" File "..\..\..\win32forth\apps\WinEd\Ed_MiscFunc.F" File "..\..\..\win32forth\apps\WinEd\Ed_MouseHighlight.F" File "..\..\..\win32forth\apps\WinEd\Ed_Remote.F" File "..\..\..\win32forth\apps\WinEd\Ed_SdkHelp.F" File "..\..\..\win32forth\apps\WinEd\Ed_Search.F" File "..\..\..\win32forth\apps\WinEd\Ed_Sfont.F" File "..\..\..\win32forth\apps\WinEd\Ed_Statbar.F" File "..\..\..\win32forth\apps\WinEd\Ed_SubjectListObj.F" File "..\..\..\win32forth\apps\WinEd\Ed_ToolBar.F" File "..\..\..\win32forth\apps\WinEd\Ed_Url.F" File "..\..\..\win32forth\apps\WinEd\Ed_Version.F" File "..\..\..\win32forth\apps\WinEd\HYPER.F" File "..\..\..\win32forth\apps\WinEd\WinEd.f" File "..\..\..\win32forth\apps\WinEd\X_SEARCH.F" SetOutPath "$INSTDIR\apps\WinEd\res\" File "..\..\..\win32forth\apps\WinEd\res\WinEd.bmp" File "..\..\..\win32forth\apps\WinEd\res\WinEdit.h" File "..\..\..\win32forth\apps\WinEd\res\WinEdit.res" SetOutPath "$INSTDIR\demos\" File "..\..\..\win32forth\demos\clock.swf" File "..\..\..\win32forth\demos\DIALOGS.F" File "..\..\..\win32forth\demos\DLGTEST.F" File "..\..\..\win32forth\demos\FILEDUMP.F" ... [truncated message content] |
|
From: Dirk B. <db...@us...> - 2005-11-12 09:52:24
|
Update of /cvsroot/win32forth/win32forth/src/gdi In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8593/src/gdi Modified Files: gdiFont.f Log Message: Smal bugfix in the gdiFont class Index: gdiFont.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiFont.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** gdiFont.f 1 Nov 2005 12:21:40 -0000 1.1 --- gdiFont.f 12 Nov 2005 09:52:17 -0000 1.2 *************** *** 142,145 **** --- 142,146 ---- \ let the user choose a Screen font :M Choose: ( hWnd -- f ) + NULL to hDC [ CF_SCREENFONTS CF_INITTOLOGFONTSTRUCT or ] literal to Flags Choose ;M |
|
From: Rod O. <rod...@us...> - 2005-11-07 20:18:30
|
Update of /cvsroot/win32forth/win32forth/apps/ProMgr In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27830/apps/ProMgr Modified Files: HexViewer.f Log Message: Rod: changed to use proportional scrollbar Index: HexViewer.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/HexViewer.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** HexViewer.f 6 Nov 2005 10:43:15 -0000 1.3 --- HexViewer.f 7 Nov 2005 20:18:19 -0000 1.4 *************** *** 18,41 **** Font fdFont ! :m classinit: ( -- ) ! classinit: super ! NextID to ID ! 0 to buff-ptr ! 0 to buff-len ! 0 to eob-ptr ! 200 to last-line# ! last-line# 20 - to last-top-line# ;m ! : set-params ( -- ) ! temprect GetClientrect: self ! temprect.right to width ! temprect.bottom to height ! width char-width / to screen-cols ! height char-height / to screen-rows ! last-line# screen-rows - 0max to last-top-line# ! \ set the vertical scroll limits ! false last-top-line# first-line# SB_VERT ! GetHandle: self Call SetScrollRange drop ; ! : release-buffptr ( -- ) --- 18,55 ---- Font fdFont ! Record: ScrollInfo ! int cbSize ! int fMask ! int nMin ! int nMax ! int nPage ! int nPos ! int nTrackPos ! ;RecordSize: sizeof(ScrollInfo) ! :M classinit: ( -- ) ! classinit: super ! sizeof(ScrollInfo) to cbSize ! SIF_ALL to fMask ! NextID to ID ! 0 to buff-ptr ! 0 to buff-len ! 0 to eob-ptr ! 200 to last-line# ! last-line# 20 - to last-top-line# ! ;M ! ! : set-scrollinfo ( -- ) ! screen-rows to nPage ! cur-first-line to nPos ! last-line# 1- to nMax first-line# to nMin ! true ScrollInfo SB_VERT hWnd Call SetScrollInfo drop ! ; ! ! : set-params ( -- ) ! width char-width / to screen-cols ! height char-height / to screen-rows ! last-line# screen-rows - 0max to last-top-line# ! ; : release-buffptr ( -- ) *************** *** 58,69 **** ;M - : set-scrollpos ( -- ) \ position the vertical button in the scroll bar - TRUE cur-first-line SB_VERT GetHandle: self Call SetScrollPos drop ; - - :m on_size: ( -- ) - set-params - set-scrollpos - ;m - :m startpos: 0 0 ;m --- 72,75 ---- *************** *** 128,132 **** 0max last-top-line# min to cur-first-line cur-first-line - char-height * 0 swap Scroll: self \ scroll rather than repaint ! set-scrollpos ;M :M VScroll: ( n -- ) \ move n lines up or down --- 134,138 ---- 0max last-top-line# min to cur-first-line cur-first-line - char-height * 0 swap Scroll: self \ scroll rather than repaint ! set-scrollinfo ;M :M VScroll: ( n -- ) \ move n lines up or down *************** *** 176,179 **** --- 182,191 ---- on_done: super ;m + :M on_size: ( -- ) + set-params + set-scrollinfo + cur-first-line last-top-line# > IF -1 VScroll: self THEN + ;M + :M AutoSize: ( -- ) tempRect.AddrOf GetClientRect: Parent *************** *** 186,188 **** ;class - \s --- 198,199 ---- |
|
From: George H. <geo...@us...> - 2005-11-07 13:19:42
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7683/win32forth/src Modified Files: FLOAT.F Log Message: gah: More optimisations to produce shorter and faster code. Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** FLOAT.F 3 Sep 2005 09:02:38 -0000 1.18 --- FLOAT.F 7 Nov 2005 13:19:27 -0000 1.19 *************** *** 32,35 **** --- 32,37 ---- \ dbu Sonntag, Juli 31 2005 changed the default display of the floating point stack in the debuger \ from .FDEPTH to F.S + \ gah Sunday, November 6 2005 major changes to macros to reduce code size and increase speed + \ and make code more easy to port to STC (work in progress) \ ------------------------------------------------------------------------- *************** *** 39,43 **** macro: DATASTACK_MEMORY ( -- ) ! 0 [ebx] endm in-application --- 41,45 ---- macro: DATASTACK_MEMORY ( -- ) ! 0 [tos] endm in-application *************** *** 45,49 **** code >fregs ( addr -- ) \ Restore x87 FPU State frstor DATASTACK_MEMORY ! pop ebx next, end-code --- 47,51 ---- code >fregs ( addr -- ) \ Restore x87 FPU State frstor DATASTACK_MEMORY ! pop tos next, end-code *************** *** 52,56 **** fsave DATASTACK_MEMORY frstor DATASTACK_MEMORY ! pop ebx next, end-code --- 54,58 ---- fsave DATASTACK_MEMORY frstor DATASTACK_MEMORY ! pop tos next, end-code *************** *** 114,117 **** --- 116,122 ---- FSTACK [ecx] [edx] endm + macro: +FSTACK_MEMORY ( n -- ) + FSTACK + [ecx] [edx] endm + in-application *************** *** 197,234 **** in-system \ makro to copy ST(0) on the seperate float stack macro: (FPU>) mov ecx, FSP_MEMORY ! fstp FSIZE FSTACK_MEMORY endm - \ makro to copy the top of the seperate float stack into st(0) - macro: (>FPU) - mov ecx, FSP_MEMORY - sub ecx, # B/FLOAT - fld FSIZE FSTACK_MEMORY - endm \ makro to move ST(0) on the seperate float stack macro: FPU> (FPU>) ! add ecx, # B/FLOAT ! mov FSP_MEMORY , ecx endm \ makro to move the top of the seperate float stack into st(0) macro: >FPU ! (>FPU) ! mov FSP_MEMORY , ecx endm \ macro to move the top 2 values from the seperate float stack into st(0) and st(1) macro: 2>FPU ! (>FPU) ! sub ecx, # B/FLOAT ! fld FSIZE FSTACK_MEMORY ! mov FSP_MEMORY , ecx endm in-application --- 202,254 ---- in-system + false value fsp-cached? + 0 value fsp-adjust + \ makro to copy ST(0) on the seperate float stack macro: (FPU>) + fsp-cached? 0= if mov ecx, FSP_MEMORY ! true to fsp-cached? then ! fstp FSIZE fsp-adjust +FSTACK_MEMORY endm \ makro to move ST(0) on the seperate float stack macro: FPU> (FPU>) ! \ add ecx, # B/FLOAT ! B/FLOAT +to fsp-adjust endm \ makro to move the top of the seperate float stack into st(0) macro: >FPU ! fsp-cached? 0= if ! mov ecx, FSP_MEMORY ! true to fsp-cached? then ! \ sub ecx, # B/FLOAT ! b/float negate +to fsp-adjust ! fld FSIZE fsp-adjust +FSTACK_MEMORY ! endm ! ! \ makro to copy the top of the seperate float stack into st(0) ! macro: (>FPU) ! >FPU ! \ add ecx, # B/FLOAT ! b/float +to fsp-adjust endm \ macro to move the top 2 values from the seperate float stack into st(0) and st(1) macro: 2>FPU ! >FPU >FPU endm + \ macro to end float words + macro: float; + fsp-adjust if + add ecx, # fsp-adjust + mov FSP_MEMORY , ecx + 0 to fsp-adjust then + false to fsp-cached? next ;c endm + in-application *************** *** 242,246 **** [ELSE] shl eax, # 3 [THEN] mov ecx, FSP_MEMORY ! sub ecx, eax js short L$1 ret \ stack is fine, return to caller --- 262,266 ---- [ELSE] shl eax, # 3 [THEN] mov ecx, FSP_MEMORY ! cmp ecx, eax js short L$1 ret \ stack is fine, return to caller *************** *** 255,258 **** --- 275,279 ---- mov eax, # 1 call fstack-check + true to fsp-cached? endm *************** *** 261,264 **** --- 282,286 ---- mov eax, # 2 call fstack-check + true to fsp-cached? endm *************** *** 267,270 **** --- 289,293 ---- mov eax, # 3 call fstack-check + true to fsp-cached? endm *************** *** 280,285 **** pop ebx ! next, ! end-code code SF@ ( addr -- ) ( FS: -- r ) \ fetch a 32 bit (short) float --- 303,307 ---- pop ebx ! float; code SF@ ( addr -- ) ( FS: -- r ) \ fetch a 32 bit (short) float *************** *** 288,293 **** pop ebx ! next, ! end-code code DF@ ( addr -- ) ( FS: -- r ) \ fetch a 64 bit (double) float --- 310,314 ---- pop ebx ! float; code DF@ ( addr -- ) ( FS: -- r ) \ fetch a 64 bit (double) float *************** *** 296,301 **** pop ebx ! next, ! end-code code F! ( addr -- ) ( fs: r -- ) \ store a float --- 317,321 ---- pop ebx ! float; code F! ( addr -- ) ( fs: r -- ) \ store a float *************** *** 306,311 **** pop ebx ! next, ! end-code code SF! ( addr -- ) ( fs: r -- ) \ store a 32 bit (short) float --- 326,330 ---- pop ebx ! float; code SF! ( addr -- ) ( fs: r -- ) \ store a 32 bit (short) float *************** *** 316,321 **** pop ebx ! next, ! end-code code DF! ( addr -- ) ( fs: r -- ) \ store a 64 bit (double) float --- 335,339 ---- pop ebx ! float; code DF! ( addr -- ) ( fs: r -- ) \ store a 64 bit (double) float *************** *** 326,331 **** pop ebx ! next, ! end-code code F+! ( addr -- ) ( fs: r -- ) \ ? overflow error --- 344,348 ---- pop ebx ! float; code F+! ( addr -- ) ( fs: r -- ) \ ? overflow error *************** *** 338,343 **** pop bx ! next, ! end-code : F, ( -- ) ( F: r -- ) \ compile a float --- 355,359 ---- pop bx ! float; : F, ( -- ) ( F: r -- ) \ compile a float *************** *** 347,352 **** fld FSIZE DATASTACK_MEMORY pop ebx ! next, ! end-code DEPRECATED \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 363,367 ---- fld FSIZE DATASTACK_MEMORY pop ebx ! float; DEPRECATED \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 369,374 **** pop ebx ! next, ! end-code in-application --- 384,388 ---- pop ebx ! float; in-application *************** *** 381,386 **** fstp FSIZE DATASTACK_MEMORY pop ebx ! next, ! end-code in-system --- 395,399 ---- fstp FSIZE DATASTACK_MEMORY pop ebx ! float; in-system *************** *** 405,410 **** FPU> ! next, ! end-code DEPRECATED code fpop ( f: -- r ) ( fs: r -- ) \ move from simulated stack on FPU stack --- 418,422 ---- FPU> ! float; DEPRECATED code fpop ( f: -- r ) ( fs: r -- ) \ move from simulated stack on FPU stack *************** *** 413,418 **** >FPU ! next, ! end-code DEPRECATED code FDROP ( fs: r -- ) --- 425,429 ---- >FPU ! float; DEPRECATED code FDROP ( fs: r -- ) *************** *** 431,436 **** FPU> ! next, ! end-code code FSWAP ( fs: r1 r2 -- r2 r1 ) --- 442,446 ---- FPU> ! float; code FSWAP ( fs: r1 r2 -- r2 r1 ) *************** *** 443,448 **** FPU> ! next, ! end-code code FOVER ( fs: r1 r2 -- r1 r2 r3 ) --- 453,457 ---- FPU> ! float; code FOVER ( fs: r1 r2 -- r1 r2 r3 ) *************** *** 458,463 **** mov FSP_MEMORY , ecx ! next, ! end-code code FROT ( fs: r1 r2 r3 -- r2 r3 r1 ) --- 467,471 ---- mov FSP_MEMORY , ecx ! float; code FROT ( fs: r1 r2 r3 -- r2 r3 r1 ) *************** *** 479,484 **** fstp FSIZE FSTACK_MEMORY ! next, ! end-code code FPICK ( n -- ) ( fs: -- r ) --- 487,491 ---- fstp FSIZE FSTACK_MEMORY ! float; code FPICK ( n -- ) ( fs: -- r ) *************** *** 503,508 **** pop ebx ! next, ! end-code : FNIP ( fs: r1 r2 -- r2 ) --- 510,514 ---- pop ebx ! float; : FNIP ( fs: r1 r2 -- r2 ) *************** *** 537,542 **** FPU> ! next, ! end-code code f1.0 ( fs: -- r ) --- 543,547 ---- FPU> ! float; code f1.0 ( fs: -- r ) *************** *** 544,549 **** FPU> ! next, ! end-code code fL2t ( fs: -- r ) \ log base 2 of 10 --- 549,553 ---- FPU> ! float; code fL2t ( fs: -- r ) \ log base 2 of 10 *************** *** 551,556 **** FPU> ! next, ! end-code code fL2e ( fs: -- r ) \ log base 2 of e --- 555,559 ---- FPU> ! float; code fL2e ( fs: -- r ) \ log base 2 of e *************** *** 558,563 **** FPU> ! next, ! end-code code fLog2 ( fs: -- r ) \ log base 10 of 2 --- 561,565 ---- FPU> ! float; code fLog2 ( fs: -- r ) \ log base 10 of 2 *************** *** 565,570 **** FPU> ! next, ! end-code code fLn2 ( fs: -- r ) \ ln 2 natural logarithm --- 567,571 ---- FPU> ! float; code fLn2 ( fs: -- r ) \ ln 2 natural logarithm *************** *** 572,577 **** FPU> ! next, ! end-code B/FLOAT 10 = nostack --- 573,577 ---- FPU> ! float; B/FLOAT 10 = nostack *************** *** 677,682 **** [IF] add esi, # 12 \ to keep dword alignment ! [ELSE] add esi, # 8 ! [THEN] next, ! end-code 0 value &flit --- 677,681 ---- [IF] add esi, # 12 \ to keep dword alignment ! [ELSE] add esi, # 8 ! [THEN] float; 0 value &flit *************** *** 746,751 **** pop ebx ! next, ! end-code code FCEIL ( fs: f1 -- fs: f2 ) \ Added 3/13/99 rls --- 745,749 ---- pop ebx ! float; code FCEIL ( fs: f1 -- fs: f2 ) \ Added 3/13/99 rls *************** *** 755,760 **** pop ebx ! next, ! end-code code FTRUNC ( fs: f1 -- fs: f2 ) \ Added 3/13/99 rls --- 753,757 ---- pop ebx ! float; code FTRUNC ( fs: f1 -- fs: f2 ) \ Added 3/13/99 rls *************** *** 764,769 **** pop ebx ! next, ! end-code code FROUND ( fs: f1 -- fs: f2 ) --- 761,765 ---- pop ebx ! float; code FROUND ( fs: f1 -- fs: f2 ) *************** *** 773,778 **** pop ebx ! next, ! end-code --- 769,773 ---- pop ebx ! float; *************** *** 790,795 **** FPU> ! next, ! end-code \ Changed 3/13/99 rls --- 785,789 ---- FPU> ! float; \ Changed 3/13/99 rls *************** *** 807,812 **** xchg ebx, 0 [esp] ! next, ! end-code code ZF>D ( -- d ) ( fs: r -- ) \ ? out of range errors ? --- 801,805 ---- xchg ebx, 0 [esp] ! float; code ZF>D ( -- d ) ( fs: r -- ) \ ? out of range errors ? *************** *** 818,823 **** xchg ebx, 0 [esp] ! next, ! end-code : s>f s>d d>f ; --- 811,815 ---- xchg ebx, 0 [esp] ! float; : s>f s>d d>f ; *************** *** 853,858 **** (fcomp) ! next, ! end-code code ftstp ( -- flags ) ( fs: r1 -- ) --- 845,849 ---- (fcomp) ! float; code ftstp ( -- flags ) ( fs: r1 -- ) *************** *** 864,869 **** fstp st \ pop ! next, ! end-code external --- 855,859 ---- fstp st \ pop ! float; external *************** *** 897,902 **** FPU> ! next, ! end-code code F- ( fs: r1 r2 -- r3 ) \ ? overflow errors --- 887,891 ---- FPU> ! float; code F- ( fs: r1 r2 -- r3 ) \ ? overflow errors *************** *** 908,913 **** FPU> ! next, ! end-code code F* ( fs: r1 r2 -- r3 ) \ ? overflow errors --- 897,901 ---- FPU> ! float; code F* ( fs: r1 r2 -- r3 ) \ ? overflow errors *************** *** 918,923 **** FPU> ! next, ! end-code code F/ ( fs: r1 r2 -- r3 ) \ ? error for ofl or /0 ? --- 906,910 ---- FPU> ! float; code F/ ( fs: r1 r2 -- r3 ) \ ? error for ofl or /0 ? *************** *** 929,934 **** FPU> ! next, ! end-code code FATAN2 ( fs: r1 r2 -- r3 ) \ OK for valid args --- 916,920 ---- FPU> ! float; code FATAN2 ( fs: r1 r2 -- r3 ) \ OK for valid args *************** *** 940,945 **** FPU> ! next, ! end-code code FNEGATE ( fs: r1 -- r2 ) --- 926,930 ---- FPU> ! float; code FNEGATE ( fs: r1 -- r2 ) *************** *** 950,955 **** FPU> ! next, ! end-code code f2/ ( fs: r1 -- r2 ) --- 935,939 ---- FPU> ! float; code f2/ ( fs: r1 -- r2 ) *************** *** 963,968 **** fstp st(0) ! next, ! end-code code f2* ( fs: r1 -- r2 ) \ ? overflow error --- 947,951 ---- fstp st(0) ! float; code f2* ( fs: r1 -- r2 ) \ ? overflow error *************** *** 975,980 **** fstp st(0) ! next, ! end-code code FABS ( fs: r1 -- r2 ) --- 958,962 ---- fstp st(0) ! float; code FABS ( fs: r1 -- r2 ) *************** *** 985,990 **** FPU> ! next, ! end-code code FSQRT ( fs: r1 -- r2 ) --- 967,971 ---- FPU> ! float; code FSQRT ( fs: r1 -- r2 ) *************** *** 996,1001 **** FPU> ! next, ! end-code code FLN ( fs: r1 -- r2 ) --- 977,981 ---- FPU> ! float; code FLN ( fs: r1 -- r2 ) *************** *** 1008,1013 **** FPU> ! next, ! end-code code FACOSH ( fs: r1 -- r2 ) \ ? error for x < 1 --- 988,992 ---- FPU> ! float; code FACOSH ( fs: r1 -- r2 ) \ ? error for x < 1 *************** *** 1027,1032 **** FPU> ! next, ! end-code code FASINH ( fs: r1 -- r2 ) \ Note: well defined for r1 < 0 --- 1006,1010 ---- FPU> ! float; code FASINH ( fs: r1 -- r2 ) \ Note: well defined for r1 < 0 *************** *** 1044,1049 **** FPU> ! next, ! end-code internal --- 1022,1026 ---- FPU> ! float; internal *************** *** 1056,1061 **** FPU> ! next, ! end-code code (fcos) ( f: r1 -- r2 ) --- 1033,1037 ---- FPU> ! float; code (fcos) ( f: r1 -- r2 ) *************** *** 1066,1071 **** FPU> ! next, ! end-code code (fsincos) ( f: r1 -- r2 r3 ) --- 1042,1046 ---- FPU> ! float; code (fsincos) ( f: r1 -- r2 r3 ) *************** *** 1078,1083 **** FPU> ! next, ! end-code \ January 13th, 1998 - 9:33 tjz for RLS --- 1053,1057 ---- FPU> ! float; \ January 13th, 1998 - 9:33 tjz for RLS *************** *** 1098,1103 **** fstp st(0) ! next, ! end-code : >a2**63_frem2pi ( f: r1 -- r2 ) --- 1072,1076 ---- fstp st(0) ! float; : >a2**63_frem2pi ( f: r1 -- r2 ) *************** *** 1159,1164 **** FPU> ! next, ! end-code code FEXPM1 ( fs: r1 -- r2 ) \ ? overflow error --- 1132,1136 ---- FPU> ! float; code FEXPM1 ( fs: r1 -- r2 ) \ ? overflow error *************** *** 1258,1263 **** FPU> ! next, ! end-code code FACOS ( fs: r1 -- r2 ) \ result for |x| > 1 is NAN --- 1230,1234 ---- FPU> ! float; code FACOS ( fs: r1 -- r2 ) \ result for |x| > 1 is NAN *************** *** 1276,1281 **** FPU> ! next, ! end-code code FASIN ( fs: r1 -- r2 ) \ result for |x| > 1 is NAN --- 1247,1251 ---- FPU> ! float; code FASIN ( fs: r1 -- r2 ) \ result for |x| > 1 is NAN *************** *** 1293,1298 **** FPU> ! next, ! end-code internal --- 1263,1267 ---- FPU> ! float; internal *************** *** 2316,2317 **** --- 2285,2287 ---- L$2: next, end-code + |
1040 messages has been excluded from this view by a project administrator.
