[Win32forth-cvs] win32forth/demos ListViewDemo.f, 1.18, 1.19 MDIExample.f, 1.7, 1.8 TabControlDemo.f, 1.4, 1.5

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/demos
In directory vz-cvs-4.sog:/tmp/cvs-serv5228

Modified Files:
	ListViewDemo.f MDIExample.f TabControlDemo.f 
Log Message:
Fixed Bug in turnkeying MiniDB plus minor tidy up

Index: MDIExample.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/MDIExample.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** MDIExample.f	2 Sep 2008 06:46:27 -0000	1.7
--- MDIExample.f	10 Aug 2011 15:58:18 -0000	1.8
***************
*** 293,297 ****
  
  cr .( Save MDIExample.exe [Y/N]: )  key  dup emit  dup 121 = swap 89 = or  nostack
!     [IF]  ' go turnkey MDIExample.exe  5 pause-seconds  bye
      [ELSE]  go
      [THEN]
--- 293,300 ----
  
  cr .( Save MDIExample.exe [Y/N]: )  key  dup emit  dup 121 = swap 89 = or  nostack
!     [IF]  ' go turnkey MDIExample.exe
!     Needs Resources.f
!     s" WIN32FOR.ICO" s" MDIExample.exe" AddAppIcon
!     1 pause-seconds  bye
      [ELSE]  go
      [THEN]

Index: ListViewDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/ListViewDemo.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** ListViewDemo.f	10 Sep 2008 11:23:46 -0000	1.18
--- ListViewDemo.f	10 Aug 2011 15:58:18 -0000	1.19
***************
*** 11,15 ****
  Needs Resources.f
  
! 1 value turnkey?
  20 constant FontHeight
  
--- 11,15 ----
  Needs Resources.f
  
! false value turnkey?
  20 constant FontHeight
  

Index: TabControlDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/TabControlDemo.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** TabControlDemo.f	21 Jul 2011 18:47:22 -0000	1.4
--- TabControlDemo.f	10 Aug 2011 15:58:18 -0000	1.5
***************
*** 101,105 ****
  
  : selchange-func  { lParam obj \ Parent -- false }
! \ This function es executed when the currently selected tab has changed.
  \ lParam is the adress of the Address of an NMHDR structure.
  \ obj is the address of the TabControl object that has send the
--- 101,105 ----
  
  : selchange-func  { lParam obj \ Parent -- false }
! \ This function is executed when the currently selected tab has changed.
  \ lParam is the adress of the Address of an NMHDR structure.
  \ obj is the address of the TabControl object that has send the
***************
*** 152,156 ****
  	\ ------------------------------------------------------------------------
  
!         \ Note: You must first set the mask and than the other struct members !!!
          LVIF_TEXT       SetMask:    LvItem
  
--- 152,156 ----
  	\ ------------------------------------------------------------------------
  
!         \ Note: You must first set the mask and then the other struct members !!!
          LVIF_TEXT       SetMask:    LvItem