World: r3wp

What is 'tray?

systray.. ;-) putting rebol in the systray...

has anynoe an example on how to alpha-blend the main rebol/view window 
using MS-windows ? Is that possible at all ?

ah ok.. but didn't find "tray" on my page... ?

Possible on WinXP (and 2000 I think), yes.

can't find an example right now... but better to ask in the "Windows" 
group...

no..no... I found it on your page ;-) its in your system-modes document..

Ok, cool. :)

What could cause font script(encoding) change from f.ex. baltics 
to western  when downloading and running scripts on other computer.

In this case I am getting language specific symbols displayed like 
the font encoding scipt is Western while I need Baltics.

At the same time I had no problem, when I called the same layout 
script in office.
Problem appears when I am at home connected to office via VPN.
Rebol view console font encoding script is set to Baltics.

missing font?

Is there anything I can do about the "no 'wait in view handlers" 

I try to use an sqlite call in a button, but sqlite uses wait internally 
...

a few nested waits are usually no problem. maybe
sqliting?: false
..
button [

 either sqliting?[alert "sqliting already"][sqliting?: true sqlite 
 sqliting?: false]
]
;if your user clicks very fast.

hmm, the alert adds another wait, view/new?

My script looks like this

view layout [
   title "Address"
   across
   name-list: list 300x400 [
      text bold 400 [

         person-info: first sql rejoin [{select * from person where guid like 
         "%} face/user-data {%";} ]

         ;person-info: ["1" "ingo" "hohmann" "static test" "" "" ""]
         vals: get person-disp

         repeat i length? person-info [insert clear vals/:i person-info/:i]
         show w
      ]
   ]
   supply [
      count: count + cnt
      face/color: ivory
      face/text: none
      if even? count [face/color: ivory - 50.50.50]
      if none? v: pick list-data count [exit]
      face/text: reform [pick v 4 "-" pick v 2 pick v 3]
      face/user-data: pick v 1
   ]
   sld: slider 16x400 [
      c: max 0 to-integer (length? list-data) * value
      if c <> cnt [cnt: c show name-list]
   ]
   w: box 400x400 with [pane: layout address/make-person-lay]
]


If I click on a list entry, it's like all other entries are removed 
from the list. Wherever I click I always get the same entry, if I 
move the mouse over the list, all other lines are emptied when the 
mouse moves over them.
Using the static test-data everything warks fine

I don't think this is an sql problem, but a list problem.

(and also not a problem of WAIT)

I suspect your INSERT CLEAR may be causing a problem.

What's person-disp ?

person-disp is an object, which contains the strings to be displayed 
in my layout.

Ok.

I get data from the database, copy it into person-disp.

with doing clear insert  the string keeps bound to the layout

I now don't think that's where the problem is occurring. Will make 
a stripped down list.

I just tried adding a wait in there, and it still works. So you are 
right, it's not the wait ...

It's a string copying issue somewhere.

What happens when you copy/deep person-info ? eg.  person-info: copy/deep 
first sql ....

I couldn't reproduce the problem with this:

list-data: [
	["" "hello"]
	["" "there"]
	["" "Ingo"]
	["" "Hohmann"]
]
cnt: 0
view layout [
   title "Address"
   across
   name-list: list 300x400 [
      text bold 400 [

         ;person-info: first sql rejoin [{select * from person where guid 
         like "%} face/user-data {%";} ]

         ;person-info: ["1" "ingo" "hohmann" "static test" "" "" ""]
         ;vals: get person-disp

         ;repeat i length? person-info [insert clear vals/:i person-info/:i]
         ;show w
      ]
   ]
   supply [
      count: count + cnt
      face/color: ivory
      face/text: none
      if even? count [face/color: ivory - 50.50.50]
      if none? v: pick list-data count [exit]
      face/text: reform [pick v 4 "-" pick v 2 pick v 3]
      face/user-data: pick v 1
   ]
   sld: slider 16x400 [
      c: max 0 to-integer (length? list-data) * value
      if c <> cnt [cnt: c show name-list]
   ]
   ;w: box 400x400 with [pane: layout address/make-person-lay]
]

So the problem must occur in the commented sections somewhere.

The same as without copy/deep.

It only occurs when I use the call to sql. And it occurs even if 
I don't use the data returned, e.g. if I add the static data in the 
second person-info: [] line.

How the Rebol uses default fonts for f.ex. buttons?

are you trying to change the font?

I am trying to understand why my font encodings is diffrent on my 
job laptop and on my home desktop. Both have the same OS - WinXP. 
Rebol script is the same sitting on the webserver. I did not specified 
any specific font in my script.

I did not find yet anything in docs about what is responsible for 
font encoding.

What I found with AnaMonitor is that arial font is used. 

But it seams that problem is not there. I just downloded that script 
localy and it looks like encoding is changed in script by downloading 
but not font encoding paramer !?

But why it changes when I am downloading to my desktop but not -when 
to my laptop?

O'k I found it - and of course it was not a problem in Rebol.

Somehow I had changed setting Language for non-Unicode programs in 
Regional and Language options Advanced tab.

Is there a default uptodate MS-Windows /VID somewhere for view? I 
want to skin /view to be MSWindows.. I know there was once a windows 
skin but was it Win95?

a bug? view layout [ch: choice 100 "a" "b" "c"  btn "zmen" [set-face 
ch "c" show ch]]

face/text is not set in set-face for choice ....

has anyone actually tested particular functions?

I don't think proper accessors have been made for all the faces yet. 
I know that BOX doesn't work

so why they were included at all, if not finished? :-)

it is not stable release then, but half-implemented ... I got now 
my rebol friend really pissed and I feel for him ;-)

so VID has definitelly issues ... and we are still waiting for "to 
be soon made announcement (tm September 2005)" about what's the plan 
for VID ...

well, it's not hard to implement your own accessors

copy them from another face

correction: "it's not hard" => "it's not hard if you know what you 
are doing" :-)

I know - it is just that View 1.3.2 is regarded being a stable release 
.... but the thing is, you really can't depend upon proper style 
behavior ... it is really tiresome to still "debug" VID ....

there's a million things wrong with VID, but right now there isn't 
much to do but work around it

but that is really painfull .... I think some ppl would give-up VID 
freedom for consistency ....