AltME groups: search

How do you have a widget disabled by default?  options [info] doesn't 
work now on area.
I tried 

do [ disable f ] but got an error.

Does splash still work?  I get an error when I supply a spec block
Also, is there any alternatives to the vid 'flash ?

Ashley, how do I set focus to a button when I hit enter in a field?

It's a lot easier now:

	display "Sample" [
		field [set-focus b]
		field
		field
		b: button "Go"
	]

While we're at it: can I set the width of a drop down box when a 
string is a bit longer?

Hm, I think I tried that. I'll retry and post a bug here if it doesn't 
work

Is there any easy way to determine which word has been hilighted 
in a text area?

Build 214
- updated toggle (2x2 edge on select)
- added missing btn widget
- added missing chat widget
- added flash requestor
- added request-about
- renamed request-password to request-pass

Flash is used as follows:

	...
	flash "message"
	...
	hide-popup
	wait []
	...

request-about is used as follows:


 request-about/url "MyProj" 0.0.1 "Copyright (c) MyCo" "www.site.com" 
 ; or a url!


Note the logo is located in ctx-rebgui/images/logo and defaults to 
the info icon ... replace with your own logo image as follows:

	ctx-rebgui/images/logo: load %my-logo.png

easy way to determine which word has been hilighted in a text area
 ...

display "Sample" [
	a: area
	button [
		all [
			ctx-rebgui/edit/copy-selected-text
			print read clipboard://
		]
	]
	button [
		all [
			ctx-rebgui/edit/hilight?
			set [start end] ctx-rebgui/edit/hilight-range?
			print copy/part start end
		]
	]
]

Why RebGUI uses request-file non-native requestor?
	- GUI consistency
	- speed
	- functionality
	- native requestor is broken on OS X

Can editor's position/size be set?

 - I can make the default smaller, what's your notebook screen res?

 - I'll probably add a /size refinement as well (I can see how you 
 might need a small or large editor in certain situations)

There is strange bug introduced in build 208 and still there. I checked 
and 207 seems to be OK.


When tabbing table and edit-list, edit-list becomes not accessible 
when first line of table gets selected. Selecting any other table 
line clears the problem.
I'm on linux Mint. Can anybody confirm my findings?
 

>>display "" [edit-list data [] table options ["a" left 1.0] data 
[1 2 3]] do-events  ;-- tab a bit, please

I'm trying to transfer the domain from Webhero (previously catalog.com) 
to a local (Australian) provider ... Webarama. Maxim, where did you 
see it not active? I don't want an admin mix-up on this one!

Er, this is weird.


I filled in a domain transfer request for Webarama, and because it 
was a .com they asked for an Authorization code from Webhero ... 
which I asked for, obtained and provided. My Webarama domain list 
includes dobeash.com, says its active and due for renewal next year. 
Webhero then said they were going to autobill me for another year 
of hosting etc so I cancelled all my services with them figuring 
that once that occured I'd [eventually] be left with a blank www.dobeash.com 
site which I'd rebuild from backup. That was several days ago.


Any ideas on what I should do? (it's after 5pm here so I can't contact 
Webarama to confirm ownership).

I guess the only ones who can answer you for sure are webarama.  
they might have a 24h support mail or phone line.

Land lines are 8 digits with a 2 digit prefix (e.g. 03 for Victoria). 
1800 numbers are toll-free, 1300 numbers are free for local callers. 
13 numbers are the same but guarenteed to be unique nationwide. The 
later 2 are synonyms for a real underlying physical number, but can 
only be called to from within Australia. Clear as mud ... ;)

Responded privately (fax spamming is a problem for businesses).

UI question. What's the "standard" way to deselect a selected table/text-list 
row. I've seen:

	a) click the selected row (i.e. toggle mode)

 b) click outside the parent widget (i.e. deselect on focus change)
	c) don't allow it (the current RebGUI behavior)


I can see problems with each approach, but c) requires another widget 
(typically a button) to produce the desired behavior.

Thanks Graham for confirming. Thanks Ashley for quick fix of the 
last problem.

Problem I tried to explain before still remains. Lets explain it 
better, if I can.


>>display "test" [table options ["a" left 1.0] data [11 22 33] field 
edit-list data [1 2 3] field] do-events

If one selects first line in table and tries to <TAB> around one 
gets stack on edit-list (drop-list too).

If, on the other hand, one selects any other line of table, edit-list 
gets focus and tabbing continue to work, but only after it reaches 
table again.
I hope it's not too hard to fix. Thanks.

Ashley;  RebDOC feature request.  How hard would it be to add a Keywords 
tab to this uber handy app?  (Second part of the request being a 
please please if it won't take too much of your time)

a) ... I don't want to deselect as a button may require the row to 
be selected to act on it.

I will try my luck again with this 2 items.


When using edit-list or drop-list, there is a way to crash it. Just 
click on the widget, hilight any line on the list and press <TAB>.

>>display "" [edit-list data [1 2]] do-events ;;-> stack-overflow 
error message pops up.


Table widget has different gap in the last column on the right without 
and with the scroller. It' only cosmetic thing and maybe it is customary 
to be like that.

>> display "" [table options ["a" right 1.0] data [1] table options 
["b" right 1.0] data [2 3 4 5 6]] do-events

Can anyone confirm, please. Ashley?

Another stumble block in my slow attempt to write my little program. 

Try to select edit-list and hit enter key.

>> display "" [table options ["a" left 1.0] data [] edit-list []] 
do-events ;-- works as it should

>> display/dialog [table options ["a" left 1.0] data [] edit-list 
[]] ;-- window disappears

It maybe related to the table problem I mentioned before.

I made a little mistake, but it makes no difference.


>>display/dialog "" [table options ["a" left 1.0] data [1 2 3] edit-list 
data []]  ;-- it still disappears, even if first line selected

One more test to help with debugging. It works with build 207. It 
stops working with buid 208. At least for me.


>>display "" [field table options ["a" left 1.0] data [1] field] 
do-events


Click on field and try to tab around. You can't even select any field 
any more (208). Using empty table is even worse. With 2 rows at least 
it works, but one may need to grow table gradually.

It may be last one, I don't know.


display "" [table options ["a" left 1.0] data [1 2] [set-text el 
first face/selected] el: edit-list data []] do-events


Select row 1 and row 2. Build 205 works ok. Build 207 doesn't with 
first row of table - nothing shows on edit-list. Replacing edit-list 
with field makes it work ok in 207 (and up) again.

why tree-view node icons (arrows) were removed?

 ... tree-view was reimplemented to face-iterator ... havn't got around 
 to adding arrows/icons for the nodes yet
... dobeash.com is still down

 ... getting the domain transferred is taking much longer than expected, 
 hope to have it back up within 3-5 days
... stops working with buid 208 ...

 thanks marek, most of those issues are due to the major tabbing changes 
 that occurred in 208. Fixing them is still a WIP.

Did Ashley say that he had a backup of the content?

He made a note above about a problem... and cancelled the entire 
account.

This is interesting bug.


>>display/dialog "" [edit-list data ["a..." "b..."]] ;; try to enter 
something starting with "a" or "b"
** Script Error: Invalid path value: lines
** Where: wake-event
** Near: pf/lines: to integer! pf/size/y /


Any other start is OK. No modal mode is OK. Happens with 218 (less 
selection bug) and 216 as tested by me.

re: dobeash.com
	- transfer of domain OK
	- ftp of backup content to domain OK
	- http access ... not working ... will investigate

R3 GUI is very important to me as wel
 ... ditto!!!


All these changes appear to have degraded the usability of rebgui 
somewhat

 ... remember that these are development builds, only accessable via 
 SVN. I was hoping to stabalize and "release" by end of this month 
 (September), but the domain issues I've been having have probably 
 pushed that back a month.

Hi Ashley, i would like ask you how to make new widget after you 
have removed function append-widget. I have not found any function 
to do it... sorry i am a dommies and may be there similar func exists 
 :-)

The RebGUI documentation looks great.   Is there also an advanced 
comprehensive example application for viewing ala CureCode as a Cheyenne 
application?

Bobik, to create a new widget:

	1. Add your new widget to the %Widgets/ directory

 2. Edit %rebgui-widgets.r to add an #include entry for your new widget

 3. Run %create-ditribution.r which will "compile" a new version of 
 %rebgui.r for you

