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