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
|
