Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ASSIGN bug : was fixed in VFP8 ?
Message
From
24/09/2003 06:19:03
 
 
To
24/09/2003 02:03:52
Dorin Vasilescu
ALL Trans Romania
Arad, Romania
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00831739
Message ID:
00831764
Views:
28
HI Dorin,

it is not a general rule.
Every property of baseclass has one particular access/assign operation.
CLEAR
zz = 'pippo'

xx=CREATEOBJECT('txt')
xx.xvalue = 'cambio'
xx.tag = 'nuovo tag'
=xx.value
ww = 'xx.value'
? '*** next have problems'
xx.value = 7
STORE 7 TO xx.value
STORE 7 TO (m.ww)
? '*** but internal assign no'
xx.controlsource = 'm.zz'

DEFINE CLASS txt AS TextBox
	xValue = 'prova'
	
	PROCEDURE xvalue_ACCESS
	  ? 'ACCESS xvalue',this.xvalue
	  RETURN this.xvalue
	  
	PROCEDURE xvalue_assign(wValue)
	  ? 'ASSIGN xvalue',wValue
	  this.xvalue = m.wValue
	
	PROCEDURE value_ACCESS
	  ? 'ACCESS value',this.value
	  RETURN this.value
	  
	PROCEDURE value_assign(wValue)
	  ? 'ASSIGN value',wValue
	  this.value = m.wValue

	PROCEDURE tag_ACCESS
	  ? 'ACCESS tag',this.tag
	  RETURN this.tag
	  
	PROCEDURE tag_assign(wValue)
	  ? 'ASSIGN tag',wValue
	  this.tag = m.wValue

	PROCEDURE controlsource_ACCESS
	  ? 'ACCESS controlsource',this.controlsource
	  RETURN this.controlsource
	  
	PROCEDURE controlsource_assign(wValue)
	  ? 'ASSIGN controlsource',wValue
	  this.controlsource = m.wValue
	  
ENDDEFINE
Fabio
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform