World: r3wp

I

I'll try it out after dinner

Actually the images in wait-images can be used for the anim widget 
in Rebgui :)

; Similar idea -- copied the Apple busy style:

do http://www.ross-gill.com/r/busy-style.r
view layout [bsy: busy black do [set-face bsy true]]

very cool

Trying to figure out how it works again : )  Same problems with events 
though...

I picked up an Asus Eee PC with XP on my latest vacation in Japan. 
Rebol runs quite nicely. The relatively small resolution has caused 
me to redo an app. Is there an "easy" way to do screen resizing? 
Is this something best left up to 3.0?

I could in a pinch enclose the screen I have in a scrollable pane 
set to limits of the Eee PC, I suppose.
Thanks as always in advance.

Romano and others have done resizing systems for R2. They can work 
very well, without tooooo much more effort than normal

I did one interface once where all sizes (components and text) were 
set relative to the layout size, though it was intended to run full-screen. 
 Not sure that's applicable...

Thanks. I will look those up.

I have done a resixing system for R2 that is intended to be incorporated 
directly in future versions. It can be used as is now though.

resizing

BrianH, is it something that is available?

hi.  I run View in Win XP.  My script is very simple... 

blk: load %/c/input.txt foreach url blk [if not find attempt [read 
append url "cvap"] "Nothing found"  [browse url]]
and a line in the input file is something like this:
http://website1.com/search?query=
http://website2.com/search?query=


So, I want to search for "cvap", and it appends that to the URL and 
I search the result string and if it DOES NOT say "Nothing Found", 
then I open that URL so I can visually examine it.


It works 95% of the time, but sometimes I get the following error:

** Script Error: find expected series argument of type: series port 
bitset
** Near: if not find attempt [read append url "cvap"]

Any ideas how I can fix this?
thx

If 'attempt fails, it returns none.

Which breaks 'find.

You could do -- attempt [find read append url "cvap" "Nothing found"]

James, I'm clearing the licensing to post it on REBOL.org. It's already 
in DevBase.

A variant of this resize code will probably be incorporated in future 
versions of R2. I am just waiting for the R3 VID to settle down so 
I can retrofit its resize model into the code.

Brian, You da man. While I was waiting I decided to throw it into 
a panel but only use that capability when I run the app on my EEE 
PC. BTW, I tried some of the other resize code that was posted and 
it works well but not with my app and it's not that big of a deal 
to warrant hunting down why. Thanks.

Hi! How to upgrade rebcmdview with newer version of Rebol?

I would like to make an app with tray icon and menu, but the original 
rebcmdview shows:
** Script Error: Invalid argument: tray
** Where: set-tray
** Near: set-modes system/ports/system compose/deep/only [
    tray: [
        add main [
            help: getTextByLang "Truck messaging"
            menu: (menu)
        ]
    ]
]

While the newer rebview works good with tray, but lacks ODBC support.

Janeks, have you checked the download directory for win32 here:

http://www.rebol.net/builds/031/

http://www.rebol.net/builds/index.html

Thanks!

Now with version cmdview2706.exe it works. Looks like I had an too 
old version before (rebcmdview13131.exe)

Is it possible to unview console window in rebol-view?

F.ex. if I want to show some output and then close it so that program 
still continues. But it looks like better is to use some custom window 
face, so that there will be no risk, that user will close/quit accidentaly 
program by closing console win.

no, you can't.

I have one slow connection to nySql database by using ODBC. Why operations 
on that pauses also my face events? If I have many sql queries to 
be done than interface of my application stays unresponsive ( no 
reactions on any clicks on buttons, tray menus etc.)

Ah - it's clear - it is waiting on when they will be finished.

Hm... but is it possibe to do so that  interfaces is keeping to be 
responsive while another function/task is running?

Not easily. You have to launch another REBOL process, send it the 
request, let it do the blocking calls to ODBC then send back the 
results.

Btw, why are you using ODBC to connect to a MySQL server ?

Yes - know that you will answer that! ;-)

Quite old story, I had command version and not yet knowledge about 
Softinov mySql driver, and I used it to access also MsSql

And you had some issues with the /Command version, I guess ?

What issues you mean?

/Command has a MySQL driver built-in, as you're using ODBC, I'm just 
guessing that the MySQL built-in driver didn't fit your needs.

I needed it for very simple tasks, so it does what I need. But I 
did not yet tested f.ex. speed.

ODBC adds some overhead compared to a direct driver.

But I used Softinov in other apps. The new version is very nice. 
Very easy to code extraction of values from field names.

Glad to hear that it serves you well.

While you're there Dockimbel, I've always wanted to know how one 
checks for the mysql port being open. Occasionally my apps meet with 
a closed port and die.

good question - the same interest me too

try?

answer in MySQL channel

Janeks, you may have missed it, but /Command also has a native MySQL 
driver (so you don't need ODBC for MySQL). (That's what Doc was trying 
to say :)

Yes - I was wrong in my sitation description - I actualy used native 
MySql driver. I just messed it with MsSQL ODBC.

Doc, Question about another process launching - did you mean launch 
process and comunicate with them by using some network protocol?

With struct! I can get a binary representation of an IEEE float from 
a REBOL decimal. But what if I wanna go the other way? The script 
ieee.r in the Library has such a function, but can't it be done with 
just using struct! somehow? So I've got the binary representation 
of an IEEE float and want the REBOL decimal.

For a binary float value in the variable binfloat, try this:

a: make struct! [x [float]] none
change/part third a binfloat
a/x


The third a accessor returns a reference to the binary data of the 
struct. Modifications to the value returned affect the struct. Be 
sure to keep the length of the returned binary the same.

Whoops, the change line is: change/part third a binfloat 4