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: Jos v.d.V. <jo...@us...> - 2008-08-13 11:40:48
|
Update of /cvsroot/win32forth/win32forth/apps/Console-Games In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5118/Console-Games Modified Files: strek.f tetris.f Log Message: Jos: Enabled MessageLoop and moved a number of applications to the new console. Others will follow... Index: strek.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Console-Games/strek.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** strek.f 21 Oct 2006 09:09:10 -0000 1.1 --- strek.f 13 Aug 2008 11:40:41 -0000 1.2 *************** *** 138,141 **** --- 138,142 ---- true value create-turnkey? \ set to false when you don't want a turnkey app + \ false value create-turnkey? \ set to false when you don't want a turnkey app warning off *************** *** 1561,1575 **** \ default initialization (needed for all turnkey apps) ! init-console ! if initialization-chain do-chain then exception@ if bye then \ our own initialization menu-off \ close menubar ! ['] _interpret is interpret \ close the statusbar ! Destroy: ConsoleStatusbar set-console-title \ set window title init-screen \ show console - get-commandline \ copy commandline to SOURCE default-application \ and run our app --- 1562,1575 ---- \ default initialization (needed for all turnkey apps) ! initialization-chain do-chain ! init-console drop ! unset-except set-except \ exception handling needs to be set after the console is started exception@ if bye then \ our own initialization menu-off \ close menubar ! HideStatusBar: ConsoleWindow \ close the statusbar set-console-title \ set window title init-screen \ show console get-commandline \ copy commandline to SOURCE default-application \ and run our app Index: tetris.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Console-Games/tetris.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** tetris.f 21 Oct 2006 09:09:10 -0000 1.1 --- tetris.f 13 Aug 2008 11:40:41 -0000 1.2 *************** *** 17,20 **** --- 17,21 ---- true value create-turnkey? \ set to false when you don't want a turnkey app + \ false value create-turnkey? \ set to false when you don't want a turnkey app warning off *************** *** 398,402 **** create-turnkey? if bye \ quit our turnkey application ! else 0 23 at-xy cr then ; --- 399,403 ---- create-turnkey? if bye \ quit our turnkey application ! else 0 24 at-xy cr then ; *************** *** 413,427 **** \ default initialization (needed for all turnkey apps) ! init-console ! if initialization-chain do-chain then exception@ if bye then \ our own initialization menu-off \ close menubar ! ['] _interpret is interpret \ close the statusbar ! Destroy: ConsoleStatusbar set-console-title \ set window title init-screen \ show console - get-commandline \ copy commandline to SOURCE default-application \ and run our app --- 414,427 ---- \ default initialization (needed for all turnkey apps) ! initialization-chain do-chain ! init-console drop exception@ if bye then + unset-except set-except \ exception handling needs to be set after the console is started \ our own initialization menu-off \ close menubar ! HideStatusBar: ConsoleWindow \ close the statusbar set-console-title \ set window title init-screen \ show console get-commandline \ copy commandline to SOURCE default-application \ and run our app |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-13 11:40:48
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5118/Player4 Modified Files: PLAYER4.F Pl_MciWindow.f Log Message: Jos: Enabled MessageLoop and moved a number of applications to the new console. Others will follow... Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.65 retrieving revision 1.66 diff -C2 -d -r1.65 -r1.66 *** PLAYER4.F 16 Jul 2008 11:05:43 -0000 1.65 --- PLAYER4.F 13 Aug 2008 11:40:43 -0000 1.66 *************** *** 23,27 **** true value MciDebug? - needs NoConsole.f needs excontrols.f needs w_search.f --- 23,26 ---- *************** *** 51,55 **** needs catalog.f needs view.f ! needs SearchPath.f needs Player4.frm \ "Control center" dialog --- 50,54 ---- needs catalog.f needs view.f ! needs SearchPath.f needs Player4.frm \ "Control center" dialog *************** *** 656,660 **** Call WaitMessage drop \ Wait for a new msg WINPAUSE \ here the windows messages are handled !!! ! Playing: Player4W ; is PLAYER --- 655,659 ---- Call WaitMessage drop \ Wait for a new msg WINPAUSE \ here the windows messages are handled !!! ! Playing: Player4W ; is PLAYER *************** *** 681,685 **** ' QuitPlayer is StopPlayer false to MciDebug? - NoConsoleIO NoConsoleInImage &forthdir count &appdir place --- 680,683 ---- Index: Pl_MciWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** Pl_MciWindow.f 9 Dec 2006 12:50:06 -0000 1.29 --- Pl_MciWindow.f 13 Aug 2008 11:40:43 -0000 1.30 *************** *** 158,162 **** :M PlayFile: ( addr len -- ) \ open and play a file ! Playing? if GetVolume: Self vadr-config VolLevel ! Close: self --- 158,162 ---- :M PlayFile: ( addr len -- ) \ open and play a file ! Playing? if GetVolume: Self vadr-config VolLevel ! Close: self *************** *** 303,308 **** then else n>record dup>r ! RecordDef File_name r@ Cnt_File_name c@ 2dup type-cr ! r@ incr-#played r@ to #playing r> mark-played PlayFileFromCatalog: Self then --- 303,311 ---- then else n>record dup>r ! RecordDef File_name r@ Cnt_File_name c@ ! turnkey? not ! if 2dup type-cr ! then ! r@ incr-#played r@ to #playing r> mark-played PlayFileFromCatalog: Self then |
|
From: Rod O. <rod...@us...> - 2008-08-12 17:05:37
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25596 Modified Files: CommandWindow.f NewConsole.f Log Message: Rod: save key strokes during type, no scrolling when console minimized Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** NewConsole.f 11 Aug 2008 18:52:13 -0000 1.13 --- NewConsole.f 12 Aug 2008 17:05:32 -0000 1.14 *************** *** 18,21 **** --- 18,22 ---- int WindowState + :M WindowState: ( -- n ) WindowState ;M int StatusbarHeight *************** *** 221,227 **** : c_type ( a n -- ) VisibleCols: cmd dup to w cmd.X - to n1 ! WrapText OverwriteTextAtXY: cmd PauseForMessages ; \ : c_type ( a n -- ) OverwriteTextAtXY: cmd ; --- 222,232 ---- : c_type ( a n -- ) + KeysOff: cmd \ send key strokes to key buffer VisibleCols: cmd dup to w cmd.X - to n1 ! WrapText OverwriteTextAtXY: cmd ! PauseForMessages ! KeysOn: cmd ! ; \ : c_type ( a n -- ) OverwriteTextAtXY: cmd ; Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** CommandWindow.f 11 Aug 2008 18:52:13 -0000 1.10 --- CommandWindow.f 12 Aug 2008 17:05:32 -0000 1.11 *************** *** 466,469 **** --- 466,470 ---- :M AutoScroll: ( -- ) \ scroll caret into view + WindowState: parent SIZE_MINIMIZED = IF exitm THEN BEGIN CaretPos @ width iRightMargin - > WHILE PauseForMessages HorzLine negate HScroll SCP REPEAT BEGIN CaretPos @ iLeftMargin < WHILE HorzLine HScroll SCP REPEAT *************** *** 1177,1180 **** --- 1178,1182 ---- :M On_Size: ( h m w - h m w ) + WindowState: parent SIZE_MINIMIZED = IF exitm THEN ScrollPage GetClientRect: self UpdateVScroll: self |
|
From: Rod O. <rod...@us...> - 2008-08-11 18:52:20
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv13511 Modified Files: CommandWindow.f NewConsole.f Log Message: Rod: changed Key Buffer to hold integers, replaying macros is better Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** NewConsole.f 11 Aug 2008 17:48:48 -0000 1.12 --- NewConsole.f 11 Aug 2008 18:52:13 -0000 1.13 *************** *** 242,254 **** Prompt: cmd false to entered ! BEGIN auto_key cmd.VirtualKey ?dup ! IF 0 SetVirtualKey: cmd HandleChar: cmd ! ELSE ! KeyBufferEmpty: cmd ! IF call WaitMessage drop ! ELSE GetKey: cmd HandleChar: cmd ! THEN THEN ! PauseForMessages entered auto_key? UNTIL EnteredString >r swap r@ move r> ; --- 242,253 ---- Prompt: cmd false to entered ! BEGIN ! auto_key ! KeyBufferEmpty: cmd ! IF call WaitMessage drop ! ELSE GetKey: cmd HandleChar: cmd THEN ! PauseForMessages entered auto_key? ! UNTIL EnteredString >r swap r@ move r> ; *************** *** 257,263 **** ' AcceptCommand SetAction: cmd ! : c_pushkey ( c -- ) \ push into the keyboard buffer, if c > 255 put into VirtualKey where only latest is kept ! dup -256 and IF SetVirtualKey: cmd ELSE PutKey: cmd THEN ! ; : c_"pushkeys ( a n -- ) \ push the characters of string a n --- 256,260 ---- ' AcceptCommand SetAction: cmd ! : c_pushkey ( c -- ) PutKey: cmd ; : c_"pushkeys ( a n -- ) \ push the characters of string a n *************** *** 270,274 **** \ PauseForMessage PauseForMessages \ Winpause ! KeyBufferEmpty: cmd not cmd.VirtualKey or KeysOn: cmd ; --- 267,271 ---- \ PauseForMessage PauseForMessages \ Winpause ! KeyBufferEmpty: cmd not KeysOn: cmd ; *************** *** 278,282 **** Prompt: cmd KeyBufferEmpty: cmd IF BEGIN KeysOff: cmd WaitForMessage c_key? auto_key? UNTIL THEN ! cmd.VirtualKey ?dup 0= IF GetKey: cmd ELSE 0 SetVirtualKey: cmd THEN EndPrompt: cmd ; --- 275,279 ---- Prompt: cmd KeyBufferEmpty: cmd IF BEGIN KeysOff: cmd WaitForMessage c_key? auto_key? UNTIL THEN ! GetKey: cmd EndPrompt: cmd ; Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** CommandWindow.f 6 Aug 2008 18:19:53 -0000 1.9 --- CommandWindow.f 11 Aug 2008 18:52:13 -0000 1.10 *************** *** 86,92 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! 256 bytes KeyBuffer ! byte head ! \ byte tail :M EmptyKeyBuffer: ( -- ) 0 to head ;M --- 86,91 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! 1024 bytes KeyBuffer ! int head :M EmptyKeyBuffer: ( -- ) 0 to head ;M *************** *** 94,111 **** :M KeyBufferEmpty: ( -- f ) head 0= ;M ! :M PutKey: ( c -- ) \ as long as key buffer is not full head 255 = IF drop beep ! ELSE KeyBuffer head + c! head 1+ to head THEN ;M ! :M GetKey: ( -- c ) \ returns 0 if KeyBuffer is empty KeyBufferEmpty: self IF 0 ! ELSE KeyBuffer c@ KeyBuffer dup 1+ swap 255 move head 1- to head THEN ;M - :M KeyString: ( -- a n ) KeyBuffer head ;M - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ Selecting Text \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 93,108 ---- :M KeyBufferEmpty: ( -- f ) head 0= ;M ! :M PutKey: ( n -- ) \ as long as key buffer is not full head 255 = IF drop beep ! ELSE KeyBuffer head 4 * + ! head 1+ to head THEN ;M ! :M GetKey: ( -- n ) \ returns 0 if KeyBuffer is empty KeyBufferEmpty: self IF 0 ! ELSE KeyBuffer @ KeyBuffer dup 4 + swap 1020 move head 1- to head THEN ;M \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ Selecting Text \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 1084,1088 **** KeysOn IF HandleChar: self ! ELSE dup 27 = IF true to Abort? THEN dup 256 < IF PutKey: self ELSE SetVirtualKey: self THEN THEN \ drop false to Abort? --- 1081,1085 ---- KeysOn IF HandleChar: self ! ELSE dup 27 = IF true to Abort? THEN PutKey: self THEN \ drop false to Abort? *************** *** 1140,1145 **** VK_SHIFT call GetKeyState 32768 and IF 0x80000 or THEN THEN ! dup IF LogKeyStrokes KeysOn IF dup HandleKeys THEN THEN ! to VirtualKey 0 ;M --- 1137,1141 ---- VK_SHIFT call GetKeyState 32768 and IF 0x80000 or THEN THEN ! dup IF LogKeyStrokes KeysOn IF dup HandleKeys THEN PutKey: self THEN 0 ;M |
|
From: George H. <geo...@us...> - 2008-08-11 18:05:23
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv26818 Modified Files: Debug.f Log Message: Adjusted address in handling of LEAVE and ?LEAVE to account for changes in implementation (done a long time ago). Index: Debug.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Debug.f,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** Debug.f 15 May 2008 04:28:26 -0000 1.16 --- Debug.f 11 Aug 2008 18:05:12 -0000 1.17 *************** *** 196,202 **** ['] _again OF TRUE ?JUMP ENDOF ['] _repeat OF TRUE ?JUMP ENDOF ! ['] leave of drop rp@ 5 cells+ @ ENDOF ['] ?leave of over ! if drop rp@ 5 cells+ @ else cell+ then ENDOF ['] ?BRANCH OF OVER 0= ?JUMP ENDOF --- 196,202 ---- ['] _again OF TRUE ?JUMP ENDOF ['] _repeat OF TRUE ?JUMP ENDOF ! ['] leave of drop rp@ 5 cells+ @ cell - ENDOF ['] ?leave of over ! if drop rp@ 5 cells+ @ cell - else cell+ then ENDOF ['] ?BRANCH OF OVER 0= ?JUMP ENDOF |
|
From: Rod O. <rod...@us...> - 2008-08-11 17:48:53
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20157 Modified Files: Console2New.f NewConsole.f Log Message: Rod: x_key and x_key? required for debug to work with the new console Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** NewConsole.f 10 Aug 2008 01:38:11 -0000 1.11 --- NewConsole.f 11 Aug 2008 17:48:48 -0000 1.12 *************** *** 282,285 **** --- 282,289 ---- ; + \ required for debug + ' c_key? is x_key? + ' c_key is x_key + : c_Init-Console ( -- f ) \ start the Console window hidden or show console if already started \ progreg-init *************** *** 385,389 **** k_F1 of F1-doc endof \ k_F2 of F2-help endof ! k_F12 of LoadProject endof ( default ) \ swap drop EndCase --- 389,393 ---- k_F1 of F1-doc endof \ k_F2 of F2-help endof ! \in-system-ok k_F12 of LoadProject endof ( default ) \ swap drop EndCase Index: Console2New.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/Console2New.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Console2New.f 18 Jul 2008 19:45:30 -0000 1.1 --- Console2New.f 11 Aug 2008 17:48:48 -0000 1.2 *************** *** 5,8 **** --- 5,14 ---- : forth-io ; : _mkey key ; + \ required for debug + warning @ + warning off + defer x_key + defer x_key? + warning ! 1 proc HideCaret |
|
From: Dirk B. <db...@us...> - 2008-08-11 17:46:37
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19337 Modified Files: EdTabControl.f Log Message: Hanging of the IDE Fixed when openning to mutch files. Index: EdTabControl.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdTabControl.f,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** EdTabControl.f 28 Apr 2008 05:17:16 -0000 1.19 --- EdTabControl.f 11 Aug 2008 17:46:18 -0000 1.20 *************** *** 68,76 **** \ Find a file in the list view. \ addr is the object address of the mdi child window - cr ." FindFile: " dup h. LVFI_PARAM SetFlags: LvFindInfo SetlParam: LvFindInfo Addr: LvFindInfo -1 FindItem: self - ." returns " dup . ;M --- 68,74 ---- *************** *** 139,148 **** Enable_Notify? if dup GetNotifyCode LVN_ITEMCHANGED = ! if ! cr ." Handle_Notify: enter" ! false to Enable_Notify? LVN_GetNotifyParam OnSelect true to Enable_Notify? - cr ." Handle_Notify: exit" else drop then --- 137,143 ---- Enable_Notify? if dup GetNotifyCode LVN_ITEMCHANGED = ! if false to Enable_Notify? LVN_GetNotifyParam OnSelect true to Enable_Notify? else drop then *************** *** 415,419 **** UpdateFileName: cFileList ;M - :M FindFile: ( addr -- f ) FindFile: cFileList ;M --- 410,413 ---- |
|
From: Rod O. <rod...@us...> - 2008-08-11 17:07:48
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2933 Modified Files: Primutil.f editor_io.f w32fMsg.f Log Message: Rod: minor changes to prevent sort out some warning messages Index: editor_io.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/editor_io.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** editor_io.f 18 Jun 2008 11:02:36 -0000 1.6 --- editor_io.f 11 Aug 2008 17:07:41 -0000 1.7 *************** *** 90,94 **** --- 90,96 ---- EXTERNAL + IN-APPLICATION defer paste-load ' noop is paste-load + IN-SYSTEM INTERNAL *************** *** 192,197 **** IN-SYSTEM ! [defined] $watch ! [if] : _$watch ( line filename -- ) ['] do-watch [$edit] ; --- 194,198 ---- IN-SYSTEM ! [defined] $watch [if] : _$watch ( line filename -- ) ['] do-watch [$edit] ; Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** Primutil.f 16 Jul 2008 20:48:23 -0000 1.28 --- Primutil.f 11 Aug 2008 17:07:41 -0000 1.29 *************** *** 449,456 **** --- 449,458 ---- \ synonym 2to to \ Sets a 2value \ made a colon def - [cdo-2008May13] \ synonym 2+to +to \ made a colon def - [cdo-2008May13] + IN-SYSTEM : 2to ( d <name> -- ) \ store a double in a 2VALUE postpone to ; IMMEDIATE : 2+to ( d <name> -- ) \ add a double to a 2VALUE postpone +to ; IMMEDIATE + IN-APPLICATION \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Index: w32fMsg.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/w32fMsg.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** w32fMsg.f 9 Jul 2008 10:52:27 -0000 1.5 --- w32fMsg.f 11 Aug 2008 17:07:41 -0000 1.6 *************** *** 561,565 **** create StartupInfo ! here 0 , \ cb 0 , \ lpReserved 0 , \ lpDesktop --- 561,565 ---- create StartupInfo ! NoStack here 0 , \ cb 0 , \ lpReserved 0 , \ lpDesktop *************** *** 572,577 **** 0 , \ dwYCountChars 0 , \ dwFillAttribute ! STARTF_USESHOWWINDOW ! , \ dwFlags SW_SHOWNORMAL W, \ wShowWindow 0 W, \ cbReserved2 --- 572,576 ---- 0 , \ dwYCountChars 0 , \ dwFillAttribute ! STARTF_USESHOWWINDOW , \ dwFlags SW_SHOWNORMAL W, \ wShowWindow 0 W, \ cbReserved2 |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-10 16:57:17
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25332 Modified Files: Ed_Keys.F Log Message: Jos: Fixed the menukey-more problem for the old console. Index: Ed_Keys.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Keys.F,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Ed_Keys.F 7 Aug 2008 13:35:44 -0000 1.8 --- Ed_Keys.F 10 Aug 2008 16:57:12 -0000 1.9 *************** *** 183,186 **** --- 183,188 ---- REPEAT ; + also hidden \ for menukey-more + : SMS-WEW-key-Con-doc-interp-send BEGIN SetMultiStatus: EditorWindow *************** *** 189,192 **** --- 191,195 ---- WHILE rem-sendkey \ just send keys to Forth console REPEAT ; + previous : VIEW-KEY-LOOP ( -- ) |
|
From: Bud F. <vel...@he...> - 2008-08-09 18:19:49
|
Hej, |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-07 13:35:48
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv14077 Modified Files: Ed_Keys.F Log Message: Jos: Small change to enable key-recording in WinEd. Index: Ed_Keys.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Keys.F,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Ed_Keys.F 6 Aug 2008 18:45:06 -0000 1.7 --- Ed_Keys.F 7 Aug 2008 13:35:44 -0000 1.8 *************** *** 185,189 **** : SMS-WEW-key-Con-doc-interp-send BEGIN SetMultiStatus: EditorWindow ! key \ handle keyboard interpretation false \ interpreting? WHILE rem-sendkey \ just send keys to Forth console --- 185,189 ---- : SMS-WEW-key-Con-doc-interp-send BEGIN SetMultiStatus: EditorWindow ! key menukey-more \ handle keyboard interpretation false \ interpreting? WHILE rem-sendkey \ just send keys to Forth console |
|
From: Rod O. <rod...@us...> - 2008-08-06 18:45:09
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv10912 Modified Files: Ed_Keys.F Log Message: Rod: made the Keyboard Macros shortcut keys work (when KeySave.f or KeySaveNew.f are loaded in the console) Index: Ed_Keys.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Keys.F,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Ed_Keys.F 25 Jul 2008 21:19:20 -0000 1.6 --- Ed_Keys.F 6 Aug 2008 18:45:06 -0000 1.7 *************** *** 221,227 **** 'L' +k_control OF load-active-file ENDOF ! [DEFINED] replay-macro [IF] ! 'M' +k_control +k_shift OF [ also HIDDEN ] replay-macro [ previous ] ENDOF ! [THEN] 'N' +k_control OF new-text ENDOF 'O' +k_control OF open-text ENDOF --- 221,227 ---- 'L' +k_control OF load-active-file ENDOF ! [ also HIDDEN ] [DEFINED] replay-macro [IF] ! 'M' +k_control +k_shift OF replay-macro ENDOF ! [THEN] [ previous ] 'N' +k_control OF new-text ENDOF 'O' +k_control OF open-text ENDOF *************** *** 234,241 **** 'S' +k_control OF save-text ENDOF ! [DEFINED] repeat-amacro [IF] ! 'R' +k_control +k_shift OF [ also HIDDEN ] EditorWindow repeat-amacro [ previous ] ENDOF ! 'S' +k_control +k_shift OF [ also HIDDEN ] Start/Stop-macro [ previous ] ENDOF ! [THEN] 'T' +k_control OF word-delete ENDOF --- 234,241 ---- 'S' +k_control OF save-text ENDOF ! [ also HIDDEN ] [DEFINED] repeat-amacro [IF] ! 'R' +k_control +k_shift OF EditorWindow repeat-amacro ENDOF ! 'S' +k_control +k_shift OF Start/Stop-macro ENDOF ! [THEN] [ previous ] 'T' +k_control OF word-delete ENDOF *************** *** 263,269 **** k_F3 +k_shift +k_control OF replace-text ENDOF ! [DEFINED] replay-macro [IF] ! k_F5 OF [ also HIDDEN ] replay-macro [ previous ] ENDOF ! [THEN] k_F5 +k_control +k_shift OF cwords ENDOF --- 263,269 ---- k_F3 +k_shift +k_control OF replace-text ENDOF ! [ also HIDDEN ] [DEFINED] replay-macro [IF] ! k_F5 OF replay-macro ENDOF ! [THEN] [ previous ] k_F5 +k_control +k_shift OF cwords ENDOF |
|
From: Rod O. <rod...@us...> - 2008-08-06 18:23:49
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2191 Modified Files: ExtendNew.f Added Files: KeySaveNew.f Log Message: Rod: Keyboard Macros are now supported if KeySaveNew.f is loaded in ExtendNew.f --- NEW FILE: KeySaveNew.f --- \ $Id: KeySaveNew.f,v 1.1 2008/08/06 18:23:46 rodoakford Exp $ \ KeySaveNew.f Save All Keystrokes Tom Zimmer \ Slight modifications to KeySave.f for the new console - Rod \ There was problem with repeat-amacro { parent \ repeat$ -- } crashing in WinEd \ which I solved by changing 32 localAlloc: repeat$ to MAXSTRING localAlloc: repeat$ \ I don't know why this is necessary, there could be problems elsewhere with localAlloc: cr .( Loading Keyboard Macro...) INTERNAL \ start of non-user definitions :Class LogFile <Super Object int logfilename int logfiledefault int loghndl int playhndl int logout int logtabsize int log# max-path bytes logfilebuf :M ClassInit: ( -- ) ClassInit: super here to logfiledefault ,"text" logfiledefault to logfilename 0 to logout 8 to logtabsize 0 to log# 0 to loghndl 0 to playhndl ;M :M GetLogName: ( -- a1 n1 ) logfilename count ;M :M SetLogTab: ( n1 -- ) to logtabsize ;M :M CloseLog: ( -- ) loghndl if loghndl close-file drop 0 to loghndl then ;M :M "Log: ( a1 n1 -- ) dup +to logout loghndl -if write-file dup s" Log File Write Error" ?MessageBox if CloseLog: self then else 3drop then ;M :M LogSpaces: ( n1 -- ) spcs-max min spcs swap "Log: self ;M :M LogTab: ( -- ) logout logtabsize / 1+ logtabsize * logout - 0max LogSpaces: self ;M create &key 0 c, :M LogEmit: ( c1 -- ) 1 +to logout loghndl if &key c! &key 1 loghndl write-file dup s" Log File Write Error" ?MessageBox if CloseLog: self then else drop then ;M :M LogCr: ( -- ) 0 to logout loghndl if crlf$ count loghndl write-file dup s" Log File Write Error" ?MessageBox if CloseLog: self then then ;M :M OpenLog: ( -- ) loghndl if CloseLog: self then logfilename count r/w open-file if drop \ discard handle logfilename count r/w create-file dup s" Failed to Create the LOG File" ?MessageBox if drop else to loghndl base @ >r decimal LogTab: self s" \ " "Log: self log# 0 <# # # # #> "Log: self s" " "Log: self LogCr: self r> base ! LogTab: self s" \ Log Created: " "Log: self get-local-time time-buf dup >date" "Log: self s" - " "Log: self >time" "Log: self LogCr: self loghndl file-append drop then else to loghndl \ save handle loghndl file-append drop then ;M :M "NewLog: ( a1 n1 -- ) CloseLog: self logfilebuf place logfilebuf to logfilename logfilename count r/w create-file dup s" Error Creating LOG file" ?MessageBox if drop else to loghndl OpenLog: self CloseLog: self then ;M :M NewLog: { \ key$ -- } MAXSTRING localAlloc: key$ s" KEYS" key$ place \ lay in start of Macro name log# 0 <# # # # #> key$ +place \ append the file number s" .LOG" key$ +place \ append the file extension 1 +to log# \ bump to next log number key$ count "NewLog: self ;M :M PlayClose: ( -- ) playhndl if playhndl close-file drop 0 to playhndl then ;M :M PlayLog: ( a1 n1 -- ) \ play log file a1,n1 PlayClose: self 2dup r/o open-file dup s" Key LOG file doesn't exist!" ?MessageBox if 3drop else to playhndl logfilebuf place logfilebuf to logfilename logfilebuf count "minus-ext" dup 3 - 0MAX /string number? \ if a numbered keyfile if drop 1+ to log# \ then set log number else 2drop \ else discard it then then ;M 128 bytes keybuf : get1line ( -- ) keybuf 128 erase begin keybuf count + 1 playhndl read-file dup s" Read Error on Key Log file!" ?MessageBox if CloseLog: self then 0> keybuf count + c@ 0x0A <> and while 1 keybuf c+! repeat \ repeat till keybuf count upper ; : get1hexline ( -- ) begin get1line keybuf c@ 0= \ end of file or keybuf 1+ c@ bl <> or \ line starts with non-blank until ; : chartokey ( -- char | -1 = end_of_file) keybuf c@ if keybuf count 2dup bl scan nip - nip keybuf c! keybuf NUMBER drop else PlayClose: self -1 then ; :M PlayKey: ( -- char ) playhndl if get1hexline chartokey else -1 then ;M :M Playing: ( -- f1 ) playhndl 0<> ;M ;Class LogFile key-log-file "KEYS.LOG" defer log-more ' noop is log-more 0 value logging? 0 value ignored-keys \ keys in this counted string are not logged create view-ignored-keys \ list of keys ignored by macro recording 1 c, 'S' +k_control +k_shift , \ stops macro recording, ignore it view-ignored-keys to ignored-keys : F"Log ( -- ) s" Function Key: " "Log: key-log-file ; : log-emit { logChar \ prepad$ -- } 16 LocalAlloc: prepad$ \ a place to save here ignored-keys count logChar lscan nip ?EXIT \ ignore this key and EXIT logging? 0= ?EXIT OpenLog: key-log-file s" 0x" "Log: key-log-file pad 16 - prepad$ 16 move \ save bytes before pad hld @ >r base @ >r HEX logChar 0 (d.) "Log: key-log-file r> base ! r> hld ! prepad$ pad 16 - 16 move \ restore bytes before pad LogTab: key-log-file s" \ " "Log: key-log-file logChar dup 0 +k_Control and if s" Control " "Log: key-log-file 0 +k_Control -1 xor and then dup 0 +k_Shift and if s" Shift " "Log: key-log-file 0 +k_Shift -1 xor and then case k_f1 of F"Log s" F1" "Log: key-log-file endof k_f2 of F"Log s" F2" "Log: key-log-file endof k_f3 of F"Log s" F3" "Log: key-log-file endof k_f4 of F"Log s" F4" "Log: key-log-file endof k_f5 of F"Log s" F5" "Log: key-log-file endof k_f6 of F"Log s" F6" "Log: key-log-file endof k_f7 of F"Log s" F7" "Log: key-log-file endof k_f8 of F"Log s" F8" "Log: key-log-file endof k_f9 of F"Log s" F9" "Log: key-log-file endof k_f11 of F"Log s" F11" "Log: key-log-file endof k_f12 of F"Log s" F12" "Log: key-log-file endof k_left of s" Left" "Log: key-log-file endof k_right of s" Right" "Log: key-log-file endof k_up of s" Up" "Log: key-log-file endof k_down of s" Down" "Log: key-log-file endof k_insert of s" Insert" "Log: key-log-file endof k_Delete of s" Delete" "Log: key-log-file endof k_Home of s" Home" "Log: key-log-file endof k_End of s" End" "Log: key-log-file endof k_PgUp of s" PgUp" "Log: key-log-file endof k_PgDn of s" PgDn" "Log: key-log-file endof k_Esc of s" ESC" "Log: key-log-file endof k_Tab of s" Tab" "Log: key-log-file endof 0x20 of s" Space" "Log: key-log-file endof k_BackSpace of s" BackSpace" "Log: key-log-file endof dup dup bl 1+ < \ if less than printable character if s" CTRL " "Log: key-log-file 0x40 + then dup 0x80 < \ if it is a printable character if \ just put it in the file LogEmit: key-log-file else \ else display as a hex number s" Hex: " "Log: key-log-file pad 16 - prepad$ 16 move hld @ >r base @ >r hex 0 (d.) "Log: key-log-file r> base ! r> hld ! prepad$ pad 16 - 16 move then endcase log-more \ hook for more info in logfile LogCr: key-log-file CloseLog: key-log-file ; : "log ( a1 n1 -- ) logging? if OpenLog: key-log-file LogTab: key-log-file s" \ " "Log: key-log-file "Log: key-log-file s" " "Log: key-log-file get-local-time time-buf dup >date" "Log: key-log-file s" - " "Log: key-log-file >time" "Log: key-log-file LogCr: key-log-file CloseLog: key-log-file else 2drop then ; : log-also ( c1 -- c1 ) dup log-emit ; : logging-on ( -- ) logging? ?exit true to logging? s" Logging ON: " "log ['] log-also is menukey-more ; : logging-off ( -- ) logging? 0= ?exit s" Logging OFF: " "log false to logging? ['] noop is menukey-more ; : new-log ( -- ) NewLog: key-log-file logging-on ; : "new-log ( a1 n1 -- ) "NewLog: key-log-file logging-on ; : play1key ( -- ) key? 0= if PlayKey: key-log-file dup -1 = if drop ['] noop is auto_key \ disable playkey ['] noop is auto_key? \ disable playkey? else pushkey then then ; 0 value play0cnt 50 value playrate : play1key? ( f1 -- f1 ) dup 0= if play0cnt 1 < if play1key playrate 0max to play0cnt else -1 +to play0cnt then then ; : "playkeys ( a1 n1 -- ) logging-off \ disble current logging 0 to play0cnt \ 0x0 pushkey \ kick start playkeys - does nothing in the new console PlayLog: key-log-file ['] play1key is auto_key ['] play1key? is auto_key? play1key ; FileOpenDialog PlayLog "Play Key Log File" "Log Files (*.LOG)|*.LOG|All Files (*.*)|*.*|" FileSaveDialog NewLog "New Log File" "Log Files (*.LOG)|*.LOG|All Files (*.*)|*.*|" \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Macro Functions \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ : replay-macro ( -- ) Playing: key-log-file 0= \ replay only if not already \ playing some keys if GetLogName: key-log-file "playkeys then ; : con-play-macro ( -- ) conhndl Start: PlayLog dup c@ if count "playkeys else drop then ; : con-new-macro ( -- ) conhndl Start: NewLog dup c@ if count "new-log else drop then ; : start/stop-macro ( -- ) logging? if logging-off s" Finished Recording Macro" else new-log s" Starting New KEYS.LOG" then "message 300 ms message-off ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ definer name title prompt ok cancel Option \ text text text text text \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ NewEditDialog RepeatMacroDlg "Repeat Macro" "Repeat Macro how many times:" "" "" "" 0 value #repeating-macro \ In this definition, 'parent' can be either the parent window, or CONHNDL \ in the case of the forth console window : repeat-amacro { parent \ repeat$ -- } MAXSTRING localAlloc: repeat$ #repeating-macro 0= if s" 1" repeat$ place repeat$ dup parent Start: RepeatMacroDlg if count number? 2drop 0max 999 min else drop 0 then to #repeating-macro then #repeating-macro if GetLogName: key-log-file PlayLog: key-log-file begin PlayKey: key-log-file dup -1 <> while pushkey repeat drop #repeating-macro 1- to #repeating-macro #repeating-macro if 'R' +k_control +k_shift pushkey \ repeat cmd then then ; (( \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ paste clipboard into the keyboard \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 0 value paste-ptr 0 value paste-len 0 value paste-off 0 value paste-hdl : macro/paste-close ( -- ) \ turn off macros and paste on error ['] noop is auto_key \ disable playkey ['] noop is auto_key? \ disable playkey? PlayClose: key-log-file paste-hdl 0= ?exit paste-hdl call GlobalUnlock drop \ unlock it, done 0 to paste-hdl \ clear handle Call CloseClipboard ?win-error ; \ close clipboard forth-io-chain chain-add macro/paste-close \ turn off paste on error : paste1key ( -- ) x_key? 0= if paste-off paste-len u< 0= if macro/paste-close else paste-ptr paste-off + c@ \ get next key 1 +to paste-off \ skip paste it dup 0x0D = \ if its CR if 1 +to paste-off \ skip LF then pushkey \ push the key then then ; : paste1key? ( f1 -- f1 ) dup 0= if play0cnt 1 < if paste1key playrate 0max to play0cnt else -1 +to play0cnt then then ; : _paste-load ( -- ) \ *G Copy text from the clipboard to the console window and compile it. conhndl call OpenClipboard 0= if beep else CF_TEXT call GetClipboardData ?dup if dup to paste-hdl call GlobalLock dup to paste-ptr \ lock memory 0= if call CloseClipboard drop exit then paste-ptr zcount nip dup to paste-len \ get len if 0 to paste-off 0 to play0cnt 0x0 pushkey \ kick start playkeys ['] paste1key is auto_key ['] paste1key? is auto_key? paste1key else beep 0 to paste-ptr 0 to paste-len 0 to paste-off paste-hdl call GlobalUnlock drop \ unlock it, done call CloseClipboard ?win-error then \ cleanup for clipboard else beep Call CloseClipboard ?win-error then then ; ' _paste-load is paste-load : copy_console { \ gblhndl gblptr b/l l/s len -- } \ *G Copy text to Windows clipboard marked? 0= if beep EXIT then conhndl call OpenClipboard 0= if beep else getmaxcolrow to l/s \ lines per screen (really total) to b/l \ bytes per line b/l 2 + l/s * 2 cells + \ max buffer size needed GMEM_MOVEABLE GMEM_DDESHARE or \ flags call GlobalAlloc to gblhndl \ allocate a buffer gblhndl call GlobalLock to gblptr \ lock memory getxy nip getrowoff + l/s min to l/s \ adjust to lines needed 0 to len l/s 0 ?do i mkstlin mkedlin between \ if its a line we want if i mkstlin = if i b/l * &the-screen + i mkedlin = if b/l -trailing mkedcol min mkstcol /string >r gblptr len + r@ move \ append text r> +to len \ adjust length else b/l mkstcol /string -trailing >r gblptr len + r@ move \ append text r> +to len \ adjust length crlf$ count \ srlf string gblptr len + swap move \ append crlf 2 +to len \ adjust length then else i mkedlin = if i b/l * &the-screen + mkedcol b/l min -trailing >r gblptr len + r@ move \ append text r> +to len \ adjust length else i b/l * &the-screen + \ the line b/l -trailing >r \ remove extra spaces gblptr len + r@ move \ append text r> +to len \ adjust length crlf$ count \ srlf string gblptr len + swap move \ append crlf 2 +to len \ adjust length then then then loop gblptr len + off \ null terminate buffer gblhndl call GlobalUnlock drop \ unlock the buffer call EmptyClipboard ?win-error \ clear out the clipboard \ pass to windows gblhndl CF_TEXT call SetClipboardData ?win-error call CloseClipboard ?win-error then ; : cut_console ( -- ) \ *G Cut the complete text from the console window to the clipboard. marked? if beep else mark_all copy_console cls then ; )) MODULE \ finish up the module Index: ExtendNew.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/ExtendNew.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** ExtendNew.f 25 Jul 2008 03:53:22 -0000 1.6 --- ExtendNew.f 6 Aug 2008 18:23:46 -0000 1.7 *************** *** 1,3 **** ! \ ExtendNew.f Extend the kernel with the new console \ ( ******** ) files to be removed later --- 1,4 ---- ! \ $Id$ ! \ Extend the kernel with the new console \ ( ******** ) files to be removed later *************** *** 81,84 **** --- 82,86 ---- FLOAD src\console\forthdlg.f \ some dialogs for the console \ ( ******** ) FLOAD src\keysave.f \ keyboard macro recording + FLOAD src\KeySaveNew.f \ keyboard macro recording for the new console FLOAD src\tools\tools.f \ load various tool's when they are needed FLOAD src\lib\LoadProject.f \ Loads the latest known project |
|
From: Rod O. <rod...@us...> - 2008-08-06 18:20:41
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv904 Modified Files: ConsoleMenuNew.f Log Message: Rod: Keyboard Macros are now supported if KeySaveNew.f is loaded in ExtendNew.f Index: ConsoleMenuNew.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/ConsoleMenuNew.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ConsoleMenuNew.f 18 Jul 2008 19:45:30 -0000 1.1 --- ConsoleMenuNew.f 6 Aug 2008 18:20:37 -0000 1.2 *************** *** 255,259 **** MENULINE "D&fc - File comparison utility" ".Dfc" MENULINE "Dump Top-Level-&Windows" ".Windows" ! (( POPUP "&Macros" MENUITEM "&New Key Recording File..." con-new-macro ; --- 255,259 ---- MENULINE "D&fc - File comparison utility" ".Dfc" MENULINE "Dump Top-Level-&Windows" ".Windows" ! [DEFINED] con-new-macro [IF] POPUP "&Macros" MENUITEM "&New Key Recording File..." con-new-macro ; *************** *** 264,268 **** MENUITEM "RePlay &Last Key File \tCtrl+Shft+M" replay-macro ; MENUITEM "&Repeat Key File 'n' times..\tCtrl+Shft+R" conhndl repeat-amacro ; ! )) POPUP "&Help" MENUITEM "Win32Forth &Documentation\tF1" F1-doc ; --- 264,268 ---- MENUITEM "RePlay &Last Key File \tCtrl+Shft+M" replay-macro ; MENUITEM "&Repeat Key File 'n' times..\tCtrl+Shft+R" conhndl repeat-amacro ; ! [THEN] POPUP "&Help" MENUITEM "Win32Forth &Documentation\tF1" F1-doc ; |
|
From: Rod O. <rod...@us...> - 2008-08-06 18:19:58
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv460 Modified Files: CommandWindow.f NewConsole.f Log Message: Rod: Keyboard Macros are now supported if KeySaveNew.f is loaded in ExtendNew.f Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** NewConsole.f 4 Aug 2008 09:05:07 -0000 1.9 --- NewConsole.f 6 Aug 2008 18:19:53 -0000 1.10 *************** *** 170,173 **** --- 170,174 ---- ; + (( : PauseForMessage { | pMsg -- } \ instead of "Winpause" 7 cells LocalAlloc: pMsg *************** *** 182,186 **** REPEAT ; ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 183,187 ---- REPEAT ; ! )) \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 225,229 **** VisibleCols: cmd dup to w cmd.X - to n1 ! WrapText OverwriteTextAtXY: cmd ; \ : c_type ( a n -- ) OverwriteTextAtXY: cmd ; --- 226,230 ---- VisibleCols: cmd dup to w cmd.X - to n1 ! WrapText OverwriteTextAtXY: cmd PauseForMessages ; \ : c_type ( a n -- ) OverwriteTextAtXY: cmd ; *************** *** 235,238 **** --- 236,241 ---- : c_getxy ( -- x y ) GetXY: cmd ; : c_gotoxy ( -- x y ) GoToXY: cmd ; + internal + external 0 value entered *************** *** 242,253 **** Prompt: cmd false to entered ! \ BEGIN GetKey: cmd HandleChar: cmd WaitForMessage entered UNTIL ! \ BEGIN KeyBufferEmpty: cmd IF call WaitMessage drop ELSE GetKey: cmd HandleChar: cmd THEN PauseForMessages entered UNTIL ! BEGIN cmd.VirtualKey ?dup IF HandleChar: cmd 0 SetVirtualKey: cmd ! ELSE KeyBufferEmpty: cmd IF call WaitMessage drop ELSE GetKey: cmd HandleChar: cmd THEN THEN PauseForMessages entered UNTIL EnteredString >r swap r@ move r> ; ! : AcceptCommand ( a n -- ) to EnteredString true to entered 0 0 0 0 call PostMessage drop ; ' AcceptCommand SetAction: cmd --- 245,261 ---- Prompt: cmd false to entered ! BEGIN auto_key cmd.VirtualKey ?dup ! IF 0 SetVirtualKey: cmd HandleChar: cmd ! ELSE ! KeyBufferEmpty: cmd ! IF call WaitMessage drop ! ELSE GetKey: cmd HandleChar: cmd ! THEN ! THEN ! PauseForMessages entered auto_key? UNTIL EnteredString >r swap r@ move r> ; ! : AcceptCommand ( a n -- ) to EnteredString true to entered ; ' AcceptCommand SetAction: cmd *************** *** 269,276 **** : c_key ( -- c ) \ keys from WM_KEYDOWN as well 1 SetMaxChars: cmd Prompt: cmd ! KeyBufferEmpty: cmd IF BEGIN KeysOff: cmd WaitForMessage c_key? UNTIL THEN ! cmd.VirtualKey ?dup 0= IF GetKey: cmd THEN EndPrompt: cmd ; --- 277,285 ---- : c_key ( -- c ) \ keys from WM_KEYDOWN as well + auto_key 1 SetMaxChars: cmd Prompt: cmd ! KeyBufferEmpty: cmd IF BEGIN KeysOff: cmd WaitForMessage c_key? auto_key? UNTIL THEN ! cmd.VirtualKey ?dup 0= IF GetKey: cmd ELSE 0 SetVirtualKey: cmd THEN EndPrompt: cmd ; *************** *** 310,315 **** Black White c_FGBG! - internal - external : K_NOOP0 2DROP 0 ; : K_NOOP1 0 ; --- 319,322 ---- *************** *** 367,371 **** ; ! :noname ( c -- ) Case 'O' +k_control of edit-forth endof --- 374,378 ---- ; ! :noname ( n -- ) Case 'O' +k_control of edit-forth endof *************** *** 374,384 **** 'P' +k_control of print-screen endof 'D' +k_control of ChdirDlg endof ! \ 'M' +k_control +k_shift of replay-macro endof ! \ 'R' +k_control +k_shift of CONHNDL repeat-amacro endof ! \ 'S' +k_control +k_shift of start/stop-macro endof ( default ) \ swap drop EndCase ! ; is HandleChar ! :noname ( c -- ) ?shift ?control or --- 381,396 ---- 'P' +k_control of print-screen endof 'D' +k_control of ChdirDlg endof ! [DEFINED] replay-macro [IF] ! 'M' +k_control +k_shift of replay-macro endof ! 'R' +k_control +k_shift of CONHNDL repeat-amacro endof ! 'S' +k_control +k_shift of start/stop-macro endof ! [THEN] ! k_F1 of F1-doc endof ! \ k_F2 of F2-help endof ! k_F12 of LoadProject endof ( default ) \ swap drop EndCase ! ; is HandleKeys ! (( :noname ( c -- ) ?shift ?control or *************** *** 386,398 **** ELSE Case ! VK_F1 of F1-doc endof \ VK_F2 of F2-help endof ! VK_F12 of LoadProject endof ! ( default ) \ swap drop EndCase THEN ; is HandleKeyDown ! ! \ ' menukey-more is LogKeyStrokes : New-default-hello ( -- ) \ for turnkey --- 398,410 ---- ELSE Case ! \ VK_F1 of F1-doc endof \ VK_F2 of F2-help endof ! \ VK_F12 of LoadProject endof ! \ ( default ) \ swap drop EndCase THEN ; is HandleKeyDown ! )) ! ' menukey-more is LogKeyStrokes : New-default-hello ( -- ) \ for turnkey Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** CommandWindow.f 4 Aug 2008 09:04:06 -0000 1.8 --- CommandWindow.f 6 Aug 2008 18:19:53 -0000 1.9 *************** *** 19,23 **** \ s" Terminal" SetFaceName: CommandFont \ Optional choise ! defer HandleChar defer HandleKeyDown defer LogKeyStrokes --- 19,23 ---- \ s" Terminal" SetFaceName: CommandFont \ Optional choise ! defer HandleKeys defer HandleKeyDown defer LogKeyStrokes *************** *** 83,99 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ \\\\\ Type ahead circular Key Buffer \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 256 bytes KeyBuffer byte head ! byte tail ! :M EmptyKeyBuffer: ( -- ) head to tail ;M ! :M KeyBufferEmpty: ( -- f ) head tail = ;M :M PutKey: ( c -- ) \ as long as key buffer is not full ! head 1+ tail = IF drop beep ELSE KeyBuffer head + c! head 1+ to head --- 83,99 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ \\\\\ Type ahead Key Buffer \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 256 bytes KeyBuffer byte head ! \ byte tail ! :M EmptyKeyBuffer: ( -- ) 0 to head ;M ! :M KeyBufferEmpty: ( -- f ) head 0= ;M :M PutKey: ( c -- ) \ as long as key buffer is not full ! head 255 = IF drop beep ELSE KeyBuffer head + c! head 1+ to head *************** *** 103,110 **** KeyBufferEmpty: self IF 0 ! ELSE KeyBuffer tail + c@ 1 +to tail THEN ;M ! :M KeyString: ( -- a n ) KeyBuffer tail + head tail - ;M \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 103,110 ---- KeyBufferEmpty: self IF 0 ! ELSE KeyBuffer c@ KeyBuffer dup 1+ swap 255 move head 1- to head THEN ;M ! :M KeyString: ( -- a n ) KeyBuffer head ;M \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 1074,1078 **** 27 of DeleteCommand: self InitHistory endof 127 of DeleteForward: self endof ! ( default ) dup dup 32 256 within IF emit: self ELSE HandleChar THEN EndCase ;M --- 1074,1078 ---- 27 of DeleteCommand: self InitHistory endof 127 of DeleteForward: self endof ! ( default ) dup dup 32 256 within IF emit: self ELSE HandleKeys THEN EndCase ;M *************** *** 1133,1138 **** VK_PRIOR of 0x20010 endof VK_NEXT of 0x20011 endof - \ VK_SHIFT of 0x00000 endof - \ VK_CONTROL of 0x00000 endof ( default ) 0 swap EndCase --- 1133,1136 ---- *************** *** 1142,1146 **** VK_SHIFT call GetKeyState 32768 and IF 0x80000 or THEN THEN ! dup IF LogKeyStrokes THEN to VirtualKey 0 ;M --- 1140,1144 ---- VK_SHIFT call GetKeyState 32768 and IF 0x80000 or THEN THEN ! dup IF LogKeyStrokes KeysOn IF dup HandleKeys THEN THEN to VirtualKey 0 ;M *************** *** 1159,1163 **** 100000 to MaxText 0 to head ! 0 to tail 1 to CaretWidth 13 to CaretHeight --- 1157,1161 ---- 100000 to MaxText 0 to head ! \ 0 to tail 1 to CaretWidth 13 to CaretHeight *************** *** 1198,1201 **** ;Class ! ' drop is HandleChar ' drop is HandleKeyDown --- 1196,1199 ---- ;Class ! ' drop is HandleKeys ' drop is HandleKeyDown |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-04 13:41:06
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23015 Added Files: sqlite3.def Log Message: Jos: Update from Tom Dixon --- NEW FILE: sqlite3.def --- EXPORTS sqlite3_aggregate_context sqlite3_aggregate_count sqlite3_auto_extension sqlite3_bind_blob sqlite3_bind_double sqlite3_bind_int sqlite3_bind_int64 sqlite3_bind_null sqlite3_bind_parameter_count sqlite3_bind_parameter_index sqlite3_bind_parameter_name sqlite3_bind_text sqlite3_bind_text16 sqlite3_bind_value sqlite3_bind_zeroblob sqlite3_blob_bytes sqlite3_blob_close sqlite3_blob_open sqlite3_blob_read sqlite3_blob_write sqlite3_busy_handler sqlite3_busy_timeout sqlite3_changes sqlite3_clear_bindings sqlite3_close sqlite3_collation_needed sqlite3_collation_needed16 sqlite3_column_blob sqlite3_column_bytes sqlite3_column_bytes16 sqlite3_column_count sqlite3_column_decltype sqlite3_column_decltype16 sqlite3_column_double sqlite3_column_int sqlite3_column_int64 sqlite3_column_name sqlite3_column_name16 sqlite3_column_text sqlite3_column_text16 sqlite3_column_type sqlite3_column_value sqlite3_commit_hook sqlite3_complete sqlite3_complete16 sqlite3_config sqlite3_context_db_handle sqlite3_create_collation sqlite3_create_collation16 sqlite3_create_collation_v2 sqlite3_create_function sqlite3_create_function16 sqlite3_create_module sqlite3_create_module_v2 sqlite3_data_count sqlite3_db_handle sqlite3_declare_vtab sqlite3_enable_load_extension sqlite3_enable_shared_cache sqlite3_errcode sqlite3_errmsg sqlite3_errmsg16 sqlite3_exec sqlite3_expired sqlite3_extended_result_codes sqlite3_file_control sqlite3_finalize sqlite3_free sqlite3_free_table sqlite3_get_autocommit sqlite3_get_auxdata sqlite3_get_table sqlite3_global_recover sqlite3_initialize sqlite3_interrupt sqlite3_last_insert_rowid sqlite3_libversion sqlite3_libversion_number sqlite3_limit sqlite3_load_extension sqlite3_malloc sqlite3_memory_alarm sqlite3_memory_highwater sqlite3_memory_used sqlite3_mprintf sqlite3_mutex_alloc sqlite3_mutex_enter sqlite3_mutex_free sqlite3_mutex_leave sqlite3_mutex_try sqlite3_next_stmt sqlite3_open sqlite3_open16 sqlite3_open_v2 sqlite3_os_end sqlite3_os_init sqlite3_overload_function sqlite3_prepare sqlite3_prepare16 sqlite3_prepare16_v2 sqlite3_prepare_v2 sqlite3_profile sqlite3_progress_handler sqlite3_randomness sqlite3_realloc sqlite3_release_memory sqlite3_reset sqlite3_reset_auto_extension sqlite3_result_blob sqlite3_result_double sqlite3_result_error sqlite3_result_error16 sqlite3_result_error_code sqlite3_result_error_nomem sqlite3_result_error_toobig sqlite3_result_int sqlite3_result_int64 sqlite3_result_null sqlite3_result_text sqlite3_result_text16 sqlite3_result_text16be sqlite3_result_text16le sqlite3_result_value sqlite3_result_zeroblob sqlite3_rollback_hook sqlite3_set_authorizer sqlite3_set_auxdata sqlite3_shutdown sqlite3_sleep sqlite3_snprintf sqlite3_soft_heap_limit sqlite3_sql sqlite3_status sqlite3_step sqlite3_test_control sqlite3_thread_cleanup sqlite3_threadsafe sqlite3_total_changes sqlite3_trace sqlite3_transfer_bindings sqlite3_update_hook sqlite3_user_data sqlite3_value_blob sqlite3_value_bytes sqlite3_value_bytes16 sqlite3_value_double sqlite3_value_int sqlite3_value_int64 sqlite3_value_numeric_type sqlite3_value_text sqlite3_value_text16 sqlite3_value_text16be sqlite3_value_text16le sqlite3_value_type sqlite3_version sqlite3_vfs_find sqlite3_vfs_register sqlite3_vfs_unregister sqlite3_vmprintf |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-04 13:40:25
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22973 Modified Files: SQLite.F Log Message: Jos: Update from Tom Dixon Index: SQLite.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/SQLite.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** SQLite.F 26 May 2007 10:06:10 -0000 1.1 --- SQLite.F 4 Aug 2008 13:40:22 -0000 1.2 *************** *** 52,74 **** \ DataTypes ! 1 constant SQLITE_INTEGER ! 2 constant SQLITE_FLOAT ! 3 constant SQLITE_TEXT ! 4 constant SQLITE_BLOB ! 5 constant SQLITE_NULL ! ! variable SQLITE_STATIC 0 SQLITE_STATIC ! ! variable SQLITE_TRANSIENT -1 SQLITE_TRANSIENT ! :class SQLiteDB <SUPER Object \ *G SQLiteDB is an interface to SQLite. - CELL bytes dbhndl CELL bytes stmt - CELL bytes tail int lasterr - int sstate int #args 256 bytes tstr --- 52,70 ---- \ DataTypes ! 1 constant SQLITE_INTEGER ! 2 constant SQLITE_FLOAT ! 3 constant SQLITE_TEXT ! 4 constant SQLITE_BLOB ! 5 constant SQLITE_NULL ! 0 constant SQLITE_STATIC ! -1 constant SQLITE_TRANSIENT :class SQLiteDB <SUPER Object \ *G SQLiteDB is an interface to SQLite. CELL bytes dbhndl CELL bytes stmt int lasterr int #args 256 bytes tstr *************** *** 99,110 **** \ ** the same object after closing, if desired. stmt @ if ! stmt call sqlite3_finalize drop SQLOK: self ERR: self ! 0 stmt ! 0 to sstate then dbhndl @ if dbhndl @ call sqlite3_close SQLOK: self drop 0 dbhndl ! ERR: self ! then ;M :M ~: ( -- ) Close: self ;M --- 95,106 ---- \ ** the same object after closing, if desired. stmt @ if ! stmt @ call sqlite3_finalize nip SQLOK: self ERR: self ! 0 stmt ! then dbhndl @ if dbhndl @ call sqlite3_close SQLOK: self drop 0 dbhndl ! ERR: self ! then false ;M :M ~: ( -- ) Close: self ;M *************** *** 120,128 **** :M (Execute): ( str len -- ) stmt @ if ! stmt call sqlite3_finalize drop SQLOK: self ERR: self ! 0 stmt ! 0 to sstate then ! tail stmt 2swap swap dbhndl @ call sqlite3_prepare_v2 SQLOK: self ERR: self --- 116,124 ---- :M (Execute): ( str len -- ) stmt @ if ! stmt @ call sqlite3_finalize nip SQLOK: self ERR: self ! 0 stmt ! then ! 0 stmt 2swap swap dbhndl @ call sqlite3_prepare_v2 SQLOK: self ERR: self *************** *** 135,140 **** stmt @ call sqlite3_bind_parameter_count nip dup to #args if exitm then ! begin (Step): self 5 = while ! drop 1 ms repeat ;M :M Requery: ( -- ) --- 131,136 ---- stmt @ call sqlite3_bind_parameter_count nip dup to #args if exitm then ! begin (Step): self dup 5 = while ! drop 1 ms repeat SQLOK: self ERR: self ;M :M Requery: ( -- ) *************** *** 195,200 **** :M (Bind): ( -- ) #args 0= if ! begin (Step): self 5 = while ! drop 1 ms repeat then ;M --- 191,196 ---- :M (Bind): ( -- ) #args 0= if ! begin (Step): self dup 5 = while ! drop 1 ms repeat SQLOK: self ERR: self then ;M |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-04 13:39:41
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22546 Modified Files: sqlite3.dll Log Message: Jos: Update from Tom Dixon Index: sqlite3.dll =================================================================== RCS file: /cvsroot/win32forth/win32forth/sqlite3.dll,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsdMdI29 and /tmp/cvsFyIc0G differ |
|
From: Rod O. <rod...@us...> - 2008-08-04 09:05:16
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv849 Modified Files: NewConsole.f Log Message: Rod: fixed problems with caret in WinEd - the new console was setting the caret position even when it was hidden. Also some changes for KeySave to work. Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** NewConsole.f 25 Jul 2008 04:03:32 -0000 1.8 --- NewConsole.f 4 Aug 2008 09:05:07 -0000 1.9 *************** *** 52,55 **** --- 52,56 ---- : SaveWindowSettings ( -- ) + PROGREG-INIT StartPos: self s" WindowTop" SetRegValue s" WindowLeft" SetRegValue StartSize: self s" WindowHeight" SetRegValue s" WindowWidth" SetRegValue *************** *** 242,246 **** false to entered \ BEGIN GetKey: cmd HandleChar: cmd WaitForMessage entered UNTIL ! BEGIN KeyBufferEmpty: cmd IF call WaitMessage drop ELSE GetKey: cmd HandleChar: cmd THEN PauseForMessages entered UNTIL EnteredString >r swap r@ move r> ; --- 243,249 ---- false to entered \ BEGIN GetKey: cmd HandleChar: cmd WaitForMessage entered UNTIL ! \ BEGIN KeyBufferEmpty: cmd IF call WaitMessage drop ELSE GetKey: cmd HandleChar: cmd THEN PauseForMessages entered UNTIL ! BEGIN cmd.VirtualKey ?dup IF HandleChar: cmd 0 SetVirtualKey: cmd ! ELSE KeyBufferEmpty: cmd IF call WaitMessage drop ELSE GetKey: cmd HandleChar: cmd THEN THEN PauseForMessages entered UNTIL EnteredString >r swap r@ move r> ; *************** *** 371,374 **** --- 374,380 ---- 'P' +k_control of print-screen endof 'D' +k_control of ChdirDlg endof + \ 'M' +k_control +k_shift of replay-macro endof + \ 'R' +k_control +k_shift of CONHNDL repeat-amacro endof + \ 'S' +k_control +k_shift of start/stop-macro endof ( default ) \ swap drop EndCase *************** *** 388,392 **** ; is HandleKeyDown ! : New-default-hello ( -- ) \ startup stuff initialization-chain do-chain exception@ if bye then --- 394,400 ---- ; is HandleKeyDown ! \ ' menukey-more is LogKeyStrokes ! ! : New-default-hello ( -- ) \ for turnkey initialization-chain do-chain exception@ if bye then *************** *** 397,400 **** --- 405,410 ---- ' New-default-hello is default-hello + MODULE + |
|
From: Rod O. <rod...@us...> - 2008-08-04 09:04:12
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv438 Modified Files: CommandWindow.f Log Message: Rod: fixed problems with caret in WinEd - the new console was setting the caret position even when it was hidden. Also some changes for KeySave to work. Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** CommandWindow.f 21 Jul 2008 20:16:22 -0000 1.7 --- CommandWindow.f 4 Aug 2008 09:04:06 -0000 1.8 *************** *** 21,24 **** --- 21,25 ---- defer HandleChar defer HandleKeyDown + defer LogKeyStrokes *************** *** 399,405 **** CaretPos.top CaretPos.left call SetCaretPos drop ShowCaret: self ;M ! :M DestroyCaret: ( -- ) HideCaret: self call DestroyCaret drop ;M :M SetCaret: ( w h -- ) --- 400,407 ---- CaretPos.top CaretPos.left call SetCaretPos drop ShowCaret: self + true to cursor-on? ;M ! :M DestroyCaret: ( -- ) HideCaret: self call DestroyCaret drop false to cursor-on? ;M :M SetCaret: ( w h -- ) *************** *** 413,419 **** :M SmallCursor: ( -- ) 1 VertLine SetCaret: self ;M ! :M On_SetFocus: ( h m w l -- ) CreateCaret: self ;M ! :M On_KillFocus: ( h m w l -- ) DestroyCaret: self ;M : ColRow>xy ( col row -- x y ) \ needs dc --- 415,421 ---- :M SmallCursor: ( -- ) 1 VertLine SetCaret: self ;M ! :M On_SetFocus: ( h m w l -- ) CreateCaret: self true to have-focus? ;M ! :M On_KillFocus: ( h m w l -- ) DestroyCaret: self false to have-focus? ;M : ColRow>xy ( col row -- x y ) \ needs dc *************** *** 428,432 **** SelEndX SelEndY ScrollAdjust \ as long as SetSelectionStart is done first dup VertLine + width swap SetRect: CaretPos ! CaretPos.top CaretPos.left call SetCaretPos drop ; --- 430,434 ---- SelEndX SelEndY ScrollAdjust \ as long as SetSelectionStart is done first dup VertLine + width swap SetRect: CaretPos ! cursor-on? IF CaretPos.top CaretPos.left call SetCaretPos drop THEN ; *************** *** 1077,1083 **** :M WM_CHAR ( h m w l -- res ) ! over KeysOn IF HandleChar: self ! ELSE dup 27 = IF true to Abort? THEN PutKey: self THEN \ drop false to Abort? --- 1079,1088 ---- :M WM_CHAR ( h m w l -- res ) ! over \ if CTRL and Shift pressed add in shift bits ! VK_CONTROL call GetKeyState 32768 and IF VK_SHIFT call GetKeyState 32768 and IF 0x80000 or THEN THEN ! LogKeyStrokes \ deferred, ' menukey-more is LogKeyStrokes for KeySave ! KeysOn IF HandleChar: self ! ELSE dup 27 = IF true to Abort? THEN dup 256 < IF PutKey: self ELSE SetVirtualKey: self THEN THEN \ drop false to Abort? *************** *** 1098,1106 **** ( default case) dup 0 rot ENDCASE ! 0 -rot ?dup IF hWnd send-window ELSE HandleKeyDown 2drop THEN ;M :M WM_KEYDOWN ( h m w l -- res ) ! over KeysOn IF HandleKeyDown: self 0 THEN Case \ these are the codes specified in keyboard.cpp VK_F1 of 0x10001 endof --- 1103,1111 ---- ( default case) dup 0 rot ENDCASE ! ?dup IF 0 -rot hWnd send-window ELSE HandleKeyDown THEN ;M :M WM_KEYDOWN ( h m w l -- res ) ! over KeysOn IF dup HandleKeyDown: self THEN Case \ these are the codes specified in keyboard.cpp VK_F1 of 0x10001 endof *************** *** 1128,1131 **** --- 1133,1138 ---- VK_PRIOR of 0x20010 endof VK_NEXT of 0x20011 endof + \ VK_SHIFT of 0x00000 endof + \ VK_CONTROL of 0x00000 endof ( default ) 0 swap EndCase *************** *** 1135,1138 **** --- 1142,1146 ---- VK_SHIFT call GetKeyState 32768 and IF 0x80000 or THEN THEN + dup IF LogKeyStrokes THEN to VirtualKey 0 ;M *************** *** 1182,1186 **** :M On_Init: ( -- ) MaxText malloc to text text MaxText 45 fill 0 text c! \ text MaxText erase ! CommandFont SetFont: self CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop WHITE_BRUSH Call GetStockObject GCL_HBRBACKGROUND hWnd Call SetClassLong drop --- 1190,1195 ---- :M On_Init: ( -- ) MaxText malloc to text text MaxText 45 fill 0 text c! \ text MaxText erase ! CommandFont SetFont: self \ this creates a caret in BigCursor: self ! DestroyCaret: self \ no caret until command window gets the focus CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop WHITE_BRUSH Call GetStockObject GCL_HBRBACKGROUND hWnd Call SetClassLong drop |
|
From: O'Dwyer K. <pel...@xe...> - 2008-08-03 20:44:50
|
Ni hao, |
|
From: Rod O. <rod...@us...> - 2008-08-02 15:56:01
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21926 Modified Files: Ed_MenuFuncs.F Log Message: Rod: corrected stack at line 508 - defined "playkeys nip [IF] Index: Ed_MenuFuncs.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_MenuFuncs.F,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Ed_MenuFuncs.F 25 Jul 2008 21:19:20 -0000 1.6 --- Ed_MenuFuncs.F 2 Aug 2008 15:55:58 -0000 1.7 *************** *** 506,510 **** THEN SetFocus: DocWindow ; ! defined "playkeys [IF] : play-macro ( -- ) --- 506,510 ---- THEN SetFocus: DocWindow ; ! defined "playkeys nip [IF] : play-macro ( -- ) |
|
From: Rod O. <rod...@us...> - 2008-08-02 15:45:52
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18012 Modified Files: WinEd.f Log Message: Rod: added new default-hello to make Wined compatable with the new console Index: WinEd.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** WinEd.f 25 Jul 2008 21:19:20 -0000 1.18 --- WinEd.f 2 Aug 2008 15:45:48 -0000 1.19 *************** *** 65,78 **** : Edit-init ( -- xxx ) - (( [DEFINED] M_INIT-CONSOLE not [IF] - initialization-chain do-chain - init-console drop - exception@ if bye then - unset-except set-except \ exception handling needs to be set after the console is started - menu-off \ close menubar - HideStatusBar: ConsoleWindow \ close the statusbar - \ set-console-title \ set window title - \ get-commandline - [THEN] )) ['] view-before-bye is before-bye \ called by WM_CLOSE ['] viewbye is bye --- 65,68 ---- *************** *** 128,131 **** --- 118,136 ---- EXIT ; + [DEFINED] C_EMIT [IF] \ When the new console is used + : New-default-hello ( -- ) \ startup stuff + initialization-chain do-chain + NewConsole + init-console drop \ start console hidden + \ init-screen \ start console visible + exception@ if bye then + unset-except set-except \ exception handling needs to be set after the console is started + exception@ if bye then + \ get-commandline \ commandline to SOURCE + default-application + ; + + ' New-default-hello is default-hello + [THEN] \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-02 14:47:44
|
Update of /cvsroot/win32forth/win32forth/src/res In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25220 Removed Files: HAND.CUR HARROW.CUR MAGNIFY.CUR SPLITH.CUR SPLITV.CUR Log Message: Jos: Have been placed in the Win32Forth directory for the use in Wined. --- SPLITV.CUR DELETED --- --- SPLITH.CUR DELETED --- --- HAND.CUR DELETED --- --- MAGNIFY.CUR DELETED --- --- HARROW.CUR DELETED --- |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-02 14:44:56
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23992 Added Files: HARROW.CUR MAGNIFY.CUR SPLITH.CUR SPLITV.CUR Log Message: Jos: Needed in the root for WinEd. --- NEW FILE: SPLITV.CUR --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SPLITH.CUR --- (This appears to be a binary file; contents omitted.) --- NEW FILE: MAGNIFY.CUR --- (This appears to be a binary file; contents omitted.) --- NEW FILE: HARROW.CUR --- (This appears to be a binary file; contents omitted.) |
1040 messages has been excluded from this view by a project administrator.
