[Win32forth-cvs] win32forth/apps/Player4 Catalog.f,1.24,1.25 PLAYER4.F,1.36,1.37

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

Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24562/apps/Player4

Modified Files:
	Catalog.f PLAYER4.F 
Log Message:
Jos: Enabled auto play and tray window options at the start

Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** PLAYER4.F	21 Jan 2006 18:23:54 -0000	1.36
--- PLAYER4.F	12 Feb 2006 16:34:56 -0000	1.37
***************
*** 37,40 ****
--- 37,41 ----
  defer SortLeastPlayed   ' noop is SortLeastPlayed
  defer SortSize          ' noop is SortSize
+ defer RefreshWindow     ' noop is SortSize
  
  needs Pl_Toolset.f
***************
*** 71,74 ****
--- 72,77 ----
  ENDBAR
  
+ : invert-check ( check  - )  dup c@ not swap c! RefreshWindow ;
+ 
  \ -----------------------------------------------------------------------------
  \       Define the Menu bar
***************
*** 89,93 ****
          MENUITEM     "&Start/Resume playing\tCtrl+R"      'R' +k_control pushkey ;
          MENUSEPARATOR
- 
          SUBMENU      "S&ort and view"
             MENUITEM  "Define a view"                    StartViewForm   ;
--- 92,95 ----
***************
*** 117,120 ****
--- 119,127 ----
          MENUITEM     "&Audio on\tCtrl+A"        'A' +k_control pushkey ;
          MENUITEM     "&Audio off\tShift+A"      'A' +k_shift pushkey ;
+         MENUSEPARATOR
+        :MENUITEM        mAutostart  "Auto play the catalog at the start"
+                                     vadr-config AutoStart-      invert-check ;
+        :MENUITEM        mTray       "Tray window at the start"
+                                     vadr-config AutoMinimized-  invert-check ;
      POPUP "&Help"
          MENUITEM     "About Player 4th..."      k_F1 pushkey ;
***************
*** 163,166 ****
--- 170,178 ----
          ;
  
+ :M On_Paint:    ( -- )
+                  vadr-config AutoStart- c@     Check: mAutostart
+                  vadr-config AutoMinimized- c@ Check: mTray
+                 ;M
+ 
  :M StartPos:    ( -- x y )
                  CenterWindow: Self
***************
*** 282,286 ****
  
  :M HideWindow:  ( -- )
!         IsVisible?: self
          if   Video?: Player4W if Pause: Player4W then
               SW_HIDE Show: ControlCenter Update: ControlCenter
--- 294,298 ----
  
  :M HideWindow:  ( -- )
!      IsVisible?: self
          if   Video?: Player4W if Pause: Player4W then
               SW_HIDE Show: ControlCenter Update: ControlCenter
***************
*** 406,409 ****
--- 418,424 ----
          then ; is UndeleteAll
  
+ :noname ( -- )      \ to update the checks
+         Paint: Mainwindow ;  is RefreshWindow
+ 
  \ -----------------------------------------------------------------------------
  \ Simple command line handling
***************
*** 474,477 ****
--- 489,494 ----
          Close: MainWindow bye ;
  
+ : start/resume ( - ) beep catalog-exist? if play-catalog-random: Player4W then ;
+ 
  : KeyHandler ( -- )
          ekey?
***************
*** 500,504 ****
                  k_right          of Forward                endof
  
!                 'R'   +k_control of beep catalog-exist? if play-catalog-random: Player4W then endof
                  'M'   +k_control of AddFilesFromSelector:  Player4W    endof
                  'I'   +k_control of Import-to-catalog:     Player4W RefreshCatalog endof
--- 517,521 ----
                  k_right          of Forward                endof
  
!                 'R'   +k_control of start/resume           endof
                  'M'   +k_control of AddFilesFromSelector:  Player4W    endof
                  'I'   +k_control of Import-to-catalog:     Player4W RefreshCatalog endof
***************
*** 511,514 ****
--- 528,534 ----
          Start: ControlCenter
          ['] FullScreenToggle SetDblClickFunc: MouseHandlerWindow
+        vadr-config AutoMinimized- c@   if   HideWindow: MainWindow  then
+        vadr-config AutoStart-     c@   if   start/resume            then
+ 
          ;
  

Index: Catalog.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** Catalog.f	21 Jan 2006 18:23:54 -0000	1.24
--- Catalog.f	12 Feb 2006 16:34:56 -0000	1.25
***************
*** 44,47 ****
--- 44,49 ----
                  BYTE                    l_Record-
                  BYTE                    ExitFailed-
+                 BYTE                    AutoStart-
+                 BYTE                    AutoMinimized-
  ;struct
  
***************
*** 626,627 ****
--- 628,630 ----
         then
  ;
+ \s