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
|
