[Win32forth-cvs] win32forth/apps/Win32ForthIDE CreatePropertyForm.f, 1.1, 1.2

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

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16311

Modified Files:
	CreatePropertyForm.f 
Log Message:
Bug fix #2 :-)

Index: CreatePropertyForm.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/CreatePropertyForm.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** CreatePropertyForm.f	28 Apr 2008 05:17:16 -0000	1.1
--- CreatePropertyForm.f	2 May 2008 23:26:14 -0000	1.2
***************
*** 299,305 ****
                  s" anew -psheet" evaluate
                  fload-buffer
!                 s" Start: " new$ dup>r place
!                 sheetname count r@ +place
!                 r> count evaluate ;
  
  : command-func  { id obj -- }
--- 299,305 ----
                  s" anew -psheet" evaluate
                  fload-buffer
!                 s" Start: " pad place
!                 sheetname count pad +place
!                 pad count evaluate ;
  
  : command-func  { id obj -- }
***************
*** 311,315 ****
                                                         TheBuffer s" PropertyForm"
                                                         ShowSource                 endof
!                          GetID: btnTest          of    nostack1 load-sheet        endof
                           GetId: btnClose         of    Close: self                endof
                    endcase ;
--- 311,315 ----
                                                         TheBuffer s" PropertyForm"
                                                         ShowSource                 endof
!                          GetID: btnTest          of    load-sheet        	  endof
                           GetId: btnClose         of    Close: self                endof
                    endcase ;