[Win32forth-cvs] win32forth/src/tools DexH-CreateDocs.f,1.6,1.7 W32fdexh.f,1.1,1.2

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

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