World: r3wp

correction: 2006

So, did they pay Sony $15M back ?

There should be no legal issue with Independent JPEG Group's version: 
http://www.ijg.org/
From the README:


It appears that the arithmetic coding option of the JPEG spec is 
covered by
patents owned by IBM, AT&T, and Mitsubishi.  Hence arithmetic 
coding cannot
legally be used without obtaining one or more licenses. 
 For this reason,
support for arithmetic coding has been removed 
from the free JPEG software.
(Since arithmetic coding provides only 
a marginal gain over the unpatented
Huffman mode, it is unlikely 
that very many implementations will support it.)
So far as we are 
aware, there are no patent restrictions on the remaining
code.

I'm not a law expert, so I might be wrong.

I don't think there would be any problems with the law, only a matter 
of the size of the implementation.

I do believe it was a size issue, Graham.

How to properly invoke event after window opens.
Or the exact my problem is:

I need to display layout face for web browser plugin. And then after 
it is displayed update some one of subfaces and show them.

It is no problem to do so for new windows outside first one in web 
browser page if opening with /new, but I want to do it for main window 
in browser page.

In such cases it looks like /new does not help - nothing is executed 
after view/new main-win.

Do you mean you want to show windows inside the main window ? Or 
are you happy with panels ? eg:

view layout [btn "code" [my-panel/pane: layout/tight [size 400x400 
backcolor teal title "Code"] show my-panel] btn "documentation" my-panel: 
box 400x400 edge [size: 2x2 color: coal]]

In my case I have panel and some faces what I want to update *after* 
main window is opened.

Ok, order of operations should be:
1)   VIEW main-window
2)   SHOW  subfaces

Not after a button is pressed.

Ok, instead of
	VIEW main-window
you can write
	VIEW/NEW main-window
	DO-EVENTS

Which means you can also write:
	VIEW/NEW main-window
	my-panel/text: "new text here.."
	SHOW my-panel
	DO-EVENTS

Nothing is happening after view main-win - let's simplify:

view/new mainWin

alert "AAAA"

What happens when you run the above code ?
You do not see mainWin at all ?

I see mainWin, but not alert.

Hmm... I will have to test, but I have not tried the web plugin for 
a long while. Anyone else have it set up ?

Why want you do that?
If you want to refine things after layout, you can do instead:
 lay:layout[..]
 do extras
 view lay
I

Something is totaly wrong I I can't get  to run new version of my 
script in my web page.

I am changeing version numbers to the same at the both ends (html 
page and script) - no success.?
What else could I missed.

O'k I somehow managed to view chages in Plugin object frame by using 
new script instead of old one (saveiing old one as old01.r and putting 
it in html page).
But Volker's example does not work for me, fex:

mainWin: layout [
	t1: text "AAA"
	button 200x20 "Atvçrt kârtis" [
		do something
	]
	do [
		t1/text: "Text changed"
		show t1
	]
]

view mainWin

What exactly does not work ?

I presume you see the window with the text and the button.  Do you 
see "Text changed", or "AAA" ?

Probably you only see "Text" in the window.

The TEXT has a constant size and the word wrap means that only "Text" 
can be seen.
Try changing to this:

t1: text -1x100 "AAA" edge [size: 1x1]  
do [t1/text: "Text changed" show t1]

Look here:
	print mold svv/vid-styles/text/init

where it says:
	size: (size-text self) ....

We can do the same:
view layout [
	t1: text "AAA"
	btn "Modify" [
		do bind [
			text: "Text changed"
			size: 1000x200
			size: (size-text self) + (edge-size? self) 

     + (to-pair all [para (to-pair para/margin) + to-pair para/origin])
			show self
		] t1
	]
]

I see just "AAA". What I need is to see "Text changed".

It could look useless, but in real life I need similar thing, but 
with panes and images.

I would like to open plugin main window, so that user could see all 
the controls on layout.

When it is done, then image from internet is loaded - progress bar 
is changing and finaly image is displayed in the pane.

