win32forth-cvs

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/doc/classes
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19224/doc/classes

Modified Files:
	HTMLcontrol.htm 
Log Message:
Some minor chaged to the MDI classes, docs for the HTML control updated and docs for the MDI classes added.

Index: HTMLcontrol.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/doc/classes/HTMLcontrol.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** HTMLcontrol.htm	11 Jan 2006 17:45:20 -0000	1.1
--- HTMLcontrol.htm	14 Jan 2006 12:28:21 -0000	1.2
***************
*** 58,63 ****
  </p><pre><b><a name="0">;CLASS
  </a></b></pre><p>End of HTML control class
! </p><h2>Example
! </h2><p>For an example see: demos\HtmlControlDemo.f
! </p><hr><p>Document $Id$</p>
  </body></html>
--- 58,114 ----
  </p><pre><b><a name="0">;CLASS
  </a></b></pre><p>End of HTML control class
! </p><h2>Example (demos\HtmlControlDemo.f)
! </h2><pre>
! needs HtmlControl.f
! 
! \&nbsp;Create a simple browser window
! :class Browserwin &lt;super window
! 
! HTMLcontrol html
! 
! :M On_Init: ( -- )
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;On_Init: super
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;self Start: html ;M
! 
! :M On_Size: ( h m w -- )
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2drop drop autosize: html ;M
! 
! :M GoURL: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( str len -- ) GoURL: html ;M
! :M GetLocationURL: &nbsp;&nbsp;&nbsp;( -- str len ) GetLocationURL: html ;M
! :M GetLocationName: &nbsp;&nbsp;( -- str len ) GetLocationName: html ;M
! :M Busy?: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -- flag ) &nbsp;&nbsp;&nbsp;Busy?: html ;M
! :M Offline?: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -- flag ) &nbsp;&nbsp;&nbsp;Offline?: html ;M
! :M GetType: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -- str len ) GetType: html ;M
! 
! :M Wait: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -- )
! \&nbsp;Wait until the browser has finished all
! \&nbsp;downloading operation or other activity.
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin winpause
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Busy?: self 0=
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;until ;M
! 
! ;class
! 
! BrowserWin bwin
! 
! : test
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\&nbsp;start the window
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;start: bwin
! 
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\&nbsp;let the browser load a document
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Offline?: bwin
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if &nbsp;&nbsp;s&quot; doc\p-index.htm&quot; Prepend&lt;home&gt;\
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else s&quot; www.win32forth.org\doc\p-index.htm&quot;
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;then GoURL: bwin
! 
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\&nbsp;wait until browser is ready
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Wait: bwin
! 
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\&nbsp;display some information about the document
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cr GetLocationURL: bwin type
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cr GetLocationName: bwin type
! &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cr GetType: bwin type
! ; test
! 
! </pre><hr><p>Document $Id$</p>
  </body></html>