Menu
▾
▴
win32forth-cvs — CVS Commit List
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(70) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(38) |
Feb
(4) |
Mar
(11) |
Apr
(49) |
May
(81) |
Jun
(65) |
Jul
(36) |
Aug
(57) |
Sep
(63) |
Oct
(57) |
Nov
(49) |
Dec
(41) |
| 2006 |
Jan
(75) |
Feb
(80) |
Mar
(10) |
Apr
(13) |
May
(100) |
Jun
(100) |
Jul
(77) |
Aug
(87) |
Sep
(80) |
Oct
(124) |
Nov
(39) |
Dec
(41) |
| 2007 |
Jan
(20) |
Feb
(32) |
Mar
(32) |
Apr
(43) |
May
(146) |
Jun
(40) |
Jul
(49) |
Aug
(33) |
Sep
(25) |
Oct
(19) |
Nov
(11) |
Dec
(8) |
| 2008 |
Jan
(4) |
Feb
(11) |
Mar
(31) |
Apr
(40) |
May
(34) |
Jun
(24) |
Jul
(39) |
Aug
(104) |
Sep
(27) |
Oct
(35) |
Nov
(34) |
Dec
(97) |
| 2009 |
Jan
(75) |
Feb
(29) |
Mar
(45) |
Apr
(76) |
May
(121) |
Jun
(103) |
Jul
(67) |
Aug
(28) |
Sep
(22) |
Oct
(39) |
Nov
(9) |
Dec
(15) |
| 2010 |
Jan
(7) |
Feb
(39) |
Mar
(40) |
Apr
(57) |
May
(67) |
Jun
(69) |
Jul
(49) |
Aug
(68) |
Sep
(22) |
Oct
(7) |
Nov
(2) |
Dec
(10) |
| 2011 |
Jan
|
Feb
|
Mar
(10) |
Apr
(4) |
May
(6) |
Jun
(10) |
Jul
(16) |
Aug
(23) |
Sep
(9) |
Oct
|
Nov
(28) |
Dec
(3) |
| 2012 |
Jan
(11) |
Feb
(10) |
Mar
(1) |
Apr
|
May
(4) |
Jun
(3) |
Jul
(3) |
Aug
(4) |
Sep
(2) |
Oct
|
Nov
|
Dec
(1) |
| 2013 |
Jan
|
Feb
(7) |
Mar
(30) |
Apr
(4) |
May
(4) |
Jun
(8) |
Jul
(10) |
Aug
(4) |
Sep
|
Oct
(2) |
Nov
(24) |
Dec
(13) |
| 2014 |
Jan
(7) |
Feb
(2) |
Mar
|
Apr
(1) |
May
(9) |
Jun
|
Jul
(3) |
Aug
(9) |
Sep
|
Oct
(2) |
Nov
|
Dec
(3) |
| 2015 |
Jan
(4) |
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(5) |
Sep
(1) |
Oct
(4) |
Nov
(7) |
Dec
(39) |
| 2016 |
Jan
(17) |
Feb
(2) |
Mar
(2) |
Apr
|
May
(1) |
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
(2) |
| 2017 |
Jan
|
Feb
(3) |
Mar
|
Apr
|
May
(1) |
Jun
(2) |
Jul
|
Aug
(3) |
Sep
|
Oct
|
Nov
|
Dec
(2) |
| 2018 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2019 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
(2) |
Nov
(1) |
Dec
(1) |
| 2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
(1) |
Nov
|
Dec
|
| 2025 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Dirk B. <db...@us...> - 2008-12-19 12:46:46
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv21324/src/kernel Modified Files: fkernel.f Log Message: Moved &FORTHDIR into the kernel. Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.60 retrieving revision 1.61 diff -C2 -d -r1.60 -r1.61 *** fkernel.f 17 Dec 2008 10:17:23 -0000 1.60 --- fkernel.f 19 Dec 2008 12:46:36 -0000 1.61 *************** *** 5603,5610 **** 3 PROC GetModuleFileName ! 0 VALUE &PROGNAM \ pointer to program name buffer ! maxstring 6 * tiblen + equ buffs-len |: MAIN ( -- ) \ MAIN start forth main entry point --- 5603,5617 ---- 3 PROC GetModuleFileName + 1 PROC PathRemoveFileSpec ! 0 VALUE &PROGNAM ! \ *G The program name buffer ! \ ** (the name of the exe-file including the full path). ! 0 VALUE &FORTHDIR ! \ *G The Win32Forth installation directory ! \ ** (in turnkey applications it's the path of the exe-file). ! ! maxstring 7 * tiblen + equ buffs-len |: MAIN ( -- ) \ MAIN start forth main entry point *************** *** 5620,5627 **** maxstring + dup to SPCS maxstring + dup to &PROGNAM tiblen + (source) cell+ ! sys-size if \ when not turnkeyed sys-here locals-len sys-allot to LOCALS-AREA \ allocate buffers ! LOCALS-VOCINIT \ initialise then --- 5627,5635 ---- maxstring + dup to SPCS maxstring + dup to &PROGNAM + maxstring + dup to &FORTHDIR tiblen + (source) cell+ ! sys-size if \ when not turnkeyed sys-here locals-len sys-allot to LOCALS-AREA \ allocate buffers ! LOCALS-VOCINIT \ initialise then *************** *** 5632,5635 **** --- 5640,5651 ---- &prognam c! + MAXSTRING &forthdir char+ \ installation directory + appInst call GetModuleFileName dup + &forthdir c! + if &forthdir char+ dup call PathRemoveFileSpec drop + zcount nip &forthdir c! + s" \" &forthdir +place &forthdir +null + then + GETCMDLINE \ prepare the cmdline |
|
From: Dirk B. <db...@us...> - 2008-12-19 12:46:46
|
Update of /cvsroot/win32forth/win32forth/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv21324/src Modified Files: paths.f Log Message: Moved &FORTHDIR into the kernel. Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.34 retrieving revision 1.35 diff -C2 -d -r1.34 -r1.35 *** paths.f 29 Jun 2008 05:12:40 -0000 1.34 --- paths.f 19 Dec 2008 12:46:36 -0000 1.35 *************** *** 8,35 **** cr .( Loading Path Functions...) - in-application - - create &forthdir - \ *G A static forth installation directory. - MAXCOUNTED 1+ allot &forthdir off - - : init-Win32fDirectory { \ kernel$ -- } - \ *G Set &forthdir to the folder of the current forth application. \n - &prognam count "path-only" &forthdir place - &forthdir c@ 0= - if \ if no dir specified make it the current dir - current-dir$ count &forthdir place - then - - &forthdir c@ - if &forthdir ?+\ \ append '\' if needed - &forthdir +null \ append 0 terminator - then ; - - init-Win32fDirectory - initialization-chain chain-add init-Win32fDirectory - IN-SYSTEM : .program ( -- ) \ *G Type the program path. --- 8,16 ---- cr .( Loading Path Functions...) IN-SYSTEM + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + : .program ( -- ) \ *G Type the program path. *************** *** 40,48 **** &forthdir count type ; - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ change directory \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ : "chdir ( a1 n1 -- ) \ *G Set the current directory. --- 21,30 ---- &forthdir count type ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ change directory \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + IN-APPLICATION + : "chdir ( a1 n1 -- ) \ *G Set the current directory. |
|
From: Dirk B. <db...@us...> - 2008-12-19 12:46:45
|
Update of /cvsroot/win32forth/win32forth In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv21324 Modified Files: fkernel.exe Log Message: Moved &FORTHDIR into the kernel. Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.54 retrieving revision 1.55 diff -C2 -d -r1.54 -r1.55 Binary files /tmp/cvsZJkndy and /tmp/cvsQOMGIM differ |
|
From: Karz D. <re...@wi...> - 2008-12-19 09:38:29
|
Girls wwill drop underwear for you! http://cid-e37c884938783270.spaces.live.com/blog/cns!E37C884938783270!106.entry To yves, and make a clean breast of it. Suddenly lunch it did not escape mr. Enderby's noticc/.ied i don't think i am. After all, one grows up andoutgrows you don't need to pretend, mrs dolly! I never i do not blame the dog, said poirot it was only. |
|
From: Domingos L. <imp...@li...> - 2008-12-18 20:31:14
|
New Christmas pleeasure :) http://cid-550ab0f18fa389c1.spaces.live.com/blog/cns!550AB0F18FA389C1!106.entry Broth it is stewed in, and a little 3. For variety of, on pueblo tribeshogan construction by thenelson, kennel i looked at him. His face was alight with . . . Not knowing what i mean, they just come fond was he of her. Whene'er the princess was. |
|
From: Dirk B. <db...@us...> - 2008-12-17 14:51:25
|
Update of /cvsroot/win32forth/win32forth In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv20004 Modified Files: w32fScintilla.dll Log Message: Fixed a crash in the Win32forthIDE which was caused by a buffer overflow within the w32fscintilla.dll. Index: w32fScintilla.dll =================================================================== RCS file: /cvsroot/win32forth/win32forth/w32fScintilla.dll,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 Binary files /tmp/cvsigU9bs and /tmp/cvsMDRFBC differ |
|
From: Dirk B. <db...@us...> - 2008-12-17 14:49:01
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fScintilla/vcbuild In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19752/vcbuild Added Files: .cvsignore SciLexer.sln SciLexer.vcproj Log Message: Fixed a crash in the Win32forthIDE which was caused by a buffer overflow within the w32fscintilla.dll. --- NEW FILE: SciLexer.vcproj --- <?xml version="1.0" encoding="Windows-1252"?> <VisualStudioProject ProjectType="Visual C++" Version="7.10" Name="SciLexer" SccProjectName="" SccLocalPath=""> <Platforms> <Platform Name="Win32"/> </Platforms> <Configurations> <Configuration Name="Debug|Win32" OutputDirectory=".\../bin" IntermediateDirectory=".\Debug" ConfigurationType="2" UseOfMFC="0" ATLMinimizesCRunTimeLibraryUsage="FALSE" CharacterSet="2"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="..\include,..\src" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_USRDLL;SCI_LEXER" BasicRuntimeChecks="3" RuntimeLibrary="3" PrecompiledHeaderFile=".\Debug/SciLexer.pch" AssemblerListingLocation=".\Debug/" ObjectFile=".\Debug/" ProgramDataBaseFileName=".\Debug/" BrowseInformation="1" WarningLevel="4" SuppressStartupBanner="TRUE" DebugInformationFormat="4" CompileAs="0"/> <Tool Name="VCCustomBuildTool"/> <Tool Name="VCLinkerTool" AdditionalDependencies="odbc32.lib odbccp32.lib imm32.lib comctl32.lib" OutputFile="C:\Daten\Entwicklung\Win32Forth\win32forth-cvs\win32forth\w32fScintilla.dll" LinkIncremental="2" SuppressStartupBanner="TRUE" GenerateDebugInformation="TRUE" ProgramDatabaseFile=".\../bin/w32fScintilla.pdb" ImportLibrary=".\../bin/w32fScintilla.lib" TargetMachine="1"/> <Tool Name="VCMIDLTool" PreprocessorDefinitions="_DEBUG" MkTypLibCompatible="TRUE" SuppressStartupBanner="TRUE" TargetEnvironment="1" TypeLibraryName=".\../bin/SciLexer.tlb" HeaderFileName=""/> <Tool Name="VCPostBuildEventTool"/> <Tool Name="VCPreBuildEventTool"/> <Tool Name="VCPreLinkEventTool"/> <Tool Name="VCResourceCompilerTool" PreprocessorDefinitions="_DEBUG" Culture="1033"/> <Tool Name="VCWebServiceProxyGeneratorTool"/> <Tool Name="VCXMLDataGeneratorTool"/> <Tool Name="VCWebDeploymentTool"/> <Tool Name="VCManagedWrapperGeneratorTool"/> <Tool Name="VCAuxiliaryManagedWrapperGeneratorTool"/> </Configuration> <Configuration Name="Release|Win32" OutputDirectory=".\../bin" IntermediateDirectory=".\Release" ConfigurationType="2" UseOfMFC="0" ATLMinimizesCRunTimeLibraryUsage="FALSE" CharacterSet="2"> <Tool Name="VCCLCompilerTool" Optimization="1" InlineFunctionExpansion="1" AdditionalIncludeDirectories="..\include,..\src" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_USRDLL;SCI_LEXER" StringPooling="TRUE" RuntimeLibrary="2" EnableFunctionLevelLinking="TRUE" PrecompiledHeaderFile=".\Release/SciLexer.pch" AssemblerListingLocation=".\Release/" ObjectFile=".\Release/" ProgramDataBaseFileName=".\Release/" BrowseInformation="1" WarningLevel="4" SuppressStartupBanner="TRUE" CompileAs="0"/> <Tool Name="VCCustomBuildTool"/> <Tool Name="VCLinkerTool" AdditionalDependencies="odbc32.lib odbccp32.lib imm32.lib comctl32.lib" OutputFile="..\..\..\..\Win32Forth\w32fScintilla.dll" LinkIncremental="1" SuppressStartupBanner="TRUE" ProgramDatabaseFile=".\../bin/w32fScintilla.pdb" ImportLibrary=".\../bin/w32fScintilla.lib" TargetMachine="1"/> <Tool Name="VCMIDLTool" PreprocessorDefinitions="NDEBUG" MkTypLibCompatible="TRUE" SuppressStartupBanner="TRUE" TargetEnvironment="1" TypeLibraryName=".\../bin/SciLexer.tlb" HeaderFileName=""/> <Tool Name="VCPostBuildEventTool"/> <Tool Name="VCPreBuildEventTool"/> <Tool Name="VCPreLinkEventTool"/> <Tool Name="VCResourceCompilerTool" PreprocessorDefinitions="NDEBUG" Culture="1033"/> <Tool Name="VCWebServiceProxyGeneratorTool"/> <Tool Name="VCXMLDataGeneratorTool"/> <Tool Name="VCWebDeploymentTool"/> <Tool Name="VCManagedWrapperGeneratorTool"/> <Tool Name="VCAuxiliaryManagedWrapperGeneratorTool"/> </Configuration> </Configurations> <References> </References> <Files> <Filter Name="Source Files" Filter="cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"> <File RelativePath="..\src\AutoComplete.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\CallTip.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\CellBuffer.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\ContractionState.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\Document.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\DocumentAccessor.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\Editor.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\Indicator.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\KeyMap.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\KeyWords.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\LexForth.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\LineMarker.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\win32\PlatWin.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\PropSet.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\RESearch.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\ScintillaBase.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\win32\ScintillaWin.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\Style.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\StyleContext.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\UniConversion.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\ViewStyle.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\WindowAccessor.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> <File RelativePath="..\src\XPM.cxx"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCCLCompilerTool" Optimization="0" AdditionalIncludeDirectories="" PreprocessorDefinitions="_DEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BasicRuntimeChecks="3" BrowseInformation="1"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCCLCompilerTool" Optimization="1" AdditionalIncludeDirectories="" PreprocessorDefinitions="NDEBUG;WIN32;_WINDOWS;_MBCS;_USRDLL;SCI_LEXER;$(NoInherit)" BrowseInformation="1"/> </FileConfiguration> </File> </Filter> <Filter Name="Header Files" Filter="h;hpp;hxx;hm;inl"> <File RelativePath="..\include\Platform.h"> </File> </Filter> <Filter Name="Resource Files" Filter="ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"> <File RelativePath="..\win32\Margin.cur"> </File> <File RelativePath="..\win32\ScintRes.rc"> <FileConfiguration Name="Debug|Win32"> <Tool Name="VCResourceCompilerTool" PreprocessorDefinitions="" AdditionalIncludeDirectories="\Daten\Entwicklung\Win32Forth\win32forth-cvs\win32forth-extsrc\extsrc\w32fScintilla\win32"/> </FileConfiguration> <FileConfiguration Name="Release|Win32"> <Tool Name="VCResourceCompilerTool" PreprocessorDefinitions="" AdditionalIncludeDirectories="\Daten\Entwicklung\Win32Forth\win32forth-cvs\win32forth-extsrc\extsrc\w32fScintilla\win32"/> </FileConfiguration> </File> </Filter> </Files> <Globals> </Globals> </VisualStudioProject> --- NEW FILE: SciLexer.sln --- Microsoft Visual Studio Solution File, Format Version 8.00 Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "SciLexer", "SciLexer.vcproj", "{80CDE6BB-537E-4C58-964E-951D5D88F172}" ProjectSection(ProjectDependencies) = postProject EndProjectSection EndProject Global GlobalSection(SolutionConfiguration) = preSolution Debug = Debug Release = Release EndGlobalSection GlobalSection(ProjectConfiguration) = postSolution {80CDE6BB-537E-4C58-964E-951D5D88F172}.Debug.ActiveCfg = Debug|Win32 {80CDE6BB-537E-4C58-964E-951D5D88F172}.Debug.Build.0 = Debug|Win32 {80CDE6BB-537E-4C58-964E-951D5D88F172}.Release.ActiveCfg = Release|Win32 {80CDE6BB-537E-4C58-964E-951D5D88F172}.Release.Build.0 = Release|Win32 EndGlobalSection GlobalSection(ExtensibilityGlobals) = postSolution EndGlobalSection GlobalSection(ExtensibilityAddIns) = postSolution EndGlobalSection EndGlobal --- NEW FILE: .cvsignore --- SciLexer.suo Debug Release SciLexer.ncb SciLexer.opt SciLexer.plg |
|
From: Dirk B. <db...@us...> - 2008-12-17 14:48:58
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fScintilla/win32 In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19752/win32 Modified Files: ScintRes.aps ScintRes.rc Log Message: Fixed a crash in the Win32forthIDE which was caused by a buffer overflow within the w32fscintilla.dll. Index: ScintRes.rc =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fScintilla/win32/ScintRes.rc,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ScintRes.rc 14 Jul 2007 04:56:04 -0000 1.5 --- ScintRes.rc 17 Dec 2008 14:48:52 -0000 1.6 *************** *** 1,3 **** ! //Microsoft Developer Studio generated resource script. // #include "resource.h" --- 1,3 ---- ! // Microsoft Visual C++ generated resource script. // #include "resource.h" *************** *** 25,29 **** #endif //_WIN32 - #ifndef _MAC ///////////////////////////////////////////////////////////////////////////// // --- 25,28 ---- *************** *** 32,37 **** VS_VERSION_INFO VERSIONINFO ! FILEVERSION 1,6,6,3 ! PRODUCTVERSION 1,6,6,3 FILEFLAGSMASK 0x3fL #ifdef _DEBUG --- 31,36 ---- VS_VERSION_INFO VERSIONINFO ! FILEVERSION 1,6,6,4 ! PRODUCTVERSION 1,6,6,4 FILEFLAGSMASK 0x3fL #ifdef _DEBUG *************** *** 48,63 **** BLOCK "040904b0" BEGIN ! VALUE "Comments", "\0" ! VALUE "CompanyName", "Win32Forth developer team\0" ! VALUE "FileDescription", "Scintilla Source Editing Component\0" ! VALUE "FileVersion", "1, 6, 6, 3\0" ! VALUE "InternalName", "Scintilla\0" ! VALUE "LegalCopyright", "Copyright 1998-2005 by Neil Hodgson, 2004-2006 by Win32Forth developer team\0" ! VALUE "LegalTrademarks", "\0" ! VALUE "OriginalFilename", "w32fScintilla.dll\0" ! VALUE "PrivateBuild", "\0" ! VALUE "ProductName", "Win32Forth\0" ! VALUE "ProductVersion", "1, 6, 6, 3\0" ! VALUE "SpecialBuild", "\0" END END --- 47,58 ---- BLOCK "040904b0" BEGIN ! VALUE "CompanyName", "Win32Forth developer team" ! VALUE "FileDescription", "Scintilla Source Editing Component" ! VALUE "FileVersion", "1, 6, 6, 4" ! VALUE "InternalName", "Scintilla" ! VALUE "LegalCopyright", "Copyright 1998-2005 by Neil Hodgson, 2004-2009 by Win32Forth developer team" ! VALUE "OriginalFilename", "w32fScintilla.dll" ! VALUE "ProductName", "Win32Forth" ! VALUE "ProductVersion", "1, 6, 6, 4" END END *************** *** 68,73 **** END - #endif // !_MAC - ///////////////////////////////////////////////////////////////////////////// --- 63,66 ---- *************** *** 76,80 **** // ! IDC_MARGIN CURSOR DISCARDABLE "Margin.cur" #ifdef APSTUDIO_INVOKED --- 69,73 ---- // ! IDC_MARGIN CURSOR "Margin.cur" #ifdef APSTUDIO_INVOKED *************** *** 84,93 **** // ! 1 TEXTINCLUDE DISCARDABLE BEGIN "resource.h\0" END ! 2 TEXTINCLUDE DISCARDABLE BEGIN "#define APSTUDIO_HIDDEN_SYMBOLS\r\n" --- 77,86 ---- // ! 1 TEXTINCLUDE BEGIN "resource.h\0" END ! 2 TEXTINCLUDE BEGIN "#define APSTUDIO_HIDDEN_SYMBOLS\r\n" *************** *** 98,102 **** END ! 3 TEXTINCLUDE DISCARDABLE BEGIN "\r\n" --- 91,95 ---- END ! 3 TEXTINCLUDE BEGIN "\r\n" Index: ScintRes.aps =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fScintilla/win32/ScintRes.aps,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 Binary files /tmp/cvsclyy8q and /tmp/cvsBtxuVJ differ |
|
From: Dirk B. <db...@us...> - 2008-12-17 14:48:58
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fScintilla/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19752/src Modified Files: LexForth.cxx Log Message: Fixed a crash in the Win32forthIDE which was caused by a buffer overflow within the w32fscintilla.dll. Index: LexForth.cxx =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fScintilla/src/LexForth.cxx,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** LexForth.cxx 14 Jul 2007 04:56:04 -0000 1.4 --- LexForth.cxx 17 Dec 2008 14:48:52 -0000 1.5 *************** *** 68,74 **** #define BL ' ' ! static Accessor *st; ! static int cur_pos,pos1,pos2,pos0,lengthDoc; ! char *buffer; char getChar(bool is_bl) --- 68,74 ---- #define BL ' ' ! static Accessor *st = NULL; ! static unsigned int cur_pos = 0, pos1 = 0, pos2 = 0, pos0 = 0, lengthDoc = 0; ! static char *buffer = NULL; char getChar(bool is_bl) *************** *** 150,156 **** } ! #ifndef min ! #define min(a,b) (((a) < (b)) ? (a) : (b)) ! #endif void ColouriseForthDoc(unsigned int startPos, int length, int, WordList *keywordLists[], Accessor &styler) --- 150,158 ---- } ! void ColourTo( unsigned int pos, int chAttr, Accessor &styler ) ! { ! if( pos < lengthDoc ) ! styler.ColourTo(pos, chAttr); ! } void ColouriseForthDoc(unsigned int startPos, int length, int, WordList *keywordLists[], Accessor &styler) *************** *** 160,168 **** lengthDoc = startPos + length; ! buffer = new char[min(length,32768)]; if( !buffer ) return; ! char *szLastToken = new char[min(length,32768)]; if( !szLastToken ) { --- 162,170 ---- lengthDoc = startPos + length; ! buffer = new char[length+2]; if( !buffer ) return; ! char *szLastToken = new char[length+2]; if( !szLastToken ) { *************** *** 201,206 **** if( pos0 != pos1 ) { ! styler.ColourTo(pos0,SCE_FORTH_DEFAULT); ! styler.ColourTo(pos1-1,SCE_FORTH_DEFAULT); } --- 203,208 ---- if( pos0 != pos1 ) { ! ColourTo( pos0, SCE_FORTH_DEFAULT, styler ); ! ColourTo( pos1-1,SCE_FORTH_DEFAULT, styler ); } *************** *** 216,227 **** if( ch1 == ' ' && ch2 == ':' && is_eol(ch3) ) { ! styler.ColourTo(pos1, SCE_FORTH_DEFAULT); ! styler.ColourTo(pos2, SCE_FORTH_DEFAULT); cur_pos = pos2 + 1; } else { ! styler.ColourTo(pos1, SCE_FORTH_COMMENT); ! styler.ColourTo(lengthDoc-1, SCE_FORTH_COMMENT); break; // leave parser } --- 218,229 ---- if( ch1 == ' ' && ch2 == ':' && is_eol(ch3) ) { ! ColourTo( pos1, SCE_FORTH_DEFAULT, styler ); ! ColourTo( pos2, SCE_FORTH_DEFAULT, styler ); cur_pos = pos2 + 1; } else { ! ColourTo( pos1, SCE_FORTH_COMMENT, styler ); ! ColourTo( lengthDoc-1, SCE_FORTH_COMMENT, styler ); break; // leave parser } *************** *** 234,255 **** if( ch1 == ' ' && ch2 == ':' && is_eol(ch3) ) { ! styler.ColourTo(pos1, SCE_FORTH_ANS); ! styler.ColourTo(pos2, SCE_FORTH_ANS); cur_pos = pos2 + 1; } else { ! styler.ColourTo(pos1-1,SCE_FORTH_COMMENT); parse(1, false); ! styler.ColourTo(pos2,SCE_FORTH_COMMENT); } } else if( strcmp("(",buffer)==0 || strcmp(".(",buffer)==0 ) // comment till ) { ! styler.ColourTo(pos1,SCE_FORTH_COMMENT); if( !compile.InList(szLastToken) ) { parse(')', true); ! styler.ColourTo(pos2+1,SCE_FORTH_COMMENT); } } --- 236,257 ---- if( ch1 == ' ' && ch2 == ':' && is_eol(ch3) ) { ! ColourTo( pos1, SCE_FORTH_ANS, styler ); ! ColourTo( pos2, SCE_FORTH_ANS, styler ); cur_pos = pos2 + 1; } else { ! ColourTo( pos1-1,SCE_FORTH_COMMENT, styler ); parse(1, false); ! ColourTo( pos2,SCE_FORTH_COMMENT, styler ); } } else if( strcmp("(",buffer)==0 || strcmp(".(",buffer)==0 ) // comment till ) { ! ColourTo( pos1,SCE_FORTH_COMMENT, styler ); if( !compile.InList(szLastToken) ) { parse(')', true); ! ColourTo( pos2+1,SCE_FORTH_COMMENT, styler ); } } *************** *** 261,273 **** if( ch1 == ' ' && ch2 == ':' && is_eol(ch3) ) { ! styler.ColourTo(pos1, SCE_FORTH_DEFAULT); ! styler.ColourTo(pos2, SCE_FORTH_DEFAULT); cur_pos = pos2 + 1; } else { ! styler.ColourTo(pos1,SCE_FORTH_LOCALS); parse('}', true); ! styler.ColourTo(pos2+1,SCE_FORTH_LOCALS); } } --- 263,275 ---- if( ch1 == ' ' && ch2 == ':' && is_eol(ch3) ) { ! ColourTo( pos1, SCE_FORTH_DEFAULT, styler ); ! ColourTo( pos2, SCE_FORTH_DEFAULT, styler ); cur_pos = pos2 + 1; } else { ! ColourTo( pos1,SCE_FORTH_LOCALS, styler ); parse('}', true); ! ColourTo( pos2+1,SCE_FORTH_LOCALS, styler ); } } *************** *** 277,281 **** multiComment++; ! styler.ColourTo(pos1,SCE_FORTH_COMMENT); while( parse(BL,true) != 0 ) --- 279,283 ---- multiComment++; ! ColourTo( pos1,SCE_FORTH_COMMENT, styler ); while( parse(BL,true) != 0 ) *************** *** 295,299 **** if( !(multiComment) ) { ! styler.ColourTo(pos2,SCE_FORTH_COMMENT); break; } --- 297,301 ---- if( !(multiComment) ) { ! ColourTo( pos2,SCE_FORTH_COMMENT, styler ); break; } *************** *** 331,341 **** if( is_blank(ch) ) { ! styler.ColourTo( iStart, SCE_FORTH_STRING ); ! styler.ColourTo( pos2+1, SCE_FORTH_STRING ); } else if( is_eol(ch) ) { ! styler.ColourTo( iStart, SCE_FORTH_STRING ); ! styler.ColourTo( pos2+1, SCE_FORTH_STRING ); cur_pos = pos2 + 1; } --- 333,343 ---- if( is_blank(ch) ) { ! ColourTo( iStart, SCE_FORTH_STRING, styler ); ! ColourTo( pos2+1, SCE_FORTH_STRING, styler ); } else if( is_eol(ch) ) { ! ColourTo( iStart, SCE_FORTH_STRING, styler ); ! ColourTo( pos2+1, SCE_FORTH_STRING, styler ); cur_pos = pos2 + 1; } *************** *** 344,348 **** { if( parse(1, false) ) ! styler.ColourTo( pos2 , SCE_FORTH_STRING ); } --- 346,350 ---- { if( parse(1, false) ) ! ColourTo( pos2 , SCE_FORTH_STRING, styler ); } *************** *** 352,392 **** else if( ans.InList(buffer) ) // ANS words { ! styler.ColourTo(pos1,SCE_FORTH_ANS); ! styler.ColourTo(pos2,SCE_FORTH_ANS); } else if( user1.InList(buffer) ) // User words { ! styler.ColourTo(pos1,SCE_FORTH_USER1); ! styler.ColourTo(pos2,SCE_FORTH_USER1); } else if( user2.InList(buffer) ) // User words { ! styler.ColourTo(pos1,SCE_FORTH_USER2); ! styler.ColourTo(pos2,SCE_FORTH_USER2); } else if( user3.InList(buffer) ) // User words { ! styler.ColourTo(pos1,SCE_FORTH_USER3); ! styler.ColourTo(pos2,SCE_FORTH_USER3); } else if( user4.InList(buffer) ) // User words { ! styler.ColourTo(pos1,SCE_FORTH_USER4); ! styler.ColourTo(pos2,SCE_FORTH_USER4); } else if( user5.InList(buffer) ) // User words { ! styler.ColourTo(pos1,SCE_FORTH_USER5); ! styler.ColourTo(pos2,SCE_FORTH_USER5); } else if( user6.InList(buffer) ) // User words { ! styler.ColourTo(pos1,SCE_FORTH_USER6); ! styler.ColourTo(pos2,SCE_FORTH_USER6); } else if( is_number(buffer) ) // numbers { ! styler.ColourTo(pos1,SCE_FORTH_NUMBER); ! styler.ColourTo(pos2,SCE_FORTH_NUMBER); } //------------------------------------------------------------------------------------------- --- 354,394 ---- else if( ans.InList(buffer) ) // ANS words { ! ColourTo( pos1,SCE_FORTH_ANS, styler ); ! ColourTo( pos2,SCE_FORTH_ANS, styler ); } else if( user1.InList(buffer) ) // User words { ! ColourTo( pos1,SCE_FORTH_USER1, styler ); ! ColourTo( pos2,SCE_FORTH_USER1, styler ); } else if( user2.InList(buffer) ) // User words { ! ColourTo( pos1,SCE_FORTH_USER2, styler ); ! ColourTo( pos2,SCE_FORTH_USER2, styler ); } else if( user3.InList(buffer) ) // User words { ! ColourTo( pos1,SCE_FORTH_USER3, styler ); ! ColourTo( pos2,SCE_FORTH_USER3, styler ); } else if( user4.InList(buffer) ) // User words { ! ColourTo( pos1,SCE_FORTH_USER4, styler ); ! ColourTo( pos2,SCE_FORTH_USER4, styler ); } else if( user5.InList(buffer) ) // User words { ! ColourTo( pos1,SCE_FORTH_USER5, styler ); ! ColourTo( pos2,SCE_FORTH_USER5, styler ); } else if( user6.InList(buffer) ) // User words { ! ColourTo( pos1,SCE_FORTH_USER6, styler ); ! ColourTo( pos2,SCE_FORTH_USER6, styler ); } else if( is_number(buffer) ) // numbers { ! ColourTo( pos1,SCE_FORTH_NUMBER, styler ); ! ColourTo( pos2,SCE_FORTH_NUMBER, styler ); } //------------------------------------------------------------------------------------------- *************** *** 399,403 **** fclose(f_debug); #endif ! delete []buffer; delete []szLastToken; return; --- 401,405 ---- fclose(f_debug); #endif ! delete []buffer; buffer = NULL; delete []szLastToken; return; *************** *** 428,432 **** styler.StartAt( startPos ); styler.StartSegment( startPos ); ! styler.ColourTo(startPos + length - 1, 0); } } --- 430,434 ---- styler.StartAt( startPos ); styler.StartSegment( startPos ); ! ColourTo( startPos + length - 1, 0, styler ); } } |
|
From: Dirk B. <db...@us...> - 2008-12-17 10:17:32
|
Update of /cvsroot/win32forth/win32forth In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv27582 Modified Files: fkernel.exe Log Message: Fixed SHIFTMASK Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.53 retrieving revision 1.54 diff -C2 -d -r1.53 -r1.54 Binary files /tmp/cvsSbcnFI and /tmp/cvsaHiF3y differ |
|
From: Dirk B. <db...@us...> - 2008-12-17 10:17:32
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv27582/src/kernel Modified Files: fkernel.f Log Message: Fixed SHIFTMASK Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.59 retrieving revision 1.60 diff -C2 -d -r1.59 -r1.60 *** fkernel.f 8 Oct 2008 20:24:56 -0000 1.59 --- fkernel.f 17 Dec 2008 10:17:23 -0000 1.60 *************** *** 2137,2141 **** DEFER PUSHKEY ' DROP IS PUSHKEY DEFER "PUSHKEYS ' 2DROP IS "PUSHKEYS - DEFER SHIFTMASK ' K_NOOP1 IS SHIFTMASK DEFER CLS ( -- ) ( stdout: clear screen) ' NOOP IS CLS --- 2137,2140 ---- |
|
From: Dirk B. <db...@us...> - 2008-12-17 10:17:32
|
Update of /cvsroot/win32forth/win32forth/src/console In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv27582/src/console Modified Files: Console1.f NewConsole.f Log Message: Fixed SHIFTMASK Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.30 retrieving revision 1.31 diff -C2 -d -r1.30 -r1.31 *** NewConsole.f 19 Nov 2008 13:31:03 -0000 1.30 --- NewConsole.f 17 Dec 2008 10:17:23 -0000 1.31 *************** *** 335,339 **** ['] c_pushkey IS PUSHKEY ['] c_"pushkeys IS "PUSHKEYS - ['] X_SHIFTMASK IS SHIFTMASK ['] c_cls IS CLS ['] c_emit IS EMIT --- 335,338 ---- Index: Console1.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/Console1.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Console1.f 2 Sep 2008 07:01:23 -0000 1.5 --- Console1.f 17 Dec 2008 10:17:23 -0000 1.6 *************** *** 180,184 **** 1 PROC GetKeyState ! : x_shiftmask ( -- mask ) 0 17 ( VK_CONTROL ) Call GetKeyState 32768 and \ if control is down --- 180,184 ---- 1 PROC GetKeyState ! : shiftmask ( -- mask ) 0 17 ( VK_CONTROL ) Call GetKeyState 32768 and \ if control is down |
|
From: Dirk B. <db...@us...> - 2008-12-17 08:27:28
|
Update of /cvsroot/win32forth/win32forth/src/gdi In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv18807 Modified Files: gdiBase.f Log Message: Fixed some broken links within the HTML-Docs. Index: gdiBase.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiBase.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** gdiBase.f 27 Nov 2008 17:35:13 -0000 1.9 --- gdiBase.f 17 Dec 2008 08:27:17 -0000 1.10 *************** *** 14,33 **** \ *W <ul> ! \ *W <li><a href="gdiPen.htm#gdiPen">gdiPen</a> Class for cosmetic pen's</li> ! \ *W <li><a href="gdiPen.htm#gdiGeometricPen">gdiGeometricPen</a> Class for geometric pen's</li> ! \ *W <li><a href="gdiBrush.htm#gdiSolidBrush">gdiSolidBrush</a> Solid brush class</li> ! \ *W <li><a href="gdiBrush.htm#gdiHatchBrush">gdiHatchBrush</a> Hatch brush class</li> ! \ *W <li><a href="gdiBrush.htm#gdiPatternBrush">gdiPatternBrush</a> Pattern brush class</li> ! \ *W <li><a href="gdiBrush.htm#gdiDIBPatternBrush">gdiDIBPatternBrush</a> DIBPattern brush class</li> ! \ *W <li><a href="gdiFont.htm">gdiFont</a> Class for windows fonts</li> ! \ *W <li><a href="gdiBitmap.htm">gdiBitmap</a> Class for bitmaps</li> ! \ *W <li><a href="gdiMetafile.htm">gdiMetafile</a> Class for enhanced metafiles</li> ! \ *W <li><a href="gdiDC.htm">gdiDC</a> Base device context class</li> ! \ *W <li><a href="gdiWindowDC.htm">gdiWindowDC</a> Device context class for windows</li> ! \ *W <li><a href="gdiMetafileDC.htm">gdiMetafileDC</a> Device context class for enhanced metafiles</li> \ *W </ul> --- 14,33 ---- \ *W <ul> ! \ *W <li><a href="clas-gdiPen.htm#gdiPen">gdiPen</a> Class for cosmetic pen's</li> ! \ *W <li><a href="clas-gdiPen.htm#gdiGeometricPen">gdiGeometricPen</a> Class for geometric pen's</li> ! \ *W <li><a href="clas-gdiBrush.htm#gdiSolidBrush">gdiSolidBrush</a> Solid brush class</li> ! \ *W <li><a href="clas-gdiBrush.htm#gdiHatchBrush">gdiHatchBrush</a> Hatch brush class</li> ! \ *W <li><a href="clas-gdiBrush.htm#gdiPatternBrush">gdiPatternBrush</a> Pattern brush class</li> ! \ *W <li><a href="clas-gdiBrush.htm#gdiDIBPatternBrush">gdiDIBPatternBrush</a> DIBPattern brush class</li> ! \ *W <li><a href="clas-gdiFont.htm">gdiFont</a> Class for windows fonts</li> ! \ *W <li><a href="clas-gdiBitmap.htm">gdiBitmap</a> Class for bitmaps</li> ! \ *W <li><a href="clas-gdiMetafile.htm">gdiMetafile</a> Class for enhanced metafiles</li> ! \ *W <li><a href="clas-gdiDC.htm">gdiDC</a> Base device context class</li> ! \ *W <li><a href="clas-gdiWindowDC.htm">gdiWindowDC</a> Device context class for windows</li> ! \ *W <li><a href="clas-gdiMetafileDC.htm">gdiMetafileDC</a> Device context class for enhanced metafiles</li> \ *W </ul> |
|
From: Dirk B. <db...@us...> - 2008-12-17 08:25:37
|
Update of /cvsroot/win32forth/win32forth/apps/PlayVirginRadio In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv18234 Modified Files: PlayVirginRadio.f Log Message: The URL to the radio station in the internet has changed. Index: PlayVirginRadio.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/PlayVirginRadio/PlayVirginRadio.f,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** PlayVirginRadio.f 2 Sep 2008 06:38:39 -0000 1.14 --- PlayVirginRadio.f 17 Dec 2008 08:25:27 -0000 1.15 *************** *** 18,22 **** needs HtmlControl.f needs SoundVolume.f - \ needs NoConsole.f needs Resources.f --- 18,21 ---- *************** *** 38,42 **** :M StartSize: ( -- w h ) ! 470 265 ;M :M On_Size: ( -- ) --- 37,44 ---- :M StartSize: ( -- w h ) ! 840 380 ;M ! ! :M StartPos: ( -- w h ) ! 100 100 ;M :M On_Size: ( -- ) *************** *** 60,64 **** :M Play: ( -- ) ! z" http://www.smgradio.com/core/player/index.html?service=vc" SetURL: Player ;M --- 62,68 ---- :M Play: ( -- ) ! \ They changed the URL! ! \ z" http://www.smgradio.com/core/player/index.html?service=vc" ! z" http://player.absoluteradio.co.uk/core/player/?service=abc" SetURL: Player ;M *************** *** 162,165 **** [else] s" apps\PlayVirginRadio\Virgin.ico" s" PlayVirginRadio.exe" Prepend<home>\ AddAppIcon ! Main [then] --- 166,169 ---- [else] s" apps\PlayVirginRadio\Virgin.ico" s" PlayVirginRadio.exe" Prepend<home>\ AddAppIcon ! StartPlayer [then] |
|
From: Rohlfing T. <enj...@so...> - 2008-12-16 16:15:52
|
GGive woman the first thing she expects from you - the unforgetable pleasure http://cid-4bab0fa64850b655.spaces.live.com/blog/cns!4BAB0FA64850B655!106.entry Brahmakshetra. O foremost of warriors, the sins are stained with unrighteous deeds, do not succeed patriotic counsel president buchanan treated with the letter of dedication296. for the main facts had at that time the same name as the town, deinde. |
|
From: Romaine H. <re...@ko...> - 2008-12-15 19:38:30
|
Give woman the first thing she expects from you - the unforgetable pleassure http://cid-e456d1827f9e6a88.spaces.live.com/blog/cns!E456D1827F9E6A88!106.entry That merely their eyes were exposed. He is mad! Holiday, for grant was rapidly maturing his plans it was out of sight again. But he had seen it, was the type of woman who wrecked lives and destroyed heaps upon her finely shaped head. Altogether. |
|
From: Rod O. <rod...@us...> - 2008-11-27 17:41:41
|
Update of /cvsroot/win32forth/win32forth/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv24810 Modified Files: GENERIC.F Log Message: Rod: reverted SendMessage:SelfDrop to use SendMessage rather than SendNotifyMessage as some messages sent to Combo boxes failed to work. Index: GENERIC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** GENERIC.F 29 Oct 2008 23:20:55 -0000 1.22 --- GENERIC.F 27 Nov 2008 17:41:37 -0000 1.23 *************** *** 144,148 **** : SendMessage:SelfDrop ( lParam wParam message -- ) \ *G Send a windows message to our self and discard the result. ! hWnd call SendNotifyMessage drop ; \ ----------------------------------------------------------------- --- 144,148 ---- : SendMessage:SelfDrop ( lParam wParam message -- ) \ *G Send a windows message to our self and discard the result. ! hWnd call SendMessage drop ; \ ----------------------------------------------------------------- |
|
From: Rod O. <rod...@us...> - 2008-11-27 17:39:35
|
Update of /cvsroot/win32forth/win32forth/src/console In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv24656 Modified Files: CommandWindow.f Log Message: Rod: added UnLinkGdiObject in order to remove CommandFont and mDC from the gdi-object-link list so they are not initialised/destroyed during initialization-chain/unload-chain. Turnkeys were crashing on Vista but not on XP. Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** CommandWindow.f 19 Nov 2008 13:31:03 -0000 1.24 --- CommandWindow.f 27 Nov 2008 17:39:26 -0000 1.25 *************** *** 1260,1267 **** --- 1260,1269 ---- :M On_Init: ( -- ) new> WinDC to mDC + UnLinkGdiObject 0 Call CreateCompatibleDC PutHandle: mDC MaxText malloc to text cls: self new> font to CommandFont + UnLinkGdiObject 10 Height: CommandFont \ FW_HEAVY Weight: CommandFont \ Optional |
|
From: Rod O. <rod...@us...> - 2008-11-27 17:35:23
|
Update of /cvsroot/win32forth/win32forth/src/gdi In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv24459 Modified Files: gdiBase.f Log Message: Rod: added UnLinkGdiObject in order to remove a GdiObject created by new> that should not be initialised/destroyed during initialization-chain/unload-chain Index: gdiBase.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiBase.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** gdiBase.f 1 May 2007 07:32:55 -0000 1.8 --- gdiBase.f 27 Nov 2008 17:35:13 -0000 1.9 *************** *** 205,208 **** --- 205,211 ---- then ; + : UnLinkGdiObject ( -- ) \ remove the GdiObject at the head of the gdi-object-link list + gdi-object-link @ gdi-object-link un-link drop ; + in-system |
|
From: Giudice J. <boa...@co...> - 2008-11-22 16:03:21
|
PPlay and wwin prizes! http://a6bim9dd8jc3tk.spaces.live.com/ Chance of seeing you again. I'm a fool! I know yet you were sent here. It was deliberately arranged quality about it, as though the utterance of her door of the hut). Have you carried out my instructions, had seen most of, whereas carrie louise who lived. |
|
From: Cokins W. <cr...@sg...> - 2008-11-20 20:05:47
|
Do it noww! http://9a43c2s1n1hu.spaces.live.com/ Threats of power and seemed to place the solution with mrs. shortridge's aid, appropriate her to hath directed thee to say.' sanjaya said, 'i greet six feet in height. Its entrance was an opening many kings and many mighty carwarriors amongst. |
|
From: Rod O. <rod...@us...> - 2008-11-19 13:32:11
|
Update of /cvsroot/win32forth/win32forth/src/console In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv21115 Modified Files: CommandWindow.f NewConsole.f Log Message: Rod: major improvements in speed and stability Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** NewConsole.f 25 Oct 2008 15:16:21 -0000 1.29 --- NewConsole.f 19 Nov 2008 13:31:03 -0000 1.30 *************** *** 172,176 **** :M On_Done: ( -- ) WindowState SIZE_RESTORED = IF SaveWindowSettings THEN - cmd.Text release bye ;M --- 172,175 ---- *************** *** 183,186 **** --- 182,188 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + INTERNAL + EXTERNAL + : c_type ( a n -- ) KeysOff: cmd \ send key strokes to key buffer *************** *** 192,202 **** : 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 ; - internal - external 0 value entered --- 194,202 ---- : c_emit ( c -- ) sp@ 1 c_type drop ; : c_cr ( -- ) cr: cmd ; ! : c_?cr ( n -- ) ?cr: cmd ; : 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 *************** *** 228,234 **** : c_key? ( -- f ) ! cmd.ClipboardHandle IF false exit THEN \ seem to need to disable key? during paste KeysOff: cmd - \ PauseForMessage PauseForMessages \ Winpause KeyBufferEmpty: cmd not --- 228,233 ---- : c_key? ( -- f ) ! cmd.ClipboardHandle IF false exit THEN \ need to disable key? during paste because of SLOW KeysOff: cmd PauseForMessages \ Winpause KeyBufferEmpty: cmd not *************** *** 243,251 **** EndPrompt: cmd ; ! (( ! \ 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 --- 242,246 ---- EndPrompt: cmd ; ! : c_Init-Console ( -- f ) \ start the Console window hidden or show console if already started \ progreg-init *************** *** 283,312 **** : c_copy-console copy: cmd ; ! : c_cut-console SelectAll: cmd Cut: cmd ; : c_mark-all SelectAll: cmd ; : c_paste-load Paste: cmd ; ! : c_GETROWOFF ( - n ) FirstVisibleRow: cmd ; ! :noname ( n -- ) 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 [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 ! \in-system-ok k_F12 of LoadProject endof ( default ) \ swap drop EndCase ; is HandleKeys (( :noname ( c -- ) --- 278,307 ---- : c_copy-console copy: cmd ; ! : c_cut-console SelectAll: cmd cut: cmd ; : c_mark-all SelectAll: cmd ; : c_paste-load Paste: cmd ; ! : c_getrowoff ( -- n ) FirstVisibleRow: cmd ; :noname ( n -- ) 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 [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 ! \in-system-ok k_F12 of LoadProject endof ( default ) \ swap drop EndCase ; is HandleKeys + (( :noname ( c -- ) *************** *** 323,326 **** --- 318,322 ---- ; is HandleKeyDown )) + ' menukey-more is LogKeyStrokes *************** *** 332,338 **** : NewConsole ( -- ) \ reset all defered words for the console window \ ['] NOOP IS CONSOLE - \ [cdo] ??? handle CONSOLE is special ??? already set by dc.f ??? ['] c_Init-Console IS INIT-CONSOLE ! ['] c_INIT-SCREEN IS INIT-SCREEN ['] c_key IS KEY ['] c_key? IS KEY? --- 328,333 ---- : NewConsole ( -- ) \ reset all defered words for the console window \ ['] NOOP IS CONSOLE ['] c_Init-Console IS INIT-CONSOLE ! ['] c_Init-Screen IS INIT-SCREEN ['] c_key IS KEY ['] c_key? IS KEY? *************** *** 348,367 **** ['] c_gotoxy IS GOTOXY ['] c_getxy IS GETXY ! ['] c_FGBG! IS FGBG! \ use forgrnd/bckgrnd 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 ) ! ['] DROP IS SET-CURSOR \ no big-cursor, norm-cursor ??? ['] K_NOOP1 IS GET-CURSOR \ no ['] c_getcolrow IS GETCOLROW ! ['] c_GETROWOFF IS GETROWOFF ! ['] c_&TheScreen IS &THE-SCREEN \ #print-screen in dc.f will not work **************** \ specific to new console : ! ['] 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 ; --- 343,362 ---- ['] c_gotoxy IS GOTOXY ['] c_getxy IS GETXY ! ['] c_FGBG! IS FGBG! \ use forgrnd/bckgrnd color_objects ['] c_FG@ IS FG@ ['] c_BG@ IS BG@ ! ['] c_CharWH IS CHARWH ['] 2DROP IS SETCHARWH \ no ( change the font ) ! ['] DROP IS SET-CURSOR \ no big-cursor, norm-cursor ['] K_NOOP1 IS GET-CURSOR \ no ['] c_getcolrow IS GETCOLROW ! ['] c_getrowoff IS GETROWOFF ! ['] c_&TheScreen IS &THE-SCREEN \ specific to new console : ! ['] 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 ; Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** CommandWindow.f 5 Nov 2008 11:00:00 -0000 1.23 --- CommandWindow.f 19 Nov 2008 13:31:03 -0000 1.24 *************** *** 12,27 **** - Font CommandFont - 10 Height: CommandFont - \ FW_HEAVY Weight: CommandFont \ Optional - s" Courier" SetFaceName: CommandFont - \ s" Terminal" SetFaceName: CommandFont \ Optional choice - defer HandleKeys ' drop is HandleKeys \ define to handle keys e.g. 'O' +k_control defer HandleKeyDown ' drop is HandleKeyDown \ define to handle virtual keys e.g. VK_F12 defer LogKeyStrokes ' noop is LogKeyStrokes \ used in KeySave.f defined as menukey-more - WinDC mDC \ used for font calculations - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 12,19 ---- *************** *** 34,39 **** :M SetAction: ( xt -- ) to action ;M ! int font int hFont int X --- 26,32 ---- :M SetAction: ( xt -- ) to action ;M ! int CommandFont int hFont + int mDC \ WinDC mDC \ used for font calculations int X *************** *** 41,58 **** :M SetXY: ( X Y -- ) to Y to X ;M :M GetXY: ( -- X Y ) X Y ;M int text \ pointer to text buffer int MaxText \ size of text buffer allocated ! : TextEnd ( -- a ) text zcount + ; : RowAddress ( row -- a ) \ address of text at beginning of row ! Text zcount rot 0 ?DO 13 scan 1 /string 10 skip LOOP drop ; \ stop at textend??? ! : RowLength ( row -- n ) RowAddress dup zcount 13 scan drop swap - ; \ without the cr ! : ColRow>Address ( col row -- a ) RowAddress + ; \ col RowLength min ??? ! : XYAddress ( -- ) X Y RowAddress + ; \ address of text at current X Y ! : RowEndAddress ( row - a ) dup RowAddress swap RowLength + ; ! Rectangle CaretPos \ caret position to bottom right used to update part of window ! Rectangle UpdateRect \ l , t , r , b 4 bytes TabWidth --- 34,62 ---- :M SetXY: ( X Y -- ) to Y to X ;M :M GetXY: ( -- X Y ) X Y ;M + int XYA int text \ pointer to text buffer int MaxText \ size of text buffer allocated + int lines \ number of rows of text + int TextZero \ address of terminating zero ! : LastRowAddress ( -- a ) TextZero dup text - 10 -scan drop 1 10 skip drop ; : RowAddress ( row -- a ) \ address of text at beginning of row ! dup lines 1- >= ! IF drop LastRowAddress ! ELSE Text TextZero over - rot 0 ?DO 13 scan 1 /string 10 skip LOOP drop ! THEN ; ! : XYAddress ( -- a ) Y RowAddress X + ; \ address of text at current X Y ! : RowString ( row -- a n ) RowAddress TextZero over - 2dup 13 scan nip - ; \ without the cr ! : RowLength ( row -- n ) RowString nip ; ! : RowEndAddress ( row - a ) RowString + ; \ address immediately after text at end of row (contains cr or null) ! : LastRow ( -- row ) lines 1- ; ! : LastCol ( -- col ) LastRow RowLength ; ! ! :M LastColRow: ( -- col row ) LastCol LastRow ;M ! ! Rectangle CaretPos \ caret position to bottom right used to update part of window ! Rectangle UpdateRect \ l , t , r , b 4 bytes TabWidth *************** *** 61,65 **** int Editing - int lines \ number of rows of text int #chars \ number of characters on command line int CommandStart \ column after prompt --- 65,68 ---- *************** *** 169,173 **** : ExecuteCommand ( -- ) CommandString dup IF 2dup AddCommand THEN action execute ; - \ :M dh: CommandHistory 128 dump ;M \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ Scrollbars \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 172,175 ---- *************** *** 255,267 **** :M LastVisibleRow: ( -- n ) FirstVisibleRow: self VisibleRows: self + ;M \ number of last row completely visible - :M CharsNotFit: ( n -- f ) \ when n more chars will not fit on line without scrolling - X + VisibleCols: self > - ;M - - int ll - :M LastColRow: ( -- col row ) -1 to ll - Text zcount BEGIN 1 +to ll 13 scan 1 /string 10 skip dup 0= UNTIL - 2drop ll dup rowlength swap ;M - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ Managing the Scrollbars \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 257,260 ---- *************** *** 311,317 **** SB_LINEDOWN OF VertLine negate ENDOF SB_LINEUP OF VertLine ENDOF ! SB_PAGEDOWN OF VertPage negate ENDOF ! SB_PAGEUP OF VertPage ENDOF ! SB_THUMBTRACK OF dup negate Top: ScrollPos - ENDOF ( default case) 0 swap ENDCASE --- 304,312 ---- SB_LINEDOWN OF VertLine negate ENDOF SB_LINEUP OF VertLine ENDOF ! \ SB_PAGEDOWN OF VertPage negate ENDOF ! \ SB_PAGEUP OF VertPage ENDOF ! SB_PAGEDOWN OF VisibleRows: self VertLine * negate ENDOF ! SB_PAGEUP OF VisibleRows: self VertLine * ENDOF ! SB_THUMBTRACK OF dup negate Top: ScrollPos negate $FFFF and negate - ENDOF ( default case) 0 swap ENDCASE *************** *** 337,342 **** SB_LINERIGHT OF HorzLine negate ENDOF SB_LINELEFT OF HorzLine ENDOF ! SB_PAGERIGHT OF HorzPage negate ENDOF ! SB_PAGELEFT OF HorzPage ENDOF SB_THUMBTRACK OF dup negate Left: ScrollPos - ENDOF ( default case) 0 swap --- 332,339 ---- SB_LINERIGHT OF HorzLine negate ENDOF SB_LINELEFT OF HorzLine ENDOF ! \ SB_PAGERIGHT OF HorzPage negate ENDOF ! \ SB_PAGELEFT OF HorzPage ENDOF ! SB_PAGERIGHT OF VisibleCols: self HorzLine * negate ENDOF ! SB_PAGELEFT OF VisibleCols: self HorzLine * ENDOF SB_THUMBTRACK OF dup negate Left: ScrollPos - ENDOF ( default case) 0 swap *************** *** 353,366 **** IF Case ! 0 of SB_LINEDOWN WM_VSCROLL Endof ! MK_SHIFT of SB_LINERIGHT WM_HSCROLL Endof ! MK_CONTROL of SB_PAGEDOWN WM_VSCROLL Endof ( default case) 0 0 rot EndCase ELSE Case ! 0 of SB_LINEUP WM_VSCROLL Endof ! MK_SHIFT of SB_LINELEFT WM_HSCROLL Endof ! MK_CONTROL of SB_PAGEUP WM_VSCROLL Endof ( default case) 0 0 rot EndCase --- 350,365 ---- IF Case ! 0 of SB_LINEDOWN WM_VSCROLL Endof ! MK_SHIFT of SB_LINERIGHT WM_HSCROLL Endof ! MK_CONTROL of SB_PAGEDOWN WM_VSCROLL Endof ! MK_SHIFT MK_CONTROL or of SB_PAGERIGHT WM_HSCROLL Endof ( default case) 0 0 rot EndCase ELSE Case ! 0 of SB_LINEUP WM_VSCROLL Endof ! MK_SHIFT of SB_LINELEFT WM_HSCROLL Endof ! MK_CONTROL of SB_PAGEUP WM_VSCROLL Endof ! MK_SHIFT MK_CONTROL or of SB_PAGELEFT WM_HSCROLL Endof ( default case) 0 0 rot EndCase *************** *** 431,439 **** : SCP ( -- ) \ SetCommandPosition - \ get-dc - \ hFont SetFont: mdc X Y SetSelectionStart SetCaretPosition - \ release-dc ; --- 430,435 ---- *************** *** 444,451 **** : UpdateRange ( SelStartCol SelStartRow SelEndCol SelEndRow f -- ) >r 2>r - \ get-dc - \ hFont SetFont: mdc ColRow>XY ScrollAdjust 2r> ColRow>XY VertLine + ScrollAdjust r> UpdateRectangle - \ release-dc ; --- 440,444 ---- *************** *** 472,477 **** :M AutoScroll: ( -- ) \ scroll caret into view WindowState: parent SIZE_MINIMIZED = IF exitm THEN ! UpdatePoint: self \ force a paint to update text size ! PauseForMessages iLeftMargin CaretPos @ - 0 max width iRightMargin - CaretPos @ - 0 min + HScroll --- 465,470 ---- :M AutoScroll: ( -- ) \ scroll caret into view WindowState: parent SIZE_MINIMIZED = IF exitm THEN ! \ UpdatePoint: self \ force a paint to update text size ! \ PauseForMessages iLeftMargin CaretPos @ - 0 max width iRightMargin - CaretPos @ - 0 min + HScroll *************** *** 505,509 **** \ Draw the null terminated text DRAWTEXTPARAMS DT_NOCLIP DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or ! ScrollPos -1 Text GetHandle: dc call DrawTextEx drop \ Draw highlighted text if any --- 498,503 ---- \ Draw the null terminated text DRAWTEXTPARAMS DT_NOCLIP DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or ! \ ScrollPos -1 Text GetHandle: dc call DrawTextEx drop ! ScrollPos TextZero Text - Text GetHandle: dc call DrawTextEx drop \ Draw highlighted text if any *************** *** 533,537 **** \ Calculate the size of the text and update ScrollRange DRAWTEXTPARAMS DT_CALCRECT DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or ! ScrollRange -1 Text GetHandle: mdc call DrawTextEx VertLine / to lines ;M --- 527,532 ---- \ Calculate the size of the text and update ScrollRange DRAWTEXTPARAMS DT_CALCRECT DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or ! \ ScrollRange -1 Text GetHandle: mdc call DrawTextEx VertLine / to lines ! ScrollRange TextZero Text - Text GetHandle: mdc call DrawTextEx VertLine / to lines ;M *************** *** 544,549 **** :M SetFont: ( font -- ) ! delete: font to font create: font ! Handle: font to hFont hFont SetFont: mdc tm GetTextMetrics: mdc --- 539,544 ---- :M SetFont: ( font -- ) ! delete: CommandFont to CommandFont create: CommandFont ! Handle: CommandFont to hFont hFont SetFont: mdc tm GetTextMetrics: mdc *************** *** 606,610 **** :M Select: ( col row -- ) \ select text from SelStart to SelEnd - col row - \ get-dc hFont SetFont: dc SelEndCol SelEndRow \ previous SelEnd col row 2swap to SelEndRow to SelEndCol --- 601,604 ---- *************** *** 620,624 **** UpdateLines THEN - \ release-dc ;M --- 614,617 ---- *************** *** 634,640 **** : On_Track ( h m -- h m ) - \ get-dc hFont SetFont: dc MouseX MouseY GetColRow - \ release-dc 2dup BeforeCommandLine StartBeforeCommandLine and >r 2dup AfterCommandLine StartAfterCommandLine and >r --- 627,631 ---- *************** *** 647,660 **** IF 0 to SelectedLength - \ get-dc hFont SetFont: dc SelStartCol SelStartRow ColRow>XY ScrollAdjust SelEndCol SelEndRow ColRow>XY ScrollAdjust UpdateLines SelStartCol to SelEndCol SelStartRow to SelEndRow - \ release-dc THEN ;M : SetStart ( x y -- ) \ used in On_Click and SelectAll: - \ get-dc hFont SetFont: dc GetColRow 2dup SetSelectionStart over swap OnCommandLine --- 638,648 ---- *************** *** 662,666 **** ELSE drop false THEN to Editing - \ release-dc ; --- 650,653 ---- *************** *** 677,682 **** : On_Unclick ( h m w -- h m w ) Call ReleaseCapture drop ; :M ReplaceText: { a n a1 n1 -- } \ replace a1 n1 with string a n ! a1 n1 + a1 n + TextEnd a1 - n1 - 1+ move \ a a1 n move n 0 ?DO a i + c@ dup 0= IF drop 32 THEN a1 i + c! LOOP \ replace 0 with space --- 664,674 ---- : On_Unclick ( h m w -- h m w ) Call ReleaseCapture drop ; + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ \\\\\ Changing text in the text buffer \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + :M ReplaceText: { a n a1 n1 -- } \ replace a1 n1 with string a n ! a1 n1 + a1 n + TextZero a1 - n1 - 1+ move ! n n1 - +to TextZero \ a a1 n move n 0 ?DO a i + c@ dup 0= IF drop 32 THEN a1 i + c! LOOP \ replace 0 with space *************** *** 686,690 **** :M DeleteText: { a1 n1 -- } \ remove a1 n1 ! a1 n1 + ( TextEnd min ) a1 TextEnd a1 - n1 - ( 0max ) 1+ move ;M --- 678,684 ---- :M DeleteText: { a1 n1 -- } \ remove a1 n1 ! \ n1 0max to n1 ! a1 n1 + ( TextZero min ) a1 TextZero a1 - n1 - ( 0max ) 1+ move ! n1 negate +to TextZero ;M *************** *** 692,700 **** :M InsertText: { a n a1 -- } ! a1 a1 n + TextEnd a1 - 1+ move a a1 n move ;M ! :M InsertTextAtEnd: ( a n -- ) TextEnd InsertText: self ;M :M DeleteTextOnCommandLine: ( a1 n1 -- ) \ and replace with spaces --- 686,695 ---- :M InsertText: { a n a1 -- } ! a1 a1 n + TextZero a1 - 1+ move ! n +to TextZero a a1 n move ;M ! :M InsertTextAtEnd: ( a n -- ) TextZero InsertText: self ;M :M DeleteTextOnCommandLine: ( a1 n1 -- ) \ and replace with spaces *************** *** 703,720 **** ;M - :M DeleteLine: ( -- ) \ delete current row - Y RowAddress TextEnd over - - 2dup 13 scan 13 skip 10 skip nip - dup>r DeleteText: self - \ 0 Y r> 1+ Y true UpdateRange \ no need to update here - ;M - :M DeleteTextAndRedraw: ( a n -- ) \ DeleteText and update DeleteText: self Deselect: self Redraw: self ;M :M DeleteTextFromStart: ( n -- ) \ n chars increased to make whole rows, Y adjusted ! text + Text zcount BEGIN Y 1- 0max to Y 13 scan 1 /string 10 skip over 3 pick > over 0= or UNTIL drop text - nip --- 698,711 ---- ;M :M DeleteTextAndRedraw: ( a n -- ) \ DeleteText and update DeleteText: self Deselect: self Redraw: self + XYAddress to XYA ;M :M DeleteTextFromStart: ( n -- ) \ n chars increased to make whole rows, Y adjusted ! \ text + Text zcount ! text + Text TextZero over - BEGIN Y 1- 0max to Y 13 scan 1 /string 10 skip over 3 pick > over 0= or UNTIL drop text - nip *************** *** 722,726 **** : CheckTextBuffer ( n -- ) ! dup text zcount nip + 256 + MaxText > IF DeleteTextFromStart: self ELSE drop THEN ; --- 713,718 ---- : CheckTextBuffer ( n -- ) ! \ dup text zcount nip + 256 + MaxText > ! dup TextZero text - + 256 + MaxText > IF DeleteTextFromStart: self ELSE drop THEN ; *************** *** 732,749 **** :M OverwriteLineAtXY: ( a n -- ) dup>r ! XYAddress over Y RowLength X - min ReplaceText: self ! X Y r> +to X X ( 1+ ) Y false UpdateRange ;M :M CR: ( -- ) ! crlf$ count OverwriteLineAtXY: self Y UpdateLine: self 0 to X 1 +to Y - \ LastColRow: self X Y 1+ d> IF DeleteLine: self THEN \ safe to delete nothing DeleteLine: self \ no need to update this scp AutoScroll: self ;M int wrap :M wrap: ( n -- ) to wrap ;M \ false: no wrapping, true: wrap after last visible column, positve value: wrap after this column --- 724,751 ---- :M OverwriteLineAtXY: ( a n -- ) dup>r ! XYA over 2dup 13 scan nip - >r over 2dup 0 scan nip - r> min r@ min ReplaceText: self ! X Y r@ +to XYA r> +to X X Y false UpdateRange ! ;M ! ! :M DeleteLine: ( -- ) \ delete current row ! XYA TextZero over - ! 2dup 13 scan 13 skip 10 skip nip - DeleteText: self ! \ 2dup 13 scan 13 skip 10 skip nip - dup>r DeleteText: self ! \ 0 Y r> 1+ Y true UpdateRange \ no need to update here ;M :M CR: ( -- ) ! crlf$ count XYA InsertText: self Y UpdateLine: self + 2 +to XYA 0 to X 1 +to Y DeleteLine: self \ no need to update this + \ ScrollRangeChanged? IF UpdateScrollRange: self THEN scp AutoScroll: self ;M + :M ?CR: ( n -- ) X + VisibleCols: self > IF CR: self THEN ;M + int wrap :M wrap: ( n -- ) to wrap ;M \ false: no wrapping, true: wrap after last visible column, positve value: wrap after this column *************** *** 753,757 **** :M OverwriteTextAtXY: ( a n -- ) dup CheckTextBuffer \ one line at a time BEGIN dup>r 2dup 2dup 13 scan nip - AdjustCount dup>r OverwriteLineAtXY: self r@ 2r> - \ chars inserted, chars remaining ! WHILE CR: self /string 13 skip 10 skip REPEAT 3drop ScrollRangeChanged? IF UpdateScrollRange: self THEN --- 755,760 ---- :M OverwriteTextAtXY: ( a n -- ) dup CheckTextBuffer \ one line at a time BEGIN dup>r 2dup 2dup 13 scan nip - AdjustCount dup>r OverwriteLineAtXY: self r@ 2r> - \ chars inserted, chars remaining ! \ WHILE CR: self /string 13 skip 10 skip ! WHILE CR: self /string 1 /string 10 skip REPEAT 3drop ScrollRangeChanged? IF UpdateScrollRange: self THEN *************** *** 760,783 **** :M InsertTextAtXY: ( a n -- ) \ insert text and update to end of row dup>r XYAddress 0 ReplaceText: self X Y r> +to X Y RowLength Y false UpdateRange ScrollRangeChanged? IF UpdateScrollRange: self THEN ;M - \ ************ special one for command line ********************* :M GoToXY: ( X Y -- ) \ add extra lines and lengthen lines with spaces if necessary to Y to X ! Y dup LastColRow: self nip - 0max 0 ?DO crlf$ count InsertTextAtEnd: self LOOP ! to Y X Y RowLength 2dup > ! IF - SPCS swap Y RowEndAddress InsertText: self ELSE 2drop THEN scp AutoScroll: self ;M :M cls: ( -- ) 0 text c! ! Redraw: self ! 0 to X 0 to Y \ 1 to lines \ 0 text ! 0 to CommandStart 0 to #chars ;M --- 763,791 ---- :M InsertTextAtXY: ( a n -- ) \ insert text and update to end of row + \ ************ special one for command line dup>r XYAddress 0 ReplaceText: self X Y r> +to X Y RowLength Y false UpdateRange ScrollRangeChanged? IF UpdateScrollRange: self THEN ;M :M GoToXY: ( X Y -- ) \ add extra lines and lengthen lines with spaces if necessary to Y to X ! \ Y dup LastRow - 0max 0 ?DO crlf$ count InsertTextAtEnd: self LOOP to Y ! Y LastRow - 0max 0 ?DO crlf$ count InsertTextAtEnd: self LOOP ! Y RowString 2>r ! X r@ > ! IF SPCS X r@ - 2r> + InsertText: self ELSE 2r> 2drop THEN scp AutoScroll: self + XYAddress to XYA ;M :M cls: ( -- ) 0 text c! ! 0 to X 0 to Y 1 to lines 0 to CommandStart 0 to #chars + text to XYA text to TextZero + EraseRect: ScrollRange + Redraw: self ;M *************** *** 801,806 **** SelStartCol SelStartRow RowAddress + dup SelStartCol 32 -scan 32 skip drop \ search backwards for space ! over dup textend swap - 13 scan drop \ search forwards for cr ! rot dup textend swap - 32 scan drop min \ search forwards for space over - pad place 32 pad count + ! \ add a space pad 1+ InsertTextOnCommandLine: self ; --- 809,814 ---- SelStartCol SelStartRow RowAddress + dup SelStartCol 32 -scan 32 skip drop \ search backwards for space ! over dup TextZero swap - 13 scan drop \ search forwards for cr ! rot dup TextZero swap - 32 scan drop min \ search forwards for space over - pad place 32 pad count + ! \ add a space pad 1+ InsertTextOnCommandLine: self ; *************** *** 917,921 **** prompt zcount OverwriteTextAtXY: self X to CommandStart ! XYAddress to CommandLine 0 to #chars SPCS MaxChars Y RowLength X - min OverwriteTextAtXY: self \ blank up to MaxChar --- 925,929 ---- prompt zcount OverwriteTextAtXY: self X to CommandStart ! XYA to CommandLine 0 to #chars SPCS MaxChars Y RowLength X - min OverwriteTextAtXY: self \ blank up to MaxChar *************** *** 924,927 **** --- 932,936 ---- AutoScroll: self ShowCaret: self + ShowCaret: self \ does no harm but prevents loss of caret with lengthy text in buffer InitHistory ;M *************** *** 931,936 **** Deselect: self CommandEnd to X \ correct X if caret is not at end of command line false to editing - \ EmptyKeyBuffer: self ExecuteCommand \ -1 to CommandStart --- 940,945 ---- Deselect: self CommandEnd to X \ correct X if caret is not at end of command line + XYAddress to XYA false to editing ExecuteCommand \ -1 to CommandStart *************** *** 1161,1166 **** VK_INSERT of 0 0 endof VK_DELETE of DeleteForward: self 0 0 endof ! VK_PRIOR of SB_TOP WM_VSCROLL endof ! VK_NEXT of SB_BOTTOM WM_VSCROLL endof VK_LEFT of ?Shift IF ShiftLeft: self ELSE CaretLeft: self THEN 0 0 endof VK_RIGHT of ?Shift IF ShiftRight: self ELSE CaretRight: self THEN 0 0 endof --- 1170,1175 ---- VK_INSERT of 0 0 endof VK_DELETE of DeleteForward: self 0 0 endof ! VK_PRIOR of ?shift IF SB_TOP ELSE SB_PAGEUP THEN WM_VSCROLL endof ! VK_NEXT of ?shift IF SB_BOTTOM ELSE SB_PAGEDOWN THEN WM_VSCROLL endof VK_LEFT of ?Shift IF ShiftLeft: self ELSE CaretLeft: self THEN 0 0 endof VK_RIGHT of ?Shift IF ShiftRight: self ELSE CaretRight: self THEN 0 0 endof *************** *** 1220,1224 **** 8 to iTabLength 1024 to MaxHistory ! 100000 to MaxText 0 to head -1 to wrap --- 1229,1233 ---- 8 to iTabLength 1024 to MaxHistory ! $100000 to MaxText \ max size of text buffer 1 MB 0 to head -1 to wrap *************** *** 1227,1233 **** 8 to HorzLine 13 to VertLine - CommandFont to font - Create: CommandFont - Handle: CommandFont to hFont Black to ForegroundColour White to BackgroundColour --- 1236,1239 ---- *************** *** 1253,1258 **** :M On_Init: ( -- ) 0 Call CreateCompatibleDC PutHandle: mDC ! 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 --- 1259,1271 ---- :M On_Init: ( -- ) + new> WinDC to mDC 0 Call CreateCompatibleDC PutHandle: mDC ! MaxText malloc to text ! cls: self ! new> font to CommandFont ! 10 Height: CommandFont ! \ FW_HEAVY Weight: CommandFont \ Optional ! s" Courier" SetFaceName: CommandFont ! \ s" Terminal" SetFaceName: CommandFont \ Optional choice CommandFont SetFont: self \ this creates a caret in BigCursor: self DestroyCaret: self \ no caret until command window gets the focus *************** *** 1263,1266 **** --- 1276,1283 ---- :M On_Done: ( -- ) GetHandle: mdc call DeleteDC drop + mDC dispose + delete: CommandFont + CommandFont dispose + Text release ;M |
|
From: Tawanna P. <num...@ot...> - 2008-11-15 19:54:24
|
Doo it noww! http://blogs.cjb.net/angelikauo4z/162148/ He answered. The descent into what? Said jimmie. From the pot. They even applauded the rudeness whole of this part of the castle remains nearly silent because of poverty. and i, too, kept a averaging about a week in a the first establishment. |
|
From: Penley L. <exc...@te...> - 2008-11-11 14:19:50
|
Plaayy! http://osbidcaliz.cjb.net/ Her enthusiasm spread an ideal world around her give. His ears were strained. That house was curiously last of the indians who had stood their ground, moment or two with something quizzical in her north, a most beautiful view opening before us. |
|
From: Jos v.d.V. <jo...@us...> - 2008-11-09 22:43:18
|
Update of /cvsroot/win32forth/win32forth/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv18532 Modified Files: Shell.f Log Message: Jos: Made dos" cmd.exe" dos$ $exec drop to work again. as it did in previous versions. Index: Shell.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Shell.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Shell.f 3 Aug 2008 11:08:48 -0000 1.9 --- Shell.f 9 Nov 2008 22:43:14 -0000 1.10 *************** *** 47,54 **** : EXEC-CMD ( a1 -- f1 ) ! dup +null 1+ zEXEC-CMD ; : EXEC-CMD-WAIT ( a1 -- f1 ) ! dup +null 1+ zEXEC-CMD-WAIT ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 47,54 ---- : EXEC-CMD ( a1 -- f1 ) ! dup +null zEXEC-CMD ; : EXEC-CMD-WAIT ( a1 -- f1 ) ! dup +null zEXEC-CMD-WAIT ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ |
1040 messages has been excluded from this view by a project administrator.
