Ok, I think I found a way to do what you want. I don't think you really need tile-pens. Here's the pen I used : : my-pen ( -- pen ) "vocab:demineur/flat.tiff" "vocab:demineur/pressed.tiff" [ <image-name> <image-pen> ] bi@ dupd dup dup <button-pen> ;
Then I created a button with it : : my-button ( -- button ) "Click it" [ "Clicked.." replace-text ] <button> my-pen >>interior ; The problem with this is with the text's transparency. The default implementation sets it to M: gadget gadget-background dup interior>> pen-background ; and for the image-pen that we use, it defaults to : M: object pen-background 2drop f ; which means no transparency So you have to change this method either for the pen or the button; I did it for the button : TUPLE: my-button < button ; M: my-button gadget-background drop transparent ; and my-button becomes : my-button ( -- button ) "Click it" [ "Clicked.." replace-text ] \ my-button new-button my-pen >>interior ; Hope this helps :) Jon Harper On Wed, Jan 20, 2010 at 3:01 AM, Matt Gushee <[email protected]> wrote: > Hi, Jon-- > > On Tue, 19 Jan 2010 18:22 +0100, "Jon Harper" <[email protected]> > wrote: > > Hi, > did you get any help with your problem ? Here's what I could come up with.. > > > You're the first respondent ... thanks for the tips! I'd still like to hear > something > about the graphics. > > PS: Does nobody watch this list on weekends? If so, too bad for me, since > that's > about the only time I can experiment with Factor. > > -- > Matt Gushee > [email protected] > > ------------------------------------------------------------------------------ > Throughout its 18-year history, RSA Conference consistently attracts the > world's best and brightest in the field, creating opportunities for > Conference > attendees to learn about information security's most important issues > through > interactions with peers, luminaries and emerging and established companies. > http://p.sf.net/sfu/rsaconf-dev2dev > _______________________________________________ > Factor-talk mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/factor-talk > > ------------------------------------------------------------------------------ Throughout its 18-year history, RSA Conference consistently attracts the world's best and brightest in the field, creating opportunities for Conference attendees to learn about information security's most important issues through interactions with peers, luminaries and emerging and established companies. http://p.sf.net/sfu/rsaconf-dev2dev _______________________________________________ Factor-talk mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/factor-talk
