World: r3wp

Carl once said "View is miserly, saving pennies, while VID is like 
the government, spending millions".

Hi, I'm trying to visualize data I get from a network port within 
a view window. IIRC using wait within a view handler is greatly discouraged 
(and my first tests seem to show it: the window is updated for the 
first info, but the updates stop after the second, or so. )
So, how do I connect to a tcp port from within /View?

depending on your display needs you could set a rate in a view face 
for interval polling and catch the 'time event under engage - the 
application could then check a data pool/dump area that is being 
generated in a forever loop or something similar by a tcp watcher

Hi ICarii ... what do you mean? Having 2 rebol instances, one that 
listens on tcp and creates a file, which is then read by the other, 
and used for display?

data-i-want-to-display: [..............] ;probably a block
window: layout/tight [
	data-box: box 400x200 rate 0:00:0.001 feel [
		engage: func [f a e][

   if a = 'time [do-something-nifty data-i-want-to-display show f]
		]
	]
]
view/new center-face window
setup-port-listener
forever [
	check-my-port-and-update data-i-want-to-display

 ;add some window shutdown code to close ports etc after window closes..
]

but change the rate in the layout to whatever interval you desire 
for precision

make sure there is also some form of wait inside the forever loop 
or it will thrash about and not release any breathing room for view. 
 A wait of 0.001 typically takes processor usage from 100% to 1% 
as well.  Wait 0 inside a forever loop seems to stick at 100%.  Your 
mileage may vary ;)

Ahhh, thank you. I'll try that next. And thanks for the wait timings, 
I'll try it out.

Has anyone developed any code for a text field that can keep a history 
of previously entered values?

I have built an enhanced text field, that does not have this capability, 
but it would be nice to have it.

I know I saw that! I was thinking of just  using yours and adding 
that with the key action. BTW, the new List-View is great.

feel free to mess around with it. :-)

Well, I just saw list-view get updated with the mysql data. How cool.

the new list-view is great
? is there a new version available?

I just saw list-view get updated with the mysql data
? Is there some mysql interface now in list-view?

it supports object lists now. mysql views, I think he means that 
output from mysql-protocol.r fits in list-view.

I've been using list-view with mysql-protocol for a while but the 
method I use to move data back and forth between mysql data and the 
list-view is not very elegant. Are there any examples of how object 
lists..mysql views work with list-view?

object lists are not suited for mysql results. just use plain blocks 
in blocks, returned from the database. that works fine.

hI'm trying to append to a face for export to a .png later. I'm able 
to append some text using something like: append gui [at 264x72 text 
"SOME TEXT" bold font-size 20]

That works fine, however, when I try to step through a block of data 
to be appended usinf FOREACH I only end up with the last item of 
data appended. Previously appended text remains but any text I attemt 
to append in the FOREACH loop does not "Stick". Any ideas?

source example?

data: [

 ["3/20/1965" "75 Pond Place" "Babylon" "NY" "11702" "Soleiman" "Single 
 Family" "Standard" "Form" "Richaard Soleiman"] 

 ["5/20/1965" "22-75 Pond Place" "Babylon" "NY" "11702" "Soleiman" 
 "Single Family" "Standard" "Form" "Richaard Soleiman"]

 ["6/20/1965" "75 Pond Place" "Babylon" "NY" "11702" "Soleiman" "Single 
 Family" "Standard" "Form" "Richaard Soleiman"]

 ["7/20/1965" "875 Pond Place" "Babylon" "NY" "11702" "Soleiman" "Single 
 Family" "Standard" "Form" "Richaard Soleiman"]

 ["8/20/1965" "175 Pond Place" "Babylon" "NY" "11702" "Soleiman" "Single 
 Family" "Standard" "Form" "Richaard Soleiman"]

 ["9/20/2007" "80 Pond Place" "Babylon" "NY" "11702" "Soleiman" "Single 
 Family" "Standard" "Form" "Richaard Soleiman"]

 ["10/20/1965" "75 Pond Place" "Babylon" "NY" "11702" "Soleiman" "Single 
 Family" "Standard" "Form" "Richaard Soleiman"]	

gui: [
pic: image picture
]

coorx: [73 203 440 555 700 790 920]
coory: [281 346 410 472 536 603 662]
y: 215
append gui [at 264x72 text "Some Text" bold font-size 20]


		foreach dat data [
		append gui [
					at to-pair reduce [80 y] text reduce bold font-size 15 dat/1

     at to-pair reduce [215 y] text reduce bold font-size 15 dat/2

     at to-pair reduce [215 y + 15] text bold font-size 15 reform [dat/3 
     ", " dat/4 " " dat/5] 

     at to-pair reduce [452 y] text reduce bold font-size 15 dat/6

     at to-pair reduce [567 y] text reduce bold font-size 15 dat/7

     at to-pair reduce [712 y] text reduce bold font-size 15 dat/8

     at to-pair reduce [802 y] text reduce bold font-size 15 dat/9

     at to-pair reduce [935 y] text reduce bold font-size 15 dat/10
					]
					y: y + 65
				]
		
append gui [at 264x200 text "Some more text" bold font-size 20]
view layout gui

SOME TEXT

 and "SOME MORE TEXT" will appemd to picture but I only get the last 
 data block appended.

I've stepped trhrough with a view layout after each FOREACH and I 
see that each data block is appended but disappears on the next loop

forget that coorx and coory stuff. I ment to remove that

you are appending a non-reduced block to 'gui. that could be the 
problem.

in the loop

I'm not sure.

Do I need to some how save "gui" face inside the loop?

well, the block inside the loop is not reduced, which means that 
all positions and texts are not really being put into the 'gui block.

just before 'view'ing the block, try:
probe gui

>> a: "some text"
== "some text"
>> b: []
== []
>> append b [a]
== [a]
>> append b reduce [a]
== [a "some text"]

I se the problem...The append statements are there but there but 
my  y coordinate takes on the last value of  y so they are getting 
appended on top of each other in the same location.

yes, because the block is never reduced, so 'y is used directly, 
instead of a reduced block where the value of y at the given time 
would be inserted into the block.

How do I get y value to reduce before append

and for that mater my dat values

see my example above. it does exactly that.

Bingo! I had to compose too: b: compose [at (to-pair reduce [80 y]) 
text bold font-size 15 (reduce dat/1)]

strictly you don't need reduce inside the compose block. you can 
settle for: compose [at (to-pair 80 y) text bold font-size 15 (dat/1)]

thanks a lot Henrik

Anton, did you make a fix for editing center and right aligned fields? 
Could I be allowed to work this into my own set of patches for FIELD?

Where can I find the simplest example of an image player, like playing 
GIF anims in REBOL?  There has to be some very simple ones that just 
flip at some "frame rate" (rather than Drawing)

ask Chris

I looked at his plug-in example, fairly comprehensive but I was looking 
for simpler...thanks.

Steve; Check out RebGUI.  anim widgets can do multiframe gifs

They can? anim just cycles a block of images. Source is here out 
of interest:

	http://trac.geekisp.com/rebgui/browser/widgets/anim.r

Yeah, just feed the anim data [(first gif) (second gif) (third gif) 
...] for how many frames there are.  :)

I guess I should have mentioned that.

thanks, that is helpful...it is simple and is similar enough.  One 
thing I was wondering was if I have to do a load or not from ram...or 
a copy.   still experimenting.  I was trying a make image! to clone 
each picture..

well, a 1000 frames does show up as 43.2 Megabytes...so it seems 
the size is there in RAM.