AltME groups: search

I'm trying to create a widget that resembles the one from the MS 
demo

http://screencast.com/t/unHPOZ0oP


I've got a bunch of panels inside a scroll-panel.  When I click on 
a panel, I recreate the whole layout using replace-tab which is okay 
if I haven't scrolled down the panel, and add the area below the 
panel I clicked on.


If I have scrolled down, I capture the scroll-panel/panel/1/offset 
and then try and set it back again ... but when I show the scroll-panel 
even though the offset is eg. 0x-188, I stil need to scroll down 
to see it.

Ideas on how to show the scroll panel at the current pane offset?

I see there is a new on-resize handler which is undocumented.  Info 
on how it is used?

An odd error .. if I do this on a table ... face/remove-row I get 
an error complaining of an invalid path.  I have to use the table 
name

Hi, folks.  I am getting back to an application I developped with 
RebGui in 2006.  I did download the last one from SVN, but the app 
no longer works under the current version of RebGui.  I get a lot 
of error messages about show-text, even the most simple ones, like 
--> show-text Fmsg "Warning --  Unable to read Products, Phone&Meet 
and Notes.  No file to read." <--.  Looking at docs, I still see 
the show-text function; there is still some appearances in some docs, 
but there are not much.  Maybe it is deprecated now?  I see set-text, 
but it talks about attributes of text, not its content.  So not shure 
it is the one to use now.  I would need to show the app soon, but 
hesitate to retarget the code, seing the frequency of the error message 
** Script Error: show-text has no value.  Inexistant function, bad 
assignement (for unknown reasons), or something else.  For me, hard 
to know now. From the 2006 epoch, is there a lot of change.  The 
app still get drawn a bit, though.  Thanks for an answer that would 
me out of problem.

I see a number of on handlers.  Is there a way to have a on-drag 
handler as well for dragging objects?

Hello. One of my friends, not even a probrammer, jut Perl user, was 
asked to prepare solution for their production line. They will need 
to cover more than 100 Terminals with touch screens. He is a friend 
of Bobik and mine, so Perl, Python, and REBOL alternatives were possible. 
I have the pleasure to aanoucne, that REBOL + RebGUI was choosen.


While app is rather primitive - few fields on the left, numeric + 
few alphabetic keys on the right, connecting to mySQL, the environment 
is also very restrictive - Terminals (don't remember the model) are 
older ones, 24MB of RAM, no hardisk, P300 performance. The solution 
boots Linux from network and RebGUI app is loaded ... only 1MB or 
RAM is left, so the solution is so so ...


I would like to ask, if RAM consumption could be improved with encapping 
app with rebface for e.g.?

probably a little bit, since you can select what to include. I suppose 
VID can be removed if RebGUI is going to be the GUI for the application.

Graham, very clever ... that's almost worth a widget in its own right.

Pekr, using rebface instead of rebview will make a big difference 
as rebface excludes VID and all help text is stripped out. On OS/X 
I get the following:

REBFACE
>> stats

== 2085621
>> recycle
>> stats
== 1911437

REBVIEW
>> stats
== 6260880
>> recycle
>> stats

== 4810174


You can also create a custom RebGUI build that excludes widgets you 
don't intend using (see http://trac.geekisp.com/rebgui/browser/create-distribution.r
) which will save a few more bytes. Lastly, make sure your app does 
not use any unneeded images (e.g. a background image when a simple 
draw effect might suffice).


Even with these measures you'll only be left with about 3MB free 
... but 3MB is better than 1MB.

so, after some testing, which I am confused a bit about, it seems 
that RebGUI is not all that memory savy. For simple hello world example 
based upon rebface, it consumed even more memory than VID.

I'm not aware of any R2 GUI framework that is not a memory hog, but 
my standards are probably off.

I'm experimenting a little now, but with multiple resizable panels, 
I think it might be easier to generate layouts on the fly rather 
than keep a static layout that one updates various fields.

Petr, you will have a baseline memory consumption but it's not going 
up a lot. So make your app more complex ;-)

think this might be classed as a bug in the layout 


