[Win32forth-cvs] win32forth/src/lib HtmlDisplayControl.f,1.2,1.3 HtmlDisplayWindow.f,1.1,1.2

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

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

Modified Files:
	HtmlDisplayControl.f HtmlDisplayWindow.f 
Log Message:
Replaced our Html display control (w32fHtmlDisplay.dll) with Tom's ActiveX control. So the file w32fHtmlDisplay.dll isn't needed any more.

Index: HtmlDisplayControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/HtmlDisplayControl.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
Binary files /tmp/cvsoRbsiB and /tmp/cvsYJob0Y differ

Index: HtmlDisplayWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/HtmlDisplayWindow.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** HtmlDisplayWindow.f	21 Dec 2004 00:19:10 -0000	1.1
--- HtmlDisplayWindow.f	15 Sep 2005 16:36:09 -0000	1.2
***************
*** 14,17 ****
--- 14,18 ----
  
  needs HtmlDisplayControl.f
+ needs SendMessage.f
  needs Bitmap.f
  needs Toolbar.f
***************
*** 143,147 ****
  
  		\ 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
***************
*** 197,201 ****
                  0 to HtmlToolbar
  		;M
! 		
  ;class
  
--- 198,202 ----
                  0 to HtmlToolbar
  		;M
! 
  ;class
  
***************
*** 235,239 ****
                  tempRect.AddrOf GetClientRect: self
  
!                 Left: tempRect 
  		ShowToolbar? if Height: HtmlRebar 2 - else Top: tempRect then
  		Right: tempRect
--- 236,240 ----
                  tempRect.AddrOf GetClientRect: self
  
!                 Left: tempRect
  		ShowToolbar? if Height: HtmlRebar 2 - else Top: tempRect then
  		Right: tempRect
***************
*** 246,250 ****
  
  :M SetString:   ( zUrl -- )
! 		SetString: HtmlControl ;M
  
  :M SetURL:      ( zUrl -- )
--- 247,251 ----
  
  :M SetString:   ( zUrl -- )
! 		drop ;M DEPRECATED
  
  :M SetURL:      ( zUrl -- )
***************
*** 300,302 ****
  ;class
  
! MODULE