World: r3wp

; For example -- to accumulate styles:
add-styles: func ['val spec /new /local blk][
   blk: [] if new [clear blk]
   append blk stylize head insert spec to-set-word val
]
; Usage:
my-styles: add-styles x [btn "Quit" [quit]]

Here's what I use for simple timers in layouts:

stylize/master [
    timer: sensor 1x1 rate 0:0:1 feel [
        engage: func [face action event] [
            if action = 'time [do-face face none]
        ]
    ]
]

aha, Chris thanks!  what I was looking for!

exactly what I needed to complete the undo code for my editor! Thanks 
Chris!

Styles are the way to go.  I'm adding °styles° to the °7° system.. 
idea is to have a large collection of panes, buttons, fonts etc... 
all nicely categorized and available at anytime.  If you have some 
styles (or other code), drop it into the °7° group and I'll add it 
to the library.

Hello, I have an app that calls another app with a "do %..." The 
problem is that when I want to exit from the first app after closing 
the second, I am left at a command line as if I called the app from. 
Any one know how to do a double exit?

Tried quit ?

Yes, I'm sorry, I use "quit."

Hmmm, that should work....the 2nd app hasn't redefined quit has it?

(I often redefine it like this quit: :halt so I *can* get to a console 
when a large application quits)

Ah!! That was it. Sunanda, good thinking. Now I have to figure out 
how to keep it from quitting the 2nd app but that fixed that. Thanks!

Got it working fine. Thanks Sunanda.

Chris, why don't you use stylize/styles?

It didn't occur to me when composing the sample; though I assume 
you mean within the 'add-styles function?

; For example -- to accumulate styles:
add-styles: func ['val spec /new /local blk][
   blk: [] if new [clear blk]
   stylize/styles head insert spec to-set-word val blk
]
; Usage:
my-styles: add-styles x [btn "Quit" [quit]]

Hmm, that doesn't work -- I'd need to think about it...

perhaps i do not understand what you want to do, but if the goal 
is building a growing set of styles, i think that this is the standard 
way:
x: stylize/styles [a: field] []
x: stylize/styles [b: field] x
view layout [styles x a "style a" b "style b"]

the first command could also be a more simple:
x: stylize [a: field]

The idea is to take a word! and a block! and set the word! to a style 
created using the block! -- accumulating as desired.  I've implemented 
it as a wrapper for stylize...

it is what stylize/styles already does, no?

only the word must be a set-word already in the block

Yep.  That's what my function does -- puts the word in the block 
and uses stylize.

ah, ok!

Does one know what is the used of the 'text flag ?

And why does flag-face and deflag-face copy the flags block before 
modifying it ???

One possibility: the default flags block may be  global -- shared 
between all default faces. So, to alter an instance, it needs a specific 
copy.

It was my first though, but block! are not shared between object!.

Or was it done for an old View version where 'make does not duplicate 
block! ???

I think so.

For the 'text flag, I have found. It is used by multi/color to dispatch 
tuple! values to face/font/color or face/color.

is there any gui designer out there ?

Guest, you should get your login name in Accounts.

and yes, there are some brilliant gui designers around...some of 
the best in the industry.

thx for reply eFishAnt, are these gui designers working with rebol 
? (e.g. creating a rebol code skeletons)

there are some absolutely brilliant GUI's that various REBOLers have 
designed.  I don't know where to start the list...and there is a 
layout.r tool which generates a GUI from a pallete of styles...not 
sure what you are looking for

layout.r gives you a Reblet (more flesh than a skeleton) and you 
can add actions to buttons, etc...if that is what you mean

(skeleton with flesh, but no fat)

a graphical gui designer. drag and drop controls/components on a 
form . something like a nice IDE...

yes...at first I thought you meant a person...a gui designer...misunderstood 
;-)

a commercial product will be welcome also.

I have done a lot of work to improve layout.r  and more to do in 
the future...but it is a good system, better than commercial products.

who are you?

perfect, will take a closer look at this. perhaps it is a good idea 
to include a foreign tools/component page at rebol, to inform newbies 
about software making life easier.

http://www.rebol.net/has links to lots of places info for developers...let 
me find a couple good specific ones

http://www.rebol.org/cgi-bin/cgiwrap/rebol/search.rwill give you 
the page to search and try layout.r if you want to try the old version.

I think Sunada has thought to do some download statistics for scripts 
people download.

have had a look to layout.r. very impressive and entired written 
in rebol, a good starting point to step faster into view.

It saves a Reblet and it lets you lay out styles where you want them. 
 The code it generates in REBOL is much more readible than archaic 
systems like Visual C++/.Net  and Delphi

agree, very flexible dynamic code generator. increasing the gadgets 
like list, tree  tab (e.g. as macro) will be very nice too :-)) thx 
for heading me to this.

so I still don't know who you are...you should get an account in 
here.

tom, from spain. have had a account but was lost during the crash. 
will make a new .

cool, just post a message in Accounts and one of the men-in-black-hats 
will serve you.