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
! |