MikeL, thanks. Have a look at %tour.r, then %RebDOC.r ... there's 
not many comments but the code should be fairly easy to follow.

Ashley: thanx a lot! :-)

I never used RebGui, but if you can get the object constructed like 
with VID:
b: box red 10x10 on-click [print face/feel/pos]

then you can patch b with something like:

b/feel: make b/feel [
	pos: 0x0 
	engage: func [f a e] compose [
		pos: e/offset 
		(get in b/feel 'engage) f a e
	]
]


That overloads the engage function wihout losing her actual content.

In VID you specify the feel directly, in RebGUI you let the widget 
worry about these low-level implementation details. None of the default 
widgets need to pass mouse offsets back to the application, so if 
you need to do this then creating a new widget is the way to go. 
Having said that, I could always add another action handler (on-anything 
face action event) which would fire instead of the above case statement 
(i.e. handle the event as in VID or let RebGUI delegate it to the 
appropriate handler).

why not allowing the event as a default parameter for any action 
?

I mean, you only furnish the face as argument, can't you add the 
event too ?

Steeve it sounds good! FYI:   I needed widget "box" with drag and 
drop features :-) I know it is possible to make new widget atc.. 
So after append-widget was removed, new widget creating is a little 
bit  cumbersom  and i have tried to catch FAE values directly in 
rebgui dialect...:-) I think there are more cases where to catch 
FAE would be useful for app programmer......

can't you add the event too?

 ... I can, but that breaks a lot of the internal handler code. I'm 
 more interested in seeing what the other FAE cases are (I've yet 
 to hit any myself).

I'd like to see a generic accordion widget if possible.   So, if 
you had 4 "tabs" in the accordion, then each tab is associated with 
a layout.  If you click on a tab, the others collapse, and the clicked 
on one expands to show the hidden layout underneath.  If you click 
on an open tab, it should collapse .. so that the bottom tab's layout 
is exposed.


I've hard coded this stuff before but was wondering if a generic 
one could be written.

An accordion is like a tab panel but vertical as there is no horizontal 
space.

Is there a Javascript one I can play around with somewhere?

A lot of work doing this manually!

event handling management in rebgui ....  that's a topic i wanted 
to discuss 3 or 4 month ago when i tryed to adapt  area-ct to rebgui 
...

hi, i find a probleme on rebgui-218 bluid with menu widget when i 
select a item !!!!!

re: RebGUI and R3/VID. I'll probably put something up on my website 
on this topic as I get asked this quite a lot. Basic thinking at 
this stage is:

	I need to create SDK GUI apps for Windows and OSX
	R2/RebGUI is the only practical alternative at present for *me*
	I'd love to use R3/VID to create SDK GUI apps today
	This probably won't be possible for quite some time

 If and when this *is* possible I'll port all my apps over to R3/VID

 To do this I'll either create a compatibility layer that lets RebGUI 
 apps run on R3/VID, or

 Write a conversion script that tries to convert (if possible) RebGUI 
 scripts to R3/VID

 I'd hope R3/VID is complete enough that it doesn't require any of 
 RebGUI's basic widgets!

ashley do you have a solution for the menu bug ?

Yes, but the next build will be a while yet.

I need to popup a menu where the cursor is.  I guess caret-to-offset 
will get me the offset into the face ....

I often have the need to set a date on a field ... and use a symbol 
to invoke the request-date .. .but this usually means I have to name 
the date field like this


datefld: field 25 symbol data 'look on-click [ use [d][ if d: request-date 
[ set-text datefld form d ]]]


To avoid naming the datefield, I have this function which returns 
the prior face


get-prior-widget: func [ f
    /local pane priorface
][
    pane: f/parent-face/pane
    priorface: pick pane -1 + index? find pane f
]

and here's a request date that uses it


request-date-priorface: func [ f /local d ]
[
    if d: request-date [
        set-text get-prior-widget f form d
    ]
]

so we can now do:


 field 25 symbol data 'look on-click [  request-date-priorface face 
 ]

and how to set  a check-group?

Just looked at in-widget, and it does different things. I want to 
find a specific widget ...

And this doesn't seem to work either


>> display "" [ gb: group-box -1x-1 data [ t: table "test" options 
[ "a" left 1 ] data [ 1 2 3 ]] return button "Get" [ probe get-values 
gb ]] do-events
[[]]

