ON SELECTION BAR 2 OF webconnect DO WCDEMOMAIN

The problem is the PM will add in wcdemomain.prg, which defines its class with OLEPUBLIC. That puts 2 com servers in the compiled .exe, and if you run myapp.exe /regserver only one comm server can be registered automatically - and it may be the wrong one.

Took me a while to discover why .exe would not register - it was registering xxx.wcdemomain.

For now I just removed that line.

However, DCOMCNFG only sees one of those com servers in the registry, but when you configure it, it actually configures all the COM objects used by that entry (IOW, it applies to all fo the EXEs COM objects).

+++ Rick ---

	ON SELECTION BAR 2 OF webconnect DO WCDEMOMAIN

* --------------------------------------------------------
procedure awMenu_test_wcStart(vars)
local result
text to m.result noshow flags 1 pretext 7
DEFINE PAD wconnect OF _MSYSMENU PROMPT "Web \<Connection" COLOR SCHEME 3 KEY ALT+C, ""
ON PAD wconnect OF _MSYSMENU ACTIVATE POPUP webconnect
DEFINE POPUP webconnect MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF webconnect PROMPT "Web Connection \<Documentation" SKIP FOR !FILE("wconnect.chm")
DEFINE BAR 2 OF webconnect PROMPT "Web Connection Demo Server" ;
	SKIP FOR !FILE("wcdemomain.prg")
DEFINE BAR 3 OF webconnect PROMPT "\-"
DEFINE BAR 4 OF webconnect PROMPT "Web Connection Management \<Console" ;
	SKIP FOR !FILE("console.exe")
DEFINE BAR 20 of WebConnect PROMPT "\<Business Object Builder" ;
   SKIP FOR !FILE("console.exe")
DEFINE BAR 5 OF webconnect PROMPT "Web Connection \<Setup" ;
	SKIP FOR !FILE("SETUP.EXE")
DEFINE BAR 60 OF webconnect PROMPT "\-"
DEFINE BAR 29 OF webconnect PROMPT "West Wind \<Message Reader" skip && skip test
DEFINE BAR 30 OF webconnect PROMPT "Report a \<Bug" ;
   SKIP FOR !FILE("console.exe")
DEFINE BAR 6 OF webconnect PROMPT "\-"
DEFINE BAR 7 OF webconnect PROMPT "\<Tools" ;
	SKIP FOR !DIRECTORY(".\tools")
DEFINE BAR 50 OF WebConnect PROMPT "Fat Client \<Samples"    
DEFINE BAR 8 OF webconnect PROMPT "\<Web Connection on the Web"
DEFINE BAR 9 OF webconnect PROMPT "\-"
DEFINE BAR 10 OF webconnect PROMPT "\<About Web Connection"
ON SELECTION BAR 1 OF webconnect DO CONSOLE WITH "GoUrl",sys(5) + Curdir() + "wconnect.chm"
<<b>>ON SELECTION BAR 2 OF webconnect DO WCDEMOMAIN<</b>>
...
endtext

	ON SELECTION BAR 2 OF webconnect DO WCDEMOMAIN

-- thn (FoxInCloud)