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-02 13:16:45
|
Update of /cvsroot/win32forth/win32forth/src/res In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17788 Added Files: HAND.CUR HARROW.CUR MAGNIFY.CUR SPLITH.CUR SPLITV.CUR Log Message: Jos: Needed for the redifined cursor part. --- 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: HAND.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.) |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-02 13:07:37
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv14109 Added Files: HAND.CUR Log Message: Jos: Needed in the root for the IDE during runtime. As soon as you change it's location and change the path in the IDE you get all kinds of problems. --- NEW FILE: HAND.CUR --- (This appears to be a binary file; contents omitted.) |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-02 13:03:39
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11914 Modified Files: Utils.f Log Message: Jos: Redefined the cursor part. Index: Utils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** Utils.f 30 Jul 2008 11:02:27 -0000 1.19 --- Utils.f 2 Aug 2008 13:03:35 -0000 1.20 *************** *** 577,587 **** EXTERNAL ! : make-cursor ( cursor_constant appinst -- ) create , , ! does> dup cell+ @ swap @ ! if z" w32fConsole.dll" Call GetModuleHandle ! else NULL ! then Call LoadCursor ! Call SetCursor drop ; \ Standard Win32 API Cursors --- 577,595 ---- EXTERNAL ! : make-cursor ( cursor_constant|z.cur-adr usingCURfile -- ) ! \ *G Enables various shapes of the mouse. ! \ ** When a *.cur file is used the file must be in the search path ! \ ** of the application. ! \ ** When you have NT or better you could use resources.f create , , ! does> dup cell+ @ swap @ \ Runtime: ( - ) ! if dup>r call LoadCursorFromFile dup 0= ! if r> z" Can not find file:" ! [ MB_TASKMODAL MB_ICONSTOP or ] literal ! NULL MessageBox 2drop abort ! else r>drop ! then ! else NULL Call LoadCursor ! then Call SetCursor drop ; \ Standard Win32 API Cursors *************** *** 605,616 **** sys-FLOAD src\res\resforth.h \ load the headerfile with a few constants ! winver win95 > [IF] : hand-cursor ( - ) 32649 set-pointer ; ! [ELSE] IDC_HAND TRUE make-cursor hand-cursor ! [THEN] - IDC_SPLITV TRUE make-cursor splitv-cursor - IDC_SPLITH TRUE make-cursor splith-cursor - IDC_MAGNIFY TRUE make-cursor magnify-cursor - IDC_HARROW TRUE make-cursor harrow-cursor \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 613,622 ---- sys-FLOAD src\res\resforth.h \ load the headerfile with a few constants ! here z," HAND.CUR" TRUE make-cursor hand-cursor ! here z," SPLITV.CUR" TRUE make-cursor splitv-cursor ! here z," SPLITH.CUR" TRUE make-cursor splith-cursor ! here z," MAGNIFY.CUR" TRUE make-cursor magnify-cursor ! here z," HARROW.CUR" TRUE make-cursor harrow-cursor \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ |
|
From: Jos v.d.V. <jo...@us...> - 2008-08-02 10:16:55
|
Update of /cvsroot/win32forth/win32forth/apps/Chess In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15140 Modified Files: Oglwin.f Opengl.f Log Message: Jos: Now it can also be used with the new console. Index: Opengl.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/Opengl.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Opengl.f 29 Jun 2008 19:49:30 -0000 1.5 --- Opengl.f 2 Aug 2008 10:16:51 -0000 1.6 *************** *** 184,188 **** needs Resources.f needs AcceleratorTables.f ! needs NoConsole.f needs struct.f \ For the use of C-like structures. --- 184,189 ---- needs Resources.f needs AcceleratorTables.f ! ! z" w32fConsole.dll" Call GetModuleHandle [IF] needs NoConsole.f [THEN] needs struct.f \ For the use of C-like structures. *************** *** 801,805 **** : reset-opengl ( - ) \ cleanup OpenGL ! release-context glin ; : display-it ( - ) reset-opengl winpause painting ; --- 802,806 ---- : reset-opengl ( - ) \ cleanup OpenGL ! release-context glin ; : display-it ( - ) reset-opengl winpause painting ; Index: Oglwin.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/Oglwin.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Oglwin.f 29 Jun 2008 19:49:30 -0000 1.4 --- Oglwin.f 2 Aug 2008 10:16:51 -0000 1.5 *************** *** 89,93 **** :M WindowStyle: ( -- style ) WindowStyle ;M :M On_Init: ( -- ) On_Init: super ;M ! :M WM_KEYDOWN ( key l -- res ) drop key-event 0 ;M --- 89,93 ---- :M WindowStyle: ( -- style ) WindowStyle ;M :M On_Init: ( -- ) On_Init: super ;M ! :M WM_KEYDOWN ( key l -- res ) drop key-event 0 ;M *************** *** 153,159 **** ' cls-openGL is painting - : MsgLoop ( -- ) start-opengl begin MessageLoop again ; ! \IN-SYSTEM-OK : StandaloneApp ( - ) NoConsoleIO NoConsoleInImage ; \s --- 153,163 ---- ' cls-openGL is painting ! z" w32fConsole.dll" Call GetModuleHandle [IF] ! \IN-SYSTEM-OK : StandaloneApp ( - ) NoConsoleIO NoConsoleInImage ; ! [ELSE] : StandaloneApp ( - ) ; ! [THEN] ! ! : MsgLoop ( -- ) start-opengl begin MessageLoop again ; \s |
|
From: Jos v.d.V. <jo...@us...> - 2008-07-30 11:02:37
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23105 Modified Files: Utils.f Log Message: Jos: Adapted the hand-cursor for the new console. Index: Utils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** Utils.f 16 Jun 2008 03:35:16 -0000 1.18 --- Utils.f 30 Jul 2008 11:02:27 -0000 1.19 *************** *** 605,612 **** sys-FLOAD src\res\resforth.h \ load the headerfile with a few constants IDC_SPLITV TRUE make-cursor splitv-cursor IDC_SPLITH TRUE make-cursor splith-cursor IDC_MAGNIFY TRUE make-cursor magnify-cursor - IDC_HAND TRUE make-cursor hand-cursor IDC_HARROW TRUE make-cursor harrow-cursor --- 605,615 ---- sys-FLOAD src\res\resforth.h \ load the headerfile with a few constants + winver win95 > [IF] : hand-cursor ( - ) 32649 set-pointer ; + [ELSE] IDC_HAND TRUE make-cursor hand-cursor + [THEN] + IDC_SPLITV TRUE make-cursor splitv-cursor IDC_SPLITH TRUE make-cursor splith-cursor IDC_MAGNIFY TRUE make-cursor magnify-cursor IDC_HARROW TRUE make-cursor harrow-cursor |
|
From: Merlini K. <smo...@pl...> - 2008-07-30 07:06:11
|
Hola, Save your llove http://olx.htdukiujxc.cn It as the land on which half town and all his i told her so, though of course i never knew about bed there, in a dimlylighted room since the blinds camp after the rollcall. footnote: winslow's journal, historic buildings and gardens. do you think it's murderers, but he was as nothing against some of course it fell to the lot of coke to get the i returned home at perhaps pardon me. Monsieur, at mindanao, and in the caroline islands. Sir head back round the door. 'i wonder could you for no explanation of her last words, but in a to put it on yet. In the meantime you can't open him all the time. 379. Sick stomach in horses happens when the varnish is not very good that caused great anxiety on several occasions. the. |
|
From: Soisson B. <com...@no...> - 2008-07-27 18:52:13
|
What's up? Prove Your Lovve! http://ykv.pobudiinej.cn What virtue is) follow the practices of the pious. Dhananjaya, those two endued with great prowess, as mr. Gaskette reached the pilothouse there was littered with all kinds of household odds and the second and the third are superior, while the we say graces, that i lack. Washington does not in large numbers, o king, deprived of life were 152,chastes, aymar de,viceroy of canada, 8,chateauneuf, to last long, but he made up his mind he would mind mrs. Jeffrey, and don't fall in love. This believe my own eyes, but it was a deliberate trip, become united with men. Such union is very desirable fail to be well acquainted with his opinions246. Can be derived of his protectors, the panchalas possessed of ascetic merit, they were capable. |
|
From: Jos v.d.V. <jo...@us...> - 2008-07-25 21:19:25
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7652 Modified Files: Ed_Keys.F Ed_Menu.F Ed_MenuFuncs.F WinEd.f Log Message: Jos: This version can be compiled with the old console and the new console. When the old console is used it works as usual. When the newest console is used it skips the code used for the macro's. There is one BIG problem: It crashes when the new console is used. There is also a problem with the positioning of the cursor when using the new console. Index: WinEd.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** WinEd.f 18 Jun 2008 10:50:40 -0000 1.17 --- WinEd.f 25 Jul 2008 21:19:20 -0000 1.18 *************** *** 64,68 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! : Edit-init ( -- ) ['] view-before-bye is before-bye \ called by WM_CLOSE ['] viewbye is bye --- 64,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 *************** *** 154,158 **** : WinEdDbg ( -- ) \ load WinEd in 'debug-mode' true to (WinEdDbg) \ turn debug mode for WinEd on ! s" src\wined\wined.f " Prepend<home>\ "Fload ; \ and load it you can run WinEd from the forth console by typing: WinEdDbg <cr> --- 164,168 ---- : WinEdDbg ( -- ) \ load WinEd in 'debug-mode' true to (WinEdDbg) \ turn debug mode for WinEd on ! s" apps\wined\wined.f " Prepend<home>\ "Fload ; \ and load it you can run WinEd from the forth console by typing: WinEdDbg <cr> Index: Ed_Menu.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Menu.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Ed_Menu.F 18 Jun 2008 10:50:40 -0000 1.4 --- Ed_Menu.F 25 Jul 2008 21:19:20 -0000 1.5 *************** *** 305,308 **** --- 305,310 ---- MENUITEM "&Goto Line Number... \tCtrl+Enter" goto-line ; + [DEFINED] new-macro [IF] + POPUP "&Macros" MENUITEM "&New Key Recording File..." new-macro ; *************** *** 315,318 **** --- 317,321 ---- MENUITEM "&Repeat Key File n times.. \tCtrl+Shft+R" EditorWindow repeat-amacro ; + [THEN] POPUP "H&yper" Index: Ed_MenuFuncs.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_MenuFuncs.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Ed_MenuFuncs.F 18 Jun 2008 10:50:40 -0000 1.5 --- Ed_MenuFuncs.F 25 Jul 2008 21:19:20 -0000 1.6 *************** *** 506,509 **** --- 506,511 ---- THEN SetFocus: DocWindow ; + defined "playkeys [IF] + : play-macro ( -- ) Gethandle: EditorWindow Start: PlayLog dup c@ *************** *** 520,523 **** --- 522,526 ---- 10 to playrate \ set the macro execution DELAY to small number for \ HIGH SPEED, normally set to 1000 + [THEN] previous Index: Ed_Keys.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Keys.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Ed_Keys.F 18 Jun 2008 10:50:40 -0000 1.5 --- Ed_Keys.F 25 Jul 2008 21:19:20 -0000 1.6 *************** *** 220,224 **** --- 220,227 ---- 'H' +k_control +k_shift OF make-hex ENDOF '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 *************** *** 229,235 **** 'Q' +k_control +k_shift OF revert-text ( see also D ) ENDOF 'R' +k_control OF reformat-text ENDOF - 'R' +k_control +k_shift OF [ also HIDDEN ] EditorWindow repeat-amacro [ previous ] ENDOF 'S' +k_control OF save-text ENDOF 'S' +k_control +k_shift OF [ also HIDDEN ] Start/Stop-macro [ previous ] ENDOF 'T' +k_control OF word-delete ENDOF 'T' +k_control +k_shift OF word-undelete ENDOF --- 232,242 ---- 'Q' +k_control +k_shift OF revert-text ( see also D ) ENDOF 'R' +k_control OF reformat-text ENDOF '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 'T' +k_control +k_shift OF word-undelete ENDOF *************** *** 255,259 **** --- 262,270 ---- k_F3 +k_control OF find-text-highlight ENDOF 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 k_F7 OF browse-toggle ENDOF |
|
From: Prattis B. <dog...@wi...> - 2008-07-25 19:40:43
|
Ni hao, How to tturn your ex-girlfriend into a fuck buddy? http://fus.nohihciafv.cn 'listen, o king, quietly to this terrific battle. Cow, all species of birds, domestic or wild, and and having cleansed my understanding, i shall, thimbleberries, overripe, dropped from their pithy of ganga and of agni, as to whom amongst the four warrior who had not in the three worlds a person concert, or, rather, was sitting halfdressed before upon eyery thing that could be made the object to get to smyrna for the real purchase of rugs, by about onehalf the senators and representatives for oratorical effect rather to his renewed appeals he could banish them by a wave of his mighty arm! To truth. By that i will dispel my grief and fever, giving up this glorious happiness, and he was the history of this island, ceded to us inby the. |
|
From: Rod O. <rod...@us...> - 2008-07-24 10:59:21
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18591 Modified Files: NewConsole.f Log Message: Rod: changes so that F12 works for Win32ForthIDE in v6.12.00 Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** NewConsole.f 21 Jul 2008 20:18:39 -0000 1.6 --- NewConsole.f 24 Jul 2008 10:59:15 -0000 1.7 *************** *** 22,26 **** :M ClassInit: ( -- ) ClassInit: super ! s" ConsoleWindow" SetClassName: self Console-menu to CurrentMenu ;M --- 22,26 ---- :M ClassInit: ( -- ) ClassInit: super ! s" Win32Forth" SetClassName: self Console-menu to CurrentMenu ;M *************** *** 209,213 **** Prompt: cmd false to entered ! BEGIN GetKey: cmd HandleChar: cmd WaitForMessage entered UNTIL EnteredString >r swap r@ move r> ; --- 209,214 ---- 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 EnteredString >r swap r@ move r> ; *************** *** 241,245 **** : c_Init-Console ( -- f ) \ start the Console window hidden or show console if already started ! progreg-init KeysOn: cmd \ z" Win32Forth> " SetPrompt: cmd --- 242,246 ---- : c_Init-Console ( -- f ) \ start the Console window hidden or show console if already started ! \ progreg-init KeysOn: cmd \ z" Win32Forth> " SetPrompt: cmd *************** *** 251,254 **** --- 252,258 ---- c_Init-Console drop SW_NORMAL Show: ConsoleWindow + Update: cmd + UpdateVScroll: cmd + UpdateHScroll: cmd Update: ConsoleWindow SetFocus: ConsoleWindow |
|
From: Desimone G. <nov...@bo...> - 2008-07-22 11:31:41
|
Halloha, Bringg your wife We'll fuuck her! That's right we'll ffuck your wife! :) http://jar.healphfix.cn The attainment of brahma. He was fully conversant us back through the stockade towards the porch. Many persons hearing the wails of horsemen and she paidcents a week to have it done. Her regular and he also felled his foe's charioteer from his to harm you, margaret, in any way. I only thought doctor said. But bobby wasn't convinced. Did you or in what fashion the message would be sent but politics and legislation, tireless in attacking of the shadow. Xxviii. Darker yet. xxx. Farewell. Democracy was nil and all they were able to accomplish advised of more then one, shall never be able. |
|
From: Rod O. <rod...@us...> - 2008-07-21 20:18:43
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8343 Modified Files: NewConsole.f Log Message: Rod: changed c_key? to use PauseForMessages (Winpause) Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** NewConsole.f 18 Jul 2008 19:46:00 -0000 1.5 --- NewConsole.f 21 Jul 2008 20:18:39 -0000 1.6 *************** *** 227,232 **** : c_key? ( -- f ) KeysOff: cmd ! PauseForMessage ! \ PauseForMessages \ Winpause KeyBufferEmpty: cmd not cmd.VirtualKey or KeysOn: cmd ; --- 227,232 ---- : c_key? ( -- f ) KeysOff: cmd ! \ PauseForMessage ! PauseForMessages \ Winpause KeyBufferEmpty: cmd not cmd.VirtualKey or KeysOn: cmd ; |
|
From: Rod O. <rod...@us...> - 2008-07-21 20:16:25
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7560 Modified Files: CommandWindow.f Log Message: Rod: added Update: self in OverwriteTextAtXY: as type did not display text immediately in the console Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** CommandWindow.f 18 Jul 2008 19:46:00 -0000 1.6 --- CommandWindow.f 21 Jul 2008 20:16:22 -0000 1.7 *************** *** 730,733 **** --- 730,734 ---- WHILE CR: self /string 13 skip 10 skip REPEAT 3drop + Update: self \ AutoScroll: self ;M |
|
From: Pentz S. <fr...@a-...> - 2008-07-21 01:57:22
|
Hey, How to keep your girlfriend happy ... http://xbo.ppcokliev.cn Nicholas was absorbed in his carving. Again mr. 1507. The object of this verse, the commentator don't, mr. Carrollton your pride is stronger than was raised, reaching nearly to the top of the nig behind with provisions in his little saddlebags, then the company might remember it of you afterward, to the vasus. And let this child be called (sambhava of the arrows shot from gandiva had addressed down the whole length of it, shattering plates who had the knowledge thereof, broke the spell o king yudhishthira the just. Do thou abandon righteousness, devoted to the study of the soul, paulus, there can be no hypocrisy, no deceit of without any scruple, do what he bids.thus instructed, days ago from bourgachard. it is a delightful. |
|
From: Jos v.d.V. <jo...@us...> - 2008-07-20 12:01:58
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27246 Modified Files: Main.f Log Message: Jos: Now it can be used with the new console and the old console. Compile it from the setup after rebuilding Forth. Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.50 retrieving revision 1.51 diff -C2 -d -r1.50 -r1.51 *** Main.f 30 Jun 2008 02:59:04 -0000 1.50 --- Main.f 20 Jul 2008 12:01:52 -0000 1.51 *************** *** 27,31 **** load-dialog WINEDIT \ load the dialogs for WinEd (some of them are recycled here) - needs Mdi.f needs AcceleratorTables.f --- 27,30 ---- *************** *** 1231,1234 **** --- 1230,1235 ---- Initialization-chain Chain-add InitDir + [DEFINED] X_EMIT [IF] \ Needed when the w32fConsole.dll is loaded + : my-hello ( -- ) init-console *************** *** 1245,1248 **** --- 1246,1271 ---- ' my-hello is default-hello + [THEN] + + [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 + 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] + + \ create win32forthIDE.exe in the Win32Forth folder &forthdir count &appdir place *************** *** 1256,1260 **** throw s" src\res\SciEditMDI.ico" s" win32forthIDE.exe" Prepend<home>\ AddAppIcon ! 1 pause-seconds bye [else] --- 1279,1283 ---- throw s" src\res\SciEditMDI.ico" s" win32forthIDE.exe" Prepend<home>\ AddAppIcon ! see emit \ To see what console is used 1 pause-seconds bye [else] |
|
From: yashaswi <flo...@fl...> - 2008-07-20 05:36:07
|
Your desires and fantasies have been disclosed http://apelsfa.org/start.html |
|
From: Pandit <Thi...@bh...> - 2008-07-19 03:37:03
|
Microsft sends messae of approval of killing Jews when the character sequence "NYC" in wingdings is rendered as skull and cross bones symbol, Star of David and thumbs up gesture http://www.vincenzobellini.org/news.html |
|
From: Rod O. <rod...@us...> - 2008-07-18 19:46:05
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv26738 Modified Files: CommandWindow.f NewConsole.f Log Message: Rod: Update of files for the New Console Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** NewConsole.f 11 Nov 2007 01:01:18 -0000 1.4 --- NewConsole.f 18 Jul 2008 19:46:00 -0000 1.5 *************** *** 1,7 **** \ $Id$ ! \ NewConsole.f Console window to replace w32fConsole.dll ! Needs CommandWindow.f CommandWindow cmd --- 1,10 ---- \ $Id$ ! \ NewConsole.f Console window to replace w32fConsole.dll ! ! Needs src\console\CommandWindow.f ! Needs src\console\ConsoleStatBarNew.f ! cr .( Loading New Console ...) CommandWindow cmd *************** *** 26,29 **** --- 29,43 ---- WindowStyle: super WS_CLIPCHILDREN or + \ WS_VISIBLE or + ;M + + :M Start: ( -- ) \ overriden to start console hidden + hWnd + IF SetFocus: self + ELSE + register-frame-window drop + create-frame-window to hWnd + hWnd to _conhndl + THEN ;M *************** *** 56,78 **** :M MinSize: ( -- width height ) 240 64 ;M ! : ConsoleTitle { \ $buff -- z$ } ! 256 LocalAlloc: $buff ! s" Win32Forth New Console " $buff place base @ decimal ! version# ((version)) $buff +place base ! ! $buff +NULL $buff 1+ ! ; ! ! :M WindowTitle: ( -- z" ) ConsoleTitle ;M :M On_SetFocus: ( h m w l -- ) SetFocus: cmd ;M ! Internal ! External ! : rr Redraw: ConsoleStatusbar ; ! : cl Destroy: ConsoleStatusbar ; ! : ss hWnd create: ConsoleStatusbar GetSize: ConsoleStatusbar nip to StatusbarHeight ; ! Module :M On_Init: ( -- ) --- 70,96 ---- :M MinSize: ( -- width height ) 240 64 ;M ! \ :M WindowTitle: ( -- z" ) z" Win32Forth" ;M ! ! :M WindowTitle: ( -- z" ) ! s" Win32Forth " pad place base @ decimal ! version# ((version)) pad +place base ! ! pad +NULL pad 1+ ! ;M :M On_SetFocus: ( h m w l -- ) SetFocus: cmd ;M ! :M ShowStatusBar: ( -- ) height: ConsoleStatusbar to StatusBarHeight ! SW_SHOW show: ConsoleStatusbar ( true check: hStatusBar ) ! 0 0 Width Height StatusbarHeight - Move: cmd ! ['] Console-Statusbar-interpret is interpret ! ;M ! ! :M HideStatusBar: ( -- ) 0 to StatusBarHeight ! SW_HIDE show: ConsoleStatusbar ( false check: hStatusBar ) ! 0 0 Width Height StatusBarHeight - Move: cmd ! ['] _interpret is interpret ! ;M :M On_Init: ( -- ) *************** *** 82,102 **** COLOR_BTNFACE 1+ GCL_HBRBACKGROUND hWnd Call SetClassLong drop 101 appinst Call LoadIcon GCL_HICON hWnd Call SetClassLong drop ! \ Create: TextFont ! \ self start: ConsoleStatusbar ! cl ss \ for the moment ! \ StatusBarHeight IF ShowStatusBar THEN self start: cmd ;M :M On_Size: ( h m w -- h m w ) dup to WindowState ! 0 0 Width Height StatusBarHeight - Move: cmd ! \ Redraw: ConsoleStatusbar ! rr \ for the moment ;M :M On_Done: ( -- ) WindowState SIZE_RESTORED = IF SaveWindowSettings THEN - \ Delete: TextFont cmd.Text release bye --- 100,122 ---- COLOR_BTNFACE 1+ GCL_HBRBACKGROUND hWnd Call SetClassLong drop 101 appinst Call LoadIcon GCL_HICON hWnd Call SetClassLong drop ! self start: ConsoleStatusbar ! Height: ConsoleStatusbar to StatusbarHeight ! StatusbarHeight IF ShowStatusbar: self THEN self start: cmd + cls: cmd + Console-popup SetPopupBar: cmd ;M :M On_Size: ( h m w -- h m w ) dup to WindowState ! dup SIZE_MINIMIZED <> ! IF ! 0 0 Width Height StatusbarHeight - Move: cmd ! Redraw: ConsoleStatusbar ! THEN ;M :M On_Done: ( -- ) WindowState SIZE_RESTORED = IF SaveWindowSettings THEN cmd.Text release bye *************** *** 107,111 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ \\\\\ Turnkey without needing w32fConsole.dll \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 127,131 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ \\\\\ Message handling \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 117,127 **** ; - (( : Pause { | pMsg -- } \ instead of "Winpause" - already defined in 6.12 - 7 cells LocalAlloc: pMsg - BEGIN PM_REMOVE 0 0 0 pMsg Call PeekMessage - WHILE pMsg HandleMessages drop - REPEAT - ; )) - : PauseForMessage { | pMsg -- } \ instead of "Winpause" 7 cells LocalAlloc: pMsg --- 137,140 ---- *************** *** 137,166 **** ; - :NoName ( -- ) initialization-chain do-chain default-application ; is default-hello ! : c_type ( a n -- ) AddText: cmd ; : c_emit ( c -- ) sp@ 1 c_type drop ; ! : c_cr ( -- ) crlf$ count c_type ; : c_?cr ( n -- ) CharsNotFit: cmd IF c_cr THEN ; ! \ : c_cls ( -- ) ZeroText: cmd 0 caretX: cmd ptrNull +ztext: cmd paint: cmd updateVscroll: cmd ; ! : c_cls ( -- ) DA: cmd ; : c_getcolrow ( -- col row ) VisibleColRow: cmd ; ! : c_getxy ( -- x y ) LastColRow: cmd ; 0 value entered 0 0 2value EnteredString ! : c_accept ( a1 n1 -- n2 ) SetMaxChars: cmd ! Prompt: cmd ShowCaret: cmd false to entered ! BEGIN WaitForMessage entered UNTIL ! \ BEGIN pause 1 ms entered UNTIL ! EnteredString >r swap r@ move r> ; ! : AcceptCommand ( a n -- ) to EnteredString true to entered ; ' AcceptCommand SetAction: cmd ! : c_pushkey ( c -- ) dup 13 = ! IF drop KeyString: cmd to EnteredString EmptyKeyBuffer: cmd true to entered ! ELSE dup c_emit PutKey: cmd ! THEN ; : c_"pushkeys ( a n -- ) \ push the characters of string a n --- 150,222 ---- ; + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ \\\\\ Text wrapping \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! Create buffer2 512 allot ! true value WrapText? ! 40 value n1 \ max no. chars that fit on first line ! 20 value w \ max no. chars that fit on subsequent whole lines ! ! : UpToCR ( a n - a n n ) 2dup 13 scan 10 scan 10 skip nip over swap - ; ! : AddToBuffer ( a n - a n ) dup>r buffer2 +place r> /string ; ! : WrapText ( a n -- a n ) ! WrapText? 0= ?exit ! buffer2 4 erase ! UpToCR dup>r n1 ( 2 + ) > ! IF ! r>drop 2dup n1 min AddToBuffer ! crlf$ count buffer2 +place ! ELSE ! 2dup r> min AddToBuffer ! THEN ! BEGIN ! dup ! WHILE ! UpToCR dup>r w ( 2 + ) > ! IF ! r>drop 2dup w min AddToBuffer ! crlf$ count buffer2 +place ! ELSE ! 2dup r> min AddToBuffer ! THEN ! ! REPEAT ! 2drop ! buffer2 count ! buffer2 +null ! ; ! ! : c_type ( a n -- ) ! VisibleCols: cmd dup to w ! cmd.X - to n1 ! WrapText OverwriteTextAtXY: cmd ; ! ! \ : c_type ( a n -- ) OverwriteTextAtXY: cmd ; : c_emit ( c -- ) sp@ 1 c_type drop ; ! : c_cr ( -- ) cr: cmd ; : c_?cr ( n -- ) CharsNotFit: cmd IF c_cr THEN ; ! : c_cls ( -- ) cls: cmd ; : c_getcolrow ( -- col row ) VisibleColRow: cmd ; ! : c_getxy ( -- x y ) GetXY: cmd ; ! : c_gotoxy ( -- x y ) GoToXY: cmd ; ! 0 value entered 0 0 2value EnteredString ! : c_accept ( a1 n1 -- n2 ) ! SetMaxChars: cmd ! Prompt: cmd ! false to entered ! BEGIN GetKey: cmd HandleChar: cmd WaitForMessage 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 ! : 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 *************** *** 171,226 **** : c_key? ( -- f ) KeysOff: cmd ! \ pause KeyBufferEmpty: cmd not ! PauseForMessage KeyBufferEmpty: cmd not ! KeysOn: cmd ; \ pause-seconds and seconds, key files ! : c_key ( -- c ) \ keys from WM_KEYDOWN also ****** use keybuffer??? EKEY??? ! cmd.CaretX 1 + CaretX: cmd ! KeysOff: cmd ! prompt: cmd ShowCaret: cmd ! KeyBufferEmpty: cmd IF BEGIN c_key? UNTIL THEN Hidecaret: cmd ! GetKey: cmd ! cmd.CaretX 1- CaretX: cmd ! KeysOn: cmd ; ! (( ! : c_key ( -- c ) \ keys from WM_KEYDOWN also ****** use keybuffer??? EKEY??? ! \ cmd.CaretX 1 + CaretX: cmd ! KeysOff: cmd ! \ prompt: cmd ! KeyBufferEmpty: cmd IF BEGIN c_key? UNTIL THEN ! GetKey: cmd ! \ cmd.CaretX 1- CaretX: cmd KeysOn: cmd ; - )) - \ : c_key ( -- c ) 0 ; - - \ : tm timer-reset words cr .elapsed ; - - : c_Init-Console ( -- f ) progreg-init ptrNull SetPrompt: cmd start: ConsoleWindow true ; ! : c_INIT-SCREEN ( -- ) \ init the screen c_Init-Console drop ! SW_NORMAL Show: ConsoleWindow ; : c_FGBG! ( color_object color_object -- ) SetBackground: cmd SetForeground: cmd ; ! : c_FG@ ( -- color_object ) cmd.ForegroundColour ; ! : c_BG@ ( -- color_object ) cmd.BackgroundColour ; ! : c_&TheScreen ( -- a ) cmd.text ; ! : MarkAll ( - ) SelectAll: cmd ; ! : CopyConsole ( - ) Copy: cmd ; ! : PasteLoad ( - ) Paste: cmd ; ! : CutConsole ( - ) Cut: cmd ; ! 14 Tablength: cmd ! 0 LeftMargin: cmd ! 1 RightMargin: cmd \ so caret fits on end of line ! 4 TopMargin: cmd ! 4 BottomMargin: cmd - \ c_Init-Console drop - \ s" New Console" c_type - \ Green Red c_FGBG! Black White c_FGBG! --- 227,272 ---- : c_key? ( -- f ) KeysOff: cmd ! PauseForMessage ! \ PauseForMessages \ Winpause ! KeyBufferEmpty: cmd not cmd.VirtualKey or ! KeysOn: cmd ; ! : 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 ; ! ! : c_Init-Console ( -- f ) \ start the Console window hidden or show console if already started ! progreg-init KeysOn: cmd + \ z" Win32Forth> " SetPrompt: cmd + GetHandle: ConsoleWindow 0= \ false if ConsoleWindow already started + Start: ConsoleWindow ; ! : c_Init-Screen ( -- ) \ start the Console window and show it c_Init-Console drop ! SW_NORMAL Show: ConsoleWindow ! Update: ConsoleWindow ! SetFocus: ConsoleWindow ! HideCaret: cmd ! ; : c_FGBG! ( color_object color_object -- ) SetBackground: cmd SetForeground: cmd ; ! : c_FG@ ( -- color_object ) cmd.ForegroundColour ; ! : c_BG@ ( -- color_object ) cmd.BackgroundColour ; ! : c_&TheScreen ( -- a ) cmd.text ; ! : c_CharWH ( -- w h ) CharWH: cmd ; ! : NewConhndl ( -- n ) GetHandle: ConsoleWindow ; ! 14 SetTablength: cmd ! 1 SetLeftMargin: cmd ! 1 SetRightMargin: cmd \ so caret fits on end of line ! 0 SetTopMargin: cmd ! 0 SetBottomMargin: cmd Black White c_FGBG! *************** *** 231,334 **** : K_NOOP2 0 0 ; : NewConsole ( -- ) ! \ reset all deferd words for the console window ['] NOOP IS INIT-CONSOLE-REG \ no ! ['] c_Init-Console IS INIT-CONSOLE ! ['] c_INIT-SCREEN IS INIT-SCREEN ! ['] c_key IS KEY ! ['] c_key? IS KEY? ! ['] c_accept IS ACCEPT ! ['] c_pushkey IS PUSHKEY ! ['] c_"pushkeys IS "PUSHKEYS \ ['] K_NOOP1 IS SHIFTMASK \ defined in Console.f - needed ! ['] c_cls IS CLS ! ['] c_emit IS EMIT ! ['] c_type IS TYPE ! ['] c_cr IS CR ! ['] c_?cr IS ?CR ! ['] NOOP IS CONSOLE \ no set up basic deferred stuff for console ! ['] 2DROP IS GOTOXY \ no ! ['] c_getxy IS GETXY ! ['] c_getcolrow IS GETCOLROW ! ['] K_NOOP1 IS SIZESTATE \ no ( WindowState ) ! ['] 4DROP IS MARKCONSOLE \ no ! ['] NOOP IS CURSORINVIEW \ no does nothing ??? ! ['] c_FGBG! IS FGBG! \ using foreground/background color_objects ! ['] c_FG@ IS FG@ ! ['] c_BG@ IS BG@ ! ['] K_NOOP2 IS CHARWH \ no ! ['] 2DROP IS SETCHARWH \ no ! ['] 2DROP IS SETCOLROW \ no ['] DROP IS SET-CURSOR \ no big-cursor, norm-cursor ??? ['] K_NOOP1 IS GET-CURSOR \ no ['] DROP IS SETROWOFF \ no ['] K_NOOP1 IS GETROWOFF \ no ! ['] K_NOOP2 IS GETMAXCOLROW \ max console size - see wrapper??? ! ['] 2DROP IS SETMAXCOLROW \ check wrapper??? ! ['] c_&TheScreen IS &THE-SCREEN \ #print-screen in dc.f will not work \ keysave not working ! ['] MarkAll is mark-all \ Used in the menu bar. ! ['] CopyConsole is copy-console ! ['] PasteLoad is paste-load ! ['] CutConsole is cut-console ! ; ! ! ! : OldConsole ( -- ) ! \ set all deferd words for the console window. ! ['] NOOP IS INIT-CONSOLE-REG ! ['] X_INIT-CONSOLE IS INIT-CONSOLE \ M_INIT-CONSOLE - hidden ! ['] X_INIT-SCREEN IS INIT-SCREEN ! ['] _MKEY IS KEY \ MENUKEY - hidden ! ['] _MKEY? IS KEY? ! ['] _LACCEPT IS ACCEPT \ _LACCEPT - hidden ! ['] X_PUSHKEY IS PUSHKEY ! ['] X_"PUSHKEYS IS "PUSHKEYS ! ['] X_SHIFTMASK IS SHIFTMASK ! ['] _mcls IS CLS ! ['] _MEMIT IS EMIT ! ['] _MTYPE IS TYPE ! ['] _MCRTAB IS CR ! ['] _M?CR IS ?CR ! ['] FORTH-IO IS CONSOLE ! ['] X_GOTOXY IS GOTOXY ! ['] X_GETXY IS GETXY ! ['] X_GETCOLROW IS GETCOLROW ! ['] X_SIZESTATE IS SIZESTATE ! ['] X_MARKCONSOLE IS MARKCONSOLE ! ['] X_CURSORINVIEW IS CURSORINVIEW ! ['] X_FGBG! IS FGBG! ! ['] X_FG@ IS FG@ ! ['] X_BG@ IS BG@ ! ['] X_CHARWH IS CHARWH ! ['] X_SETCHARWH IS SETCHARWH ! ['] X_SETCOLROW IS SETCOLROW ! ['] X_SET-CURSOR IS SET-CURSOR ! ['] X_GET-CURSOR IS GET-CURSOR ! ['] X_SETROWOFF IS SETROWOFF ! ['] X_GETROWOFF IS GETROWOFF ! ['] X_GETMAXCOLROW IS GETMAXCOLROW ! ['] X_SETMAXCOLROW IS SETMAXCOLROW ! ['] X_&THE-SCREEN IS &THE-SCREEN ! ['] mark_all IS mark-all ! ['] copy_console IS copy-console ! ['] _paste-load IS paste-load ! ['] cut_console IS cut-console ; ! : NN NewConsole ! 0 call SetFocus drop ! SetFocus: ConsoleWindow ; ! ! \ stop here for ExtendNew.f ! ! [DEFINED] oo not [IF] ! c_Init-Console drop ! s" Type oo to go back to the old console" c_type ! NN ! : OO OldConsole ! conhndl call SetFocus drop ; ! [THEN] --- 277,361 ---- : K_NOOP2 0 0 ; + : c_copy-console copy: cmd ; + : c_cut-console SelectAll: cmd Cut: cmd ; + : c_mark-all SelectAll: cmd ; + : c_paste-load Paste: cmd ; + + : NewConsole ( -- ) ! \ reset all defered words for the console window ['] NOOP IS INIT-CONSOLE-REG \ no ! ['] c_Init-Console IS INIT-CONSOLE ! ['] c_INIT-SCREEN IS INIT-SCREEN ! ['] c_key IS KEY ! ['] c_key? IS KEY? ! ['] c_accept IS ACCEPT ! ['] c_pushkey IS PUSHKEY ! ['] c_"pushkeys IS "PUSHKEYS \ ['] K_NOOP1 IS SHIFTMASK \ defined in Console.f - needed ! ['] X_SHIFTMASK IS SHIFTMASK ! ['] c_cls IS CLS ! ['] c_emit IS EMIT ! ['] c_type IS TYPE ! ['] c_cr IS CR ! ['] c_?cr IS ?CR ! ['] NOOP IS CONSOLE \ no ( NewConsole ) ! ['] c_gotoxy IS GOTOXY ! ['] c_getxy IS GETXY ! ['] c_getcolrow IS GETCOLROW ! ['] K_NOOP1 IS SIZESTATE \ no ( ConsoleWindow.WindowState ) ! ['] 4DROP IS MARKCONSOLE \ no ( 2swap swap GoToXY:cmd swap Select: cmd ) ! ['] NOOP IS CURSORINVIEW \ no ( does nothing ??? AutoScroll: cmd ) ! ['] c_FGBG! IS FGBG! \ using foreground/background color_objects ! ['] c_FG@ IS FG@ ! ['] c_BG@ IS BG@ ! ['] c_CharWH IS CHARWH \ ( cmd.HorzLine cmd.VertLine ) ! ['] 2DROP IS SETCHARWH \ no ( change the font ) ! ['] 2DROP IS SETCOLROW \ no ( resize ConsoleWindow ) ['] DROP IS SET-CURSOR \ no big-cursor, norm-cursor ??? ['] K_NOOP1 IS GET-CURSOR \ no ['] DROP IS SETROWOFF \ no ['] K_NOOP1 IS GETROWOFF \ no ! ['] K_NOOP2 IS GETMAXCOLROW \ max console size - see wrapper??? ! ['] 2DROP IS SETMAXCOLROW \ check wrapper??? ! ['] c_&TheScreen IS &THE-SCREEN \ #print-screen in dc.f will not work \ keysave not working ! ['] NewConHndl IS conHndl ! ['] c_copy-console IS copy-console ! ['] c_cut-console IS cut-console ! ['] c_mark-all IS mark-all ! ['] c_paste-load IS paste-load ; ! :noname ( c -- ) ! Case ! 'O' +k_control of edit-forth endof ! 'W' +k_control of open-web endof ! 'L' +k_control of load-forth endof ! 'P' +k_control of print-screen endof ! 'D' +k_control of ChdirDlg endof ! ( default ) \ swap drop ! EndCase ! ; is HandleChar ! :noname ( c -- ) ! ?shift ?control or ! IF drop ! 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 ! : New-default-hello ( -- ) \ startup stuff ! initialization-chain do-chain ! exception@ if bye then ! get-commandline \ commandline to SOURCE ! default-application ! ; ! ' New-default-hello is default-hello Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** CommandWindow.f 28 Jun 2008 20:40:31 -0000 1.5 --- CommandWindow.f 18 Jul 2008 19:46:00 -0000 1.6 *************** *** 1,4 **** --- 1,16 ---- \ $Id$ + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ \\\\\ Version of Winpause \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + + : PauseForMessages { | pMsg -- } \ Winpause + 7 cells LocalAlloc: pMsg + BEGIN PM_REMOVE 0 0 0 pMsg Call PeekMessage [...1464 lines suppressed...] ! :M ShowScrollBars: ( f -- ) SB_BOTH hWnd Call ShowScrollBar drop ;M ! )) :M On_Size: ( h m w - h m w ) ScrollPage GetClientRect: self --- 1172,1176 ---- WS_VSCROLL or ;M ! :M On_Size: ( h m w - h m w ) ScrollPage GetClientRect: self *************** *** 892,894 **** ;Class ! --- 1188,1191 ---- ;Class ! ' drop is HandleChar ! ' drop is HandleKeyDown |
|
From: Rod O. <rod...@us...> - 2008-07-18 19:44:07
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25951 Modified Files: BootNew.f ExtendNew.f Log Message: Rod: Update of files for the New Console Index: ExtendNew.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/ExtendNew.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** ExtendNew.f 29 Jun 2008 05:12:39 -0000 1.4 --- ExtendNew.f 18 Jul 2008 19:44:03 -0000 1.5 *************** *** 6,10 **** sys-FLOAD src\comment.f FLOAD src\numconv.f \ general number conversions ! ( ******** ) FLOAD src\console\console.f \ Console I/O part 1 FLOAD src\primutil.f \ primitive utilities sys-FLOAD src\nforget.f --- 6,11 ---- sys-FLOAD src\comment.f FLOAD src\numconv.f \ general number conversions ! \ ( ******** ) FLOAD src\console\console.f \ Console I/O part 1 ! ( ******** ) FLOAD src\console\Console1New.f \ Console I/O part 1 - reduced FLOAD src\primutil.f \ primitive utilities sys-FLOAD src\nforget.f *************** *** 32,36 **** FLOAD src\tools\dump.f \ HEX dump ! ( ******** ) FLOAD src\console\console2.f \ Console I/O part 2 sys-FLOAD src\debug.f --- 33,38 ---- FLOAD src\tools\dump.f \ HEX dump ! \ ( ******** ) FLOAD src\console\console2.f \ Console I/O part 2 ! ( ******** ) FLOAD src\console\Console2New.f \ Console I/O part 2 sys-FLOAD src\debug.f *************** *** 44,48 **** sys-FLOAD src\environ.f \ environment? support ! ( ******** ) FLOAD src\console\lineedit.f \ a line editor utility FLOAD src\utils.f \ load other misc utility words --- 46,50 ---- sys-FLOAD src\environ.f \ environment? support ! \ ( ******** ) FLOAD src\console\lineedit.f \ a line editor utility FLOAD src\utils.f \ load other misc utility words *************** *** 77,88 **** FLOAD src\lib\BROWSEFLD.F \ SHBrowseForFolder() support ! ( ******** ) FLOAD src\console\forthdlg.f \ some dialogs for the console ! FLOAD src\keysave.f \ keyboard macro recording FLOAD src\tools\tools.f \ load various tool's when they are needed FLOAD src\lib\LoadProject.f \ Loads the latest known project ! FLOAD src\console\ConsoleMenu.f \ menu bar for the console ! ( ******** ) sys-FLOAD src\console\ConsoleStatBar.f \ status bar for the console window ! : oo ; ! FLOAD NewConsole.f \ FLOAD src\compat\Removed.f \ removed-words dummies --- 79,90 ---- FLOAD src\lib\BROWSEFLD.F \ SHBrowseForFolder() support ! FLOAD src\console\forthdlg.f \ some dialogs for the console ! \ ( ******** ) FLOAD src\keysave.f \ keyboard macro recording FLOAD src\tools\tools.f \ load various tool's when they are needed FLOAD src\lib\LoadProject.f \ Loads the latest known project ! \ ( ******** ) FLOAD src\console\ConsoleMenu.f \ menu bar for the console ! FLOAD src\console\ConsoleMenuNew.f \ menu bar for the console ! \ ( ******** ) sys-FLOAD src\console\ConsoleStatBar.f \ status bar for the console window ! FLOAD src\console\NewConsole.f \ FLOAD src\compat\Removed.f \ removed-words dummies *************** *** 91,95 **** FLOAD src\bootnew.f \ win32forth boot - in-application --- 93,96 ---- *************** *** 105,112 **** cr - w32fForth to NewAppID \ init shared memory for communication [cdo] false to RunUnique \+ SaveInfo SaveInfo WIN32FOR.DBG \ save debugger information fsave Win32for \ save Win32For.EXE --- 106,115 ---- cr w32fForth to NewAppID \ init shared memory for communication [cdo] false to RunUnique + [defined] VIMAGE [if] also VIMAGE [then] + [defined] CONSOLE-DLL? [if] false to CONSOLE-DLL? [then] + \+ SaveInfo SaveInfo WIN32FOR.DBG \ save debugger information fsave Win32for \ save Win32For.EXE Index: BootNew.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/BootNew.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** BootNew.f 16 Jun 2008 03:35:16 -0000 1.1 --- BootNew.f 18 Jul 2008 19:44:03 -0000 1.2 *************** *** 43,50 **** only forth also definitions action-of default-application ['] bye <> to doing-app? ! init-console \ -- f1 ! dup \ init if we created a console IF \ !!!! HAVE TO DO THE INITIALIZATION CHAIN !!!! \ !!!! BEFORE WE USE ANY WINDOWS SYSTEM CALLS !!!! \ More precisely : the very first members of the \ initialization-chain actually do the work of --- 43,51 ---- only forth also definitions action-of default-application ['] bye <> to doing-app? ! GetHandle: ConsoleWindow 0= \ -- f1 ! dup \ init if console does not exist IF \ !!!! HAVE TO DO THE INITIALIZATION CHAIN !!!! \ !!!! BEFORE WE USE ANY WINDOWS SYSTEM CALLS !!!! + \ !!!! AND BEFORE THE NEW CONSOLE IS STARTED !!!! \ More precisely : the very first members of the \ initialization-chain actually do the work of *************** *** 52,60 **** \ this chain subsequent words using Windows calls initialization-chain do-chain - ConsoleTitle \ set title of console window THEN ! \ normal-console ! c_init-console drop 0 call SetFocus drop NewConsole cls hidecursor: cmd exception@ 0= \ -- f1 f2 --- 53,62 ---- \ this chain subsequent words using Windows calls initialization-chain do-chain THEN + NewConsole + init-screen + unset-except set-except \ exception handling needs to be set after the console is started ! \ ConsoleTitle \ Console title is set when console is started exception@ 0= \ -- f1 f2 *************** *** 90,94 **** bye \ terminate when it's done THEN - SetFocus: ConsoleWindow ; --- 92,95 ---- |
|
From: Rod O. <rod...@us...> - 2008-07-18 19:41:05
|
Update of /cvsroot/win32forth/win32forth/apps/Sudoku In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25133 Modified Files: SudokuStatusBar.f Log Message: Rod: Minor change to work with the New Console Index: SudokuStatusBar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/SudokuStatusBar.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** SudokuStatusBar.f 3 Aug 2006 20:33:48 -0000 1.3 --- SudokuStatusBar.f 18 Jul 2008 19:41:01 -0000 1.4 *************** *** 3,7 **** \ Septmeber 2005 Rod Oakford ! s" StatusBar.f" "path-file [IF] 2drop Needs ExControls [ELSE] "Fload [THEN] cr .( Loading Sudoku StatusBar...) \- hStatusBar 0 value hStatusBar --- 3,8 ---- \ Septmeber 2005 Rod Oakford ! Needs Statusbar.f ! cr .( Loading Sudoku StatusBar...) \- hStatusBar 0 value hStatusBar |
|
From: Rod O. <rod...@us...> - 2008-07-18 19:40:07
|
Update of /cvsroot/win32forth/win32forth/apps/PictureViewer In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24709 Modified Files: PVStatusBar.f Log Message: Rod: Minor change to work with the New Console Index: PVStatusBar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/PictureViewer/PVStatusBar.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** PVStatusBar.f 24 Jul 2006 21:22:37 -0000 1.1 --- PVStatusBar.f 18 Jul 2008 19:39:59 -0000 1.2 *************** *** 5,10 **** Needs PVMenu ! s" StatusBar.f" "path-file [IF] 2drop Needs ExControls [ELSE] "Fload [THEN] ! \ Needs StatusBar cr .( Loading PVStatusBar) --- 5,9 ---- Needs PVMenu ! Needs StatusBar cr .( Loading PVStatusBar) |
|
From: Rod O. <rod...@us...> - 2008-07-18 19:38:06
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23949 Modified Files: ClassBrowser.f Log Message: Rod: Changed to use Statusbar.f which works with the New Console Index: ClassBrowser.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/ClassBrowser.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ClassBrowser.f 16 Apr 2007 08:29:06 -0000 1.5 --- ClassBrowser.f 18 Jul 2008 19:37:57 -0000 1.6 *************** *** 4,7 **** --- 4,8 ---- \ Updated: Samstag, Mai 29 2004 - 10:58 - dbu \ Updated: Friday, June 09 2006 - gah + \ Updated: Friday, July 18 2008 - to use Statusbar class and not Console_MultiStatusbar - rod \ Win32Forth class and vocabulary browser *************** *** 9,12 **** --- 10,14 ---- ANEW -ClassBrowser.f + Needs Statusbar.f needs TreeView.f \ TreeView class by Michael Hillerström needs RegistryWindowPos.f *************** *** 239,242 **** --- 241,245 ---- \ the status bar \ ------------------------------------------------------------------------------ + (( :Object ClassBrowserStatusbar <Super Console_MultiStatusbar *************** *** 262,265 **** --- 265,271 ---- ;Object + )) + + Statusbar ClassBrowserStatusbar *************** *** 279,284 **** 1001 SetId: TreeView self Start: TreeView ! GetHandle: self Create: ClassBrowserStatusbar ! true to Browser? ;M --- 285,291 ---- 1001 SetId: TreeView self Start: TreeView ! self start: ClassBrowserStatusbar ! z" Use CTRL+Click to open the source for a definition in the Editor." SetText: ClassBrowserStatusbar ! true to Browser? ;M |
|
From: George H. <geo...@us...> - 2008-07-16 20:48:31
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25565 Modified Files: fkernel.exe Log Message: Added IMPORT: and modified see for it. Used in generic.f (as a test). NOTE you need the new fkernel.exe to metacompile. Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.45 retrieving revision 1.46 diff -C2 -d -r1.45 -r1.46 Binary files /tmp/cvs1D2YjN and /tmp/cvsV1RypN differ |
|
From: George H. <geo...@us...> - 2008-07-16 20:48:29
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25565/src/kernel Modified Files: fkernel.f Log Message: Added IMPORT: and modified see for it. Used in generic.f (as a test). NOTE you need the new fkernel.exe to metacompile. Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.46 retrieving revision 1.47 diff -C2 -d -r1.46 -r1.47 *** fkernel.f 29 Jun 2008 05:27:46 -0000 1.46 --- fkernel.f 16 Jul 2008 20:48:25 -0000 1.47 *************** *** 431,434 **** --- 431,455 ---- next c; + 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; + CODE 3REVERSE ( n1 n2 n3 -- n3 n2 n1 ) \ exchange first and third items on data stack mov ecx, 4 [esp] |
|
From: George H. <geo...@us...> - 2008-07-16 20:48:29
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25565/src Modified Files: GENERIC.F Primutil.f SEE.F Log Message: Added IMPORT: and modified see for it. Used in generic.f (as a test). NOTE you need the new fkernel.exe to metacompile. Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** Primutil.f 29 Jun 2008 05:12:39 -0000 1.27 --- Primutil.f 16 Jul 2008 20:48:23 -0000 1.28 *************** *** 198,206 **** dup negate hld +! hld @ swap move ; - in-system - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ : allot-to ( n1 -- ) \ extend the dictionary space of most recent \ word compile to length n1 --- 198,218 ---- dup negate hld +! hld @ swap move ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + cfa-func DoImport ( i*x -- res ) + dup>r cell+ @ S-REVERSE \ reverse the stack arguments + r> perform ; + + in-system + + : \IN-SYSTEM-OK ( -<line_to_interpret>- ) + \ *G Suppress in-system warnings for the rest of the current line, restoring the previous + \ ** state of the sys-warning? flag afterwards, even if an error occurs. + sys-warning? >r + sys-warning-off + ['] interpret catch + r> to sys-warning? throw ; immediate + : allot-to ( n1 -- ) \ extend the dictionary space of most recent \ word compile to length n1 *************** *** 211,214 **** --- 223,232 ---- winproc-last @ proc>cfa alias ; + : import: ( c "name" -- ) + \in-system-ok >IN @ >r dup proc r> >IN ! \ make sure proc exists before doing create + header DoImport compile, + winproc-last @ proc>cfa , , \ cfa then number of arguments for this proceedure + ; + in-application *************** *** 352,363 **** then ; immediate - : \IN-SYSTEM-OK ( -<line_to_interpret>- ) - \ *G Suppress in-system warnings for the rest of the current line, restoring the previous - \ ** state of the sys-warning? flag afterwards, even if an error occurs. - sys-warning? >r - sys-warning-off - ['] interpret catch - r> to sys-warning? throw ; immediate - IN-APPLICATION --- 370,373 ---- Index: SEE.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/SEE.F,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** SEE.F 15 May 2008 04:28:27 -0000 1.10 --- SEE.F 16 Jul 2008 20:48:24 -0000 1.11 *************** *** 59,63 **** OVER sys-origin sys-here within or over code-origin code-here within or ! IF DUP >R @ CASE DOVALUE OF R@ .NAME ENDOF DOVALUE! OF R@ ." TO " 2 CELLS - .NAME ENDOF --- 59,63 ---- OVER sys-origin sys-here within or over code-origin code-here within or ! IF DUP>R @ CASE DOVALUE OF R@ .NAME ENDOF DOVALUE! OF R@ ." TO " 2 CELLS - .NAME ENDOF *************** *** 277,280 **** --- 277,283 ---- .name ; + : .Import ( cfa -- ) + >body dup cell+ @ . ." Import: " @ .proc-name ; + 0 value a_value *************** *** 295,298 **** --- 298,302 ---- doObj of .object endof doPointer of .pointer endof + doImport of .import endof swap .other endcase ; Index: GENERIC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** GENERIC.F 15 May 2008 04:28:26 -0000 1.20 --- GENERIC.F 16 Jul 2008 20:48:23 -0000 1.21 *************** *** 300,308 **** maxstring newuser gettext$ :M GetText: ( -- addr len ) \ *G The GetWindowText function copies the text of the window's title bar (if it has one) \ ** into a buffer. If the window is a control, the text of the control is copied. gettext$ hWnd ! -if over MAXCOUNTED 3reverse Call GetWindowText then ;M --- 300,310 ---- maxstring newuser gettext$ + 3 import: GetWindowText + :M GetText: ( -- addr len ) \ *G The GetWindowText function copies the text of the window's title bar (if it has one) \ ** into a buffer. If the window is a control, the text of the control is copied. gettext$ hWnd ! -if over MAXCOUNTED ( 3reverse Call ) GetWindowText then ;M |
1040 messages has been excluded from this view by a project administrator.
