Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
BUG: Form will not release with debugger open
Message
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00855964
Message ID:
00855999
Views:
10
Mark,

Are you suspended? What have you got in the Watch window?

>I am reporting this bug here for confirmation before posting in the VFP Bug list.
>
>Problem: Form will not release when the debugger is open.
>
>System: Win 2k SP4 with VFP8 SP1
>
>Repro Code:
>ACTIVATE WINDOW debug
>PUBLIC loForm
>loForm = CREATEOBJECT('_Form')
>loForm.Show()
>
>DEFINE CLASS _form AS form
>
>	top = 0
>	left = 0
>	height = 300
>	width = 300
>	
>	ADD OBJECT cmdClose AS _commandbutton WITH ;
>		top = 100, ;
>		left = 100, ;
>		height = 27, ;
>		width = 120, ;
>		caption = [Click Me to Test]
>
>	PROCEDURE QueryUnload
>		*!* some clean up code here
>		IF NOT THIS._PreQueryUnloadHook()
>			RETURN .f.
>		ENDIF
>		THIS.Release()
>	ENDPROC
>	PROCEDURE _PreQueryUnloadHook
>		RETURN .t.
>	ENDPROC
>ENDDEFINE
>DEFINE CLASS _commandbutton AS CommandButton
>
>	PROCEDURE Click
>		THIS.OnClick()
>	ENDPROC
>	PROCEDURE OnClick
>		THISFORM.QueryUnload()
>	ENDPROC
>
>ENDDEFINE
df (was a 10 time MVP)

df FoxPro website
FoxPro Wiki site online, editable knowledgebase
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform