World: r3wp

Ah.. but you will basically need to make a function similar to find-window 
in order to be sure everything's ok.

Yes, you will need to check if parent-face is none. face/parent-face 
is only set the first time a face is shown.

yeah... but it never gets cleared... that's one of my pet peeves 
about view/face.

So you want to redraw a face, while respecting its show? facet, I 
suppose.

its hard to get JIT information on real state of faces.

I want to make sure that I don't try to call show on a face before 
its been initialised...

currently checking parent-face seems to work fine.

btw, GLayout sets parent-face in advance... allowing child face the 
chance to take decisions based on their parent... before the layout 
is done.

The user who rips a face out of a face hierarchy will have to be 
sure to also set the parent-face to none.

is it possible to see which browser is the default browser? BROWSE 
seems to be able to get to it.

on Windows it gets it from the registry

anyone know the way to programatically select one of any viewed windows? 
 I am trying

view find-window face 


on a face from a window I'd like to automatically select, but its 
not working...

hehehe  I just discovered a window face option I didn't even knew 
existed  :-)  I guess its "rather" newish?

'activate-on-show


Maybe I just never needed it before... but this does what I need. 
 :-)

hum... seems the rate system is buggy? when opening window popups... 
sometimes the rate for all window go dead... re-opening the same 
window, in the exact way will randomly stop/enable 'time events? 
 

has anyone ever seen this?

See also: face/changes dialect [activate minimize maximize restore]

After setting face/changes to one of those words, you must show the 
window face to do it.

I think I've seen weirdness with time events like that, but never 
got around to documenting the bug because it would have taken too 
long to describe it fully.

where is the changes dialect documented? do you know?

AFAIK nowhere :/ Add 'offset to dialect words.

In my own little text file that I collected over the years. :)

Thanks Rebolek. I had written a face/changes: [offset] example somewhere... 
it's supposed to attempt hardware scrolling, if graphic card supports 
it.

stupid question... can't we set the progress bar value directly within 
the dialect?

view layout [progress 0.3]

I find it a bit ugly to have to do this:

view layout [prg: progress do [prg/data: 0.3]]

>>  view layout [progress with [data: 0.3]]

why didn't I think of that... I used the 'WITH block all the time...

but still the 'with block is the "hack" method.  I was surprised 
to notice that we still cannot reach the decimal value within the 
1.3.2 release... there is an error lingering since years in VID.

hehe :)

the switch case, which reaches the face's multi object, has a decimal 
element, but its not of the proper type, so it never gets matched...

meaning, although it should be able to address a decimal function 
within the multi object, it never does cause the switch which should 
trigger the case, will never match.

that's strange

I remember giving the solution to Carl... and he replying....   "Oops!" 
hehe

this might predate RAMBO... maybe the fix never got included in the 
release, or its there and my latest code is just not trying to use 
the proper function within the multi object...

so will you RAMBO it? 1.3.3 is right behind the door... ;))))

I'll try to find where its going wrong...

just found it... its in the grow-facets VID func:


			pair!   [append pairs val]
			integer! [append pairs val]
			string! [append texts val]
			tuple!  [append colors val]
			block!  [append/only blocks val]
			file!   [append files val]
			url!    [append files val]
			image!  [append images val]
			char!   [new/keycode: val]
			logic!  [new/data: new/state: val]
			decimal! [new/data val]
			time!   [new/rate: val]

note how the decimal! type is not properly set!

I'll RAMBO it right away.

yes, nice :)

done.

can anyone provide a very simplistic example of how you would set 
the background of a face to be transparent?  I've tried using a view 
face and by defining the face in vid with no luck.  I'd also like 
to be able to save the resultant face out to an image with the transparency 
maintained... is this also possible?

here's the program I am using this in...

set color to none for the face

REBOL [
	Title: "REBOL Logo Maker"
	Purpose: "Generate a Hilight image"
	Author: ["Carl Sassenrath" "Gabriele Santilli"]
	Version: 1.0.0

 Rights: "REBOL logo is a registered trademark of REBOL Technologies, 
 USA."
]

