Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10945/apps/Player4
Modified Files:
PLAYER4.F
Log Message:
Jos: Fixed the bug reported by Dirk and changed the way checks are made in the menu.
Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.37
retrieving revision 1.38
diff -C2 -d -r1.37 -r1.38
*** PLAYER4.F 12 Feb 2006 16:34:56 -0000 1.37
--- PLAYER4.F 13 Feb 2006 20:21:37 -0000 1.38
***************
*** 145,148 ****
--- 145,157 ----
needs MediaTree.f
+
+ : check/resize-config-file
+ DatFile$ count file-exist?
+ if DatFile$ count r/o open-file throw dup file-size throw d>s pad !
+ close-file throw pad @
+ sizeof ConfigDef = check-config unmap-configuration
+ then
+ ;
+
\ -----------------------------------------------------------------------------
\ Define the Main Window
***************
*** 170,176 ****
;
! :M On_Paint: ( -- )
! vadr-config AutoStart- c@ Check: mAutostart
vadr-config AutoMinimized- c@ Check: mTray
;M
--- 179,187 ----
;
!
! :M WM_INITMENU ( h m w l -- res ) \ enable/disable the menu items
! vadr-config AutoStart- c@ Check: mAutostart
vadr-config AutoMinimized- c@ Check: mTray
+ 0
;M
***************
*** 237,241 ****
['] on_clicked to click-func
['] on_unclicked to unclick-func
! InitFileNames
GetHandle: Self dup SetParent: ControlCenter
SetParent: ViewForm
--- 248,252 ----
['] on_clicked to click-func
['] on_unclicked to unclick-func
! InitFileNames check/resize-config-file
GetHandle: Self dup SetParent: ControlCenter
SetParent: ViewForm
***************
*** 252,256 ****
." freelist: " vadr-config #free-list @ .
then
! else datfile$ count file-exist? check-config
then
--- 263,267 ----
." freelist: " vadr-config #free-list @ .
then
! else map-config-file
then
***************
*** 270,273 ****
--- 281,285 ----
;M
+
:M On_Done: ( h m w l -- res )
Close: self
***************
*** 530,534 ****
vadr-config AutoMinimized- c@ if HideWindow: MainWindow then
vadr-config AutoStart- c@ if start/resume then
-
;
--- 542,545 ----
***************
*** 548,555 ****
\ Resize the configuration file when needed.
! DatFile$ count file-exist? [IF]
! DatFile$ count r/o open-file throw dup file-size throw d>s pad ! close-file throw
! pad @ sizeof ConfigDef = check-config unmap-configuration
! [THEN]
\ -----------------------------------------------------------------------------
--- 559,563 ----
\ Resize the configuration file when needed.
! check/resize-config-file
\ -----------------------------------------------------------------------------
***************
*** 566,569 ****
--- 574,578 ----
' abort is StopPlayer \ Access to Forth ( Not fullproof )
s" Player4.ico" s" Player4.exe" AddAppIcon
+
PLAYER4
[then]
|