It is not problem to change some control by using button when it 
the layout is open - of course I should take in account text size 
for text fields.

My problem is how to invoke event that in other systems is called 
- "after window open" or something similar.

I tested the above code with the plugin and it's working for me. 
There is no good reason why this should not work for you too. (There 
must only be a bad reason :-)

I'm now reviewing one of my old View script and I need to turn of 
antialiasing to make it compatible with the AGG draw, what's the 
command please? I cannot find it.

I've found it, it's anti-alias off not antialias :-) http://www.rebol.com/docs/draw-ref.html

Hmm, it's not good, that now it will throw error if I use older Rebol 
version:(

Well, Anton first my mistake was connected with that plugin used 
previous version  of script.
To better see my problem,  than try this:

mainWin: layout [
	t1: text "AAA       bbbbb"
	button 200x20 "Do something" [
		do something
	]
	do [
		wait 10
		t1/text: "Text changed"
		show t1
	]
]
view mainWin


Then you wil of course get text changed but before 10 seconds you 
will only see just "Rebol/Plugin 2.6.2.3.1", but not the layout - 
layout appears after 10 seconds and then of course t1 is cahged.

But I need at first to see layout and then after 10 seconds t1 is 
changed.

But in wait 10 place I have load http://server/image.ext

Well you must do:

view/new mainWin: layout [
	t1: text "loading..."
	pic: image 73x76
]

pic/image: load http://server/image.ext
t1/text: "loaded."
show window

do-events

See working code:
http://anton.wildit.net.au/rebol/plugin/browser-plugin-test.html
http://anton.wildit.net.au/rebol/plugin/browser-plugin-test.r

O'k - thanks, Anton! Now it is clear!

You're welcome.

Does anyone know how to turn on/off  the busy indicator at will? 
I'm moving files with services and it would be nice to show that 
something is happening. Thanks in advance.

system/options/quiet: false ; ?

I have one question from Bobik, to which I don't know an aswer:


he's trying to stylize/master his field, but it does not work for 
him, unless he uses full path in 'engage function, e.g.:

 system/words/ctx-text/edit-text face event get in face 'action


whereas 'field itself does not need full path specified. Why such 
a difference? Or is he doing anything wrong probably?

Because 'field is bound there.
  probe ctx-text/edit
thats the feel plugged into 'field.

REBOL []

stylize/master [
	myfield: field with [
           feel: make feel [
		engage: func [face act event][
			switch act [
            	down [

                  either equal? face focal-face [unlight-text] [focus/no-show face]
                		caret: offset-to-caret face event/offset
                		show face
            	]
		        over [

                  if not-equal? caret offset-to-caret face event/offset [

                   if not highlight-start [highlight-start: caret]

                      highlight-end: caret: offset-to-caret face event/offset
                    		show face
                		]
        		]
            	key [
						if event <> newline [
						         edit-text face event get in face 'action
                        ]
				]
        	]
    	]

	]
]
];end of stylize?
halt

So you just can't take original field feel method, and use it inside 
of stylize?

that was wrong, sorry:

REBOL []

stylize/master [
	myfield: field feel [
		engage: func [face act event][
			switch act [
            	down [

                  either equal? face focal-face [unlight-text] [focus/no-show face]
                		caret: offset-to-caret face event/offset
                		show face
            	]
		over [

                  if not-equal? caret offset-to-caret face event/offset [

                   if not highlight-start [highlight-start: caret]

                      highlight-end: caret: offset-to-caret face event/offset
                    		show face
                		]
        	]
            	key [edit-text face event get in face 'action]

                        ]
				
        	]
    	]


];end of stylize?


view layout [f1: field f2: myfield button "End" [quit]]

Theres a trick. 
 feel: make feel bind [..] ctx-edit

f2 field crashes the script ... it does not know focal-face, neither 
it does edit-text

then it finds edit-text withut path. BTW you only need ctx-text/edit-text, 
not that system/words before.

field is defined inside system/view.

so it can shortcut system/view/focal-face too. bind to both.

In the sdk-source they are nested there.