I've been experimenting with it and I now have another question.
I've figured a way to use symbols in the quotations like so:
SYMBOL: a
1 a set
"Press" *a get* *'*[ drop *_* ... ] <border-button> gadget.
I don't know if that's the best the way to do it but it works. Although,
what I would like to do is to set the value of the symbol a from inside the
quotation. How can I do that?
2012/12/17 Samuel Proulx <proulxsam...@gmail.com>
> I see! Thank you for your help and your explanations!
>
>
> 2012/12/17 Jon Harper <jon.harpe...@gmail.com>
>
>> The quotation you pass to the <border-button> constructor gets called by
>> the system when the button is pressed. At this time, the stack has nothing
>> to do with the stack shown in the listener. So you don't have the reference
>> to the label.
>>
>> To have a reference to the label when the quotation is called, you should
>> make a closure. This can be done with "curry" (or, in this case, the more
>> appropriate "with"):
>>
>> "Test" <label> dup gadget.
>> "Press" [ drop "Worked" >>text drop ] with <border-button> gadget.
>>
>> Other ways of creating closures are fried quotations (
>> http://docs.factorcode.org/content/article-fry.html) or local variables (
>> http://docs.factorcode.org/content/article-locals.html)
>>
>> Cheers,
>> Jon
>>
>>
>>
>> On Mon, Dec 17, 2012 at 10:48 PM, Samuel Proulx
>> <proulxsam...@gmail.com>wrote:
>>
>>> Hi,
>>>
>>> Yet another problem... Hopefully the last though.
>>>
>>> I tried to make a button that changes the text slot of a previously made
>>> label. Here's what I did:
>>>
>>> "Test" <label> dup gadget.
>>> "Press" [ drop "Worked" >>text ] <border-button> gadget.
>>>
>>> I got an error message saying "Data stack underflow" when I clicked it.
>>> So I checked the quotation stack effect:
>>>
>>> [ drop "Worked" >>text ] infer.
>>> ( x x -- x )
>>>
>>> It should take the button, drop it since I don't need it, take the
>>> label, and then change its text to "Worked". It doesn't do it though. What
>>> did I do wrong?
>>>
>>> Thanks in advance,
>>> Samuel
>>>
>>>
>>> ------------------------------------------------------------------------------
>>> LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial
>>> Remotely access PCs and mobile devices and provide instant support
>>> Improve your efficiency, and focus on delivering more value-add services
>>> Discover what IT Professionals Know. Rescue delivers
>>> http://p.sf.net/sfu/logmein_12329d2d
>>> _______________________________________________
>>> Factor-talk mailing list
>>> Factor-talk@lists.sourceforge.net
>>> https://lists.sourceforge.net/lists/listinfo/factor-talk
>>>
>>>
>>
>>
>> ------------------------------------------------------------------------------
>> LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial
>> Remotely access PCs and mobile devices and provide instant support
>> Improve your efficiency, and focus on delivering more value-add services
>> Discover what IT Professionals Know. Rescue delivers
>> http://p.sf.net/sfu/logmein_12329d2d
>> _______________________________________________
>> Factor-talk mailing list
>> Factor-talk@lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/factor-talk
>>
>>
>
------------------------------------------------------------------------------
LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial
Remotely access PCs and mobile devices and provide instant support
Improve your efficiency, and focus on delivering more value-add services
Discover what IT Professionals Know. Rescue delivers
http://p.sf.net/sfu/logmein_12329d2d
_______________________________________________
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk
