World: r3wp

view layout [btn "hi" "ho" with [flags: [toggle]] feel (get in get-style 
'toggle 'feel)]

james: that's a just a starting point to show that applying the toggle 
feel to the btn gives you the desired effect. I'd probably stylize 
in real usage.

same again with an action block

view layout [btn "hello" "goodbye" [print face/text] with [flags: 
[toggle]] feel (get in get-style 'toggle 'feel)]

My humble attempt to improve upon Gabriele's original rich text style 
can be found at http://www.dobeash.com/files/render-rich-text2.r
... supports strikeout and color. Suggestions for improvements (both 
functional and efficiency) more than welcome.

I have united two previousliy existing styles, which were very similar; 
PAIR-EDIT and INTEGER-EDIT into a single source file. Now a CREATE-EDIT-STYLE 
function takes a datatype argument (eg. pair!) and generates the 
appropriate style. A bit of extra work and it supports also  decimal!, 
so you can have a decimal-edit style as well... I'm proud of this 
optimizing - only possible using Rebol. The final source is only 
a little over the size of the original pair-edit, so it is a very 
good increase in efficiency.

I will publish at some time... earlier if someone is interested.

It seems that demos for /View 0.9 (0.8?) are still available:
http://www.rebol.com/view/advanced.rip
http://www.rebol.com/view/face.rip
http://www.rebol.com/view/demos.rip
http://www.rebol.com/view/users.rip

Most code don't work in current /View, but there's a lot of information 
and examples on low-level face access.

I have a window that I want to make a dialog box .... so I do an 
inform on the layout.

Is it possible to make the resultant window resizable ... a la ... 
view/options layout [......] [resize]

Yes

the /Options refinement of layout simply sets a couple of flags in 
the face...

help layout
USAGE:

    LAYOUT specs /size pane-size /offset where /parent new /origin pos 
    /styles list /keep
/tight

DESCRIPTION:

     Return a face with a pane built from style description dialect.
     LAYOUT is a function value.

ARGUMENTS:

     specs -- Dialect block of styles, attributes, and layouts (Type: 
     block)

REFINEMENTS:
     /size

         pane-size -- Size (wide and high) of pane face (Type: pair)
     /offset
         where -- Offset of pane face (Type: pair)
     /parent
         new -- Face style for pane (Type: object word block)
     /origin
         pos -- Set layout origin (Type: pair)
     /styles
         list -- Block of styles to use (Type: block)
     /keep -- Keep style related data
     /tight -- Zero offset and origin

No options keyword ?

sorry refinement

You should be able to set these options manually with something like...

lay: layout [text "testing"] 
lay/options: [resize]
view lay

My bad, I meant the /Options refinement of VIEW

Another thing ..... running on WinXP under view from 1.2.5 & upwards 
....
view/options layout [btn "Test"] [resize]

.... gives me a window that is only partly filled in with the default 
background color?

Is that me .... cant beleive I havent ssen it before?

I have

I think that this is in RAMBO but I'm not certain...

your code with the options against the layout works with inform ... 
thanks Ammon.

You're welcome. ;~>

Phil -- how do you set your background colour?

Oh, ignore...

Phil, that bug has been around for ages. I guess not important enough 
to fix yet :) But I don't remember anyone analysing it thoroughly.

Is it the same under Linux ??
Under windows, this one works fine :

lay: layout [btn "Test"]
print lay/size
view/new lay
print lay/size
do-events

And this one give the result PhilB mention :

lay: layout [btn "Test"]
print lay/size
view/new/options lay [resize]
print lay/size
do-events

Notice that the size is not changed. So View think the window is 
not as large as Windows does. Looks like Windows set the window size 
to it's own minimum size.

Funny! With 1.2.1 the not filled part is white, with 1.2.48 it's 
filled with what is in the background (like if it was transparent) 
:-))
But it's not ! Just move the window :-[

(tested under WnXP)

Yes, I observed this behaviour long ago. It should be added to RAMBO, 
if it has not already.

pliss about sample aplicacion fastcgi:// compile exe

bat found table

lay: layout [ 

origin 0x0
space 0x0

list blue 250x220 [
 across
 adres: field 50  

 zmienna: field 50
 pad 0x4
 wartosc: field 50
 pad 0x4
 tag-in: field 50
 pad 0x4
 tag-out: field 50

return ] data

[["join" 100]
 ["yui" 89]
["ytr" 5 ]
["99" 7]
["7878" 5] ]

Q. On Windows you can define a func as:

maximize-face: func [
	"Maximizes a face on screen."
	obj [object!]
][
	obj/changes: [maximize]
	obj
]

which lets you do:

	view maximize-face layout [text "Hello world!"]


but this is of limited use when you want to know how big the [maximized] 
screen will be *prior* to layout.

	help system/view/screen-face/size

isn't quite what we want, so I cobbled up the following:

max-win-size?: has [scr-face view-face] [
	scr-face: system/view/screen-face
	view-face: make face []
	view-face/changes: [maximize]
	;	view the face
	insert tail scr-face/pane view-face
	show scr-face
	wait .001
	;	unview the face
	remove back tail scr-face/pane
	show scr-face
	view-face/size
]

which has two drawbacks:

1) It requires the face to be shown (screen flickers briefly)
2) It doesn't work on Linux

Anyone else mucked around with this sort of stuff?

3) It dosen't work on IOS (1.0.6)

help !! Scrolling panel

plis source code ?

do http://www.lexicon.net/antonr/rebol/gui/demo-scroll-panel.r

You must use Rebol/View 1.2.1 < version <= 1.2.29    (I am sorry, 
for so small range of versions... can be fixed...)

Source for scroll-panel style:  http://www.lexicon.net/antonr/rebol/gui/scroll-panel.r

plis sample code append panel

Guest: why don't you claim an account for Altme in the "Accounts" 
group ??

how I have this to make ?

What is the /away

refinement in show-popup for?

I can't find it in any doc.

I have the impression that the /away efinement on show-popup function 
 will let the focus to the parent window .. but not sure

>> source show-popup

show-popup: func [face [object!] /window window-face [object!] /away][
    if find pop-list face [exit]
    window: either window [window-face] [
        if none? face/options [face/options: copy []]
        if not find face/options 'parent [
            append face/options compose [parent (none)]]
        system/view/screen-face]
    face/action: away
    insert pop-list pop-face: face
    append window/pane face
    show window]