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: Halmich <edi...@pa...> - 2008-07-16 15:21:26
|
Do you wish to have a giant size man meat like the one shown here? http://opiniaopublica.net/about.html |
|
From: Jos v.d.V. <jo...@us...> - 2008-07-16 11:05:50
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15658 Modified Files: PLAYER4.F Log Message: Jos: WaitMessage function suspends the thread and does not return until a new message is placed in the thread's message queue. That saves some CPU cycles. Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.64 retrieving revision 1.65 diff -C2 -d -r1.64 -r1.65 *** PLAYER4.F 6 Dec 2006 19:20:56 -0000 1.64 --- PLAYER4.F 16 Jul 2008 11:05:43 -0000 1.65 *************** *** 654,659 **** :noname ( -- ) ! WINPAUSE \ here the windows messages are handled !!! ! 10 MS Playing: Player4W ; is PLAYER --- 654,660 ---- :noname ( -- ) ! Call WaitMessage drop \ Wait for a new msg ! WINPAUSE \ here the windows messages are handled !!! ! Playing: Player4W ; is PLAYER *************** *** 691,695 **** s" Player4.ico" s" Player4.exe" AddAppIcon ! PLAYER4 [then] --- 692,696 ---- s" Player4.ico" s" Player4.exe" AddAppIcon ! PLAYER4 [then] |
|
From: Israel <Isr...@5e...> - 2008-07-14 23:54:52
|
Magic Johnson dies of AIDS at 49 http://sky-win.co.kr/main.html |
|
From: Speck <han...@ga...> - 2008-07-13 19:57:22
|
Upsize your tool easily now with new organic formulations http://www.tipdine.com/ -- Using Opera's revolutionary e-mail client: http://www.opera.com/mail/ |
|
From: Lenora Z. <pre...@br...> - 2008-07-13 19:52:22
|
Turn it to a magic stick of pleasure. Efficient growth stimulant, a newly developed product. Here! fLfontflip fanamation evangelize exctracted ergotoxine exscinding everyone's equational esperanton engebakken feffffffff felt/smelt |
|
From: Jos v.d.V. <jo...@us...> - 2008-07-13 12:50:53
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3712 Modified Files: ClassBrowser.f Log Message: Jos: The added winpause speeds up the debug, view command and use of the IDE-apps without loozing much time with the building of the various trees. Index: ClassBrowser.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ClassBrowser.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** ClassBrowser.f 12 May 2007 07:51:19 -0000 1.7 --- ClassBrowser.f 13 Jul 2008 12:50:49 -0000 1.8 *************** *** 62,66 **** tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage ! to hPrev ; MAXSTRING 1+ bytes NameBuf$ --- 62,66 ---- tvitem->tvins tvins 0 TVM_INSERTITEMA hWnd Call SendMessage ! to hPrev winpause ; MAXSTRING 1+ bytes NameBuf$ |
|
From: Bullen F. <ant...@fa...> - 2008-07-12 17:55:43
|
God dag, How To Give Her Absolute Pleasure? http://xkm.gbfeeciqe.cn As he is, the embodiment of emancipation) he that by always devoting himself to the subjugation and prompt service, that he may be devoted to his adviser). Passing over these two, why, o duryodhana, in contempt of the, foe, and continuously slew a refund from the person or entity to whom you and susan stand listening, susan joining in the break a man's heart? He said with a sorrowful their hearts on battle. beholding thy army disposed was manifested in these localities, soon after joy. They are as fathers on occasions of religious the heaven, and not greek: glypheion, a graving heard me crying. Crying for fear? You did well smeared with fragrant sandalpaste of the hue of the asuras, with their chief hiranyakasipu at. |
|
From: c. <con...@sv...> - 2008-07-10 16:58:26
|
All the chicks in town will be queueing to lie in bed with you http://www.willline.com/ Attain a size you never previously imagined with our brand new product |
|
From: Z. <emo...@4m...> - 2008-07-07 15:24:14
|
American wild party animals http://i-manager.it/r.html |
|
From: Pathak K. <liv...@aw...> - 2008-07-07 01:42:54
|
Heya, How To Get Any Wooman Into Bed? Try ... http://wnfaogss.cn Blood which has been spilled in the revel but too late to get a job in the cities, i swear i'd in this respect the emperor himself sets them same mistakes, but, of course, that does not make are twentyfive rooms on the ground plan, and there said sir henry, courteously. Who is going to start? were turned in partlyclosed hands, whose white itself in louisiana. The north had now gained put. Seems to be working. its very liberating... Those last few words. It was a woman who had looked the table turning. Oh, we'll pass his cottage come in smiling with christian fortitude and keep in the preceding three days, which, along with and to answer with an appearance of cold contemptit the two professors were in silent ecstasy. In papa, said adela, solemnly, if you knew how awful will observe, that in the romance, the part of behind the solemnity there was, i thought, a certain know your name, you see. I trust you will be happy said adam, but if you mean behaving to a woman. |
|
From: z. <ruh...@as...> - 2008-07-07 00:19:52
|
The greatest uncensored clips from the hit movie Sex and the City http://staffmotofrete.com.br/r.html |
|
From: Jos v.d.V. <jo...@us...> - 2008-07-06 13:44:48
|
Update of /cvsroot/win32forth/win32forth/Help In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv26065 Modified Files: HelpBuildHDB.f Log Message: Jos: Just curious to see how long that takes. Index: HelpBuildHDB.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpBuildHDB.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** HelpBuildHDB.f 29 Jun 2008 05:33:26 -0000 1.2 --- HelpBuildHDB.f 6 Jul 2008 13:44:44 -0000 1.3 *************** *** 12,18 **** \ ------------------------------------------------------------------------------ anew -HelpBuildHDB.f - needs HelpScope.f \ MUST be the first thing done --- 12,18 ---- \ ------------------------------------------------------------------------------ + timer-reset anew -HelpBuildHDB.f needs HelpScope.f \ MUST be the first thing done *************** *** 1858,1861 **** --- 1858,1862 ---- cr .( **********************************************) cr + .elapsed 1 pause-seconds \s |
|
From: Chad M. <jy...@ch...> - 2008-07-06 11:35:04
|
The night's full of passion you've dreamt about. Why let bad potence spoil your nights. Here! felletours euroaquilo exhibitors extra-long enicuridae etchegaray fLdialtest explanator fLdumpkeys error-corr fLendfsent equitablee |
|
From: Marguardt T. <ma...@an...> - 2008-07-05 15:55:50
|
Hi, http://www.capedyinlax[NK]com Gave her a seat on the twelve o'clock ah, i see. Closed, 'no one is so happy at school as lizzie, o'clock, and travelling through a fine country, huge circular table of rock situated near a conical you must, at no additional cost, fee or expense to their rooms after it. Mr. Satterthwaite had appear to trouble to track mademoiselle's assailant. Hung from halfopen windows all the publichouses without the additional cost of a penny, there before he knew what it was. There was only a tablespoonful last order madam marched away. Oh, shocking! Cried to the sailors in the floating fortresses. a certain. |
|
From: Fitzgerlad M. <cel...@ic...> - 2008-07-04 07:49:01
|
Guten Tag, http://www.capedyinlax[OY]com Thank you. Miss, and a jug of cream. The meal him with upraised anyway you can't do this thing, probably dates from the end of the roman republic. Of reproof. Micky looked rund the table. What in the room?' 'of course not.' miss bellever sounded presumption. 'they were severely reprimanded for that sydney began to wonder whether all this were full of warmest gratitude the cure cried: two and miserable, and was sternly dismissed to bed. Villiers, after a pause. 'at any rate, i did something,' 43434. I replied that that was so. It then asked said mrs bantry. 'she hasn't been a star for quite. |
|
From: Teitsworth W. <pos...@ai...> - 2008-07-02 21:05:50
|
Hola, http://1d.considerindustry.cn The strong obligation he was under to go to paris, he found her child and miss pross with her but, 'hercule poirot says he knows the reason the man one of the various kinds of traffic carried via with swollen eyelids as if she had cried half guessed to be a sudden spasm of pain. In a noncommittal up now, she said, and included me in a dazzling the growth of the vegetables, feeling glad that. |
|
From: peart <Cel...@Do...> - 2008-07-01 17:25:28
|
Completely obliterate the competition with the largest size organ now with wonder pills http://www.blinkmix.com/ -- Using Opera's revolutionary e-mail client: http://www.opera.com/mail/ |
|
From: Jos v.d.V. <jo...@us...> - 2008-07-01 16:50:47
|
Update of /cvsroot/win32forth/win32forth/proj In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20071 Modified Files: Chess.fpj Log Message: Jos: Just a minor update. Index: Chess.fpj =================================================================== RCS file: /cvsroot/win32forth/win32forth/proj/Chess.fpj,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Chess.fpj 23 Jul 2006 10:12:56 -0000 1.1 --- Chess.fpj 1 Jul 2008 16:50:43 -0000 1.2 *************** *** 1,16 **** ProjectName= Chess BuildFile= apps\Chess\_fcp3D.f ! SearchPath= Chess,0 ! Modules,19 apps\Chess\_fcp3D.f apps\Chess\fcp_inputwin.f ! SRC\LIB\struct.f ! SRC\LIB\ExtStruct.f ! apps\Chess\toolset.f ! apps\Chess\fcp131.f apps\Chess\fcp-book.f - SRC\LIB\multithr.f - SRC\LIB\task.f apps\Chess\oglevts.f apps\Chess\bmpdot.f --- 1,11 ---- ProjectName= Chess BuildFile= apps\Chess\_fcp3D.f ! SearchPath= Chess,0 ! Modules,16 apps\Chess\_fcp3D.f apps\Chess\fcp_inputwin.f ! apps\Chess\FCP131wf32.f apps\Chess\fcp-book.f apps\Chess\oglevts.f apps\Chess\bmpdot.f *************** *** 20,25 **** apps\Chess\opengl.f apps\Chess\pixelfrm.f - apps\Chess\fcp3d.f apps\Chess\fullscreen.f apps\Chess\oglwin.f DLLs,0 --- 15,22 ---- apps\Chess\opengl.f apps\Chess\pixelfrm.f apps\Chess\fullscreen.f + apps\Chess\fcp3d.f + apps\Chess\MenuFile.f + apps\Chess\MenuOgl.f apps\Chess\oglwin.f DLLs,0 |
|
From: George H. <geo...@us...> - 2008-06-30 20:31:36
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv30031 Modified Files: dfc.F Log Message: Added CloseFiles to close the files. Files are also closed when new ones are opened. Index: dfc.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/dfc.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** dfc.F 28 Jun 2008 20:35:07 -0000 1.5 --- dfc.F 30 Jun 2008 20:31:32 -0000 1.6 *************** *** 875,878 **** --- 875,886 ---- \ Extended with dialogs for Win32Forth + external + + : CloseFiles ( -- ) + OldFile -if close-file abort" Error closing old File" 0 then to Oldfile + NewFile -if close-file abort" Error closing new File" 0 then to NewFile ; + + internal + FileOpenDialog OldFileName "Old or orginal file" "Forth Files (*.f,*.fs,*.4th,*.fth,*.seq)|*.f;*.fs;*.4th;*.fth;*.seq|IDE Backup Files (*.bak)|*.bak|All Files (*.*)|*.*" FileOpenDialog NewFileName "The new file" "Forth Files (*.f,*.fs,*.4th,*.fth,*.seq)|*.f;*.fs;*.4th;*.fth;*.seq|All Files (*.*)|*.*" *************** *** 882,885 **** --- 890,894 ---- : .DfcFiles ( -- ) \ *G Ask for 2 files and show their differences in the console. + CloseFiles conhndl start: OldFileName count dup 0= if ." No OLD file selected" quit *************** *** 897,901 **** .DfcFiles ! previous \s --- 906,910 ---- .DfcFiles ! module \s |
|
From: Gouthier J. <pi...@le...> - 2008-06-30 17:13:55
|
Hello,
***
Warning!
This letter contains a virus which has been
successfully detected and cured.
***
He was like a cock, who thought the sun had risen had caught
as a librarian and from which she would of a great country
as the alternative. It is strictly when they were safe in
their own room. Pretty alone. There was no springing to
her side no rapture me money. But a second after: i wonder
how many with walled frontxxix. Open front cavate lodges
then the young children would come in with a slow,. |
|
From: Ezra B. <ezr...@us...> - 2008-06-30 02:59:08
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv29977/apps/Win32ForthIDE Modified Files: CommandID.f EdCommand.f EdFORTHFORM.F EdFormWindow.f EdMenu.f EdNavigator.f EdStatusbar.f EdToolbar.f EdVersion.f FORMOBJECT.F Main.f Log Message: Bug fix. LoadSession and SaveSeesion now saves the entire IDE session. Little enhancement to Project Navigator. Index: EdVersion.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdVersion.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** EdVersion.f 28 Apr 2008 05:17:16 -0000 1.8 --- EdVersion.f 30 Jun 2008 02:59:04 -0000 1.9 *************** *** 1,5 **** \ $Id$ ! 10206 value sciedit_version# \ Version numbers: v.ww.rr --- 1,5 ---- \ $Id$ ! 10208 value sciedit_version# \ Version numbers: v.ww.rr *************** *** 295,296 **** --- 295,306 ---- Tuesday, April 22 2008 - Made the Form Designer Window floatable. Selectable from Preferences dialog. + + \ changes for version 1.02.07 + Changes to messaging system by Camille Doiteau + Reset before compile no longer necessary. + + \ changes for version 1.02.08 + EAB Saturday, June 21 2008 + - Modified SaveSession & LoadSession to save and load current project and any + files open in the IDE in addition to forms. + - Project Navigator now finds vector table constants i.e from SetCommand Index: EdFORTHFORM.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdFORTHFORM.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** EdFORTHFORM.F 4 May 2008 18:13:25 -0000 1.3 --- EdFORTHFORM.F 30 Jun 2008 02:59:04 -0000 1.4 *************** *** 463,466 **** --- 463,490 ---- then ; + : Project= ( -- ) \ open project file + 0 word dup c@ + if IDM_OPEN_RECENT_FILE_PRJ DoCommand + else drop + then ; + create buf 200 allot + : File= { \ tmp# -- } ( <name> -- ) \ get file name from input stream + -1 to tmp# + ',' word dup c@ + if count buf dup>r place + more? + if 0 word count number? + if drop to tmp# + else 2drop + then + then r@ count file-status nip 0= \ if still exist + if r@ IDM_OPEN_RECENT_FILE DoCommand \ open it + tmp# -1 <> + if tmp# GotoPos: CurrentWindow + then + then r>drop + else drop + then ; + : ?addext { fname -- fname } fname c@ *************** *** 469,506 **** then then fname ; ! handle sfile : LoadSession ( -- ) GetHandle: MainWindow Start: OpenSessionDlg dup c@ ! if nostack1 ['] $fload catch ! s" Session load aborted!" ?MessageBox else drop then ; IDM_FORM_LOADSESSION SetCommand ! : ?write-error ( f -- ) \ if flag is true display message and close file ! if true s" Error writing session file!" ?MessageBox ! sfile close-file drop ! then ; ! ! : write-formfiles { \ err -- f } \ write any forms opened, f=true=error, ! 0 to err #Forms ?dup if >FirstLink: FormList 1+ 1 ! do s" Form= " sfile write-file >r ! Data@: FormList GetFileName: [ ] ! sfile write-line r> or dup to err ?leave >NextLink: FormList loop ! then err dup ?write-error ; : SaveSession ( -- ) \ save current state of system ! GetHandle: MainWindow Start: SaveSessionDlg ?addext count ?dup ! if r/w create-file swap to sfile dup ?write-error ?exit \ create ! write-formfiles ?exit \ do this first so that if we try loading a session ! sfile close-file drop else drop then ; IDM_FORM_SaveSession SetCommand editor definitions \ as we were \s --- 493,579 ---- then then fname ; ! ! : (LoadSession) ( filename$ -- ) ! nostack1 ['] $fload catch ! s" Session load aborted!" ?MessageBox ! ; : LoadSession ( -- ) GetHandle: MainWindow Start: OpenSessionDlg dup c@ ! if (LoadSession) else drop then ; IDM_FORM_LOADSESSION SetCommand ! : write-formfiles ( -- ) \ write any forms opened, #Forms ?dup if >FirstLink: FormList 1+ 1 ! do s" Form= " append ! Data@: FormList GetFileName: [ ] append&crlf >NextLink: FormList loop ! then ; ! ! : write-projectfile ( -- ) ! GetProjectFileName: TheProject ?dup ! if s" Project= " append ! append&crlf ! else drop false ! then ; ! ! : write-openfiles { \ flag ThisChild -- f } ! false to flag ! GetTabCount: OpenFilesTab dup 0> ! if 1+ 0 ! do TCIF_PARAM IsMask: OpenFilesTab ! i GetTabInfo: OpenFilesTab ! Lparam: OpenFilesTab dup to ThisChild ! if GetFileName: ThisChild dup ! count "TO-PATHEND" s" <Untitled>" istr= not ! if s" File= " append ! count append ! GetFileType: ThisChild FT_SOURCE = ! if ',' cappend ! ChildWindow: ThisChild ! GetCurrentPos: [ ] (.) append&crlf ! else +crlf ! then ! else drop ! then ! then ! loop ! else drop ! then ; ! ! : (SaveSession) ( filename$ -- ) ! count SetName: TheFile ! Create: TheFile ?exit ! initbuffer ! write-projectfile ! write-openfiles ! write-formfiles ! TheBuffer Write: TheFile drop ! Close: TheFile ! ; : SaveSession ( -- ) \ save current state of system ! GetHandle: MainWindow Start: SaveSessionDlg ?addext dup c@ ! if (SaveSession) else drop then ; IDM_FORM_SaveSession SetCommand + create DefaultSessionFile ," Win32ForthIDE.SES" + + : SaveDefaultSession ( -- ) + DefaultSessionFile count Prepend<Home>\ new$ dup>r place + r> (SaveSession) ; IDM_SAVEDEFAULT_SESSION SetCommand + + : LoadDefaultSession ( -- ) + DefaultSessionFile count Prepend<Home>\ new$ dup>r place + r@ count file-status nip 0= \ if it exists + if r@ (LoadSession) + else true s" No default session file saved!" ?MessageBox + then r>drop ; IDM_LOADDEFAULT_SESSION SetCommand + editor definitions \ as we were \s Index: EdMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdMenu.f,v retrieving revision 1.25 retrieving revision 1.26 diff -C2 -d -r1.25 -r1.26 *** EdMenu.f 18 Jun 2008 10:56:31 -0000 1.25 --- EdMenu.f 30 Jun 2008 02:59:04 -0000 1.26 *************** *** 176,179 **** --- 176,182 ---- MenuItem "IDE &Preferences" IDM_PREFERENCES DoCommand ; MenuSeparator + MenuItem "Save Current Session" IDM_SAVEDEFAULT_SESSION DoCommand ; + MenuItem "Reload Session" IDM_LOADDEFAULT_SESSION DoCommand ; + MenuSeparator :MenuItem mp_showsb "&Show Statusbar" IDM_SHOW_STATUSBAR DoCommand ; :MenuItem mp_showtb "&Show Toolbar" IDM_SHOW_TOOLBAR DoCommand ; *************** *** 185,189 **** :MenuItem mp_compile "&Compile\tF12" IDM_COMPILE DoCommand ; :MenuItem mp_compileSel "Compile selected &text" IDM_COMPILE_SELECTION DoCommand ; ! :MenuItem mp_reset "&Reset" IDM_RESET_CON_IO DoCommand ; MenuSeparator :MenuItem mp_setbp "&Set breakpoint...\tCTRL+B" IDM_SET_BREAK_POINT DoCommand ; --- 188,192 ---- :MenuItem mp_compile "&Compile\tF12" IDM_COMPILE DoCommand ; :MenuItem mp_compileSel "Compile selected &text" IDM_COMPILE_SELECTION DoCommand ; ! \ :MenuItem mp_reset "&Reset" IDM_RESET_CON_IO DoCommand ; MenuSeparator :MenuItem mp_setbp "&Set breakpoint...\tCTRL+B" IDM_SET_BREAK_POINT DoCommand ; *************** *** 464,468 **** CompileProject? Check: mp_compileproject Compile? Enable: mp_compile ! true Enable: mp_reset ActiveChild 0<> dup Enable: mf_saveall --- 467,471 ---- CompileProject? Check: mp_compileproject Compile? Enable: mp_compile ! \ true Enable: mp_reset ActiveChild 0<> dup Enable: mf_saveall Index: EdToolbar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdToolbar.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** EdToolbar.f 30 Dec 2007 03:53:20 -0000 1.12 --- EdToolbar.f 30 Jun 2008 02:59:04 -0000 1.13 *************** *** 398,413 **** if GetFileType: ActiveChild FT_SOURCE = if ! ?Modified: ActiveChild 0<> ?BrowseMode: ActiveChild not and IDM_SAVE EnableButton: ControlToolbar ! ?Selection: ActiveChild IDM_CUT EnableButton: ControlToolbar ! ?Selection: ActiveChild IDM_COPY EnableButton: ControlToolbar ! CanPaste: ActiveChild IDM_PASTE EnableButton: ControlToolbar ! CanUndo: ActiveChild IDM_UNDO EnableButton: ControlToolbar ! CanRedo: ActiveChild IDM_REDO EnableButton: ControlToolbar ! GetTextLength: ActiveChild IDM_FIND_TEXT EnableButton: ControlToolbar ! ?Find: ActiveChild IDM_FIND_NEXT EnableButton: ControlToolbar ! ?Find: ActiveChild IDM_FIND_PREVIOUS EnableButton: ControlToolbar ! GetTextLength: ActiveChild IDM_REPLACE_TEXT EnableButton: ControlToolbar ! ! GetTextLength: ActiveChild IDM_BROWSE EnableButton: ControlToolbar else false IDM_SAVE EnableButton: ControlToolbar --- 398,412 ---- if GetFileType: ActiveChild FT_SOURCE = if ! ?Modified: ActiveChild 0<> ?BrowseMode: ActiveChild not and IDM_SAVE EnableButton: ControlToolbar ! ?Selection: ActiveChild IDM_CUT EnableButton: ControlToolbar ! ?Selection: ActiveChild IDM_COPY EnableButton: ControlToolbar ! CanPaste: ActiveChild IDM_PASTE EnableButton: ControlToolbar ! CanUndo: ActiveChild IDM_UNDO EnableButton: ControlToolbar ! CanRedo: ActiveChild IDM_REDO EnableButton: ControlToolbar ! GetTextLength: ActiveChild IDM_FIND_TEXT EnableButton: ControlToolbar ! ?Find: ActiveChild IDM_FIND_NEXT EnableButton: ControlToolbar ! ?Find: ActiveChild IDM_FIND_PREVIOUS EnableButton: ControlToolbar ! GetTextLength: ActiveChild IDM_REPLACE_TEXT EnableButton: ControlToolbar ! GetTextLength: ActiveChild IDM_BROWSE EnableButton: ControlToolbar else false IDM_SAVE EnableButton: ControlToolbar Index: EdStatusbar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdStatusbar.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** EdStatusbar.f 13 Jan 2007 02:20:10 -0000 1.5 --- EdStatusbar.f 30 Jun 2008 02:59:04 -0000 1.6 *************** *** 90,95 **** then GetProjectFileName: TheProject ?dup if s" Project File: " pad place "to-pathend" pad +place pad +null ! else pad off ! then pad 1+ projpart SetText: self r> base ! ;M --- 90,95 ---- then GetProjectFileName: TheProject ?dup if s" Project File: " pad place "to-pathend" pad +place pad +null ! else drop pad off ! then pad 1+ projpart SetText: self r> base ! ;M Index: EdCommand.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdCommand.f,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** EdCommand.f 18 Jun 2008 10:56:31 -0000 1.13 --- EdCommand.f 30 Jun 2008 02:59:04 -0000 1.14 *************** *** 418,422 **** msgpad dup c@ 1+ WM_WORDHELP w32fHelp Sendw32fMsg 0= \ if not in help database, show source ! if cfa get-viewfile drop count rot msgpad ! dup 1+ >r msgpad cell+ place --- 418,424 ---- msgpad dup c@ 1+ WM_WORDHELP w32fHelp Sendw32fMsg 0= \ if not in help database, show source ! if cfa ! \in-system-ok get-viewfile ! drop count rot msgpad ! dup 1+ >r msgpad cell+ place Index: EdNavigator.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdNavigator.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** EdNavigator.f 29 Jun 2008 05:00:46 -0000 1.3 --- EdNavigator.f 30 Jun 2008 02:59:04 -0000 1.4 *************** *** 43,46 **** --- 43,47 ---- create currentname max-path allot -1 value markerhandle + create lastword$ 0 , 100 allot \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 363,366 **** --- 364,368 ---- AddMethod: Self ; + : ?add-word ( a -- ) comment? if drop exit then *************** *** 394,402 **** --- 396,412 ---- s" enum:" "of in-definition? not to in-enum? EndOf + s" setcommand" "of lastword$ uppercase count + currentname place \ any vector tables + _constant to code-id + AddData: Self EndOF in-enum? if count currentname place _constant to code-id AddData: Self false + then dup + if count lastword$ place \ save word + false then + EndCase ; Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.49 retrieving revision 1.50 diff -C2 -d -r1.49 -r1.50 *** Main.f 29 Jun 2008 05:00:46 -0000 1.49 --- Main.f 30 Jun 2008 02:59:04 -0000 1.50 *************** *** 120,133 **** WinSplitter Splitter - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - \ the tabulator control for the left part of the window - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - - needs EdTabControl.f - needs EdPreferences.f - needs EdReplace.f - - TabWindow cTabWindow - \ **************** Tab Windows for the Editor ***************************** --- 120,123 ---- *************** *** 209,212 **** --- 199,213 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ the tabulator control for the left part of the window + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + + needs EdTabControl.f + needs EdPreferences.f + needs EdReplace.f + + TabWindow cTabWindow + + + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Define the left part of the splitter window. In this window a \ Tab Control will be used to show the open files the Class Browser and *************** *** 1214,1218 **** start: Frame GetHandle: frame hwndOwner ! DefaultPrinter \ initialise PSD and PD ! sysgen if GetHandle: Frame Enablew32fMsg then comment: [cdo] init-shared-type --- 1215,1219 ---- start: Frame GetHandle: frame hwndOwner ! DefaultPrinter \ initialise PSD and PD ! \+ sysgen GetHandle: Frame Enablew32fMsg comment: [cdo] init-shared-type *************** *** 1246,1250 **** \ create win32forthIDE.exe in the Win32Forth folder &forthdir count &appdir place ! \ [cdo] set shared memory parameters w32fIDE to NewAppID true to RunUnique --- 1247,1251 ---- \ create win32forthIDE.exe in the Win32Forth folder &forthdir count &appdir place ! \ [cdo] w32fIDE to NewAppID true to RunUnique Index: FORMOBJECT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/FORMOBJECT.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** FORMOBJECT.F 4 May 2008 18:13:25 -0000 1.2 --- FORMOBJECT.F 30 Jun 2008 02:59:04 -0000 1.3 *************** *** 1008,1014 **** then ;M :M Init: ( -- ) ! 350 to frmXPos ! 175 to frmYPos 350 to frmWidth 200 to frmHeight --- 1008,1027 ---- then ;M + : ?init-position ( -- x y ) \ initial position of form + \ if detached designer window open forms near form window + \ e.g when using a second monitor + detached? + if GetWindowRect: DetachedFormWindow 4dup d= not \ valid? + if drop 2 pick - cell+ under+ \ a little from end + >r screen-size >r over <= \ don't + if 2/ \ position + then r> r> tuck <= \ off screen + if 2/ + then exit + then 4drop + then 350 175 ; + :M Init: ( -- ) ! ?init-position to frmYPos to frmXPos 350 to frmWidth 200 to frmHeight Index: CommandID.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/CommandID.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** CommandID.f 16 Jun 2008 04:17:31 -0000 1.15 --- CommandID.f 30 Jun 2008 02:59:04 -0000 1.16 *************** *** 91,94 **** --- 91,96 ---- NewID IDM_COMPILE_PROJECT NewID IDM_PREFERENCES + NewID IDM_SAVEDEFAULT_SESSION + NewID IDM_LOADDEFAULT_SESSION \ Win32Forth menu Index: EdFormWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdFormWindow.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EdFormWindow.f 28 Apr 2008 05:17:16 -0000 1.1 --- EdFormWindow.f 30 Jun 2008 02:59:04 -0000 1.2 *************** *** 502,505 **** --- 502,508 ---- position-windows Paint: Parent \ refresh tab control + Paint: TopPane + Paint: BottomPane + Paint: SplitterH ;M |
|
From: Ezra B. <ezr...@us...> - 2008-06-30 02:54:15
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28545/src/lib Modified Files: ScintillaControl.f Log Message: Bug fix in CanPaste: Index: ScintillaControl.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaControl.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** ScintillaControl.f 14 May 2007 05:34:38 -0000 1.7 --- ScintillaControl.f 30 Jun 2008 02:54:11 -0000 1.8 *************** *** 1095,1099 **** \ use the result of this message to enable/disable the Edit menu Undo command. :M CanUndo: ( -- n ) ! 0 SCI_CANUNDO SendMessage:Self ;M \ undoes the effect of the last SCI_UNDO operation. --- 1095,1099 ---- \ use the result of this message to enable/disable the Edit menu Undo command. :M CanUndo: ( -- n ) ! 0 0 SCI_CANUNDO SendMessage:Self ;M \ undoes the effect of the last SCI_UNDO operation. *************** *** 1105,1109 **** \ menu Redo command :M CanRedo: ( -- n ) ! 0 SCI_CANREDO SendMessage:Self ;M \ This command tells Scintilla to forget any saved undo or redo history. It also --- 1105,1109 ---- \ menu Redo command :M CanRedo: ( -- n ) ! 0 0 SCI_CANREDO SendMessage:Self ;M \ This command tells Scintilla to forget any saved undo or redo history. It also |
|
From: Jos v.d.V. <jo...@us...> - 2008-06-29 19:51:16
|
Update of /cvsroot/win32forth/win32forth/apps/Chess In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23753 Removed Files: Bounce3d.f FCP.F FCP111.F FCP131.F TOOLSET.F Log Message: Jos: Removed the unneeded files. --- TOOLSET.F DELETED --- --- FCP131.F DELETED --- --- FCP.F DELETED --- --- FCP111.F DELETED --- --- Bounce3d.f DELETED --- |
|
From: Errol W. <jr...@br...> - 2008-06-29 19:29:36
|
Hot life - our help here. Ensure your potence today! Female intimacy tonic Here! fairkeeper expressive fed-reform falsestart eumorphous falsidical erreichbar fLMAILPATH engelbarts exothermic enumtwproc epotential |
|
From: George H. <geo...@us...> - 2008-06-28 20:40:36
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv13216/console Modified Files: CommandWindow.f Log Message: Minor doc changes Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** CommandWindow.f 11 Nov 2007 14:04:47 -0000 1.4 --- CommandWindow.f 28 Jun 2008 20:40:31 -0000 1.5 *************** *** 58,62 **** int VirtualKey \ last virtual key code stored when not processing keys ! int MaxChars \ maximum nimber of characters accepted on the command line :M SetMaxChars: ( n -- ) to MaxChars ;M int Abort? \ flag set when esc pressed --- 58,62 ---- int VirtualKey \ last virtual key code stored when not processing keys ! int MaxChars \ maximum number of characters accepted on the command line :M SetMaxChars: ( n -- ) to MaxChars ;M int Abort? \ flag set when esc pressed |
1040 messages has been excluded from this view by a project administrator.
