[Win32forth-cvs] win32forth/apps/Player4 Pl_Toolset.f,NONE,1.1 Catalog.f,1.1,1.2 MciInterface.f,1.1,1.2 Mediatree.f,1.2,1.3 PLAYER4.F,1.2,1.3 Pl_MciWindow.f,1.1,1.2 Pl_Version.f,1.1,1.2 W_SEARCH.F,1.1,1.2

[Dirk B. <db...@us...>]

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

Modified Files:
	Catalog.f MciInterface.f Mediatree.f PLAYER4.F Pl_MciWindow.f 
	Pl_Version.f W_SEARCH.F 
Added Files:
	Pl_Toolset.f 
Log Message:
Player 4th Version: 1.01.09

Index: MciInterface.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/MciInterface.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** MciInterface.f	18 Apr 2005 17:52:11 -0000	1.1
--- MciInterface.f	23 Apr 2005 11:00:06 -0000	1.2
***************
*** 141,158 ****
          GetLength ;M
  
- \ search for char in string, return string till
- \ char and rest of string after char
- \ May 23rd, 2003 - 17:14 dbu
- : /get  { str len char \ str1 len1 -- str len str1 len1 }
-         str len char scan  to len1 to str1
-         len1 0>
-         if   len len1 - to len
-              str1 1+ to str1
-              len1 1- ?dup if to len1 then
-         then str len str1 len1 ;
- 
- : 2nip  ( d1 d2 -- d2 )
-         2swap 2drop ;
- 
  : GetHeightAndWidth ( -- )
          Video?
--- 141,144 ----

Index: Mediatree.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Mediatree.f	20 Apr 2005 22:00:30 -0000	1.2
--- Mediatree.f	23 Apr 2005 11:00:06 -0000	1.3
***************
*** 378,381 ****
--- 378,384 ----
                  ;M
  
+ :M ~:   ( -- )
+         GetHandle: self call DestroyWindow drop ;M
+ 
  ;Class
  
***************
*** 393,403 ****
          WS_EX_CLIENTEDGE or ;M
  
! :M On_Init:     ( -- )
!         On_Init: super
! 
          New> NewTVC to TreeView
          1001 SetId: TreeView
!         self Start: TreeView
  
          true to EnableNotify?
          ;M
--- 396,413 ----
          WS_EX_CLIENTEDGE or ;M
  
! : CreateTreeView   ( -- ) \ create a treeview window
!         TreeView 0<> ?exit
          New> NewTVC to TreeView
          1001 SetId: TreeView
!         self Start: TreeView ;
  
+ : DestroyTreeView   ( -- ) \ destroy the current treeview window
+         TreeView 0= ?exit
+         TreeView dispose \ destroy the window
+         0 to TreeView ;
+ 
+ :M On_Init:     ( -- )
+         On_Init: super
+         0 to TreeView CreateTreeView
          true to EnableNotify?
          ;M
***************
*** 406,424 ****
          AutoSize: TreeView ;M
  
! :M Refresh:     ( - )
          timer-reset
!         wait-cursor   paint: self       \ Huge impact here
          EnableNotify? false to EnableNotify?
  
!         TVI_ROOT DeleteItem: TreeView
!         FillTreeView: TreeView
  
          to EnableNotify?
!         arrow-cursor  paint: self       \ Small impact here
          .elapsed
          ;M
- \ The elapsed times for Refresh: when the catalog is sorted again.
- \  12.875 sec   without paint: self
- \   4.89  sec   with    paint: self
  
  :M WM_NOTIFY    ( h m w l -- f )
--- 416,435 ----
          AutoSize: TreeView ;M
  
! :M Refresh:     ( -- )
          timer-reset
!         wait-cursor
          EnableNotify? false to EnableNotify?
  
!         DestroyTreeView           \ destroy the current treeview window
!         CreateTreeView            \ create a new one
!         SW_HIDE Show: TreeView    \ hide,
!         On_Size: self             \ resize,
!         FillTreeView: TreeView    \ fill,
!         SW_RESTORE Show: TreeView \ and show it
  
          to EnableNotify?
!         arrow-cursor
          .elapsed
          ;M
  
  :M WM_NOTIFY    ( h m w l -- f )
***************
*** 438,440 ****
  \s
  
!