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
|