Ashley, I posted a simple function that grabs spelling suggestions 
from the google spell checker.  I  am going to see if I can use it 
in the rebgui spell checker to provide suggestions as currently the 
spell checker does not ....

I've managed to incorporate the google spell check into rebgui's 
spell checker... but it is slower of course but more accurate.

Some optimizations would be to add correctly spelled words unknown 
to the local dictionary automatically, and to also spell check a 
number of words at the same time ... it probably makes not much difference 
to the google spell checker, and is less expensive in terms of web 
calls.

4.  I can't see a way to update the check-group so looks like it 
is easier for me to just  rebuild the check-group on the fly

Hi!  maybe I should ask this in the "I'm New" group.  Wanted to try 
out RebGUI for my 2nd REBOL project.  I'm stuck early on trying to 
refresh a table based on a SQL query in a parent window when closing 
a child window that would have added a record to table.  I've gotten 
the examples on click and away events to work, but do not understand 
how to use focus events apparently.  Can someone point me to some 
sample code that would help w/ moving focus from window to window 
and refreshing tables?  With that, I think most of my GUI problems 
would be solved. 

TIA!  -Jack

Ashley - that got me started, but where I get stuck is on the syntax 
to refer to a widget *in another window*.  In the sample below, I 
want my "Save" button to not only write a new record to my SQLite 
db, but also to refresh the query that loads the table in the parent 
window (OR, can I refresh the parent window table after the child 
window closes and the focus returns to the parent?  I cannot seem 
to trigger any focus events.).  I was trying to wrap my windows in 
objects, which are new to me also, so I'm sure that is part of my 
problem.  Obviously my attempt to refer to my table by this path 
(adddelusers/gui/tbl/data) is incorrect, since I get this error:

** Script Error: Invalid path value: tbl
** Where: on-click