debug?: false
hilight-colour: 255.0.0 ;0.112.99	;request-color
character: uppercase request-text
font-type: "font-sans-serif"
xthin-chars: charset "I!J"
thin-chars: charset "1234567890ABDEFPRSZ"
normal-chars: charset"CGHKLNOTUVXY"
wide-chars: charset "WMQ"
xwide-chars: charset ""
special-chars: charset "*"

if font-type = "font-serif"[
;get-char: func [character][

 if find character xthin-chars 	[if debug? [print "xthin"] char-offset: 
 8x2 char-size: 14]

 if find character thin-chars 	[if debug? [print "thin"] char-offset: 
 7x2 char-size: 14]

 if find character normal-chars	[if debug? [print "normal"] char-offset: 
 6x2 char-size: 14]

 if find character wide-chars	[if debug? [print "wide"] char-offset: 
 5x2 char-size: 14]

 if find character xwide-chars	[if debug? [print "xwide"] char-offset: 
 4x2 char-size: 14]

 if find character special-chars	[if debug? [print "special"] char-offset: 
 5x-2 char-size: 28]
;]
]
if font-type = "font-sans-serif"[
;get-char: func [character][

 if find character xthin-chars 	[if debug? [print "xthin"] char-offset: 
 9x2 char-size: 14]

 if find character thin-chars 	[if debug? [print "thin"] char-offset: 
 7x2 char-size: 14]

 if find character normal-chars	[if debug? [print "normal"] char-offset: 
 6x2 char-size: 14]

 if find character wide-chars	[if debug? [print "wide"] char-offset: 
 5x2 char-size: 14]

 if find character xwide-chars	[if debug? [print "xwide"] char-offset: 
 4x2 char-size: 14]

 if find character special-chars	[if debug? [print "special"] char-offset: 
 4x-2 char-size: 26]
;]
]



font-style: make face/font [style: 'bold  name: font-type  size: 
char-size]

hilights: [
	transform 0 1 1 0x0 0x0
	fill-pen snow pen snow
	circle 10x10 9
	fill-pen black pen black
	circle 13x13 9
	fill-pen hilight-colour	;0.112.99
	pen hilight-colour	;serve dark green - 0.112.99
	circle 11x11 9
	fill-pen white pen white
	font font-style
	text 1 char-offset character 
		;]
	;]
]



insert-event-func func [face evt][
	if evt/type = 'resize [
		bx/size: out/size: evt/offset
		bx/size/y: out/size/y: evt/offset/x / 23 * 23
		n: to-decimal bx/size/x / 23
		;t-x: to-decimal bx/size/x / 23 + 5
		;t-y: to-decimal bx/size/y / 23 - 2
;		probe highlights ;logo-shape
;		halt
		hilights/3: n
		hilights/4: n
		loc: to-pair :t-x :t-y
		show out
	]
	evt
]


view/options center-face out: layout [
	origin 0

 bx: box 23x23 green effect [draw hilights effect [key: green]][  
  ;logo-shape][	; 

  file: request-file/only/save/file join %hilight- [character ".png"]
		if not file [exit]
		if not find file ".png" [append file ".png"]
		save/png file to-image bx
	]
][resize]

this was Carl & Gabrielle's Rebol logo maker that I am repurposing.

>> view layout [backdrop effect [gradient 0x1 black white] y: box 
"test"]
(escape)
>> y/color
== none

thanks Henrik, however, I still don't see any transparency saved.

view layout [
	bx: box "test" [
			file: request-file/only/save/file %sample.png
			if not file [exit]
			if not find file ".png" [append file ".png"]
			save/png file to-image bx
	]

]

don't you need to use effect merge?

view layout [b1: box 100x100 red at b1/offset b2: box 50x50 green 
edge [size: 2x2 color: blue] effect [merge]]

uhm, sorry, that works too, while I thought it will not :-)

 view layout [b1: box 100x100 red at b1/offset b2: box 50x50  edge 
 [size: 2x2 color: blue] with [color: none]]

effect merge is only used when merging DRAW results with the background, 
AFAIK

not sure - there was some change between 2.1 and later View iirc, 
maybe merge was first needed, later it was not, or vice versa ...

ah, now I get it - if there is some effect involved, simply setting 
color to none would not work, it is needed to add merge to effect 
block ... it is well described in view-system doc