World: r3wp

how do we know if current view or core version has access to pro 
features (a part from doing an /attempt on a lib call

/attempt = 'attempt

(catching an error if the call is not licenced)...  obviously this 
works, but its not very nice and it would be cool to be able to list 
available /pro features.

I've browsed the 'system word throughout but didn't notice any place 
where the license made a difference when I enabled/disabled it.

system/user-license  ?

Yes, that changes. You could do:

got-pro-license?: found? system/user-license/id

component? 'library

Never mind, component? doesn't return none when the component isn't 
enabled. That seems a little silly to me.

henrik: face/changes is used to optimize show. e.g. face/changes: 
'offset means that only the offset has changed, so there's no need 
to recompute the face, but it can just be blitted to the new location.

I've tried following to get 'b local in panel but 'b is still global

>>layout [panel with [b: none][b: button]]

Is there some other way?

layout [panel with [b: none][face/b: button]]

The action function cannot know for sure that self is the face, that's 
why face is passed into every action function each time.

aha, I see. Thanks Anton

It looks OK, but actually, it's not working.
>> layout [panel with [b: none][face/b: button]]
Misplaced item: face/b:

Anton you're right with 'face in action block, but what I want is 
to have local words not in action but in panel definition block.

oops I see.

That's what happens when I don't test first.

I know that very well :)

I have an idea.

Yes?

...

>> layout [p: panel with [ctx: none insert init [ctx: context [b: 
none] bind second :action ctx]][b: button]]
>> ctx
** Script Error: ctx has no value
** Near: ctx
>> b
** Script Error: b has no value
** Near: b
>> p/ctx/b/style
== button

So you might rename CTX to VARS to give it a meaningful name.

The above approach (storing the words in a context) makes it safe 
to add variables of any name (without having to check if it would 
override a some facet of the panel style).

Yes, that works. Great, Anton!

anton:  WRT license,  (I had found that one  ;-) this only tells 
you that a pro license is installed... not the components which it 
enables...

since components of the pro package have changed from one version 
to another... its getting a bit tedious to hope everything is properly 
mapped...

and we aren't talking of other obscure packages like dll, link, sdk... 
for which I have no clue what is enabled.

I tried to create with the following code a circle with a transparent 
background and save it. I tried some different versions, but currently 
I have no glue how to achieve this. The point is I need a file with 
a circle and a transparent background :-) and I thought I quickly 
do this with Rebol instead of using a paintprogram. So am I doing 
something wrong ? It's saving the background from the window and 
if that is set to 'none then it's black ?

view layout [
    b: box 22x22 effect [
        draw [pen red line-width 2 circle 11x11 10]
    ]
    across 
    f: field 200 button "Save" [
        file-name: to-file f/text

        unless find/last file-name ".png" [append file-name ".png"]
        save/png file-name to-image b
    ]
]

There is some rebol-XXX? words and one is 'rebol-pro?
>> help rebol-
Found these words:
   rebol-command?  logic!    false
   rebol-encap?    logic!    false
   rebol-link?     logic!    false
   rebol-pro?      logic!    false
   rebol-view?     logic!    true
   to-rebol-file   native!   Converts a local

Seems pretty recent (almost 1.2.48, not in 1.2.8)

MichaelB, maybe you wanna something like:
i: to-image b
repeat n length? i [t: i/:n t/4: 255 - t/1 poke i n t]

i: make image! 22x22
i/alpha: 255
draw i [pen red line-width 2 circle 11x11 10]
save/png %test.png i

component? might be another one to try.

Gabriele, much better than my solution! :-)

Thanks Gabriele, didn't even know that draw is a function which can 
be used stand-alone. (thanks to Geomol of course as well :-)

Im getting all the time the same errors from /view 1.3.2.3.1 anyone 
kows if thats a known problem?

** Script Error: Invalid path value: dirty?
** Where: evt-func
** Near: if all [
    system/view/focal-face
    event/type = 'down
    not within? event/offset win-offset? system/view/focal-...
>>
>> unview
>> system/version
== 1.3.2.3.1

It always happens during events with the mouse.. like drag and drop 
up/down while dragging out of the window etc..

Maybe you use custom faces not based on 'VID-face but on 'face object, 
so there is some "properties" missing in your faces.


This code is from the global event handler and handle field/area 
loose of focus :

	 probe system/view/screen-face/feel/event-funcs

View set system/view/focal-face to editable face only (field, area).

So if you use it for other type of face that did not have 'dirty? 
property ==> Error!

The exmaples are from the new /view doc ;-)

But ill fixed it by baking my own... But now i have system crashed 
useing 'merge as effect...

What example?

Well strangly enough it doesnt always happen.. i was testing from 
this document -> http://www.rebol.com/docs/view-system.htmland example 
10.4 Iteration Example

 does crash.. probably an minor error somewhere... did not check it..

But it have to be said once agani once every year ;-) "Rebol Rules" 
;-)

Seems to work OK here.

Are you sure you don't have any special things in your %user.r file?
It's usually a things to check.

Well now you mentioned it.. I had a look and its stuffed with 'Steel 
configurations.. Let me remove those ;-)

Who created the Images in the document http://www.rebol.com/docs/view-system.html
 ??? I mean the Data-flow images...can the person in question please 
contact me ;-)