display "" compose [ button "testing" 15.1 button "again"] do-events

the first button does not display if there is a decimal size

Because Rebgui uses a  default pixel size that can be eg. 4, you 
can't easily get pixel precision in layouts.

Robert - there still has to be a leak in REBOL! Even if you try primitive 
hello world example, you start with 6MB of RAM, you do nothing, and 
after do-events it grows 3 - 4 MB, slowly, but constantly!

Is there a way we can "robustify" rebgui so that we trap all errors??

make object! [
   code: 312
   type: 'script
   id: 'cannot-use
   arg1: 'multiply
   arg2: 'decimal!
   arg3: none
   near: [freedom * face/data]
   where: 'wake-event
]

I've put a check in the engage event to see if face/data is none?, 
and if so, make it 0.  In case someone like me has set it directly 
to none ...

this is my new appointments display ... is there a way I can drag 
the buttons around? http://screencast.com/t/ou1MwDdS

Cyphre has a drag-panel style that allows drag and drop of various 
objects on a window.

I've got some custom panels that I have a resizing routine written 
for them.  how do I trigger that to run when the main window resizes?

Anybody out there using RebGUI ?  I'm just starting to use REBOL 
and have delivered a small app using VID  to a volunteer group who 
are collecting local history articles. And I'd like feedback on any 
gotchas with RebGUI vrs VID. Thanks

Well ! There seems to be !! It took a very long time to display any 
messaged when I visited the group, so I though there wern't any :-) 
Cheers.

to get rebGUI  you simply write those lines into a ".r" file or you 
go into the rebol/desktop in the REBOL/DEMOS folder

I'm trying to do some 'field navigation' within a rebgui form and 
cannot figure out how to get teh filed cursor to 'goto field'

I've tried that, all i get is a stack error:  as soon as I press 
TAB to enter the on-focus , and the program aborts thus ** Internal 
Error: Stack overflow
** Where: unfocus

** Near: if all [face/type <> 'face get in face/action 'on-unfocus] 
[
    unless face/action/on-unfocus face [return false]
]

well, until Ashley tells us how to do it, you could hide a dummy 
field behind the date field to take the focus from the tab, and then 
make the decision from that.

Now thats a interesting idea - bit of a kluge tho.


I'm a bit surprised that this 'obvious' programming need is causing 
a problem ! 


I can envisage many situations where a program needs to set the cursor 
focus upon any 

of the available fields displayed depending upon a fields content.

I'm guessing it's a bug ... set-focus is triggering an on-focus event 
and so your code keeps triggering causing a stack overflow.

Correct ... the set-focus "eats" the return state.


set-focus was intended more for use either within a display's do 
func or from outside the display. Tab order cannot be set programmatically, 
although it should be noted that tab order is the same as the widget 
specification order so you can at least sequence your widgets in 
the desired order. There is no easy way to conditionally skip widgets, 
although build#106 added the set-state func which lets you toggle 
a widget's info state. As for this being an "obvious" programming 
need, it depends on the type of GUIs you wish to write ... you are 
the first person in over two years to have hit this issue (or at 
least report it) ... although I'll freely admit that keyboard navigation 
is not RebGUI's strong point ;)

well, I have had a similar problem.  I have a drop-list with title 
in it followed by a radio-group with gender, followed by occupation. 
 I want the user to skip the radio-group which is set based upon 
the droplist value.  Eg. drop-list is "Mr." and so set the radio-group 
to "M" and then skip to occupation.

While tab ordering is a useful feature, in this case I'm trying to 
tab order by testing field content, I'm surprised that its considered 
a bit unusual :-)  In my data entry program I want the user to be 
able to set the work flow somewhat. , ie: on mass data entry they 
should not have to tab over the row of function buttons I have arranged 
along the bottom of the form, but when they tab 'out' of the last 
data entry field, the program saves the data, clears the form, replaces 
some common data and then return to the first entry field -- all 
without using the mouse. Not true key board navigation but very pleasent 
for the user. The user uses teh mouse to get to the buttons. This 
I am currently doing using VID.  Graham's usage is a very typical 
form interaction senario, one I was soon to try !

