[Win32forth-cvs] win32forth/demos/MiniDB MiniDB.f,1.2.2.1,1.2.2.2

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

Update of /cvsroot/win32forth/win32forth/demos/MiniDB
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2214

Modified Files:
      Tag: V612xx
	MiniDB.f 
Log Message:
Removed code to build turnkey (which wasn't working anyway)

Index: MiniDB.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/MiniDB/MiniDB.f,v
retrieving revision 1.2.2.1
retrieving revision 1.2.2.2
diff -C2 -d -r1.2.2.1 -r1.2.2.2
*** MiniDB.f	26 Aug 2008 20:54:00 -0000	1.2.2.1
--- MiniDB.f	26 Aug 2008 20:58:56 -0000	1.2.2.2
***************
*** 8,12 ****
  Require EditDB.f
  
- 0 value turnkey?
  20 constant FontHeight
  
--- 8,11 ----
***************
*** 70,74 ****
  :M On_Done:     ( h m w l -- res )
                  Close: self
-                 turnkey? if 0 call PostQuitMessage drop then
                  On_Done: super 0 ;M
  
--- 69,72 ----
***************
*** 153,169 ****
  
  : main  ( -- )
- [ turnkey? ] [if] Start-database [then]
          Start: SimpleDBWindow
          GetAllCustomers
          InitListViewColumns: SimpleDBWindow
          InitListViewItems: SimpleDBWindow
!         true LVS_EX_FULLROWSELECT SetExtendedStyle: ListViewDB
!         [ turnkey? ] [if] MessageLoop bye [then] ;
  
! turnkey? [if]
!         ' main turnkey ListViewDemo.exe
!         s" WIN32FOR.ICO" s" ListViewDemo.exe" AddAppIcon
!         1 pause-seconds bye
! [else]
!          main
! [then]
--- 151,159 ----
  
  : main  ( -- )
          Start: SimpleDBWindow
          GetAllCustomers
          InitListViewColumns: SimpleDBWindow
          InitListViewItems: SimpleDBWindow
!         true LVS_EX_FULLROWSELECT SetExtendedStyle: ListViewDB ;
  
!         main