** Near: insert adddelusers/gui/tbl/data (sql/flat "select * from 
users order by userid") adddelusers/gui/tbl/redraw

adddelusers: context [
			title: {Add/Remove Users}

   tbldata: copy esql/rtn [sql/flat "select * from users order by userid"][]
			gui: [

    tbl: table 125x50 options ["UserID" left 0.2 "Password" left 0.8] 
				return
				button "Add User" 30 on [
										click [display/parent adduser/title adduser/gui ]
									]
				button "Remove User" 30 [alert "need to add code here..."]
						]	
]

adduser: context [
		title: {Add User}
		gui: [	
				user:	field text "username" return
				pwd:	field text "password" return

    button "Save" [sql compose ["insert or replace into users values 
    (?,?)" (to-word user/text) (to-binary checksum/secure pwd/text)]

         insert adddelusers/gui/tbl/data (sql/flat "select * from users order 
         by userid") adddelusers/gui/tbl/redraw
								unview adduser/gui ]
				button "Cancel" [unview adduser/gui]
		]
	]

Ashley - that got me started, but where I get stuck is on the syntax 
to refer to a widget *in another window*.  In the sample below, I 
want my "Save" button to not only write a new record to my SQLite 
db, but also to refresh the query that loads the table in the parent 
window (OR, can I refresh the parent window table after the child 
window closes and the focus returns to the parent?  I cannot seem 
to trigger any focus events.).  I was trying to wrap my windows in 
objects, which are new to me also, so I'm sure that is part of my 
problem.  Obviously my attempt to refer to my table by this path 
(adddelusers/gui/tbl/data) is incorrect, since I get this error:

** Script Error: Invalid path value: tbl
** Where: on-click

** Near: insert adddelusers/gui/tbl/data (sql/flat "select * from 
users order by userid") adddelusers/gui/tbl/redraw

adddelusers: context [
			title: {Add/Remove Users}

   tbldata: copy esql/rtn [sql/flat "select * from users order by userid"][]
			gui: [

    tbl: table 125x50 options ["UserID" left 0.2 "Password" left 0.8] 
				return
				button "Add User" 30 on [
										click [display/parent adduser/title adduser/gui ]
									]
				button "Remove User" 30 [alert "need to add code here..."]
						]	
]

adduser: context [
		title: {Add User}
		gui: [	
				user:	field text "username" return
				pwd:	field text "password" return

    button "Save" [sql compose ["insert or replace into users values 
    (?,?)" (to-word user/text) (to-binary checksum/secure pwd/text)]

         insert adddelusers/gui/tbl/data (sql/flat "select * from users order 
         by userid") adddelusers/gui/tbl/redraw
								unview adduser/gui ]
				button "Cancel" [unview adduser/gui]
		]
	]

sorry for the double-send.  and I realize that in cleaning up the 
code I left out the initial table load using the "tbldata" in the 
first window, but I think the rest of the sample represents my issue.

TIA for helping a newbie!

Graham - either syntax works.  I had been testing several events 
(away, over, etc.) and Ashley's documentation mentions that you can 
put them all inside a single "on [...]" block.

I find I can refer to my parent table easily with a short path, by 
just doing "insert clear tbl/data ...." from the child window "Save" 
button action and I get what I want.  BUT, that means I didn't encapsulate 
my table name at all like I had hoped within my adddelusers object. 
 I would like to setup each window display with generic widget names, 
and not worry about uniqueness - that's why I thought about trying 
to wrap the guis in objects.  Can that be done?  and if so, will 
I be back to my problem of not knowing how to reference an encapsulated 
widget on another window?

Thanks!

If you're going to try and encapsulate inside a context, why not 
provide the method to update the gui inside the context?

Thank you, Graham, for the continued feedback.  I'm ashamed to say 
I don't even understand your last comment - this newbie will have 
to go research "closures".


Your previous comment - that sounds like a good approach - I'll have 
to learn more to do that.  I can only learn something by trying to 
use it to solve real problems; the bad news for me is that in this 
case I'm new to GUIs, REBOL and RebGUI.

Get something that's simple working first ... then add complexity. 
I tend to "encapsulate" my GUIs in functions with generic widget 
identifiers, such as:

show-add-user: make function! [/local f1 f2 f3] [
	display "Add User" [
		after 2
		text ...		f1: field
		text ...		f2: field
		text ...		f3: field
		bar
		reverse
		button [f1/text: ...]
		do [...]
	]
]


If you can get this working then the problem shifts from being a 
RebGUI problem to a context problem (which more people can assist 
with in the Core or REBOL2 groups).

ashley, do you have a fixe for it , regards

i use a mint based on ubuntu 8.10 !!!!

It's a linux build issue ... keep using 2.7.6

Gabriele mentions a segm. fault

If RebGUI is using draw, that would confirm what I'm seeing here 
as well. Must say that I'm using Mint as well, so this still does 
not rule out that it is a distribution specific issue (as other people 
reported it working).

Andreas, if rebgui fails on your setup, then there is possibly a 
DRAW issue.

a small rebgui app of mine using build 93 of rebgui works just fine

btw, map-event crash if the event doesn't contain a gob.

I need help! But that aside, how can I scroll programatically to 
a certain position in an area? I was able to scroll to the very end 
by doing this:


textarea/para/scroll/y: negate (textarea/text-y - textarea/size/y)
show textarea


But the scrollbar handle stays at the top when doing this. I haven't 
yet found out how I can access the scrollbar from the area which 
is probably what I will have to do to solve this, right?

display "test" [
	a: area (mold ctx-rebgui/colors)
	button [a/pane/data: .5 show a]
]

Thanks a lot :) Before I do something completely wrong again... I 
also want to scroll to a certain line in the text area if possible. 
My approach now would be to see if I can somehow see how many lines 
of text are displayed in the text area, calculate the percentage 
of the line I want to scroll to based on this total number of lines, 
divide that by 100 and use it for a/pane/data. Right..?

This seems to work:

display "test" [
	a: area (mold ctx-rebgui/colors)
	button [
		scroll-to-line: 5
		
		line-height: 30
		total-lines: (second size-text a) / line-height
		percent: ((scroll-to-line - 1) / (total-lines / 100)) / 100
		a/pane/data: percent
		show a
	]
]


The height of a line is hardcoded though which means it stops working 
if the font size is changed. Is there a way to get the current line 
height?

a/font/size gives me the font size, which is 12 by default. But does 
that help in getting the line height? Is there some kind of standard 
so that a font with the size 12 always has a height of font-size 
* something? Don't know anything about fonts...

So, instead of using your whole area, just use one character in a 
face

Thanks Ashley. That only shows the height for the default font though. 
I am displaying three text areas with different font sizes, so I 
set the font size in the areas directly. I had to use an invisible 
text area now anyway though because I forgot that to be able to scroll 
to a certain line in the text area I have to find out in which line 
a certain word, to which I want to scroll, actually is :) So now 
I made a test text area for this and positioned the "real" text area 
on top of it so that the test text area is completely covered by 
it. I copy the text up till the word I want to scroll to into the 
test text area and then look at the text size of the test text area 
and use that information to scroll the "real" text area to this word. 
It isn't working correctly yet but it should so I guess I just made 
a stupid mistake somewhere, have to look at it again tomorrow.

hi, how i can force a field to be disabled ?   i try myfield/options: 
[info]  but it don't work !!!!

You can toggle enabled/disabled with the set-state function.

Example app: display "test" [a: field do [set-state a]] do-events

hi, i would like to change the image of a variable

i try this but i have a black image !!!!!

is missing a set-image ;-)

someone have a solution ?

thanks Ashley,   do you find a way to correct Build 218 and drop-list, 
menu etc....    ?

Bit of a hiatis while R3 comes closer to fruition, so no.

I want to give Rebgui a try for an app i need to do. So, i need a 
tree in there, which should be filled from database request  when 
the app starts. Not via button click.  Can anybody give me a small 
example how to achive this. Searched the docs, but couldn't find 
something like that.  And be kind with me as i am not too familiar 
with Rebgui till now. I downloaded build 218. What i tried so far 
is set-data via button, but that doesn't seem to work.  A sample 
would drastically shorten my way to get this working. Thanks in Advance!!

Tree is not a fully developed widget, so the easiest way of modifying 
it is to dynamically generate the spec. For example:

	blk: copy []
	append blk ["Pets" ["Cat" "Dog"] "Numbers" [1 2 3]]
	display "Test" compose/only [tree data (blk)]

Are there any plans to update the widget in the near future or do 
you have other priorities?? Can you tell me which of the widgets 
already have these accessors, to have a look at??

Ashley - what is your status re RebGUI and its future? It seems to 
me, that R2 brach is not going to be further developed? And also 
- I noticed you mentioned some flawor of even more simplified RebGUI 
like engine for R3. Is this still a plan, or do you wait for how 
R3 VID emerges?

what is your status re RebGUI and its future?

 ... RebGUI does most of what *I* need it to do at present, but I'd 
 really prefer to be using R3 + SDK + Cool looking R3 GUI. I'm experimenting 
 with a minimalist GOB-based R3 GUI, but it's more an intellectual 
 pursuit to see how minamalist (and functional) I can get it ... so 
 don't hold your breath.

I have a menu as the top widget in my window. I think i tried every 
possible combination of the sizing attributes (#LOV, #HW, margin, 
tight and space). The menu sizes to nearly the full width of the 
window but keeps a distance (seems like 4x4)  from the rigth window 
border. Is there any explanation for this space on the right??

Thorsten,  take a look at the point of sale application at http://re-bol.com/rebol_crash_course.html#section-5.14

Nick, are the samples using RebGUI strictly intended for v117? I've 
tried a few with 118 and they seem to crash when poking around the 
UI.

Why do you think it's called a "crash-course" ?

wasn't paying attention, I guess  :-) Is 118 a new start?

... which is still the latest official release ( http://www.dobeash.com/download.html
)


118 was the commencement of a makeover but as Graham says broke a 
lot of things. The 118 efforts morphed into an almost total rewrite 
of 'the engine' (everything bar the widgets) and were about 90% complete 
(build 218) when R3 gobs hit the scene (a game changer IMHO).

I found out that the space on the right results from a margin command 
later in the script. I used tight on the top before the menu widget. 
If i didn't reset the margin, menu  fills up to the right. If i want 
to reset the right margin to 4 px later to indent the following widgets 
to the left, it resets the margin for the complete window to 4 px. 
That means for  the menu as well. Now i have a workaound  an use 
a 4 px box to keep the distance from the right border. As Rebgui 
will not be developed any further, it seems that i have to live with 
it. I have chosen build 218 because of the better design, compared 
to the previous ones (My opinion) But thanks for the hints.