[Win32forth-cvs] win32forth/apps/Player4 PLAYER4.F,1.37,1.38

[Jos v.d.V. <jo...@us...>]

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]