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: George H. <geo...@us...> - 2011-08-19 12:59:50
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory vz-cvs-4.sog:/tmp/cvs-serv7816/Win32ForthIDE
Modified Files:
EdImageWindow.f Main.f
Log Message:
Updated url for radio plus minor mods to IDE
Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.69
retrieving revision 1.70
diff -C2 -d -r1.69 -r1.70
*** Main.f 28 Apr 2011 18:02:49 -0000 1.69
--- Main.f 19 Aug 2011 12:59:47 -0000 1.70
***************
*** 18,22 ****
only forth also editor definitions \ put all words into the EDITOR vocabulary
! true value sysgen
s" apps\win32forthIDE" "fpath+
--- 18,22 ----
only forth also editor definitions \ put all words into the EDITOR vocabulary
! true value sysgen
s" apps\win32forthIDE" "fpath+
***************
*** 838,842 ****
IF ExitScintillaControl \ terminate the Scintilla control
AccelTable DisableAccelerators \ free the accelerator table
! bye \ then terminate the program
ELSE 1 \ else abort program termination
THEN ;M
--- 838,842 ----
IF ExitScintillaControl \ terminate the Scintilla control
AccelTable DisableAccelerators \ free the accelerator table
! DestroyWindow: Self \ Destroy the window
ELSE 1 \ else abort program termination
THEN ;M
***************
*** 845,852 ****
Delete: TabFont
IDT_FILETIME GetHandle: self Call KillTimer drop
! \ (( [cdo] to be removed when SAVE & TURNKEY are ok
! \ [cdo] actually : is not TURNNKEYed ... but is harmless when SAVEd
! Turnkeyed? IF 0 call PostQuitMessage drop THEN
! \ ))
On_Done: Super ;M
--- 845,849 ----
Delete: TabFont
IDT_FILETIME GetHandle: self Call KillTimer drop
! \+ sysgen 0 call PostQuitMessage drop
On_Done: Super ;M
***************
*** 1634,1638 ****
[defined] sysgen [if]
-
: InitDir ( -- ) current-dir$ count SetDir: SourceFileOpenDialog ;
Initialization-chain Chain-add InitDir
--- 1631,1634 ----
Index: EdImageWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdImageWindow.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** EdImageWindow.f 13 Oct 2006 03:55:11 -0000 1.4
--- EdImageWindow.f 19 Aug 2011 12:59:47 -0000 1.5
***************
*** 1,3 ****
! \ EdImageWindow.f
cr .( Loading Image Viewer...)
--- 1,3 ----
! \ $Id$
cr .( Loading Image Viewer...)
|
|
From: George H. <geo...@us...> - 2011-08-18 17:37:03
|
Update of /cvsroot/win32forth/win32forth In directory vz-cvs-4.sog:/tmp/cvs-serv4048 Modified Files: fkernel.exe w32fScintilla.dll Log Message: Needed for rebuilding if you haven't recently Index: w32fScintilla.dll =================================================================== RCS file: /cvsroot/win32forth/win32forth/w32fScintilla.dll,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 Binary files /tmp/cvsmy2MlU and /tmp/cvsPSNkE3 differ Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.62 retrieving revision 1.63 diff -C2 -d -r1.62 -r1.63 Binary files /tmp/cvsD5WRaT and /tmp/cvsl4d2u2 differ |
|
From: George H. <geo...@us...> - 2011-08-18 15:50:23
|
Update of /cvsroot/win32forth/win32forth/Help/hdb In directory vz-cvs-4.sog:/tmp/cvs-serv22253 Modified Files: HelpWrd.ndx Log Message: Updated db Index: HelpWrd.ndx =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.ndx,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 Binary files /tmp/cvsYbWbqg and /tmp/cvsjOv0vF differ |
|
From: George H. <geo...@us...> - 2011-08-18 15:47:26
|
Update of /cvsroot/win32forth/win32forth/Help/hdb
In directory vz-cvs-4.sog:/tmp/cvs-serv21775
Modified Files:
Help.cfg HelpCls.tv HelpWrd.hdb HelpWrd.tv HelpWrd.txt
Log Message:
Updated db
Index: HelpCls.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpCls.tv,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** HelpCls.tv 21 Jul 2011 18:35:17 -0000 1.7
--- HelpCls.tv 18 Aug 2011 15:47:23 -0000 1.8
***************
*** 1,2290 ****
! 0 tvn| CLASSROOT| tvd| 5512|
1 tvn| -methods-| tvd| 0|
! -2 tvn| CLASSINIT:| tvd| 5513|
! -2 tvn| ~:| tvd| 5514|
! -2 tvn| ADDR:| tvd| 5515|
! -2 tvn| PRINT:| tvd| 5516|
! 1 tvn| OBJECT| tvd| 5517|
2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 5518|
! -3 tvn| PUT:| tvd| 5519|
[...4552 lines suppressed...]
! -4 tvn| FIELDNAME:| tvd| 8580|
! -4 tvn| GETINT:| tvd| 8581|
! -4 tvn| GETDOUBLE:| tvd| 8582|
! -4 tvn| GETFLOAT:| tvd| 8583|
! -4 tvn| GETSTR:| tvd| 8584|
! -4 tvn| GETBLOB:| tvd| 8585|
! -4 tvn| ISNULL?:| tvd| 8586|
! -4 tvn| NEXTROW:| tvd| 8587|
! -4 tvn| (BIND):| tvd| 8588|
! -4 tvn| BINDINT:| tvd| 8589|
! -4 tvn| BINDDOUBLE:| tvd| 8590|
! -4 tvn| BINDFLOAT:| tvd| 8591|
! -4 tvn| BINDSTR:| tvd| 8592|
! -4 tvn| BINDBLOB:| tvd| 8593|
! 1 tvn| STRING| tvd| 8600|
2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 8601|
! -3 tvn| PUT:| tvd| 8602|
! -3 tvn| ADD:| tvd| 8603|
! -3 tvn| APPEND:| tvd| 8604|
Index: Help.cfg
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/Help.cfg,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Help.cfg 21 Jul 2011 18:35:17 -0000 1.5
--- Help.cfg 18 Aug 2011 15:47:23 -0000 1.6
***************
*** 3,7 ****
[WindowW] 1021
[WindowH] 708
! [SplitterV] 210
[SplitterH] 112
\ No newline at end of file
--- 3,7 ----
[WindowW] 1021
[WindowH] 708
! [SplitterV] 217
[SplitterH] 112
\ No newline at end of file
Index: HelpWrd.txt
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.txt,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** HelpWrd.txt 21 Jul 2011 18:35:17 -0000 1.11
--- HelpWrd.txt 18 Aug 2011 15:47:23 -0000 1.12
***************
*** 1448,1453 ****
BYTES &PS
: (CLASSINIT) ( x y width height -- )
- : (CLASSINIT) ( -- )
: (CLASSINIT) ( n1 -- )
CONSTANT 1/1
CONSTANT 1/2
--- 1448,1453 ----
BYTES &PS
: (CLASSINIT) ( x y width height -- )
: (CLASSINIT) ( n1 -- )
[...1221 lines suppressed...]
\ Path-source points to a substring in a path.
\ Path-source returns this address.
: PATH: ( -- )
\ Defines a directory search path.
! \ The first 2 cells are used too handle a search path.
\ The next 260 bytes are reserved for a counted string of a path.
\ followed by null.
--- 13495,13506 ----
\ w32f path
\ Get the next path from dir list.
! NEWUSER OPEN-PATH$
CREATE PATH-FILE$
! : PATH-SOURCE ( path -- 2variable_path-source )
\ Path-source points to a substring in a path.
\ Path-source returns this address.
: PATH: ( -- )
\ Defines a directory search path.
! \ The first 2 cells are used to handle a search path.
\ The next 260 bytes are reserved for a counted string of a path.
\ followed by null.
Index: HelpWrd.hdb
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.hdb,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
Binary files /tmp/cvsoBGyWS and /tmp/cvsX9rw3b differ
Index: HelpWrd.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.tv,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** HelpWrd.tv 21 Jul 2011 18:35:17 -0000 1.10
--- HelpWrd.tv 18 Aug 2011 15:47:23 -0000 1.11
***************
*** 1,5276 ****
0 tvn| Words| tvd| 0|
! 1 tvn| CLASSROOT| tvd| 5512|
2 tvn| -methods-| tvd| 0|
! -3 tvn| CLASSINIT:| tvd| 5513|
! -3 tvn| ~:| tvd| 5514|
! -3 tvn| ADDR:| tvd| 5515|
! -3 tvn| PRINT:| tvd| 5516|
! 2 tvn| OBJECT| tvd| 5517|
3 tvn| -methods-| tvd| 0|
! -4 tvn| GET:| tvd| 5518|
[...23242 lines suppressed...]
! 2 tvn| \+| tvd| 5333|
! 2 tvn| \-| tvd| 5334|
! 2 tvn| \IN-SYSTEM-OK| tvd| 5339|
! 2 tvn| \S| tvd| 5388|
! 2 tvn| ]MACRO| tvd| 5229|
! 2 tvn| __STDCALL| tvd| 5220|
! 2 tvn| {| tvd| 5411|
! 2 tvn| {:| tvd| 5410|
! 2 tvn| |IF| tvd| 4949|
! 2 tvn| |OF| tvd| 4948|
1 tvn| Deprecated| tvd| 0|
! 2 tvn| .DIR->FILE-NAME| tvd| 5091|
2 tvn| >BOLD| tvd| 4160|
2 tvn| >NORM| tvd| 4159|
! 2 tvn| ABS>REL| tvd| 5359|
! 2 tvn| REL>ABS| tvd| 5360|
2 tvn| TASK-SLEEP| tvd| 2594|
! 2 tvn| _PRINT-DIR-FILES| tvd| 5089|
1 tvn| Vocabularies| tvd| 0|
2 tvn| Application space| tvd| 0|
|
|
From: George H. <geo...@us...> - 2011-08-18 15:43:30
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory vz-cvs-4.sog:/tmp/cvs-serv19828 Modified Files: dexh-paths.htm Log Message: Minor corrections Index: dexh-paths.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-paths.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** dexh-paths.htm 13 Jun 2009 11:05:59 -0000 1.2 --- dexh-paths.htm 18 Aug 2011 15:43:28 -0000 1.3 *************** *** 23,31 **** </p><p><b><code>: path: ( -- ) </code></b><br>Defines a directory search path. <br /> ! The first 2 cells are used too handle a search path. <br /> The next 260 bytes are reserved for a counted string of a path. <br /> followed by null. <br /> At runtime it returns address of the counted string of a path. ! </p><p><b><code>-2 cells offset path-source ( path -- 2variable_path-source ) </code></b><br>Path-source points to a substring in a path. <br /> Path-source returns this address. --- 23,31 ---- </p><p><b><code>: path: ( -- ) </code></b><br>Defines a directory search path. <br /> ! The first 2 cells are used to handle a search path. <br /> The next 260 bytes are reserved for a counted string of a path. <br /> followed by null. <br /> At runtime it returns address of the counted string of a path. ! </p><p><b><code>: path-source ( path -- 2variable_path-source ) </code></b><br>Path-source points to a substring in a path. <br /> Path-source returns this address. |
|
From: George H. <geo...@us...> - 2011-08-18 15:34:42
|
Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv13444
Modified Files:
EscapedStrings.f IMAGEWINDOW.F SQLite.F
Log Message:
General tidy up
Index: SQLite.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/SQLite.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** SQLite.F 10 Aug 2011 16:17:07 -0000 1.3
--- SQLite.F 18 Aug 2011 15:34:40 -0000 1.4
***************
*** 96,107 ****
SQLOK: self drop drop ERR: self ;M
! :M Close: ( -- flag )
! \ *G Closes the database. You can still open another database with
! \ ** the same object after closing, if desired.
stmt @ if
stmt @ call sqlite3_finalize nip
SQLOK: self ERR: self
0 stmt !
! then
dbhndl @ if
dbhndl @ call sqlite3_close SQLOK: self drop
--- 96,110 ----
SQLOK: self drop drop ERR: self ;M
! : Finalize ( -- )
stmt @ if
stmt @ call sqlite3_finalize nip
SQLOK: self ERR: self
0 stmt !
! then ;
!
! :M Close: ( -- flag )
! \ *G Closes the database. You can still open another database with
! \ ** the same object after closing, if desired.
! Finalize
dbhndl @ if
dbhndl @ call sqlite3_close SQLOK: self drop
***************
*** 120,128 ****
:M (Execute): ( str len -- )
! stmt @ if
! stmt @ call sqlite3_finalize nip
! SQLOK: self ERR: self
! 0 stmt !
! then
0 stmt 2swap swap dbhndl @
call sqlite3_prepare_v2
--- 123,127 ----
:M (Execute): ( str len -- )
! Finalize
0 stmt 2swap swap dbhndl @
call sqlite3_prepare_v2
Index: IMAGEWINDOW.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/IMAGEWINDOW.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** IMAGEWINDOW.F 21 Jul 2011 18:26:21 -0000 1.3
--- IMAGEWINDOW.F 18 Aug 2011 15:34:40 -0000 1.4
***************
*** 1,6 ****
\ $Id$
- \ ImageWindow.f
-
\ Routines to define object class for viewing bitmaps in a window
\ Some code extracted from 4FreeImage.f by J.v.d.Ven
--- 1,4 ----
Index: EscapedStrings.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/EscapedStrings.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** EscapedStrings.f 21 Dec 2008 08:56:16 -0000 1.2
--- EscapedStrings.f 18 Aug 2011 15:34:40 -0000 1.3
***************
*** 1,2 ****
--- 1,4 ----
+ \ $Id$
+
\ RfD: Escaped Strings S\"
\ 19 July 2007, Stephen Pelc
|
|
From: George H. <geo...@us...> - 2011-08-18 15:28:49
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv8097
Modified Files:
Class.f paths.f
Log Message:
Made PATH: thread-safe plus more work on class errors (still work in progress).
Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.37
retrieving revision 1.38
diff -C2 -d -r1.37 -r1.38
*** Class.f 21 Jul 2011 18:26:21 -0000 1.37
--- Class.f 18 Aug 2011 15:28:47 -0000 1.38
***************
*** 97,101 ****
: class-bitallot ( n -- )
bitmaxval 0=
! abort" Bit fields are not allowed on this data type"
dup 0=
abort" Zero length bit fields are not allowed"
--- 97,101 ----
: class-bitallot ( n -- )
bitmaxval 0=
! THROW_NO_BITS ?throw
dup 0=
abort" Zero length bit fields are not allowed"
***************
*** 1210,1214 ****
: ?range ( index -- index ) \ range check
DUP idxBase CELL - 2 + w@ ( #elems ) U< IF EXIT THEN
! TRUE ABORT" Index out of range" ;
\ : int-array ( size -<name>- )
--- 1210,1214 ----
: ?range ( index -- index ) \ range check
DUP idxBase CELL - 2 + w@ ( #elems ) U< IF EXIT THEN
! THROW_INDEX_OFR throw ;
\ : int-array ( size -<name>- )
***************
*** 1240,1244 ****
: Dispose ( addr -- )
\ *G Dispose of a dynamically allocated object.
! ~: [ dup>r ] r> cell- Free Abort" Disposing Object failed!" ;
\ --------------------------------------------------------------------
--- 1240,1244 ----
: Dispose ( addr -- )
\ *G Dispose of a dynamically allocated object.
! ~: [ dup>r ] r> cell- Free THROW_DISPOSE_ERR ?throw ;
\ --------------------------------------------------------------------
***************
*** 1456,1460 ****
: GetMethod { \ m0cfa -- -<method: object>- m0cfa } \ W32F Class
\ *G Return the xt of method. Used in interpretive mode or to create parsing words.
! @word _msgFind 1 <> abort" Undefined Method"
TRUE to get-reference? \ tell do_message to return method
depth >r
--- 1456,1460 ----
: GetMethod { \ m0cfa -- -<method: object>- m0cfa } \ W32F Class
\ *G Return the xt of method. Used in interpretive mode or to create parsing words.
! @word _msgFind 1 <> THROW_UNDEF_METH ?throw
TRUE to get-reference? \ tell do_message to return method
depth >r
Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** paths.f 18 Aug 2011 12:31:47 -0000 1.36
--- paths.f 18 Aug 2011 15:28:47 -0000 1.37
***************
*** 53,68 ****
\ ** followed by null. \n
\ ** At runtime it returns address of the counted string of a path.
!
! \ *P NOTE: Path: defines global search paths wich are not thread-safe so require locking for use in
! \ ** multi-tasking applications.
! create -1 , 0 , MAX-PATH 1+ allot does> \ run-time: ( -- path )
! [ 2 cells ] literal +
;
INTERNAL
! -2 cells offset path-source ( path -- 2variable_path-source )
\ *G Path-source points to a substring in a path. \n
\ ** Path-source returns this address.
EXTERNAL
--- 53,66 ----
\ ** followed by null. \n
\ ** At runtime it returns address of the counted string of a path.
! create next-user @ , 2 cells next-user +! MAX-PATH 1+ allot does> \ run-time: ( -- path )
! cell +
;
INTERNAL
! : path-source ( path -- 2variable_path-source )
\ *G Path-source points to a substring in a path. \n
\ ** Path-source returns this address.
+ cell- @ up@ + ;
EXTERNAL
|
|
From: George H. <geo...@us...> - 2011-08-18 12:59:55
|
Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv19946
Modified Files:
fkernel.f
Log Message:
Increased size of user area plus moved it down lower in stack segment
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.77
retrieving revision 1.78
diff -C2 -d -r1.77 -r1.78
*** fkernel.f 10 Aug 2011 16:55:58 -0000 1.77
--- fkernel.f 18 Aug 2011 12:59:52 -0000 1.78
***************
*** 4598,4602 ****
in-application
! 1 4096 * CONSTANT USERSIZE \ user area size for task variables
in-system
--- 4598,4602 ----
in-application
! 2 4096 * CONSTANT USERSIZE \ user area size for task variables
in-system
***************
*** 5778,5785 ****
sub esp, # RSTACKSIZE \ room for return stack
mov edx, esp \ user area is on stack
mov fs: 0x14 , edx \ save in TIB at pvArbitrary
mov RP0 [UP] , eax \ save RP0
- sub esp, # USERSIZE \ subtract usersize
push dword # EXCEPT-HANDLER \ err handler address
--- 5778,5785 ----
sub esp, # RSTACKSIZE \ room for return stack
+ sub esp, # USERSIZE \ subtract usersize
mov edx, esp \ user area is on stack
mov fs: 0x14 , edx \ save in TIB at pvArbitrary
mov RP0 [UP] , eax \ save RP0
push dword # EXCEPT-HANDLER \ err handler address
|
|
From: George H. <geo...@us...> - 2011-08-18 12:31:49
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv16014
Modified Files:
paths.f
Log Message:
Added comment on thread-safety.
Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** paths.f 19 Dec 2008 12:46:36 -0000 1.35
--- paths.f 18 Aug 2011 12:31:47 -0000 1.36
***************
*** 49,56 ****
: path: ( -- )
\ *G Defines a directory search path. \n
! \ ** The first 2 cells are used too handle a search path. \n
\ ** The next 260 bytes are reserved for a counted string of a path. \n
\ ** followed by null. \n
\ ** At runtime it returns address of the counted string of a path.
create -1 , 0 , MAX-PATH 1+ allot does> \ run-time: ( -- path )
[ 2 cells ] literal +
--- 49,59 ----
: path: ( -- )
\ *G Defines a directory search path. \n
! \ ** The first 2 cells are used to handle a search path. \n
\ ** The next 260 bytes are reserved for a counted string of a path. \n
\ ** followed by null. \n
\ ** At runtime it returns address of the counted string of a path.
+
+ \ *P NOTE: Path: defines global search paths wich are not thread-safe so require locking for use in
+ \ ** multi-tasking applications.
create -1 , 0 , MAX-PATH 1+ allot does> \ run-time: ( -- path )
[ 2 cells ] literal +
***************
*** 281,285 ****
search-base-path search-path find-path ;
! create open-path$ MAXSTRING allot
: n"open ( a1 n1 -- handle f1 )
--- 284,288 ----
search-base-path search-path find-path ;
! MAXSTRING newuser open-path$
: n"open ( a1 n1 -- handle f1 )
|
|
From: George H. <geo...@us...> - 2011-08-10 16:56:01
|
Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv27955/kernel
Modified Files:
fkernel.f
Log Message:
Added bye to shut properly on error, plus more additions to kernel for task-status
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.76
retrieving revision 1.77
diff -C2 -d -r1.76 -r1.77
*** fkernel.f 21 Jul 2011 14:29:59 -0000 1.76
--- fkernel.f 10 Aug 2011 16:55:58 -0000 1.77
***************
*** 1980,1983 ****
--- 1980,1986 ----
\ ** not be changed in a task unless locked or you know what you're doing.
+ \ *P User Variables with a negative offset are designed for system use and so are not normally
+ \ ** referenced in applications.
+
VARIABLE NEXT-USER \ offset of next defineable user variable
***************
*** 1994,2018 ****
-3 CELLS ( init offset so TCB is 0 ) ( order IS important )
! DUP USER TASK-STATUS CELL+ ( 32 bits for miscellaneous purposes. )
! DUP USER RP0 CELL+ ( initial return stack pointer )
! DUP USER SP0 CELL+ ( initial data stack pointer )
! DUP USER TCB CELL+ ( task control block )
! DUP ( *1 ) ( absolute min user area )
! DUP USER &EXREC CELL+ ( for exception handling )
! DUP USER &EXCEPT CELL+ ( for exception handling )
! DUP USER HANDLER CELL+ ( throw frame )
! DUP USER LP CELL+ ( local variable pointer )
! DUP USER OP CELL+ ( object pointer )
! DUP USER BASE CELL+ ( numeric radix )
! DUP | USER RLLEN CELL+ ( read line length, used in file i/o see read-line )
! DUP | USER RLNEOF CELL+ ( read line not eof, used in file i/o see read-line )
! DUP USER HLD CELL+ ( numeric output pointer )
! 80 CHARS ALIGNED + ( numeric output formatting buffer )
! DUP USER PAD CELL+ ( extra )
! MAXSTRING CHARS ALIGNED + ( user string buffer )
! DUP NEXT-USER ! ( save top user variable offset in NEXT-USER )
! ( *2 ) OVER - CONSTANT USEREXTRA ( add to USERMIN if you are going to do I/O )
! ( *1 ) 3 CELLS + CONSTANT USERMIN ( absolute min user area )
! TCB RP0 - CONSTANT USEROFFS ( user offset, 2 cells )
\ -------------------- System Variables -------------------------------------
--- 1997,2039 ----
-3 CELLS ( init offset so TCB is 0 ) ( order IS important )
! DUP | USER TASK-STATUS CELL+ ( 32 bits for miscellaneous purposes. The lower 24 are reserved for the system)
! DUP USER RP0 CELL+ ( initial return stack pointer )
! DUP USER SP0 CELL+ ( initial data stack pointer )
! DUP USER TCB CELL+ ( task control block )
! DUP ( *1 ) ( absolute min user area )
! DUP USER &EXREC CELL+ ( for exception handling )
! DUP USER &EXCEPT CELL+ ( for exception handling )
! DUP USER HANDLER CELL+ ( throw frame )
! DUP USER LP CELL+ ( local variable pointer )
! DUP USER OP CELL+ ( object pointer )
! DUP USER BASE CELL+ ( numeric radix )
! DUP | USER RLLEN CELL+ ( read line length, used in file i/o see read-line )
! DUP | USER RLNEOF CELL+ ( read line not eof, used in file i/o see read-line )
! DUP USER HLD CELL+ ( numeric output pointer )
! 80 CHARS ALIGNED + ( numeric output formatting buffer )
! DUP USER PAD CELL+ ( extra )
! MAXSTRING CHARS ALIGNED + ( user string buffer )
! DUP NEXT-USER ! ( save top user variable offset in NEXT-USER )
! ( *2 ) OVER - CONSTANT USEREXTRA ( add to USERMIN if you are going to do I/O )
! ( *1 ) 3 CELLS + CONSTANT USERMIN ( absolute min user area )
! TCB TASK-STATUS - CONSTANT USEROFFS ( user offset, 3 cells )
!
! : Task-Set ( u -- )
! Task-Status @ or Task-Status ! ;
!
! : Task-Clear ( u -- )
! Invert Task-Status @ and Task-Status ! ;
!
! : Task-Flip ( u -- )
! Task-Status @ xor Task-Status ! ;
!
! : Task-Status? ( -- f )
! Task-Status or 0 <> ;
!
! 1 | Constant Main-Task
! 2 Constant Assync-Task
!
! : Main? ( -- f )
! Main-Task Task-Status? ;
\ -------------------- System Variables -------------------------------------
***************
*** 5709,5712 ****
--- 5730,5735 ----
then
+ Main-Task Task-Set \ set to identify main task
+
spcs spcs-max blank \ fill spaces buffer
***************
*** 5768,5771 ****
--- 5791,5795 ----
mov SP0 [UP] , esp \ save SP0
mov BASE [UP] , dword # 10 \ default base to decimal
+ mov Task-Status [UP] , dword # 0 \ default Task-Status is all bits off
xor edi, edi \ edi is constant 0
|
|
From: George H. <geo...@us...> - 2011-08-10 16:17:10
|
Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv11309
Modified Files:
SQLite.F SoundVolume.f
Log Message:
Added initialisation of stmt to SQLite plus id to files
Index: SQLite.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/SQLite.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** SQLite.F 4 Aug 2008 13:40:22 -0000 1.2
--- SQLite.F 10 Aug 2011 16:17:07 -0000 1.3
***************
*** 1,2 ****
--- 1,4 ----
+ \ $Id$
+
\ SQLite -- Database Class for SQLite
\ Thomas Dixon
***************
*** 70,73 ****
--- 72,78 ----
256 bytes tstr
+ :M ClassInit: ( -- )
+ 0 stmt ! ;M \ Make sure this is cleared
+
:M SQLOK: ( n -- ) \ checks return argument for errors
dup 1 99 within if
Index: SoundVolume.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/SoundVolume.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** SoundVolume.f 20 Jul 2011 15:36:42 -0000 1.3
--- SoundVolume.f 10 Aug 2011 16:17:08 -0000 1.4
***************
*** 1,3 ****
! \ SoundVolume.f
\
\ Written: by Dirk Busch
--- 1,3 ----
! \ $Id$
\
\ Written: by Dirk Busch
|
|
From: George H. <geo...@us...> - 2011-08-10 15:58:21
|
Update of /cvsroot/win32forth/win32forth/demos
In directory vz-cvs-4.sog:/tmp/cvs-serv5228
Modified Files:
ListViewDemo.f MDIExample.f TabControlDemo.f
Log Message:
Fixed Bug in turnkeying MiniDB plus minor tidy up
Index: MDIExample.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/MDIExample.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** MDIExample.f 2 Sep 2008 06:46:27 -0000 1.7
--- MDIExample.f 10 Aug 2011 15:58:18 -0000 1.8
***************
*** 293,297 ****
cr .( Save MDIExample.exe [Y/N]: ) key dup emit dup 121 = swap 89 = or nostack
! [IF] ' go turnkey MDIExample.exe 5 pause-seconds bye
[ELSE] go
[THEN]
--- 293,300 ----
cr .( Save MDIExample.exe [Y/N]: ) key dup emit dup 121 = swap 89 = or nostack
! [IF] ' go turnkey MDIExample.exe
! Needs Resources.f
! s" WIN32FOR.ICO" s" MDIExample.exe" AddAppIcon
! 1 pause-seconds bye
[ELSE] go
[THEN]
Index: ListViewDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/ListViewDemo.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** ListViewDemo.f 10 Sep 2008 11:23:46 -0000 1.18
--- ListViewDemo.f 10 Aug 2011 15:58:18 -0000 1.19
***************
*** 11,15 ****
Needs Resources.f
! 1 value turnkey?
20 constant FontHeight
--- 11,15 ----
Needs Resources.f
! false value turnkey?
20 constant FontHeight
Index: TabControlDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/TabControlDemo.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** TabControlDemo.f 21 Jul 2011 18:47:22 -0000 1.4
--- TabControlDemo.f 10 Aug 2011 15:58:18 -0000 1.5
***************
*** 101,105 ****
: selchange-func { lParam obj \ Parent -- false }
! \ This function es executed when the currently selected tab has changed.
\ lParam is the adress of the Address of an NMHDR structure.
\ obj is the address of the TabControl object that has send the
--- 101,105 ----
: selchange-func { lParam obj \ Parent -- false }
! \ This function is executed when the currently selected tab has changed.
\ lParam is the adress of the Address of an NMHDR structure.
\ obj is the address of the TabControl object that has send the
***************
*** 152,156 ****
\ ------------------------------------------------------------------------
! \ Note: You must first set the mask and than the other struct members !!!
LVIF_TEXT SetMask: LvItem
--- 152,156 ----
\ ------------------------------------------------------------------------
! \ Note: You must first set the mask and then the other struct members !!!
LVIF_TEXT SetMask: LvItem
|
|
From: George H. <geo...@us...> - 2011-07-26 20:29:58
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory vz-cvs-4.sog:/tmp/cvs-serv20207
Modified Files:
EdAbout.f EdCommand.f EdVersion.f ScintillaMDI.f
Log Message:
General tidy up and increased version number
Index: EdVersion.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdVersion.f,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** EdVersion.f 12 Feb 2011 02:46:47 -0000 1.17
--- EdVersion.f 26 Jul 2011 20:29:55 -0000 1.18
***************
*** 1,5 ****
\ $Id$
! 10212 value sciedit_version#
\ Version numbers: v.ww.rr
--- 1,5 ----
\ $Id$
! 10213 value sciedit_version#
\ Version numbers: v.ww.rr
***************
*** 26,29 ****
--- 26,30 ----
EAB Ezra Boyce
ROD Rod Oakford
+ GAH George Hubert
\ ---------------------------------------------------------------------------
***************
*** 246,249 ****
--- 247,261 ----
\ changes for Version 1.02.02
+
+ GAH Friday, June 9 2006
+ - Made initialisation of Class and Vocabulary browsers a seperate task performed at start up
+ rather than on first use.
+ GAH Thursday, June 29 2006
+ - Modified to use seperate tasks for each of the browsers.
+ GAH Saturday, July 8 2006
+ - Set priority of background tasks to idle to make main task respond to windows messages.
+ GAH Monday, July 17 2006
+ - Adjusted task priority to below normal.
+ - Made tabs multi-line.
dbu Samstag, Juli 22 2006
- Made the "Project" tab be the first in the tab window.
***************
*** 265,269 ****
in browser.
! EAB Friday, January 05 2007
- Added the ability to autoindent lines in the IDE editor. Enable in the IDE
Preferences dialog.
--- 277,287 ----
in browser.
! GAH Saturday, October 21 2006
! - Fixed search previous.
!
! GAH Monday, October 23 2006
! - Find text in files highlights only the found string not the whole line.
!
! EAB Friday, January 05 2007
- Added the ability to autoindent lines in the IDE editor. Enable in the IDE
Preferences dialog.
***************
*** 386,387 ****
--- 404,413 ----
- Add a quick find combo box to the toolbar. Searches from current position and always case insensitive.
+ GAH Thursday, April 28 2011
+ - Opening from the command line (or with file association) captures the running instance rather than
+ just giving an error message box.
+ Wednesday, May 25 2011
+ - Using browse on .prj files or opening them with association now loads the project rather than opening
+ the file for editing.
+
+ \ changes for version 1.02.13
Index: EdAbout.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdAbout.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** EdAbout.f 9 Jun 2006 17:03:35 -0000 1.2
--- EdAbout.f 26 Jul 2011 20:29:55 -0000 1.3
***************
*** 38,43 ****
create about-msg2
z," This Win32Forth IDE based on:\n"
! +z," 'SciEdit' written by Dirk Busch and\n"
! +z," 'Project Manager' written by Ezra Boyce."
create about-msg3
--- 38,43 ----
create about-msg2
z," This Win32Forth IDE based on:\n"
! +z," 'SciEdit' written by Dirk Busch,\n"
! +z," 'Project Manager' and 'ForthForm'\n both written by Ezra Boyce."
create about-msg3
Index: EdCommand.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdCommand.f,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** EdCommand.f 12 Feb 2011 02:43:31 -0000 1.17
--- EdCommand.f 26 Jul 2011 20:29:55 -0000 1.18
***************
*** 129,157 ****
\ --------------------------------------------------------------------------
! : Undo ( -- )
Undo: ActiveChild Update ; IDM_UNDO SetCommand
! : Redo ( -- )
Redo: ActiveChild Update ; IDM_REDO SetCommand
! : Cut ( -- )
Cut: ActiveChild Update ; IDM_CUT SetCommand
! : Copy ( -- )
Copy: ActiveChild Update ; IDM_COPY SetCommand
! : Paste ( -- )
Paste: ActiveChild Update ; IDM_PASTE SetCommand
! : Delete ( -- )
Delete: ActiveChild Update ; IDM_DELETE SetCommand
! : SelectAll ( -- )
SelectAll: ActiveChild Update ; IDM_SELECT_ALL SetCommand
! : RemoveSel ( -- )
RemoveSel: ActiveChild Update ; IDM_REMOVE_SELECTION SetCommand
! : FindText ( -- )
FindText: ActiveChild Update ; IDM_FIND_TEXT SetCommand
--- 129,157 ----
\ --------------------------------------------------------------------------
! : Undo ( -- )
Undo: ActiveChild Update ; IDM_UNDO SetCommand
! : Redo ( -- )
Redo: ActiveChild Update ; IDM_REDO SetCommand
! : Cut ( -- )
Cut: ActiveChild Update ; IDM_CUT SetCommand
! : Copy ( -- )
Copy: ActiveChild Update ; IDM_COPY SetCommand
! : Paste ( -- )
Paste: ActiveChild Update ; IDM_PASTE SetCommand
! : Delete ( -- )
Delete: ActiveChild Update ; IDM_DELETE SetCommand
! : SelectAll ( -- )
SelectAll: ActiveChild Update ; IDM_SELECT_ALL SetCommand
! : RemoveSel ( -- )
RemoveSel: ActiveChild Update ; IDM_REMOVE_SELECTION SetCommand
! : FindText ( -- )
FindText: ActiveChild Update ; IDM_FIND_TEXT SetCommand
***************
*** 164,193 ****
: FindTextInFiles ( -- )
! \ move selected text into find-buf
! IsEditWnd?
! if SelTextToPad ?dup
! if Find-buf place
! else drop
! then
! then
! GetHandle: FindInFilesDlg \ if window already open, then set search text
! IF Find-buf count ID_SEARCHTEXT SetDlgItemText: FindInFilesDlg
! ELSE Frame Start: FindInFilesDlg
! THEN ; IDM_FIND_IN_FILES SetCommand
! :noname ( -- )
! GetSelection: FindInWindow >sifEntry \ selected item number
! IF dup >sifLine# 1+ swap >sifFile"
! NewBrowseChild
! LoadHyperFile: ActiveBrowser \ open the file
! SetFocus: ActiveBrowser
! SetBrowseMode: ActiveBrowser
! \ find-buf count findtext$: ActiveBrowser place findtext$: ActiveBrowser +null
! \ SearchNext: ActiveBrowser
find-buf FindTextinLine: ActiveBrowser
! Update
! ELSE drop beep
! THEN ; is do-file-search-open
: InsertDate ( -- )
--- 164,191 ----
: FindTextInFiles ( -- )
! \ move selected text into find-buf
! IsEditWnd?
! if SelTextToPad ?dup
! if Find-buf place
! else drop
! then
! then
! GetHandle: FindInFilesDlg \ if window already open, then set search text
! IF Find-buf count ID_SEARCHTEXT SetDlgItemText: FindInFilesDlg
! ELSE Frame Start: FindInFilesDlg
! THEN ; IDM_FIND_IN_FILES SetCommand
! :noname ( -- )
! GetSelection: FindInWindow >sifEntry \ selected item number
! IF dup >sifLine# 1+ swap >sifFile"
! NewBrowseChild
! LoadHyperFile: ActiveBrowser \ open the file
! SetFocus: ActiveBrowser
! SetBrowseMode: ActiveBrowser
find-buf FindTextinLine: ActiveBrowser
! Update
! ELSE drop beep
! THEN ; is do-file-search-open
: InsertDate ( -- )
***************
*** 209,213 ****
SCI_UPPERCASE KeyCommand: CurrentWindow Update ; IDM_UPPERCASE SetCommand
! : LineCut ( -- )
SCI_LINECUT KeyCommand: CurrentWindow Update ; IDM_LINECUT SetCommand
--- 207,211 ----
SCI_UPPERCASE KeyCommand: CurrentWindow Update ; IDM_UPPERCASE SetCommand
! : LineCut ( -- )
SCI_LINECUT KeyCommand: CurrentWindow Update ; IDM_LINECUT SetCommand
***************
*** 237,244 ****
\ DexH menu
\ --------------------------------------------------------------------------
! : DexGlossary ( -- )
DexGlossary: ActiveChild Update ; IDM_DEX_GLOSSARY SetCommand
! : DexParagraph ( -- )
DexParagraph: ActiveChild Update ; IDM_DEX_PARAGRAPH SetCommand
--- 235,242 ----
\ DexH menu
\ --------------------------------------------------------------------------
! : DexGlossary ( -- )
DexGlossary: ActiveChild Update ; IDM_DEX_GLOSSARY SetCommand
! : DexParagraph ( -- )
DexParagraph: ActiveChild Update ; IDM_DEX_PARAGRAPH SetCommand
***************
*** 246,250 ****
DexCodeParagraph: ActiveChild Update ; IDM_DEX_CODE_PARAGRAPH SetCommand
! : DexStyleBold ( -- )
DexStyleBold: ActiveChild Update ; IDM_DEX_STYLE_BOLD SetCommand
--- 244,248 ----
DexCodeParagraph: ActiveChild Update ; IDM_DEX_CODE_PARAGRAPH SetCommand
! : DexStyleBold ( -- )
DexStyleBold: ActiveChild Update ; IDM_DEX_STYLE_BOLD SetCommand
***************
*** 258,274 ****
\ View menu
\ --------------------------------------------------------------------------
! : ViewEOL ( -- )
! ViewEOL? 0= to ViewEOL? Update ; IDM_VIEW_EOL SetCommand
: ViewWhiteSpace ( -- )
! ViewWhiteSpace? 0= to ViewWhiteSpace? Update ; IDM_VIEW_WHITESPACE SetCommand
: ViewLineNumbers ( -- )
! ViewLineNumbers? 0= to ViewLineNumbers? Update ; IDM_VIEW_LINE_NUMBERS SetCommand
! : Colorize ( -- )
! Colorize? 0= to Colorize? Update ; IDM_COLORIZE SetCommand
! : mcBrowse ( -- )
?BrowseMode: ActiveChild 0= SetBrowseMode: ActiveChild Update ; IDM_BROWSE SetCommand
--- 256,272 ----
\ View menu
\ --------------------------------------------------------------------------
! : ViewEOL ( -- )
! ViewEOL? 0= to ViewEOL? Update ; IDM_VIEW_EOL SetCommand
: ViewWhiteSpace ( -- )
! ViewWhiteSpace? 0= to ViewWhiteSpace? Update ; IDM_VIEW_WHITESPACE SetCommand
: ViewLineNumbers ( -- )
! ViewLineNumbers? 0= to ViewLineNumbers? Update ; IDM_VIEW_LINE_NUMBERS SetCommand
! : Colorize ( -- )
! Colorize? 0= to Colorize? Update ; IDM_COLORIZE SetCommand
! : mcBrowse ( -- )
?BrowseMode: ActiveChild 0= SetBrowseMode: ActiveChild Update ; IDM_BROWSE SetCommand
***************
*** 300,311 ****
: TabOptions { \ tabsize$ -- }
! maxstring localalloc: tabsize$
! TabSize s>d (d.) tabsize$ place
! UseTabs? SetOptionState: SetTabSizeDlg
! tabsize$ Frame Start: SetTabSizeDlg ?dup
IF 2 = to UseTabs?
! tabsize$ count number? >r d>s r>
IF to TabSize ELSE drop THEN
THEN Update ; IDM_TABS SetCommand
--- 298,309 ----
: TabOptions { \ tabsize$ -- }
! maxstring localalloc: tabsize$
! TabSize s>d (d.) tabsize$ place
! UseTabs? SetOptionState: SetTabSizeDlg
! tabsize$ Frame Start: SetTabSizeDlg ?dup
IF 2 = to UseTabs?
! tabsize$ count number? >r d>s r>
IF to TabSize ELSE drop THEN
THEN Update ; IDM_TABS SetCommand
***************
*** 415,422 ****
\ --------------------------------------------------------------------------
! : tbBack ( -- )
! GoBack: ActiveChild ; IDM_BACK SetCommand
! : tbForward ( -- )
! GoForward: ActiveChild ; IDM_FORWARD SetCommand
--- 413,420 ----
\ --------------------------------------------------------------------------
! : tbBack ( -- )
! GoBack: ActiveChild ; IDM_BACK SetCommand
! : tbForward ( -- )
! GoForward: ActiveChild ; IDM_FORWARD SetCommand
Index: ScintillaMDI.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ScintillaMDI.f,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** ScintillaMDI.f 12 Feb 2011 02:48:00 -0000 1.14
--- ScintillaMDI.f 26 Jul 2011 20:29:55 -0000 1.15
***************
*** 229,236 ****
then ;M
! :M SearchPrev: ( -- ) \ this doesn't work... why?
?Find: self
if
- \ GetSelectionEnd: ChildWindow SetSelectionStart: ChildWindow
SearchAnchor: ChildWindow
FindMode FindText$ 1+ SearchPrev: ChildWindow INVALID_POSITION <>
--- 229,235 ----
then ;M
! :M SearchPrev: ( -- )
?Find: self
if
SearchAnchor: ChildWindow
FindMode FindText$ 1+ SearchPrev: ChildWindow INVALID_POSITION <>
|
|
From: George H. <geo...@us...> - 2011-07-21 18:47:25
|
Update of /cvsroot/win32forth/win32forth/apps/SciEdit
In directory vz-cvs-4.sog:/tmp/cvs-serv1631/apps/SciEdit
Modified Files:
ClassBrowser.f
Log Message:
New versions of fkernel.exe and setup.exe and minor optimisations
Index: ClassBrowser.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/ClassBrowser.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** ClassBrowser.f 16 Apr 2007 08:29:04 -0000 1.6
--- ClassBrowser.f 21 Jul 2011 18:47:22 -0000 1.7
***************
*** 318,324 ****
\ adjust the TreeView
! tempRect.AddrOf GetClientRect: self
! Left: tempRect Top: tempRect Right: tempRect
! Bottom: tempRect Height: ClassBrowserStatusbar -
Move: TreeView
--- 318,324 ----
\ adjust the TreeView
! winRect GetClientRect: self
! Left: winRect Top: winRect Right: winRect
! Bottom: winRect Height: ClassBrowserStatusbar -
Move: TreeView
|
|
From: George H. <geo...@us...> - 2011-07-21 18:35:21
|
Update of /cvsroot/win32forth/win32forth/Help/hdb
In directory vz-cvs-4.sog:/tmp/cvs-serv26368/hdb
Modified Files:
Help.cfg HelpCls.tv HelpSrc.hdb HelpWrd.hdb HelpWrd.ndx
HelpWrd.tv HelpWrd.txt
Log Message:
Added new files to help
Index: HelpCls.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpCls.tv,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** HelpCls.tv 24 Jun 2011 17:02:00 -0000 1.6
--- HelpCls.tv 21 Jul 2011 18:35:17 -0000 1.7
***************
*** 1,2290 ****
! 0 tvn| CLASSROOT| tvd| 5472|
1 tvn| -methods-| tvd| 0|
! -2 tvn| CLASSINIT:| tvd| 5473|
! -2 tvn| ~:| tvd| 5474|
! -2 tvn| ADDR:| tvd| 5475|
! -2 tvn| PRINT:| tvd| 5476|
! 1 tvn| OBJECT| tvd| 5477|
2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 5478|
! -3 tvn| PUT:| tvd| 5479|
[...4551 lines suppressed...]
! -4 tvn| FIELDNAME:| tvd| 8574|
! -4 tvn| GETINT:| tvd| 8575|
! -4 tvn| GETDOUBLE:| tvd| 8576|
! -4 tvn| GETFLOAT:| tvd| 8577|
! -4 tvn| GETSTR:| tvd| 8578|
! -4 tvn| GETBLOB:| tvd| 8579|
! -4 tvn| ISNULL?:| tvd| 8580|
! -4 tvn| NEXTROW:| tvd| 8581|
! -4 tvn| (BIND):| tvd| 8582|
! -4 tvn| BINDINT:| tvd| 8583|
! -4 tvn| BINDDOUBLE:| tvd| 8584|
! -4 tvn| BINDFLOAT:| tvd| 8585|
! -4 tvn| BINDSTR:| tvd| 8586|
! -4 tvn| BINDBLOB:| tvd| 8587|
! 1 tvn| STRING| tvd| 8593|
2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 8594|
! -3 tvn| PUT:| tvd| 8595|
! -3 tvn| ADD:| tvd| 8596|
! -3 tvn| APPEND:| tvd| 8597|
Index: HelpSrc.hdb
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpSrc.hdb,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
Binary files /tmp/cvsB9noOB and /tmp/cvs7yLH3h differ
Index: Help.cfg
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/Help.cfg,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Help.cfg 1 Mar 2011 21:54:25 -0000 1.4
--- Help.cfg 21 Jul 2011 18:35:17 -0000 1.5
***************
*** 1,5 ****
[WindowX] -2
[WindowY] -2
! [WindowW] 1019
[WindowH] 708
[SplitterV] 210
--- 1,5 ----
[WindowX] -2
[WindowY] -2
! [WindowW] 1021
[WindowH] 708
[SplitterV] 210
Index: HelpWrd.txt
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.txt,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** HelpWrd.txt 24 Jun 2011 17:02:01 -0000 1.10
--- HelpWrd.txt 21 Jul 2011 18:35:17 -0000 1.11
***************
*** 1447,1453 ****
CREATE USERCONFIG$
BYTES &PS
: (CLASSINIT) ( -- )
: (CLASSINIT) ( n1 -- )
- : (CLASSINIT) ( x y width height -- )
CONSTANT 1/1
CONSTANT 1/2
--- 1447,1453 ----
CREATE USERCONFIG$
BYTES &PS
[...1207 lines suppressed...]
: ZEXEC-CMD-WAIT ( a1 -- f1 )
\ execute a command line, and wait for terminating of the process
+ : +FIELD ( n1 n2 "name" -- n3 )
+ : BEGIN-STRUCTURE ( -- addr 0 )
+ : BFIELD: ( n1 <"name"> -- n2 )
+ ( addr -- 'addr )
+ : CFIELD: ( n1 <"name"> -- n2 )
+ ( addr -- 'addr )
+ : END-STRUCTURE ( addr n -- )
+ : FIELD: ( n1 <"name"> -- n2 )
+ ( addr -- 'addr )
+ : LFIELD: ( n1 <"name"> -- n2 )
+ ( addr -- 'addr )
+ : WFIELD: ( n1 <"name"> -- n2 )
+ ( addr -- 'addr )
+ : X:STRUCTURES
+ : XFIELD: ( n1 <"name"> -- n2 )
+ ( addr -- 'addr )
: +NO-WRAP ( a1 n1 -- a2 )
\ add n1 to a1, limit to address 0xFFFFFFFF
Index: HelpWrd.hdb
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.hdb,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
Binary files /tmp/cvsS95QyE and /tmp/cvsyCXCUk differ
Index: HelpWrd.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.tv,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** HelpWrd.tv 24 Jun 2011 17:02:01 -0000 1.9
--- HelpWrd.tv 21 Jul 2011 18:35:17 -0000 1.10
***************
*** 1,8796 ****
0 tvn| Words| tvd| 0|
! 1 tvn| CLASSROOT| tvd| 5472|
2 tvn| -methods-| tvd| 0|
! -3 tvn| CLASSINIT:| tvd| 5473|
! -3 tvn| ~:| tvd| 5474|
! -3 tvn| ADDR:| tvd| 5475|
! -3 tvn| PRINT:| tvd| 5476|
! 2 tvn| OBJECT| tvd| 5477|
3 tvn| -methods-| tvd| 0|
! -4 tvn| GET:| tvd| 5478|
[...28998 lines suppressed...]
! 2 tvn| \+| tvd| 5328|
! 2 tvn| \-| tvd| 5329|
! 2 tvn| \IN-SYSTEM-OK| tvd| 5334|
! 2 tvn| \S| tvd| 5383|
! 2 tvn| ]MACRO| tvd| 5224|
! 2 tvn| __STDCALL| tvd| 5215|
! 2 tvn| {| tvd| 5406|
! 2 tvn| {:| tvd| 5405|
! 2 tvn| |IF| tvd| 4944|
! 2 tvn| |OF| tvd| 4943|
1 tvn| Deprecated| tvd| 0|
! 2 tvn| .DIR->FILE-NAME| tvd| 5086|
! 2 tvn| >BOLD| tvd| 4160|
! 2 tvn| >NORM| tvd| 4159|
! 2 tvn| ABS>REL| tvd| 5354|
! 2 tvn| REL>ABS| tvd| 5355|
! 2 tvn| TASK-SLEEP| tvd| 2594|
! 2 tvn| _PRINT-DIR-FILES| tvd| 5084|
1 tvn| Vocabularies| tvd| 0|
2 tvn| Application space| tvd| 0|
Index: HelpWrd.ndx
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.ndx,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
Binary files /tmp/cvs8caQhu and /tmp/cvsBMaE4e differ
|
|
From: George H. <geo...@us...> - 2011-07-21 18:35:19
|
Update of /cvsroot/win32forth/win32forth/Help
In directory vz-cvs-4.sog:/tmp/cvs-serv26368
Modified Files:
HelpScope.f HelpTestTV.f
Log Message:
Added new files to help
Index: HelpScope.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/HelpScope.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** HelpScope.f 18 Aug 2008 21:41:19 -0000 1.6
--- HelpScope.f 21 Jul 2011 18:35:17 -0000 1.7
***************
*** 1,3 ****
! \ HelpScope.f
\ By Camille Doiteau - Feb 2008
--- 1,3 ----
! \ $Id$
\ By Camille Doiteau - Feb 2008
***************
*** 127,190 ****
s" src\kernel\fkernel.f" addItem: tSrcList \ insert manually this one
1 #Src +!
! SrcScope: src\comment.f \ (sys) comments
! SrcScope: src\numconv.f \ general number conversions
SrcScope: src\console\console1.f \ Console I/O part 1
! SrcScope: src\primutil.f \ primitive utilities
SrcScope: src\nforget.f
! SrcScope: src\order.f \ (sys) vocabulary support
! SrcScope: src\module.f \ (sys) scoping support for modules
! SrcScope: src\interpif.f \ (sys) interpretive conditionals
! SrcScope: src\paths.f \ multi path support words
! SrcScope: src\486asm.f \ (sys) Jim's 486 assembler
! SrcScope: src\asmmac.f \ (sys) Jim's 486 macros
! SrcScope: src\asmwin32.f \ (sys) NEXT for Win32forth
SrcScope: src\pointer.f
! SrcScope: src\callback.f \ windows callback support
! SrcScope: src\primhash.f \ primitive hash functions for OOP later
! SrcScope: src\float.f \ floating point support
! SrcScope: src\see.f \ (sys) see
! SrcScope: src\dis486.f \ (sys) disassembler
! SrcScope: src\dthread.f \ (sys) display threads
! SrcScope: src\winlib.f \ (sys) windows proc and memory debug words
! SrcScope: src\words.f \ (sys) words
! SrcScope: src\tools\dump.f \ HEX dump
SrcScope: src\console\console2.f \ Console I/O part 2
! SrcScope: src\debug.f \ (sys) debug
! SrcScope: src\class.f \ Object Oriented Programming
! SrcScope: src\scrnctrl.f \ screen control words
! SrcScope: src\registry.f \ Win32 Registry support
! SrcScope: src\ansfile.f \ ansi file words
! SrcScope: src\keyboard.f \ function and special key constants
! SrcScope: src\mapfile.f \ Windows32 file memory mapping
! SrcScope: src\environ.f \ (sys) environment? support
! SrcScope: src\utils.f \ load other misc utility words
! SrcScope: src\exceptio.f \ windows exception handling
- SrcScope: src\w32fMsgList.f \ load win32forth-specific messages list
- SrcScope: src\w32fMsg.f \ load win32forth-specific messages
- SrcScope: src\Shell.f \ load SHELL utility words
- SrcScope: src\editor_io.f \ editor/console Communication
- SrcScope: src\imageman.f \ (sys) fsave, application & turnkey words
! SrcScope: src\dbgsrc1.f \ (sys) source level debugging #1
! SrcScope: src\dbgsrc2.f \ (sys) source level debugging #2
! SrcScope: src\classdbg.f \ (sys) Object Debugging
SrcScope: src\colors.f
! SrcScope: src\fonts.f \ font class
! SrcScope: src\xfiledlg.f \ xcall replacements for open dialogs
! SrcScope: src\PrintSupport.f \ replacement for w32fPrint.dll
! SrcScope: src\dc.f \ device context class
! SrcScope: src\generic.f \ generic window class
SrcScope: src\window.f
! SrcScope: src\childwnd.f \ child windows
SrcScope: src\winmsg.f
SrcScope: src\control.f
--- 127,194 ----
s" src\kernel\fkernel.f" addItem: tSrcList \ insert manually this one
1 #Src +!
! SrcScope: src\comment.f \ (sys) comments
! SrcScope: src\numconv.f \ general number conversions
SrcScope: src\console\console1.f \ Console I/O part 1
! SrcScope: src\primutil.f \ primitive utilities
SrcScope: src\nforget.f
! SrcScope: src\order.f \ (sys) vocabulary support
! SrcScope: src\module.f \ (sys) scoping support for modules
! SrcScope: src\interpif.f \ (sys) interpretive conditionals
! SrcScope: src\paths.f \ multi path support words
! SrcScope: src\486asm.f \ (sys) Jim's 486 assembler
! SrcScope: src\asmmac.f \ (sys) Jim's 486 macros
! SrcScope: src\asmwin32.f \ (sys) NEXT for Win32forth
SrcScope: src\pointer.f
! SrcScope: src\callback.f \ windows callback support
! SrcScope: src\primhash.f \ primitive hash functions for OOP later
! SrcScope: src\float.f \ floating point support
! SrcScope: src\see.f \ (sys) see
! SrcScope: src\dis486.f \ (sys) disassembler
! SrcScope: src\dthread.f \ (sys) display threads
! SrcScope: src\winlib.f \ (sys) windows proc and memory debug words
! SrcScope: src\words.f \ (sys) words
! SrcScope: src\tools\dump.f \ HEX dump
SrcScope: src\console\console2.f \ Console I/O part 2
! SrcScope: src\debug.f \ (sys) debug
! SrcScope: src\class-errs.f \ Errors for Class.f
! SrcScope: src\class.f \ Object Oriented Programming
! SrcScope: src\scrnctrl.f \ screen control words
! SrcScope: src\registry.f \ Win32 Registry support
! SrcScope: src\ansfile.f \ ansi file words
! SrcScope: src\keyboard.f \ function and special key constants
! SrcScope: src\mapfile.f \ Windows32 file memory mapping
! SrcScope: src\environ.f \ (sys) environment? support
! SrcScope: src\struct200X.f \ 200X structure words
! SrcScope: src\utils.f \ load other misc utility words
! SrcScope: src\exceptio.f \ windows exception handling
!
! SrcScope: src\w32fMsgList.f \ load win32forth-specific messages list
! SrcScope: src\w32fMsg.f \ load win32forth-specific messages
! SrcScope: src\Shell.f \ load SHELL utility words
! SrcScope: src\editor_io.f \ editor/console Communication
! SrcScope: src\imageman.f \ (sys) fsave, application & turnkey words
!
! SrcScope: src\dbgsrc1.f \ (sys) source level debugging #1
! SrcScope: src\dbgsrc2.f \ (sys) source level debugging #2
! SrcScope: src\classdbg.f \ (sys) Object Debugging
SrcScope: src\colors.f
! SrcScope: src\fonts.f \ font class
! SrcScope: src\xfiledlg.f \ xcall replacements for open dialogs
! SrcScope: src\PrintSupport.f \ replacement for w32fPrint.dll
! SrcScope: src\dc.f \ device context class
! SrcScope: src\generic.f \ generic window class
SrcScope: src\window.f
! SrcScope: src\childwnd.f \ child windows
SrcScope: src\winmsg.f
SrcScope: src\control.f
***************
*** 193,197 ****
SrcScope: src\dialog.f
SrcScope: src\menu.f
! SrcScope: src\lib\BROWSEFLD.F \ SHBrowseForFolder() support
SrcScope: src\console\forthdlg.f \ console dialogs
--- 197,201 ----
SrcScope: src\dialog.f
SrcScope: src\menu.f
! SrcScope: src\lib\BROWSEFLD.F \ SHBrowseForFolder() support
SrcScope: src\console\forthdlg.f \ console dialogs
Index: HelpTestTV.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/HelpTestTV.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** HelpTestTV.f 3 Jun 2010 08:56:37 -0000 1.2
--- HelpTestTV.f 21 Jul 2011 18:35:17 -0000 1.3
***************
*** 193,199 ****
:M On_Size: ( -- )
\ adjust the TreeView
! tempRect.AddrOf GetClientRect: self
! Left: tempRect Top: tempRect Right: tempRect
! Bottom: tempRect
Move: TreeView ;M
--- 193,199 ----
:M On_Size: ( -- )
\ adjust the TreeView
! winRect GetClientRect: self
! Left: winRect Top: winRect Right: winRect
! Bottom: winRect
Move: TreeView ;M
|
|
From: George H. <geo...@us...> - 2011-07-21 18:32:18
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory vz-cvs-4.sog:/tmp/cvs-serv24518 Modified Files: clas-generic.htm Log Message: Updated docs Index: clas-generic.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/clas-generic.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** clas-generic.htm 13 Jun 2009 11:05:59 -0000 1.2 --- clas-generic.htm 21 Jul 2011 18:32:16 -0000 1.3 *************** *** 72,76 **** the content cannot be redrawn after a change. </p><p><b><code>:M Show: ( state -- ) ! </code></b><br>The ShowWindow function sets the specified window's show state. <br /> Possible values for state are: </p><table><tr><th>SW_FORCEMINIMIZE --- 72,76 ---- the content cannot be redrawn after a change. </p><p><b><code>:M Show: ( state -- ) ! </code></b><br>Set the specified window's show state. <br /> Possible values for state are: </p><table><tr><th>SW_FORCEMINIMIZE *************** *** 143,149 **** current task the message is sent. </p><p><b><code>:M GDIFlush: ( -- ) ! </code></b><br>The GdiFlush function flushes the calling thread's current batch. </p><p><b><code>:M Update: ( -- ) ! </code></b><br>The UpdateWindow function updates the client area of the window by sending a WM_PAINT message to the window if the window's update region is not empty. The function sends a WM_PAINT message directly to the window procedure of the window, --- 143,149 ---- current task the message is sent. </p><p><b><code>:M GDIFlush: ( -- ) ! </code></b><br>Flush the calling thread's current batch. </p><p><b><code>:M Update: ( -- ) ! </code></b><br>Update the client area of the window by sending a WM_PAINT message to the window if the window's update region is not empty. The function sends a WM_PAINT message directly to the window procedure of the window, |
|
From: George H. <geo...@us...> - 2011-07-21 18:26:23
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv21602
Modified Files:
CHILDWND.F CONTROL.F Class.f
Added Files:
Class-errs.f
Log Message:
Added Class-errs.f for object compiler error messages (work in progress) and minor optimisations
Index: CHILDWND.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/CHILDWND.F,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** CHILDWND.F 9 May 2007 07:46:40 -0000 1.11
--- CHILDWND.F 21 Jul 2011 18:26:20 -0000 1.12
***************
*** 125,130 ****
:M AutoSize: ( -- )
\ *G Size the window to fit into the client area of the parent window.
! tempRect.AddrOf GetClientRect: Parent
! 0 0 Right: tempRect Bottom: tempRect \ x,y,h,w
Move: self
;M
--- 125,130 ----
:M AutoSize: ( -- )
\ *G Size the window to fit into the client area of the parent window.
! winRect GetClientRect: Parent
! 0 0 Right: winRect Bottom: winRect \ x,y,h,w
Move: self
;M
Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** Class.f 6 Aug 2010 20:03:27 -0000 1.36
--- Class.f 21 Jul 2011 18:26:21 -0000 1.37
***************
*** 11,14 ****
--- 11,16 ----
cr .( Loading Class.f : Primitive Object Class...)
+ REQUIRE CLASS-ERRS.F
+
-4105 constant warn_clash
***************
*** 39,46 ****
\ ** produce a valid object address. \n
\ ** An compile-time error also occurs if [[ isn't preceeded by a selector.
! true abort" [[ must be preceeded by a selector " ; IMMEDIATE
: ** ( -- )
! true abort" ** must be preceeded by a selector " ; immediate
private classes internal
--- 41,48 ----
\ ** produce a valid object address. \n
\ ** An compile-time error also occurs if [[ isn't preceeded by a selector.
! THROW_NEED_SEL THROW ; IMMEDIATE
: ** ( -- )
! THROW_NEED_SEL THROW ; immediate
private classes internal
***************
*** 52,56 ****
: >selector ( str -- SelID ) \ get a selector from the input stream
! ?isSel 0= abort" not a selector" count method-hash ;
: getSelect ( -- SelID ) \ get a selector from the input stream
--- 54,58 ----
: >selector ( str -- SelID ) \ get a selector from the input stream
! ?isSel 0= THROW_NOT_SEL ?THROW count method-hash ;
: getSelect ( -- SelID ) \ get a selector from the input stream
--- NEW FILE: Class-errs.f ---
\ $Id: Class-errs.f,v 1.1 2011/07/21 18:26:21 georgeahubert Exp $
\ : .THROW-CODES CELL+ DUP @ 6 .R 6 SPACES CELL+ COUNT TYPE CR ;
\ : THROW-CODES CR ['] .THROW-CODES THROW_MSGS DO-LINK ;
\ Throw codes for classes
-350
DUP 1- SWAP CONSTANT THROW_NEED_SEL
DUP 1- SWAP CONSTANT THROW_NOT_SEL
DUP 1- SWAP CONSTANT THROW_NO_BITS
DUP 1- SWAP CONSTANT THROW_ZERO_BITS
DUP 1- SWAP CONSTANT THROW_BIG_BITS
DUP 1- SWAP CONSTANT THROW_NOT_SELF
DUP 1- SWAP CONSTANT THROW_NOT_IN_CLASS
DUP 1- SWAP CONSTANT THROW_IVAR_EXISTS
DUP 1- SWAP CONSTANT THROW_NEW>
DUP 1- SWAP CONSTANT THROW_NOT_CLASS_OR_OBJ
DUP 1- SWAP CONSTANT THROW_NO_CLONE
DUP 1- SWAP CONSTANT THROW_NOT_CLASS
DUP 1- SWAP CONSTANT THROW_NOT_OBJ
DUP 1- SWAP CONSTANT THROW_NOT_METHOD
DUP 1- SWAP CONSTANT THROW_INVALID_OBJ_REF
DUP 1- SWAP CONSTANT THROW_NO_FIND_VAR
DUP 1- SWAP CONSTANT THROW_INVALID_IVAR
DUP 1- SWAP CONSTANT THROW_NO_FIND_OBJ
DUP 1- SWAP CONSTANT THROW_OBJ_EXPO
DUP 1- SWAP CONSTANT THROW_NO_WM
DUP 1- SWAP CONSTANT THROW_METH_BUFF_OVERFLOW
DUP 1- SWAP CONSTANT THROW_INDEX_OFR
DUP 1- SWAP CONSTANT THROW_DISPOSE_ERR
DUP 1- SWAP CONSTANT THROW_UNDEF_METH
DROP
THROW_MSGS LINK, THROW_NEED_SEL , ," must be preceeded by a selector "
THROW_MSGS LINK, THROW_NOT_SEL , ," not a selector"
THROW_MSGS LINK, THROW_NO_BITS , ," Bit fields are not allowed on this data type"
THROW_MSGS LINK, THROW_ZERO_BITS , ," Zero length bit fields are not allowed"
THROW_MSGS LINK, THROW_BIG_BITS , ," Bit field exceeded bits allowed in this field"
THROW_MSGS LINK, THROW_NOT_SELF , ," Use only for self-reference to object"
THROW_MSGS LINK, THROW_NOT_IN_CLASS , ," Not in a class"
THROW_MSGS LINK, THROW_IVAR_EXISTS , ," Duplicate Instance Variable"
THROW_MSGS LINK, THROW_NEW> , ," Use: New> classname"
THROW_MSGS LINK, THROW_NOT_CLASS_OR_OBJ , ," not a class or object"
THROW_MSGS LINK, THROW_NO_CLONE , ," Can only clone Objects"
THROW_MSGS LINK, THROW_NOT_CLASS , ," Classes must start with :Class or |Class"
THROW_MSGS LINK, THROW_NOT_OBJ , ," Objects must start with :Object"
THROW_MSGS LINK, THROW_NOT_METHOD , ," Methods must START with :M !"
THROW_MSGS LINK, THROW_INVALID_OBJ_REF , ," Invalid object type"
THROW_MSGS LINK, THROW_NO_FIND_VAR , ," Can't find Variable"
THROW_MSGS LINK, THROW_INVALID_IVAR , ," Can ONLY use DOT notation on BYTE, SHORT, INT, BYTES or RECORD:"
THROW_MSGS LINK, THROW_NO_FIND_OBJ , ," Can't find object"
THROW_MSGS LINK, THROW_OBJ_EXPO , ," No object exposed"
THROW_MSGS LINK, THROW_NO_WM , ," Must be preceeded by a WM_MESSAGE"
THROW_MSGS LINK, THROW_METH_BUFF_OVERFLOW , ," Unresolved Methods buffer overflow!"
THROW_MSGS LINK, THROW_INDEX_OFR , ," Index out of range"
THROW_MSGS LINK, THROW_DISPOSE_ERR , ," Disposing Object failed!"
THROW_MSGS LINK, THROW_UNDEF_METH , ," Undefined Method"
Index: CONTROL.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/CONTROL.F,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** CONTROL.F 15 Feb 2010 22:42:56 -0000 1.11
--- CONTROL.F 21 Jul 2011 18:26:21 -0000 1.12
***************
*** 187,192 ****
:M AutoSize: ( -- )
\ *G Size the window to fit into the client area of the parent window.
! tempRect.AddrOf GetClientRect: Parent
! 0 0 Right: tempRect Bottom: tempRect \ x,y,h,w
Move: self
;M
--- 187,192 ----
:M AutoSize: ( -- )
\ *G Size the window to fit into the client area of the parent window.
! winRect GetClientRect: Parent
! 0 0 Right: winRect Bottom: winRect \ x,y,h,w
Move: self
;M
|
|
From: George H. <geo...@us...> - 2011-07-21 18:19:53
|
Update of /cvsroot/win32forth/win32forth/apps/PictureViewer
In directory vz-cvs-4.sog:/tmp/cvs-serv17959
Modified Files:
PictureViewer.f
Log Message:
Minor optimisations
Index: PictureViewer.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/PictureViewer/PictureViewer.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** PictureViewer.f 2 Sep 2008 06:38:39 -0000 1.7
--- PictureViewer.f 21 Jul 2011 18:19:51 -0000 1.8
***************
*** 1129,1134 ****
--- 1129,1138 ----
: Restore ( -- ) Options RestoreSettings CheckToolbarAndMenu ; IDM_RESTORE SetCommand
+ warning @ warning off
+
: Save ( -- ) Options SaveSettings ; IDM_SAVE SetCommand
+ warning !
+
: Default ( -- ) Options DefaultSettings RestoreValues: ScaleCombo
100 SetNumber: ScaleCombo CheckToolbarAndMenu ; IDM_DEFAULT SetCommand
|
|
From: George H. <geo...@us...> - 2011-07-21 18:16:10
|
Update of /cvsroot/win32forth/win32forth/apps/Sudoku
In directory vz-cvs-4.sog:/tmp/cvs-serv15635
Modified Files:
Sudoku.f
Log Message:
Minor optimisations
Index: Sudoku.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/Sudoku.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Sudoku.f 2 Sep 2008 06:38:41 -0000 1.8
--- Sudoku.f 21 Jul 2011 18:16:08 -0000 1.9
***************
*** 631,637 ****
size i * 1 + LeftMargin +
size j * 1 + TopMargin +
! 2dup size 1+ size 1+ D+ SetRect: TempRect
i j CellAddress 162 + c@ dup '0' = IF drop 32 THEN pad c!
! pad 1 TempRect DT_CENTER DT_VCENTER or DT_SINGLELINE or DT_NOCLIP or DrawText: mdc
LOOP
LOOP
--- 631,637 ----
size i * 1 + LeftMargin +
size j * 1 + TopMargin +
! 2dup size 1+ size 1+ D+ SetRect: winRect
i j CellAddress 162 + c@ dup '0' = IF drop 32 THEN pad c!
! pad 1 winRect DT_CENTER DT_VCENTER or DT_SINGLELINE or DT_NOCLIP or DrawText: mdc
LOOP
LOOP
***************
*** 655,660 ****
:M Redraw: ( -- )
PrepareDC: self
! 0 ToolbarHeight Width Height StatusBarHeight - SetRect: TempRect
! 0 Temprect InvalidateRect: self ;M
:M WM_CLOSE ( h m w l -- res )
--- 655,660 ----
:M Redraw: ( -- )
PrepareDC: self
! 0 ToolbarHeight Width Height StatusBarHeight - SetRect: winRect
! 0 winRect InvalidateRect: self ;M
:M WM_CLOSE ( h m w l -- res )
***************
*** 845,850 ****
--- 845,852 ----
ELSE drop false to SaveFlag
THEN ; IDM_SAVE_AS SetCommand
+ warning @ warning off
: Save ( -- )
CurrentFile c@ IF CurrentFile SaveFile ELSE SaveAs THEN ; IDM_SAVE SetCommand
+ warning !
: ImportGame ( -- ) SaveIfModified 0= ?exit
Frame start: ImportDialog
|
|
From: George H. <geo...@us...> - 2011-07-21 18:13:46
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory vz-cvs-4.sog:/tmp/cvs-serv13804
Modified Files:
EdFilePane.f FORMOBJECT.F FORMPROPERTY.F FormMonitor.f
Log Message:
Minor optimisations
Index: FormMonitor.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/FormMonitor.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** FormMonitor.f 28 Apr 2008 05:17:17 -0000 1.1
--- FormMonitor.f 21 Jul 2011 18:13:43 -0000 1.2
***************
*** 97,103 ****
:M SaveOrigin: ( -- )
hwnd 0= ?exitm
! GetWindowRect: self SetRect: TempRect
! Addr: Temprect GetHandle: parent Call ScreenToClient
! Left: Temprect to MonitorLeft Top: TempRect to MonitorTop
;M
--- 97,103 ----
:M SaveOrigin: ( -- )
hwnd 0= ?exitm
! GetWindowRect: self SetRect: winRect
! Addr: winRect GetHandle: parent Call ScreenToClient
! Left: winRect to MonitorLeft Top: winRect to MonitorTop
;M
Index: FORMOBJECT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/FORMOBJECT.F,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** FORMOBJECT.F 12 Feb 2011 02:49:51 -0000 1.10
--- FORMOBJECT.F 21 Jul 2011 18:13:43 -0000 1.11
***************
*** 1119,1129 ****
0 0 \ adjust x,y relative to 0,0
frmWidth frmHeight
! SetRect: TempRect
0 \ no menu
WindowStyle: [ self ] \ the window style
! AddrOf: TempRect \ make a new rectangle
call AdjustWindowRect ?win-error \ adjust the window
! Right: TempRect Left: TempRect - \ adjusted width
! Bottom: TempRect Top: TempRect - \ adjusted height
;M
--- 1119,1129 ----
0 0 \ adjust x,y relative to 0,0
frmWidth frmHeight
! SetRect: winRect
0 \ no menu
WindowStyle: [ self ] \ the window style
! AddrOf: winRect \ make a new rectangle
call AdjustWindowRect ?win-error \ adjust the window
! Right: winRect Left: winRect - \ adjusted width
! Bottom: winRect Top: winRect - \ adjusted height
;M
Index: EdFilePane.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdFilePane.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** EdFilePane.f 2 Dec 2010 05:20:58 -0000 1.6
--- EdFilePane.f 21 Jul 2011 18:13:43 -0000 1.7
***************
*** 230,249 ****
:M On_Size: ( -- )
\ we first get the height of this window
! temprect GetClientrect: self
! temprect.right to width
! temprect.bottom to height
0 0 width height Move: frmFileWindow
! temprect GetClientRect: cmblstPathPicker \ this width only we are changing
! width 2 - temprect.bottom GetHandle: cmblstPathPicker AdjustWindowSize
! 1 imgbutton1y imgbutton1h + cell+ temprect.bottom + 2 + \ x y of directory window
! temprect GetClientRect: cmblstFilters
! 0 height temprect.bottom dup>r - width r> Move: cmblstFilters
\ now we adjust the directory window
! width 2 - height 2 pick - temprect.bottom - 2 - Move: TheDirectory
;M
--- 230,249 ----
:M On_Size: ( -- )
\ we first get the height of this window
! winRect GetClientrect: self
! winRect.right to width
! winRect.bottom to height
0 0 width height Move: frmFileWindow
! winRect GetClientRect: cmblstPathPicker \ this width only we are changing
! width 2 - winRect.bottom GetHandle: cmblstPathPicker AdjustWindowSize
! 1 imgbutton1y imgbutton1h + cell+ winRect.bottom + 2 + \ x y of directory window
! winRect GetClientRect: cmblstFilters
! 0 height winRect.bottom dup>r - width r> Move: cmblstFilters
\ now we adjust the directory window
! width 2 - height 2 pick - winRect.bottom - 2 - Move: TheDirectory
;M
Index: FORMPROPERTY.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/FORMPROPERTY.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** FORMPROPERTY.F 10 Apr 2009 16:46:26 -0000 1.3
--- FORMPROPERTY.F 21 Jul 2011 18:13:43 -0000 1.4
***************
*** 285,295 ****
then IsSuperClass: ActiveForm
0 0 Dimensions: ActiveForm ( x y w h )
! SetRect: TempRect
0 \ no menu
WindowStyle: ActiveForm \ the window style
! AddrOf: TempRect \ make a new rectangle
Call AdjustWindowRect ?win-error \ adjust the window
! Right: TempRect Left: TempRect - \ adjusted width
! Bottom: TempRect Top: TempRect - \ adjusted height
GetHandle: ActiveForm AdjustWindowSize
FormTitle: ActiveForm count Settext: ActiveForm
--- 285,295 ----
then IsSuperClass: ActiveForm
0 0 Dimensions: ActiveForm ( x y w h )
! SetRect: winRect
0 \ no menu
WindowStyle: ActiveForm \ the window style
! AddrOf: winRect \ make a new rectangle
Call AdjustWindowRect ?win-error \ adjust the window
! Right: winRect Left: winRect - \ adjusted width
! Bottom: winRect Top: winRect - \ adjusted height
GetHandle: ActiveForm AdjustWindowSize
FormTitle: ActiveForm count Settext: ActiveForm
|
|
From: George H. <geo...@us...> - 2011-07-21 14:30:01
|
Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv10054
Modified Files:
fkernel.f
Log Message:
Added execute-parsing and task-status.
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.75
retrieving revision 1.76
diff -C2 -d -r1.75 -r1.76
*** fkernel.f 13 Jul 2011 11:52:26 -0000 1.75
--- fkernel.f 21 Jul 2011 14:29:59 -0000 1.76
***************
*** 1993,2014 ****
next c;
! -2 CELLS ( init offset so TCB is 0 ) ( order IS important )
! DUP USER RP0 CELL+ ( initial return stack pointer )
! DUP USER SP0 CELL+ ( initial data stack pointer )
! DUP USER TCB CELL+ ( task control block )
! DUP ( *1 ) ( absolute min user area )
! DUP USER &EXREC CELL+ ( for exception handling )
! DUP USER &EXCEPT CELL+ ( for exception handling )
! DUP USER HANDLER CELL+ ( throw frame )
! DUP USER LP CELL+ ( local variable pointer )
! DUP USER OP CELL+ ( object pointer )
! DUP USER BASE CELL+ ( numeric radix )
! DUP | USER RLLEN CELL+ ( read line length, used in file i/o see read-line )
! DUP | USER RLNEOF CELL+ ( read line not eof, used in file i/o see read-line )
! DUP USER HLD CELL+ ( numeric output pointer )
! 80 CHARS ALIGNED + ( numeric output formatting buffer )
! DUP USER PAD CELL+ ( extra )
! MAXSTRING CHARS ALIGNED + ( user string buffer )
! DUP NEXT-USER ! ( save top user variable offset in NEXT-USER )
( *2 ) OVER - CONSTANT USEREXTRA ( add to USERMIN if you are going to do I/O )
( *1 ) 3 CELLS + CONSTANT USERMIN ( absolute min user area )
--- 1993,2015 ----
next c;
! -3 CELLS ( init offset so TCB is 0 ) ( order IS important )
! DUP USER TASK-STATUS CELL+ ( 32 bits for miscellaneous purposes. )
! DUP USER RP0 CELL+ ( initial return stack pointer )
! DUP USER SP0 CELL+ ( initial data stack pointer )
! DUP USER TCB CELL+ ( task control block )
! DUP ( *1 ) ( absolute min user area )
! DUP USER &EXREC CELL+ ( for exception handling )
! DUP USER &EXCEPT CELL+ ( for exception handling )
! DUP USER HANDLER CELL+ ( throw frame )
! DUP USER LP CELL+ ( local variable pointer )
! DUP USER OP CELL+ ( object pointer )
! DUP USER BASE CELL+ ( numeric radix )
! DUP | USER RLLEN CELL+ ( read line length, used in file i/o see read-line )
! DUP | USER RLNEOF CELL+ ( read line not eof, used in file i/o see read-line )
! DUP USER HLD CELL+ ( numeric output pointer )
! 80 CHARS ALIGNED + ( numeric output formatting buffer )
! DUP USER PAD CELL+ ( extra )
! MAXSTRING CHARS ALIGNED + ( user string buffer )
! DUP NEXT-USER ! ( save top user variable offset in NEXT-USER )
( *2 ) OVER - CONSTANT USEREXTRA ( add to USERMIN if you are going to do I/O )
( *1 ) 3 CELLS + CONSTANT USERMIN ( absolute min user area )
***************
*** 5053,5064 ****
\ -------------------- Evaluate ---------------------------------------------
! : EVALUATE ( addr len -- ) \ interpret string addr,len
! save-input (save-input)
! (SOURCE) 2!
! >IN OFF
! -1 TO SOURCE-ID
! ['] INTERPRET CATCH
! (restore-input) restore-input drop
! THROW ;
\ -------------------- Include file support ---------------------------------
--- 5054,5071 ----
\ -------------------- Evaluate ---------------------------------------------
! : execute-parsing ( addr len xt -- ... )
! -rot -if
! save-input (save-input)
! (SOURCE) 2!
! >IN OFF
! -1 TO SOURCE-ID
! CATCH
! (restore-input) restore-input drop
! THROW
! else 2drop drop then ;
!
! : evaluate ( addr len -- ) \ interpret string addr,len
! ['] interpret execute-parsing ;
!
\ -------------------- Include file support ---------------------------------
|
|
From: Jos v.d.V. <jo...@us...> - 2011-07-20 15:36:44
|
Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv13551
Modified Files:
SoundVolume.f
Log Message:
Minor addition in the comment.
Index: SoundVolume.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/SoundVolume.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** SoundVolume.f 20 Jul 2011 11:58:53 -0000 1.2
--- SoundVolume.f 20 Jul 2011 15:36:42 -0000 1.3
***************
*** 29,32 ****
--- 29,33 ----
\ ** the low-order word of dwVolume specifies the volume level,
\ ** and the high-order word is ignored.
+ \ ** Then the right-sound-volume will be 0.
{ \ sound-volume -- }
&OF sound-volume 0 call waveOutGetVolume MMSYSERR_NOERROR =
|
|
From: Jos v.d.V. <jo...@us...> - 2011-07-20 11:58:57
|
Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv5961
Modified Files:
SoundVolume.f
Log Message:
Jos I thought I ran in a bug here. Added some comment to explain what might happen to the right channel.
Index: SoundVolume.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/SoundVolume.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** SoundVolume.f 15 Jan 2006 09:27:31 -0000 1.1
--- SoundVolume.f 20 Jul 2011 11:58:53 -0000 1.2
***************
*** 26,29 ****
--- 26,32 ----
: volume@ ( -- left-sound-volume right-sound-volume ) \ W32F sound
\ *G Retrieves the current volume level of the waveform-audio output device.
+ \ ** If a device does not support both left and right volume control,
+ \ ** the low-order word of dwVolume specifies the volume level,
+ \ ** and the high-order word is ignored.
{ \ sound-volume -- }
&OF sound-volume 0 call waveOutGetVolume MMSYSERR_NOERROR =
|
|
From: Jos v.d.V. <jo...@us...> - 2011-07-13 11:52:28
|
Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv8115
Modified Files:
fkernel.f
Log Message:
Jos Added chain-remove
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.74
retrieving revision 1.75
diff -C2 -d -r1.74 -r1.75
*** fkernel.f 11 Jul 2011 18:50:40 -0000 1.74
--- fkernel.f 13 Jul 2011 11:52:26 -0000 1.75
***************
*** 4701,4704 ****
--- 4701,4715 ----
r> swap ! ;
+ : chain-remove ( cfa chain_address -- )
+ \ *G Remove the specified item from the chain.
+ begin ( cfa link^ )
+ dup @
+ while ( cfa link^ )
+ 2dup @ CELL+ @ =
+ if dup @ @ over ! \ Delete chain member
+ else @ \ Retain chain member
+ then
+ repeat 2drop ;
+
: noop-chain-add-before ( chain_address -- addr )
\ *G Add chain item, return addr of cfa added.
|
1040 messages has been excluded from this view by a project administrator.
