|
From: Jos v.d.V. <jo...@us...> - 2012-02-14 13:59:24
|
Update of /cvsroot/win32forth/win32forth/Templates
In directory vz-cvs-4.sog:/tmp/cvs-serv21592
Modified Files:
MinimalWindow.f SplitterWindow2.f TreeViewInSplitWindow.f
Log Message:
Jos Removed Close: self from On_Done: since it might cause a loop
Index: SplitterWindow2.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Templates/SplitterWindow2.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** SplitterWindow2.f 17 Aug 2008 15:04:24 -0000 1.2
--- SplitterWindow2.f 14 Feb 2012 13:59:21 -0000 1.3
***************
*** 153,157 ****
:M On_Done: ( h m w l -- res )
- Close: self
0 call PostQuitMessage drop
On_Done: super 0
--- 153,156 ----
***************
*** 171,175 ****
turnkey? if MessageLoop bye then ;
! turnkey? [if]
' main turnkey App.exe
s" WIN32FOR.ICO" s" App.exe" AddAppIcon
--- 170,174 ----
turnkey? if MessageLoop bye then ;
! turnkey? not [if]
' main turnkey App.exe
s" WIN32FOR.ICO" s" App.exe" AddAppIcon
Index: TreeViewInSplitWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Templates/TreeViewInSplitWindow.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** TreeViewInSplitWindow.f 3 Jun 2010 08:56:38 -0000 1.4
--- TreeViewInSplitWindow.f 14 Feb 2012 13:59:21 -0000 1.5
***************
*** 271,275 ****
:M On_Done: ( h m w l -- res )
- Close: self
0 call PostQuitMessage drop
On_Done: super 0
--- 271,274 ----
Index: MinimalWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Templates/MinimalWindow.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** MinimalWindow.f 17 Aug 2008 15:04:24 -0000 1.2
--- MinimalWindow.f 14 Feb 2012 13:59:21 -0000 1.3
***************
*** 19,23 ****
:M On_Done: ( -- )
- Close: self
0 call PostQuitMessage drop
On_Done: super 0
--- 19,22 ----
|