[Win32forth-cvs] win32forth/apps/ForthForm CreateToolBar.f,1.2,1.3 FORMOBJECT.F,1.6,1.7 Forms.frm,1.2,1.3

[Jos v.d.V. <jo...@us...>]

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 ----