World: r3wp

How can I create something like a STYLE to avoid always having to 
specify things like
	font [align: 'right]

view layout [style my-field field font [align: 'right]  my-field 
my-field]

or you could restyle the field with 
	layout [style field field font [align: 'right]  field field]

Does RebGUI support the 'style  keyword? Ah, didn't knew it.

Whoops! Sorry, didn't pay attention to the group name... :-(

But I suppose you could do something like:	
	rebgui-widgets: make rebgui-widgets [

  my-widget: make one-of-the-widgets [font: make font [align: 'right]]
	]

What exactly was Cyphre's change?

***** rebgui-widgets.r *****
Lines which are not present in the other.
-------------------------------------
419 :       show-popup/window popup parent/parent-face
420 : ;     show-popup/window/away popup parent/parent-face
***** rebgui-widgets.r *****
Lines which are not present in the other.
-------------------------------------
407 :           feel: system/words/face/feel
420 : ;     show-popup/window popup parent/parent-face
421 :       show-popup/window/away popup parent/parent-face
618 :                   down    [face/data: on]
619 :                   up      [face/action face face/data: off]

thanks.

I hate this line.  I hate this line.  I hate this line:

		either 1 = length? view*/screen-face/pane [quit] [

I hate this line.
By the way, I hate this line.

Here's a patch to group-box which makes the top line font-size sensitive:

;init:	make function! [] [ ; <- this multi-arg spec notation will 
be broken in rebol 3
		init:	func [] [ ; <- but this will still work
			font/color: colors/menu

   ; note: if you recalculate the draw block in feel/redraw instead, 
   that allows dynamic font-size changes
			insert effect/draw compose [
				pen (colors/edge)

    ;box (as-pair 0 sizes/cell * 2 - 2) (size - 1x1) ; -2 accounts for 
    para/margin/y, I think
				box (as-pair 0 ((second size-text self) / 2)) (size - 1x1)

    ; blank out the portion of the top edge of the box where the text 
    is
				pen none ; <- this will be set later by feel/redraw

    ;line (-2x-2 + as-pair sizes/cell * 2 sizes/cell * 2) (as-pair sizes/cell 
    * 2 + first size-text self sizes/cell * 2 - 2)
				line 

     (as-pair (sizes/cell * 2 - 2)					 ((second size-text self) / 2)) 
     ; -2 for space between line and title text (on the left side)

     (as-pair (sizes/cell * 2 + first size-text self) ((second size-text 
     self) / 2))
			]

-2 accounts for para/margin/y, I think
  <- you can ignore this :)

have you thought of asking Ashley for a write access account to the 
svn?

Anton, you could try some buddhist lotus meditation, and suddently 
you'll hear wonderfull music, smell exotic odours, see never-thought-of 
colours ... and that line will look very beautiful to you! ;-)

Graham, no I haven't. I don't think I'm so closely involved.

Geomol, I was enlightened to hit the public cache with a few ;;;;;

That line you hate:

	either 1 = length? view*/screen-face/pane [quit] [

could be replaced with:

	unless 1 = length? view*/screen-face/pane [

better?

That just basically removes the quit from the equation ? Should be 
ok. :-)

tables: Is it possible to change the column layout of a table after 
it was layouted? I have a space where I display a table that changes 
it's layout depending on the context of the app. Sometimes it has 
2 than 5 columns and different column labels.

tab-panels: If I use nested tab-panels and add a pre-enter action 
for the nested tab, it's not executed for the first tab shown. As 
this tab is implicitly shown if the parent tab is clicked, the action 
doesn't seemed to be triggered.

Ashely didn't agree that this was okay.  I suggested it before.

Not quite, it was logged as issue#21 ... its just never been high 
on my priority list to fix.

I thought "under consideration" was an euphemism for "don't agree" 
:)

Ok, going to look into it together with Cyphre.

If you're inside an area field with some text, and a slider showing, 
and if you position the slider to the bottom, and then click inside 
the area, the text scrolls back so you're not at the bottom anymore.

Probably the caret hasn't been updated to reflect the position where 
the scroller is.

.

Sorry about that... I just got dropped. :-(

Ok, submitted a ticket to the trac.

There's some funny business going on with key-scroll?. If move the 
caret using arrow keys sometimes the next click on the scrollbar 
doesn't work.

Graham, this patch to the area/pane (slider) action makes things 
better:

				action:	make function! [face /local pos new] [

     ;	don't alter scroll if the last function to touch it was edit-text!!!
					unless parent-face/key-scroll? [

      parent-face/para/scroll/y: negate parent-face/text-y - parent-face/size/y 
      + 3 * data

						if system/view/caret [
							system/view/caret: 
								offset-to-caret parent-face 
									new: min max 
									(pos: caret-to-offset parent-face system/view/caret)

         0x0 ; <-- should add height of one line of text, to keep caret fully 
         visible

         parent-face/size - (face/size * 1x0) ; <- should subtract height 
         of one line of text
						

       ;print [parent-face/size pos new parent-face/para/scroll/y index? 
       system/view/caret]
						]

						show parent-face
					]
					parent-face/key-scroll?: false
				]


It also needs this patch to work correctly, near the top of rebgui-widgets.r:


 ; Unfortunately, offset-to-caret returns end of the string when offset 
 is between two lines, 

 ; which is only possible when indent/y > 0. This ought to be submitted 
 to rambo as a rebol/view bug.
	; I would not use indent until it is fixed.

 ; offset-to-caret needs to work correctly to allow the new area widget 
 functionality of keeping
	; the caret visible when scrolling. -Anton


 ;default-para-wrap: make default-para [origin: 2x0 indent: 0x2 wrap?: 
 true]

 default-para-wrap: make default-para [origin: 2x0 indent: 0x0 wrap?: 
 true]

Key-scroll? issue I mentioned above there is apparently fixed by 
adding this line to area/feel/redraw:


     ;	don't alter data if the last function to touch it was slider!!!
					if all [face/pane/ratio < 1 face/key-scroll?] [

      var: either view*/caret [-3 + second caret-to-offset face view*/caret] 
      [0]

      face/pane/data: either zero? face/para/scroll/y [0] [(var + negate 
      face/para/scroll/y) / (face/text-y - sizes/font-height - 2)]
						face/key-scroll?: false ; <-- added this line -Anton
					]

Anton, did you made the changes to the TRAC repository as well?

Anton doesn't have an account.

Anton, I just tried your patches .. but the text still scrolls when 
I click into the area after scrolling downwards using the slider. 
:(

Anton doesn't have an account

 ... I've been privately messaging everyone who makes code changes 
 here an account. If anyone else needs/wants one just holler.

I can't see that anyone is actually checking in any changes though 
:(

Robert and I are the only two people logging faults in the ticketing 
system.

Did you want to announce on the mailing list that the trac is open, 
and/or change your issues page to reflect this?

Yes, I need to do a bit more to "sell" the whole collaborative dev 
idea; plus I think folks need a bit of hand-holding to use SVN. Perhaps 
a "5 easy steps to making a change" type guide?

I'll spend a bit of time today updating my site and the Wiki before 
we go public on the ML and RebolTalk.

PS: some questions for you on Reboltalk regarding rebdb

RebGUI 0.4.2 is up. Grab it the usual way with:

	do http://www.dobeash.com/get-rebgui.r


You may want to delete view-root/public/www.dobeash.com/RebGUI first 
as a number of old files are now redundant.

This build is the latest snapshot of the repository and includes:


 - %rebgui.r is now a single monolithic (72Kb single line) script 
 (individual source files are in SVN)
	- Cyphre's drop-list change
	- Anton's quit [not] when only one pane remains
	- clear-text and show-text fixes
	- led widget fix (failed when encap'ed)
	- language file for Italian added
	- %tour.r Opera icons replaced with Tango Desktop equivalents


Also note that the RebGUI home page has moved to http://www.dobeash.com/RebGUI/
and that all active issues / tickets can now be found (and updated) 
at http://trac.geekisp.com/rebgui/report/1

wow, lots of work Ashley!  Thanks.

The area field is still showing the same problems I reported before. 
 If, in tour.r, you enter lots of text so that the slider shrinks, 
then reset the slider to the top, focus on another widget, return 
to the area widget, move the slider to the bottom and then click 
inside the area, the text moves to the top.

Yeah sorry guys, I spent almost an hour the other day just installing 
Tortoise for SVN, because my windows installer was too old.

A window popped open to suggest that  get a newer service pack. I 
got it going in the end by running automatic updates and updating 
just the windows installer. It worked in the end, without restarting 
the machine, but then I'd run out of time to actually submit anything.

(Ashley had sent me accout details, by the way.)

How can we now make a change to rebgui.r? Do you have published the 
build-script that creates rebgui.r?

I tried:
REBOL Preprocessor 2.0.0
Copyright 2002 REBOL Technologies

Input file? rebgui-ctx.r
Output file? rebgui.r
***ERROR (widgets/button.r): Cannot load file: button.r
** Press enter to quit...