Update of /cvsroot/win32forth/win32forth/apps/ForthForm
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3279/apps/ForthForm
Modified Files:
CreateToolBar.f FORMOBJECT.F Forms.frm
Log Message:
Removed the duplicate Parent since it is now defined in window.f
Index: FORMOBJECT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** FORMOBJECT.F 21 Sep 2005 12:40:39 -0000 1.6
--- FORMOBJECT.F 25 Sep 2005 20:00:35 -0000 1.7
***************
*** 1422,1427 ****
if s" MultiStatusBar TheStatusBar" append&crlf
then GetSuperclass: self DIALOG-CLASS = \ only for dialogwindow super class
! if s" int parent \ pointer to parent of form" append&crlf
! SaveScreen?
if frmXPos (.) append 1 +spaces frmYPos (.) append
s" 2value XYPos \ save screen location of form" append&crlf
--- 1422,1426 ----
if s" MultiStatusBar TheStatusBar" append&crlf
then GetSuperclass: self DIALOG-CLASS = \ only for dialogwindow super class
! if SaveScreen?
if frmXPos (.) append 1 +spaces frmYPos (.) append
s" 2value XYPos \ save screen location of form" append&crlf
Index: Forms.frm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/Forms.frm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Forms.frm 21 Aug 2005 06:22:00 -0000 1.2
--- Forms.frm 25 Sep 2005 20:00:35 -0000 1.3
***************
*** 8,12 ****
' 2drop value WmCommand-Func \ function pointer for WM_COMMAND
ColorObject FrmColor \ the background color
- 0 value parent \ pointer to parent of form
150 175 2value XYPos \ save screen location of form
--- 8,11 ----
***************
*** 359,363 ****
' 2drop value WmCommand-Func \ function pointer for WM_COMMAND
ColorObject FrmColor \ the background color
- 0 value parent \ pointer to parent of form
270 170 2value XYPos \ save screen location of form
--- 358,361 ----
***************
*** 572,576 ****
' 2drop value WmCommand-Func \ function pointer for WM_COMMAND
ColorObject FrmColor \ the background color
- 0 value parent \ pointer to parent of form
210 225 2value XYPos \ save screen location of form
--- 570,573 ----
***************
*** 910,914 ****
' 2drop value WmCommand-Func \ function pointer for WM_COMMAND
ColorObject FrmColor \ the background color
- 0 value parent \ pointer to parent of form
150 175 2value XYPos \ save screen location of form
--- 907,910 ----
***************
*** 1452,1456 ****
' 2drop value WmCommand-Func \ function pointer for WM_COMMAND
ColorObject FrmColor \ the background color
- 0 value parent \ pointer to parent of form
150 175 2value XYPos \ save screen location of form
--- 1448,1451 ----
***************
*** 1580,1584 ****
' 2drop value WmCommand-Func \ function pointer for WM_COMMAND
ColorObject FrmColor \ the background color
- 0 value parent \ pointer to parent of form
150 175 2value XYPos \ save screen location of form
--- 1575,1578 ----
Index: CreateToolBar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/CreateToolBar.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** CreateToolBar.f 21 Aug 2005 06:22:00 -0000 1.2
--- CreateToolBar.f 25 Sep 2005 20:00:35 -0000 1.3
***************
*** 6,10 ****
int &bitmap
- int parent
max-path bytes BitmapFile
BitmapObject TheBitmap
--- 6,9 ----
|
