Hi all,
I use the following code to conditionally bring up a data window. The
method is invoked thru a menu item. Activating it a couple of times
doesn't cause a problem. But if I keep doing that 5 to 10 times (as you
would when you're testing it), the system freezes when I close the app.
No VO error message or Windows GPF warning, though I can kill the app by
pressing Ctrl+Alt+Del (I have the LocalDebug enabled) and Windows usually
recover gracefully. Can anyone tell if there's anything in my code
attributing to the voodoo?
// My code starts here.
=========================================================================
METHOD ShowContactPlan() CLASS MyShellWindow
LOCAL oWin AS ContactPlan
oWin := ContactPlan{ SELF }
IF oWin:IsEmpty
oWin:EndWindow()
MessageBox( SELF:Handle(), ;
Psz("No upcoming contacts with your prospects."), ;
Psz("Contact Schedule"), MB_OK + MB_IconInformation )
ELSE
oWin:Show( ShowNormal )
ENDIF
=========================================================================
CLASS ContactPlan INHERIT _ContactPlan
PROTECT oSFPlanListSF AS PlanListSF
PROTECT lEmptySchedule AS LOGIC
=========================================================================
ACCESS IsEmpty CLASS ContactPlan
RETURN SELF:lEmptySchedule
=========================================================================
METHOD Init( oWindow, iCtlID, oServer) CLASS ContactPlan
FIELD LastUpdator, NCDate
SUPER:Init( oWindow, iCtlID, oServer )
SELF:oSFPlanListSF := PlanListSF{ SELF, _ContactPlan__PlanListSF, ;
DB_Contact{ , , , "DBFCDX"} }
SELF:oSFPlanListSF:Server:SetFilter( ;
{ || LastUpdator == "Terrance" .AND. NCDate >= Today() } )
SELF:oSFPlanListSF:Server:GoTop()
IF SELF:oSFPlanListSF:Server:EOF
[31 lines left ... full text available at <url:http://www.reference.com/cgi-bin/pn/go?choice=message&table=05_1997&mid=3021140&hilit=VOODOO> ]
--------------------------------
Article-ID: 05_1997&2996489
Score: 80
Subject: Crate Blue Voodoo BV-60 head