Yes, it makes sense to me. Thank you!
Le mardi 18 décembre 2012, John Benediktsson a écrit :
> If you use global values, this should work:
>
> SYMBOL: a
> 1 a set-global
> "Press" [ drop a get-global ... ] <border-button> gadget.
>
> The problem with "set" and "get", is that the 'set' is using the namespace
> of the listener which may (likely not) be the namespace of the quotation
> being executed by the quotation. Namespaces are hierarchical, so you want
> to make sure that the value is set in either the current scope or one of
> the outer scopes to be accessible.
>
> Does that make sense?
>
> By the way, there are several ways to get your code to work, through
> currying as was mentioned previously, namespaces like you are trying now,
> or even subclassing a button and storing your value in a slot, e.g:
>
> TUPLE: a-button < button a ;
> : <a-button> ( label quot -- button )
> a-button new-button border-button-theme ;
> "Press" [ a>> ... ] <a-button> 1 >>a gadget.
>
> Best,
> John.
>
>
>
> On Tue, Dec 18, 2012 at 10:26 AM, Samuel Proulx <proulxsam...@gmail.com>wrote:
>
> 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 fo
>
>
------------------------------------------------------------------------------
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