and of course this is a major impediment to using the keyboard.  
So, for an edit/drop list you have to click twice - once to choose, 
and then once to regain the focus.

2.7.6 Demo of RebGUI.  If you try the spinner, Ctrl-MouseWheel then 
later try Functions/Requestors request-ui it fails with
** Script Error: Invalid argument: $10.00
** Where: init
** Near: all [not empty? text data: to type? first options text]
para/margin/x: size/y
p:

Where the invalid argument is the same data as the last Ctrl-Mousewheel. 
 So it could be 9:00, 18:00, $10.00 etc.
I haven't tracked through any of the code yet, being a lazy git.

How to make the rows of a table accessible to the cursor keys without 
using the mouse to grab focus?

display "" [ t: table 20x60 options [ "code" left 1. ] data [ 1 2 
3 4 5 6] do [t/select-row 1 ]] do-events

but the cursor keys don't work until I click on a row.

Looks like you can tab out of a table, but not into one.

Because you can't tab to a table, a table blocks the tab sequence 
across a form.

Ashley, is there a way to simulate a mouse click on the first element 
of a table so that arrow navigation can then be activated?

Yes, I think. Something like:

	a: context [double-click: false]
	display "" [table options ["c" left 1.] data [a b] do [
		t/pane/1/pane/1/line/feel/engage t/pane/1/pane/1/line 'down a
	]]
	do-events


but this is not quite there. The trick is to pass the correct face 
argument to the engage function of the face-iterator.

Pekr I can give you a rebGUI table widget I done long ago that handles 
it ... -> http://shadwolf.free.fr/rebgui-list52.r

it was designed to be a rebgui widget  that was the prototype for 
table widget long time ago and a play for me on an amazing and very 
VID Topic " widget auto compositing subwidgets" widgetwriting widgets 
that's so neat  ^^

hum you have the 10 last line of the file a demo code of how to use 
it

you have a flag ;Demo code to identify the begining of the demo code

it works the folowing way you build a data list and then you pass 
 it in arg into your display block

i'm trying to find a solution rebgui moved more than I expected

ok sorry too much change  well a fast solution would be i think to 
copy the liste-view code after rebface[   and paste it to the regui.r 
file where belongs table: make rebface ]

but this provide a temporary solution i'm not sure there is no other 
rebgui interfaces that diseapear

and that's a pic of the pre alpha version the 5.2  version was more 
accurate

if you can put your hand on a rebgui 0.38 that widget should work

is that a working anamonitor??

I see a [ana] button in your picture

>> display "" [ mt: table options [ "data" left 1.0 ] data [ "a" 
"b" ] return button "select" [ mt/select-row 1 system/view

/caret: mt/pane/1/pane/1/text system/view/focal-face: mt/pane/1/pane/1 
show system/view/focal-face]] do-events

which allows one to select the rows with cursor after selecting a 
row programmatically.

I just used the tour.r on the latest rebgui.

There you can select a color for a button, but as soon as the mouse 
hovers over the button, the colors switches to the defaults.

Is this by intent or is there a way to keep the selected color(s) 
?

What is the last stable version?

I thought it is a problem with the  latest widgets and not with the 
tour.

The culprit is the face-iterator function in %rebgui-widgets.r ... 
the engage function is doing a 'show *after* the on-click action 
is fired. I won't have access to my dev box until the weekend, but 
at first glance it looks like moving the show may be all that is 
required. Other widgets, such as button, typically have an engage 
function like:

	...

 upÊ Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê [set-color face colors/theme-dark face/action/on-click 
 face]
	...


for this very reason (i.e. always perform the action last to avoid 
focus loss).

roam.r is Carl's object browser.


Specifically, what I want is to enter a record and see it listed 
in a window.  If I click on a record in that window, I want to see 
it back in the entry fields so I can edit it. Has anyone done this 
using RebGUI?

Kinda ... maybe ... it might be a start; check out http://www.rebol.org/cgi-bin/cgiwrap/rebol/view-script.r?script=rebdbgui.r


It's a sample I wrote for someone a long time ago.  It links the 
GUI fields to a RebDB database.  One way of doing it anyway.

