[Win32forth-cvs] win32forth/src/lib HtmlDisplayWindow.f, 1.4, 1.5 StatusBar.f, 1.2, 1.3 toolbar.f, 1.3, 1.4

[Ezra B. <ezr...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15339/src/lib

Modified Files:
	HtmlDisplayWindow.f StatusBar.f toolbar.f 
Log Message:
Minor changes to classes. EAB

Index: toolbar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/toolbar.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** toolbar.f	25 Sep 2005 18:31:51 -0000	1.3
--- toolbar.f	29 Jun 2006 04:09:43 -0000	1.4
***************
*** 627,630 ****
--- 627,636 ----
                  ;M
  
+ :M ToolTipHandle: ( -- hwnd | 0 )
+                   hwnd
+                   if    0 0 TB_GETTOOLTIPS SendMessage:Self
+                   else  0
+                   then  ;M
+                   
  ;Class
  

Index: StatusBar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/StatusBar.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** StatusBar.f	11 Jun 2006 09:03:50 -0000	1.2
--- StatusBar.f	29 Jun 2006 04:09:43 -0000	1.3
***************
*** 24,32 ****
  int style
  
- :M ClassInit:   ( -- )
- \ *G Initialise the class.
-                 ClassInit: super
-                 0 to style ;M
- 
  :M AddStyle:    ( n -- )
  \ *G Set any additional style of the control. Must be done before the control
--- 24,27 ----
***************
*** 61,65 ****
  		ClassInit: super
  		RaisedBorder: self
! 		;M
  
  :M MinHeight: 	( #pixels -- )
--- 56,60 ----
  		ClassInit: super
  		RaisedBorder: self
!     0 to style ;M
  
  :M MinHeight: 	( #pixels -- )

Index: HtmlDisplayWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/HtmlDisplayWindow.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** HtmlDisplayWindow.f	11 Jan 2006 17:45:20 -0000	1.4
--- HtmlDisplayWindow.f	29 Jun 2006 04:09:43 -0000	1.5
***************
*** 144,148 ****
  
                  \ restore any settings
!                 false SaveRestore: HtmlToolbar
  
                  [ RBBIM_CHILD RBBIM_CHILDSIZE or RBBIM_STYLE or RBBIM_SIZE or ] LITERAL
--- 144,148 ----
  
                  \ restore any settings
! \                false SaveRestore: HtmlToolbar
  
                  [ RBBIM_CHILD RBBIM_CHILDSIZE or RBBIM_STYLE or RBBIM_SIZE or ] LITERAL