[Win32forth-cvs] win32forth/doc/classes Window.htm,1.14,1.15

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

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

Modified Files:
	Window.htm 
Log Message:
Minor update of the window class docu.

Index: Window.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/doc/classes/Window.htm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** Window.htm	9 May 2006 16:18:48 -0000	1.14
--- Window.htm	28 May 2006 09:50:12 -0000	1.15
***************
*** 61,68 ****
  set the style member of the the WNDCLASS structure associated with the window.
  Default style is CS_DBLCLKS, CS_HREDRAW and CS_VREDRAW.
  </p><pre><b><a name="15">:M Start: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -- )
  </a></b></pre><p>Create the window.
  </p><pre><b><a name="16">:M On_Init: &nbsp;&nbsp;&nbsp;&nbsp;( -- )
! </a></b></pre><p>Thing's to do during creation of the window. Default does nothing.
  </p><pre><b><a name="17">:M On_Done: &nbsp;&nbsp;&nbsp;&nbsp;( -- )
  </a></b></pre><p>Thing's to do when the window will be destroyed. Default does nothing.
--- 61,75 ----
  set the style member of the the WNDCLASS structure associated with the window.
  Default style is CS_DBLCLKS, CS_HREDRAW and CS_VREDRAW.
+ </p><p>To prevent flicker on sizing of the window your method should return CS_DBLCLKS
+ only.
  </p><pre><b><a name="15">:M Start: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -- )
  </a></b></pre><p>Create the window.
+ </p><p>Before the window is created a default window class name for this window will
+ be set. Every window will become it's own class name and it's own window class.
+ Note: If the window class name is set with SetClassName: before the Start: method
+ is called no default class name will be set.
  </p><pre><b><a name="16">:M On_Init: &nbsp;&nbsp;&nbsp;&nbsp;( -- )
! </a></b></pre><p>Thing's to do during creation of the window.
! Default does nothing.
  </p><pre><b><a name="17">:M On_Done: &nbsp;&nbsp;&nbsp;&nbsp;( -- )
  </a></b></pre><p>Thing's to do when the window will be destroyed. Default does nothing.
***************
*** 101,112 ****
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;On_Done: super &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ cleanup the super class
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;0 ;M
! </pre><pre><b><a name="18">:M SetClassName: ( adr len -- )
  </a></b></pre><p>Set the window class name.
! </p><pre><b><a name="19">:M GetClassName: ( -- adr len )
  </a></b></pre><p>Get the window class name.
! </p><pre><b><a name="20">:M SetParent: &nbsp;&nbsp;( hwndParent -- )
  </a></b></pre><p>Set owner window (0 if no parent).
! </p><pre><b><a name="21">:M ParentWindow: ( -- hwndparent | 0 if no parent )
  </a></b></pre><p>Get owner window.
  </p><pre><b><a name="22">:M DefaultCursor: ( -- cursor-id )
  </a></b></pre><p>User windows should override the DefaultCursor: method to
--- 108,123 ----
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;On_Done: super &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ cleanup the super class
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;0 ;M
! </pre><pre><b><a name="18">:M SetClassName: ( addr len -- )
  </a></b></pre><p>Set the window class name.
! </p><pre><b><a name="19">:M GetClassName: ( -- addr len )
  </a></b></pre><p>Get the window class name.
! </p><pre><b><a name="20">:M SetParent: &nbsp;&nbsp;( Parent -- )
  </a></b></pre><p>Set owner window (0 if no parent).
! Note: The parent is the object address of the parent window
! class not the window handle.
! </p><pre><b><a name="21">:M ParentWindow: ( -- Parent | 0 if no parent )
  </a></b></pre><p>Get owner window.
+ Note: The parent is the object address of the parent window
+ class not the window handle.
  </p><pre><b><a name="22">:M DefaultCursor: ( -- cursor-id )
  </a></b></pre><p>User windows should override the DefaultCursor: method to
***************
*** 120,124 ****
  </p><pre><b><a name="25">:M ExWindowStyle: ( -- extended_style )
  </a></b></pre><p>User windows should override the ExWindowStyle: method to
! set the extended window style. Default is null.
  </p><pre><b><a name="26">:M WindowTitle: ( -- Zstring )
  </a></b></pre><p>User windows should override the WindowTitle: method to
--- 131,135 ----
  </p><pre><b><a name="25">:M ExWindowStyle: ( -- extended_style )
  </a></b></pre><p>User windows should override the ExWindowStyle: method to
! set the extended window style. Default is NULL.
  </p><pre><b><a name="26">:M WindowTitle: ( -- Zstring )
  </a></b></pre><p>User windows should override the WindowTitle: method to
***************
*** 196,200 ****
  </p><pre><b><a name="46">;CLASS
  </a></b></pre><p>End of window class.
! </p><pre><b><a name="47">: find-window &nbsp;&nbsp;( z&quot;a1 -- hWnd ) \ w32f
  </a></b></pre><p>Find a window.
  </p><pre><b><a name="48">: send-window &nbsp;&nbsp;( lParam wParam Message_ID hWnd -- ) \ w32f
--- 207,212 ----
  </p><pre><b><a name="46">;CLASS
  </a></b></pre><p>End of window class.
! </p><h2>Helper words outside the class
! </h2><pre><b><a name="47">: find-window &nbsp;&nbsp;( z&quot;a1 -- hWnd ) \ w32f
  </a></b></pre><p>Find a window.
  </p><pre><b><a name="48">: send-window &nbsp;&nbsp;( lParam wParam Message_ID hWnd -- ) \ w32f