World: r3wp

Pardon all the obvious typos. set = sets, and display = displays

Anton, I'm running REBOL/View 1.3.2.3.1 5-Dec-2005 Core 2.6.3. I'm 
not encapping....yet. I do not know why I sometimes get the error 
message but usually not.

Now I do not seem to be getting the Microsoft error message at all, 
but I don't know what I changed to make a difference.

Unfortuanately, I have to leave to run some errands. It will probably 
be tomorrow tonight or tomorrow before I can get back.

tomorrow tonight = tonight

Well, from a bug-isolating point of view, it's not much use unless 
you can reproduce the bug at least in a semi-reliable way.

1) Convert the next two lines to rebgui


;banner "0:00:00" rate 1 effect [gradient 0x1 0.0.150 0.0.50] 115x24

;feel  [engage: func [face act evt] [face/text: copy to-string round 
(session-time + (difference now/precise time-start)) show face]] 


(Note; to-string makes a copy for you already, so no need to copy 
again.

Actually, showing the face converts face/text to string for you automatically...)

display "" [my-text: text 32x10 "0:00:00"] 
do bind [
	font: svv/vid-styles/banner/font 
	effect: [gradient 0x1 0.0.150 0.0.50]
	feel: make face/feel [
		engage: func [face action event][
			if action = 'time [
				face/text: now/time ; <-- set the time as you wish
				show face
			]
		]
	]
	rate: 1
	show self
] my-text
do-events

2) "Why does the following line always display a blank string ?"


t-project-name: text (either <> "" project-name/text [(form project-name/text)]["ERROR: 
Project NAME field is empty."]) 80x5

It is unclear to me what you want here exactly.
The code in the parens is only evaluated once, at layout time.
But project-name/text hasn't been set to anything at this time
(other than maybe a default empty string.)

Do you want the t-project-name/text to dynamically reflect the status
of the project-name field ? That is, to update as you type ?

But let's test with some shorter code:

display "" [
	project-name: field 

 t-project-name: text (either <> "" project-name/text ["not empty"]["empty"])
] do-events

The idea is to modify the field so whenever you type a key, the t-project-name 
is shown,

and to modify the t-project-name REDRAW so it sets its own text depending 
on the status of the field's text.
Let's look at them:

probe project-name/feel
probe t-project-name/feel

Let's modify the project-name key handler, appending the show.

project-name/feel: make project-name/feel [
	use [body][

  body: second :engage ; we get the engage function body block using 
  SECOND

  append second third body [show t-project-name] ; <- add this snippet 
  of code to it
	]
]


And let's modify the t-project-name REDRAW function (it has no feel 
so we make one
from the default FACE feel):

t-project-name/feel: make face/feel [
	redraw: func [face action position][
		if empty? face/text: project-name/text [face/text: "ERROR:"]
	]
]

Now all together:

display "" [
	project-name: field 

 t-project-name: text 50 (either <> "" project-name/text ["not empty"]["empty"])
]

project-name/feel: make project-name/feel [
	use [body][

  body: second :engage ; we get the engage function body block using 
  SECOND

  append second third body [show t-project-name] ; <- add this snippet 
  of code to it
	]
]

t-project-name/feel: make face/feel [
	redraw: func [face action position][
		if empty? face/text: project-name/text [face/text: "ERROR:"]
	]
]

do-events

Uploaded build#36 which adds a no-divider option for table, corrects 
resizing problems with info areas, and adds viewed? func if not defined 
(i.e. script is being encapped with enface).

Graham, ticket #53 is working under latest build and I could not 
reproduce drop-list problem. Also note the no-dividers option ;)

Anton, thanks! I just arrived back home. I'll try your code Monday 
and get back with you.

Cool. :)

Is there a tree widget for RebGUI? I need to build something to browse 
the filesystem

Hello Maarten, I have a homemade tree view. It's not complete yet, 
but it works. I was planning to make it complete, but I stopped because 
I am waiting for REBOL 3 and VID+. Anyway, If you want to take a 
look at my homemade TreeView, send me an email [xy-:-cai-:-msa-:-hinet-:-net].

Is there a tree widget

 ... no, but the request-dir function would be much better if there 
 was one.

Thanks Ashley .. I'll test it now.

I get this with ticket #53 and the lastest table.r

probe
["A"]
[1]
remove and probe again
[none]
[1]


So, not working for me.  Do I need something more than the table.r 
?

but the no-dividers is working fine!

Hmm, I'm running build#36 and get the following when running the 
test case from ticket# 53:

click on "A" to hilight, then "Probe":

["A"]
[1]

then click "Remove" followed by "Probe":

none
[]

Replace the display title with:

	display join "Build " ctx-rebgui/build ...

It should display "Build 36".

Anton, your code works great, as I was confident it would. Many thanks!

Very good :)

it will be good to insert cyphre widget (table and tree) into current 
version of RebGui !!

I've got the same image in different layouts and it assumes different 
shapes!

As for tree-view and menu - no need to reinvent the wheel - Cyphre's 
got really decent ones. The question is, how much would it take to 
redo them for RebGUI

what's the background color in rebgui ?  I want to place some invisible 
text ...

white ..

Would it be difficult to make Rebgui look by default as Network Detective? 
IMO this is example of nice and attractive app design, still close 
to OS and less funky than VID ....

I think you have to touch every widget and create the eye-candy.

Pekr, send me a link to a screen shot of it?

Is this Maarten's

http://mail.canarie.ca/MLISTS/tech/att-1118/01-detective_run_en.png

yes, Maarten's. Robert is right, every widget would have to be a 
bit adapted. IMO the biggest problem is with tabs - they simply don't 
work on dark background - they look like few pixels error during 
rendering. The space between tabs is not big enough.

I agree that NREN is cool looking.

e.g. with Cyphre's styles, tabs even don't touch one each others 
- http://www.xidys.com/cyphre-styles.jpg

I'm using it now.

Very clean, very nice.

but I noticed there is one trick - not to put tabs directly on the 
background, instead try to put them in a box (groupbox?)

Nren is imo nice compromise, because - it looks professional enough, 
not dull, yet it bears its own style ...

http://edr.euro.apple.com/documentation/UserExperience/Conceptual/OSXHIGuidelines/XHIGControls/chapter_18_section_7.html

Anything we would want to do has been described by apple.

Even if you change the base rules, they give greate exampes of formats.

We are starting to adapt thier rules to Qtask, and are bringing all 
the styles and interface onto one page, where we can set tempaltes, 
and then the whole site just "snaps" into style.

IIRC Gnome had coold doc towards gui, can't find it now ...

http://developer.gnome.org/projects/gup/hig/2.0/