I presume it's the same issue trying to prefill some fields from 
a table selection and then set the focus to one of those fields.

Found it, and fixed in build #114. Basic rule in RebGUI is to fire 
actions on 'up and 'alt-up (to ensure they occur after unfocus) ... 
face-iterator was firing actions on 'down and 'alt-down. A nasty 
bug that's been there for a long time (and explains why I had trouble 
getting some requestors working in the past!).

Hope this fixes a lot of focus issues I've had then!  ;)

Ashley, RebGUI is really a great toolkit. Many thanks for making 
it freely available.

Did you see, that your statement gets the data ?
Try to insert a probe before SQL!!

you're missing a compose/deep as I mentioned before.

shadwolf do you have a compatible widget table-list with rebgui-bluid 
114 thank you in advance ?

amacleod ----> http://shadwolf.free.fr/RebGUI-038-shad.ziphere is 
a working version of rebgui + my list list-view

At present the width option specifies a global width for all columns.

The implementation is staying, but needs to be completed ... the 
specific [default] color scheme needs to be improved. The fact it's 
remained unfinished for so long bugs me, it prevents a number of 
fixes/enhancements from being released ... so I'm aiming to "finish 
it" over the next couple of weeks.

hi, i have a problem with rebgui build 116 on table or field widget. 
i post a file here could some explain to me what append when i want 
to do a update of a row ......

REBOL[]


rebgui-build: %./rebgui-116/
rebdb-build:  %./RebDB-203/


#include %/home/ramcla/Documents/rebol/rebol-linux-sdk-276/source/gfx-colors.r

#include %/home/ramcla/Documents/rebol/rebol-linux-sdk-276/source/gfx-funcs.r
#include join rebgui-build %rebgui.r
#include join rebdb-build %db.r

do  join rebgui-build %rebgui.r
do  join rebdb-build %db.r

to-amount-text: func[
	data
	/local
	d
][
	d: to-string to-money (to-decimal data)

 return either d/1 = #"-" [join "-" (skip d index? find d #"$")][(skip 
 d index? find d #"$")]
]

table-exist?: func [
	table [string!]	
	/local
	w
][
	w: to-word table
	either error? err: try [db-describe :w][
		disarm err
		return false
	][
		return true
	]
]

create-table: func [
	table [string!]	
	/local
	w
	tables
][
	tables: [

  t_joueurs [id nom prenom date_naissance adresse code-postal commune 
  pays]
		t_periodes [id nom date-debut date-fin status]
		t_jeux [id period_id date lieu]
		t_resultats [jeux_id personne_id manche_1 manche_2 manche_3]

  t_resultat_historique [jeux_id personne_id manche_1 manche_2 manche_3]
	]
	
	w: to-word table
	db-create :w (select tables w)
]


create-db: func [
	/local
	table
][
	if not table-exist? table: "t_joueurs" [create-table table]
	if not table-exist? table: "t_periodes"  [create-table table]
	if not table-exist? table: "t_jeux"     [create-table table]

 if not table-exist? table: "t_resultats"     [create-table table]

 if not table-exist? table: "t_resultat_historique"     [create-table 
 table]
]

create-db

;print screen avec F3
ctx-rebgui/on-fkey/f3: make function! [face event] [
    save/png %screen.png to image! face
    browse %screen.png ; or call %screen.png
]


words: copy []

;	clear words in global context

query/clear system/words

;	show splash screen

splash join rebgui-build "images/logo.png"

;	compose pie-chart data

pie-data: compose [
	"Red" red 1
	"Red-Green" (red + green) 1
	"Green" green 1
	"Green-Blue" (green + blue) 1
	"Blue" blue 1
	"Blue-Red" (blue + red) 1
]



;	wrap display in a func so it can be called by request-ui


