Menu
▾
▴
[Win32forth-cvs] win32forth/apps/WinEd Ed_Debug.F, 1.2, 1.3 Ed_Globals.F, 1.4, 1.5 Ed_HyperLink.F, 1.5, 1.6 Ed_Remote.F, 1.4, 1.5 WinEd.f, 1.15, 1.16
|
From: Dirk B. <db...@us...> - 2007-05-13 07:52:34
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27480/apps/WinEd Modified Files: Ed_Debug.F Ed_Globals.F Ed_HyperLink.F Ed_Remote.F WinEd.f Log Message: - Removed the Forth-Instance-Counting from then Editor-IO. Index: WinEd.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** WinEd.f 2 Dec 2006 10:17:30 -0000 1.15 --- WinEd.f 13 May 2007 07:52:26 -0000 1.16 *************** *** 135,146 **** .free \ how much memory did we really use? - -1 ed-forth-count +! \ remove myself from Forth count &forthdir count &appdir place 0 0 ' wined ' APPLICATION catch WinEd.exe checkstack \ save WinEd.exe &appdir off - 1 ed-forth-count +! swap forth-msg-chain ! - \ make sure that the remote I/O will still work after WinEd is compiled - also hidden ' uninit-shared-forth is uninit-shared-type previous throw s" src\res\WinEd.ico" s" WinEd.exe" Prepend<home>\ AddAppIcon --- 135,142 ---- Index: Ed_Debug.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Debug.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Ed_Debug.F 30 Apr 2005 20:52:42 -0000 1.2 --- Ed_Debug.F 13 May 2007 07:52:26 -0000 1.3 *************** *** 126,130 **** ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp 0 LB_ADDSTRING IDL_WORDS SendDlgItemMessage: self drop ; --- 126,130 ---- ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp 0 LB_ADDSTRING IDL_WORDS SendDlgItemMessage: self drop ; *************** *** 202,210 **** ShowDebug: DbgButtonsDlg ; - : no-breakpoint ( -- ) \ not currently in a breakpoint - beep ; - - - : zMessageBox ( szString -- ) z" Notice" --- 202,205 ---- Index: Ed_Globals.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Globals.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Ed_Globals.F 28 Aug 2005 07:28:06 -0000 1.4 --- Ed_Globals.F 13 May 2007 07:52:26 -0000 1.5 *************** *** 30,34 **** 760 value start-width \ was 640 420 value start-height \ was 480 ! 60 value drag-barH 4 value drag-thick --- 30,34 ---- 760 value start-width \ was 640 420 value start-height \ was 480 ! 60 value drag-barH 4 value drag-thick *************** *** 61,65 **** FALSE value open-previous? \ should we open the file we had open previously FALSE value term-canceled? \ did we cancel program termination - FALSE value second-copy? \ am I the second editor copy to load FALSE value as-pc? \ save file as a PC file? FALSE value start-browse? \ are we starting in browse mode? --- 61,64 ---- *************** *** 130,137 **** \ wait untill Forth is loaded ! WaitForConsole ! ! \ adjust count of Forths currently running ! -1 ed-forth-count +! ; \ SF-RequestID 745393 - fixed June 8th, 2003 - 12:59 dbu : highlight-cursor ( -- ) --- 129,133 ---- \ wait untill Forth is loaded ! WaitForConsole ; : highlight-cursor ( -- ) Index: Ed_HyperLink.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_HyperLink.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Ed_HyperLink.F 26 Aug 2006 15:25:32 -0000 1.5 --- Ed_HyperLink.F 13 May 2007 07:52:26 -0000 1.6 *************** *** 189,193 **** : help-link ( -- ) \ link to the currently highlighted word ! bitImage? ?EXIT \ it is bound to Ctrl-F1 highlighting? 0= \ something is highlighted IF highlight-word --- 189,193 ---- : help-link ( -- ) \ link to the currently highlighted word ! bitImage? ?EXIT \ it is bound to Ctrl-F1 highlighting? 0= \ something is highlighted IF highlight-word *************** *** 202,206 **** : help-api ( -- ) \ link to the currently highlighted word ! bitImage? ?EXIT \ it is bound to Ctrl-F2 highlighting? 0= \ something is highlighted IF highlight-word --- 202,206 ---- : help-api ( -- ) \ link to the currently highlighted word ! bitImage? ?EXIT \ it is bound to Ctrl-F2 highlighting? 0= \ something is highlighted IF highlight-word *************** *** 295,299 **** \ if already open ! ' _"+open-text is "+open-text 1 value FilterIndex --- 295,299 ---- \ if already open ! ' _"+open-text is "+open-text 1 value FilterIndex *************** *** 365,369 **** >r MB_OK MB_TASKMODAL or ! z" Win-Ed DOS Commandline Help" r> NULL call MessageBox drop ; --- 365,369 ---- >r MB_OK MB_TASKMODAL or ! z" Win-Ed DOS Commandline Help" r> NULL call MessageBox drop ; *************** *** 392,400 **** ( rbs ) s" .NDX" &WINED.NDX +place THEN - uninit-shared-memory \ I'm not here hyper-compile BYE THEN ! \ just a dummy command to ignore the /IMAGE directive to the wrapper 2dup s" IMAGE" compare 0= \ in case started with --- 392,399 ---- ( rbs ) s" .NDX" &WINED.NDX +place THEN hyper-compile BYE THEN ! \ just a dummy command to ignore the /IMAGE directive to the wrapper 2dup s" IMAGE" compare 0= \ in case started with *************** *** 446,450 **** \ GetLongPathName() isn't supported under Win95, NT 3.51 and NT4, \ so we can only use it under Win98, WinME and Win2000 and later. ! \ This bug was reported on Wed, 02 Jun 2004 by Bruce Rennie [ winver win95 = winver winnt351 = or winver winnt4 = or ] [IF] --- 445,449 ---- \ GetLongPathName() isn't supported under Win95, NT 3.51 and NT4, \ so we can only use it under Win98, WinME and Win2000 and later. ! \ This bug was reported on Wed, 02 Jun 2004 by Bruce Rennie [ winver win95 = winver winnt351 = or winver winnt4 = or ] [IF] *************** *** 621,625 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ 38 Cause text command string to be interpreted. \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 620,624 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ 38 Cause text command string to be interpreted. \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 647,656 **** THEN ; ! : 'line ( -- addr ) \ get address of the line get-cursor-line cur-buf LCOUNT drop ; : 'cursor ( -- addr ) \ Get the address of the cursor. 'line cursor-col + ; ! \ *p SMART-CR ( -- ) Bruno's version of Baden's smart cursor follows the ragged --- 646,655 ---- THEN ; ! : 'line ( -- addr ) \ get address of the line get-cursor-line cur-buf LCOUNT drop ; : 'cursor ( -- addr ) \ Get the address of the cursor. 'line cursor-col + ; ! \ *p SMART-CR ( -- ) Bruno's version of Baden's smart cursor follows the ragged *************** *** 671,675 **** : do-goto-line ( -- ) goto-line ; ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 41 Change case of highlighted text --- 670,674 ---- : do-goto-line ( -- ) goto-line ; ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 41 Change case of highlighted text Index: Ed_Remote.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Remote.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Ed_Remote.F 13 Nov 2006 13:51:52 -0000 1.4 --- Ed_Remote.F 13 May 2007 07:52:26 -0000 1.5 *************** *** 8,47 **** \ also needed for debug support - 0 value second-copy? - defer remote-open ( wParam -- ) ' noop is remote-open defer remote-word ( -- ) ' noop is remote-word : HandleW32FMsg { hndl msg wParam lParam -- } \ respond to Win32Forth messages ! second-copy? 0= ! IF wParam ! CASE ! \ debug support messages ! ED_OPEN_EDIT OF wParam remote-open ENDOF ! ED_OPEN_BROWSE OF wParam remote-open ENDOF ! ED_WATCH OF wParam remote-open ENDOF ! ED_WORD OF remote-word ENDOF ! ED_STACK OF receive-stack ENDOF ! ED_DEBUG OF receive-debug ENDOF ! ED_NOTINBP OF no-breakpoint ENDOF ! \ console start and termination ! ED_ALIVE OF true to ConsoleReady? ENDOF ! ED_SHUTDOWN OF false to ConsoleReady? ENDOF ! ENDCASE ! THEN ; :noname ( -- ) ed-ptr 0= ?EXIT \ leave if shared memory not inited ! EditorWindow ! IF ed-window @ 0<> to second-copy? ! GetHandle: EditorWindow ed-window ! \ set our window handle ! then ; is init-shared-type :noname ( -- ) ed-ptr 0= ?EXIT \ leave if shared memory not inited ! second-copy? 0= ! IF 0 ed-window ! \ clear our window handle ! THEN ; is uninit-shared-type --- 8,40 ---- \ also needed for debug support defer remote-open ( wParam -- ) ' noop is remote-open defer remote-word ( -- ) ' noop is remote-word : HandleW32FMsg { hndl msg wParam lParam -- } \ respond to Win32Forth messages ! wParam ! CASE ! \ debug support messages ! ED_OPEN_EDIT OF wParam remote-open ENDOF ! ED_OPEN_BROWSE OF wParam remote-open ENDOF ! ED_WATCH OF wParam remote-open ENDOF ! ED_WORD OF remote-word ENDOF ! ED_STACK OF receive-stack ENDOF ! ED_DEBUG OF receive-debug ENDOF ! \ console start and termination ! ED_ALIVE OF true to ConsoleReady? ENDOF ! ED_SHUTDOWN OF false to ConsoleReady? ENDOF ! ENDCASE ! ; :noname ( -- ) ed-ptr 0= ?EXIT \ leave if shared memory not inited ! GetHandle: EditorWindow ed-window ! \ set our window handle ! ; is init-shared-type :noname ( -- ) ed-ptr 0= ?EXIT \ leave if shared memory not inited ! 0 ed-window ! \ clear our window handle ! ; is uninit-shared-type |
