Update of /cvsroot/win32forth/win32forth/apps/PlayVirginRadio
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16338/apps/PlayVirginRadio
Modified Files:
PlayVirginRadio.f
Log Message:
Replaced our Html display control (w32fHtmlDisplay.dll) with Tom's ActiveX control. So the file w32fHtmlDisplay.dll isn't needed any more.
Index: PlayVirginRadio.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/PlayVirginRadio/PlayVirginRadio.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** PlayVirginRadio.f 12 Jun 2005 08:37:34 -0000 1.4
--- PlayVirginRadio.f 15 Sep 2005 16:36:08 -0000 1.5
***************
*** 33,37 ****
[ WS_OVERLAPPED WS_CAPTION or WS_SYSMENU or WS_MINIMIZEBOX or WS_MINIMIZEBOX or ] literal
;M
!
:M StartSize: ( -- w h )
470 265 ;M
--- 33,37 ----
[ WS_OVERLAPPED WS_CAPTION or WS_SYSMENU or WS_MINIMIZEBOX or WS_MINIMIZEBOX or ] literal
;M
!
:M StartSize: ( -- w h )
470 265 ;M
***************
*** 128,132 ****
: uninit-player ( -- )
DestroyWindow: MainWindow
- ExitHtmlControl
SoundOn ;
unload-chain chain-add-before uninit-player
--- 128,131 ----
***************
*** 135,139 ****
\ -----------------------------------------------------------------------------
: InitPlayer ( -- )
- InitHtmlControl \ must be called once at startup
Start: MainWindow
Play: MainWindow \ start playing radio...
--- 134,137 ----
***************
*** 154,158 ****
: NoConsole ( -- )
! initialization-chain do-chain
default-application ;
' NoConsole is default-hello
--- 152,156 ----
: NoConsole ( -- )
! initialization-chain do-chain
default-application ;
' NoConsole is default-hello
***************
*** 177,185 ****
\+ CONSOLE-DLL? false to CONSOLE-DLL?
- \ Tell Imageman that we don't need the w32fHtmlDisplay.dll
- \ if possible (in older w32f versions you have to modify
- \ Imageman.f to do this).
- \+ HTML-DISPLAY-DLL? true to HTML-DISPLAY-DLL?
-
\ Create the exe-file
' go turnkey PlayVirginRadio.exe
--- 175,178 ----
***************
*** 193,195 ****
go
[then]
- |
