Update of /cvsroot/win32forth/win32forth/src/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19224/src/tools
Modified Files:
DexH-CreateDocs.f W32fdexh.f
Log Message:
Some minor chaged to the MDI classes, docs for the HTML control updated and docs for the MDI classes added.
Index: DexH-CreateDocs.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/DexH-CreateDocs.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** DexH-CreateDocs.f 13 Jan 2006 17:50:33 -0000 1.6
--- DexH-CreateDocs.f 14 Jan 2006 12:28:22 -0000 1.7
***************
*** 26,30 ****
s" src\lib\MdiDialog.f" create-doc
s" src\lib\AXControl.F" create-doc
! s" src\lib\HTMLcontrol.F" create-doc
\ GDI class library
--- 26,34 ----
s" src\lib\MdiDialog.f" create-doc
s" src\lib\AXControl.F" create-doc
!
! -tr s" src\lib\HTMLcontrol.F" create-doc
! +tr s" demos\HtmlControlDemo.f" create-doc
! -tr s" src\lib\Mdi.F" create-doc
! +tr s" demos\MdiExample.f" create-doc
\ GDI class library
Index: W32fdexh.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/W32fdexh.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** W32fdexh.f 20 Dec 2005 18:00:50 -0000 1.1
--- W32fdexh.f 14 Jan 2006 12:28:22 -0000 1.2
***************
*** 3,6 ****
--- 3,8 ----
needs tools/dexh
+ internal
+
create W32Fheader
,| <html> |
***************
*** 44,48 ****
--- 46,56 ----
0 c,
+ create W32FNoTrailer
+ 0 c,
+
+ external
+
: W32FDocs ( -- )
+ \ *G Set output for Win32Forth documents in the doc folder
W32Fheader to HtmlHeader
W32FheaderA to HtmlheaderA
***************
*** 50,62 ****
: W32FClassDocs ( -- )
! W32Fheader to HtmlHeader
! W32FClassheaderA to HtmlheaderA
! W32FTrailer to HtmlTrailer ;
: DexDocs ( -- )
DexHTMLheader to HTMLheader
DexHTMLheaderA to HTMLheaderA
DexHTMLtrailer to HTMLtrailer ;
cr .( DexH -- Document Extractor loaded )
cr
--- 58,92 ----
: W32FClassDocs ( -- )
! \ *G Set output for Win32Forth documents in the doc\classes folder
! W32Fheader to HtmlHeader
! W32FClassheaderA to HtmlheaderA
! W32FTrailer to HtmlTrailer ;
: DexDocs ( -- )
+ \ *G Set normal DexH output style.
DexHTMLheader to HTMLheader
DexHTMLheaderA to HTMLheaderA
DexHTMLtrailer to HTMLtrailer ;
+ internal
+
+ 0 value OLDtrailer
+
+ external
+
+ : -tr ( -- )
+ \ *G Stop output of the HTML trailer
+ OLDtrailer 0=
+ if HTMLtrailer to OLDtrailer
+ W32FNoTrailer to HTMLtrailer
+ then ;
+
+ : +tr ( -- )
+ \ *G Restart output of the HTML trailer
+ OLDtrailer ?DUP
+ if to HTMLtrailer
+ 0 to OLDtrailer
+ then ;
+
cr .( DexH -- Document Extractor loaded )
cr
|