display/close rejoin ["Carte (build#" ctx-rebgui/build ")"] [
	

 ;	button "Configure Look & Feel" 50 [if request-ui [unview/all show-tour]]
	
	tight
	after 1
	menu #LW data [
		"Maintenance" [
			"Bienvenue"	[panel-master/select-tab 1]
			"Joueurs" 	[table_joueur 'rsh panel-master/select-tab 2]
			"Periodes" 	[panel-master/select-tab 3]
			"Jeux"		[panel-master/select-tab 4]
		]
		"Option" [
			"Quit"		[quit]
			"Print Screen"  [alert "coucou"]
		]
	]
	
	panel-master: tab-panel options [no-tabs] #LVHW data  [			
		"Bienvenue" [
			
			title-group %./images/setup.png data  "bienvenue" "toto"	
		]
		"Joueurs" [
			label "nom : "
			ask_nom: field 50 
			label "prénom :"
			ask_prenom: field 50
			button "Trouver"
			return
			maintenance_table_joueurs: table 200x50 #LW options [

				"id"                  left     .1
				"nom"                 left     .3
				"prenom"              left     .3
				"date de naissance"   center   .3				
			] data [] [table_joueur 'rtv]

			return
			label "ID :"  35 
			m_joueur_id: field  50 options[info] 
			return
			label "Nom :"  35
			m_joueur_nom: field  50
			label "Prénom :"  35
			m_joueur_prenom: field 
			return 
			label "Date de Naissance :"  35
			m_joueur_date_naissance: field  43 tip "coucou" on-unfocus [
				use[d][
					d: copy face/text
					either empty? d[
						set-text m_joueur_age ""
					][
					 	either error? err: try [to-date d][
							disarm err
							set-color face red
						][
							set-color face CTX-REBGUI/COLORS/page
							d: to-date d
							set-text m_joueur_age (now/year - d/year )
							set-text face to-date d
						]
					]
				]
				true
			]
			arrow [
				use[d][
					if not none? d: request-date[
						set-text m_joueur_date_naissance d
						set-text m_joueur_age (now/year - d/year)
					]
				]
			]
			label "Age :"  35 
			m_joueur_age: field  50 options [info]
			return
			label "Adresse :"  35 
			m_joueur_adresse: area  100x20 [print coucou]
			return
			label "Code Postal :"  35 
			m_joueur_code-postal: field  50
			label "Commune :"  35 
			m_joueur_commune: field 50 
			return
			label "Pays :"  35 
			m_joueur_pays: field 50
			return
			button "Ajouter" [table_joueur 'add]
			button "Refresh" [table_joueur 'rsh]
			button "Update" [table_joueur 'upd]
			button "Supprimer" [table_joueur 'rmv]
		]

		"periodes"[text "lolo"
		]
	
	"jeux"[
text "lolo"]
	] 
	
	message-area: area #LW "" 10x-1	

][question "Vraiement ?"]



table_joueur: func [
	act [word!]
][
	switch act[
		clr[
			clear maintenance_table_joueurs/data
			maintenance_table_joueurs/redraw
		]
		rsh[
			table_joueur 'clr

   insert tail maintenance_table_joueurs/data copy (db-select [id nom 
   prenom date_naissance ] t_joueurs)
			maintenance_table_joueurs/redraw
			probe 	maintenance_table_joueurs/rows
		]
		cmt[
			db-commit t_joueurs
			table_joueur 'rsh
		]
		rmv [
			probe compose[id = (to-integer m_joueur_id/text)]

   db-delete/where t_joueurs compose[id = (to-integer m_joueur_id/text)]
			table_joueur 'cmt
		]		
		add [
			db-insert t_joueurs 
			compose[
				next 
				(m_joueur_nom/text)
				(m_joueur_prenom/text)
				(to-date m_joueur_date_naissance/text)
				(m_joueur_adresse/text)
				(m_joueur_code-postal/text)
				(m_joueur_commune/text)
				(m_joueur_pays/text)
			]
			table_joueur 'cmt
		]
		upd [
			db-update/where t_joueurs 
			[nom prenom date_naissance adresse code-postal commune pays]
			compose [
				(m_joueur_nom/text)
				(m_joueur_prenom/text)
				(to-date m_joueur_date_naissance/text)
				(m_joueur_adresse/text)
				(m_joueur_code-postal/text)
				(m_joueur_commune/text) 
				(m_joueur_pays/text)
			]
			compose[id = (to-integer m_joueur_id/text)]
			table_joueur 'cmt
		]
		rtv[

   foreach [id nom prenom date_naissance adresse code-postal commune 
   pays] db-select/where * t_joueurs compose[id = (first maintenance_table_joueurs/selected)] 
   [
				probe maintenance_table_joueurs/selected
				set-text m_joueur_id id 
				set-text m_joueur_nom nom
				set-text m_joueur_prenom prenom
				set-text m_joueur_date_naissance date_naissance
				set-text m_joueur_age (now/year - date_naissance/year)
				set-text m_joueur_adresse adresse
				set-text m_joueur_code-postal code-postal
				set-text m_joueur_commune commune
				set-text m_joueur_pays pays								
			]
		]
	]
]



do-events

for this code working you need   REBDB-203 & REBGUI build 116 in 
the same folder of this code and a folder "images" with an image 
like this %./images/setup.png

could you and would you explain to me wath append ? .............. 
i think the probleme is when a do a update on table  and selected 
an another row with the function table_joueur 'rtv

give a look at http://users.skynek.be/fc078613/carte.html

I think set-text only takes a string

i replace this func by a face/text:  with show face

ashley a don't know how to tell you this bug.........

and a another one it seem that in linux system the widget calendar 
do not have a good arrow for select year and month look this print 
screen => http://users.skynet.be/fc078613/images/screen.png

the arrows use a symbol font so you need to find the equivalent in 
Linux.

As I mentioned above, set-text only takes a string .. so you need 
to form dates, and numbers before using it.

or perharps it will by better to give all of  us a example of best 
praticies to use reb-db table and rebgui  ????? :-)

i would like to know how a can do en print screen from a menu

but i would like to use it form a menu

menu #LW data [
		"Maintenance" [
			"Bienvenue"	[panel-master/select-tab 1]
			"Joueurs" 	[table_joueur 'rsh panel-master/select-tab 2]
			"Periodes" 	[panel-master/select-tab 3]
			"Jeux"		[panel-master/select-tab 4]
		]
		"Option" [
			"Quit"		[quit]
			"Print Screen"  [print "do a print screen" ]
		]
	]

Also, the use of get-values and set-values can make getting db data 
into and out of forms (a display with lots of basic input widgets) 
significantly easier [than individual widget addressing].

when i ask for a CRUD example i think about a optimize way of => 
1 - select data from a table-widget  2 - show values of each data 
of a row 3 - accept insert & update & remove 4 - check values before 
insert or update table-db and table-widget.

have a look on my little test to do a application http://users.skynet.be/fc078613/carte.r
  you mus select in the menu "maintenace/joueurs" this is a CRUD 
like i think

Yes, if you're coming from build#116. But there's still a number 
of bug fixes in there ... and 117 is the first stable build since 
111.

Ashley, there is still a problem with Click/Button and over.
The colour is irreversibly changing to the default in your demo

hello as you all now i am not a great reboler........................ 
but here you are a code to keep button color.

oups i forget to modify face/feel./engage/away    here a better one

i explain a little => i create a KEEP-COLOR and i init the good value 
in the init function .  this value is reuse in FEEL/OVER  and FEEL/ENGAGE/AWAY

Ashley can you give me a better way to do it ------------thank you

le copy sert a rien ...  mais a part ca ca va

re: trac errors ... seems all the REBOL hosted projects are down 
( http://trac.geekisp.com/) so probably a versioning/configuration 
issue that Jamie needs to attend to. Anyone heard from him recently?

re: table error ... any chance of a reproducable test case? Looks 
like a data-driven error.

I wonder if there's a better [free] alternative these days?

Can't tind the one I came across a while ago :(

I've seen something similar before ... solution was to ensure all 
values were strings ... and to copy/deep the data block prior to 
passing it to the table widget. I think it has something to do with 
either a non-string value (e.g. a block) confusing things, or a shared 
series [value] being modified by soemthing other than the table widget.

I'm going to try copy/deep .. but the errors are occuring in a table 
that I already pre-process.