World: r3wp
[!RebGUI] A lightweight alternative to VID
| older newer | first last |
| Graham 9-Sep-2008 [7721x2] | your options block defines 5 columns but youre only supplying one column. |
you're missing a compose/deep as I mentioned before. | |
| Claude 9-Sep-2008 [7723x2] | hi every one . i would like to know if it is possible to change color of row in widget table ? . or if i must prefer use table-list of shadwolf ? |
shadwolf do you have a compatible widget table-list with rebgui-bluid 114 thank you in advance ? | |
| Louis 9-Sep-2008 [7725x2] | sqlab, yes I saw that. I just didn't know where to put the compose/deep. |
Graham, many thanks. I finally got it working. I believed you the first time. The problem was I was putting the compose/deep before/after "data" instead of after display. I finally noticed where to put it in Ashley's docs after reading them about 50 times. :>) | |
| shadwolf 11-Sep-2008 [7727x3] | amacleod ----> http://shadwolf.free.fr/RebGUI-038-shad.ziphere is a working version of rebgui + my list list-view |
i forgot i had this packed | |
ofcourse the demo isoft is demo-listview feel free to use it as it and feel free to adapt it to your needs ( at least for the part writen by myself) | |
| amacleod 11-Sep-2008 [7730] | shadwolf, Thanks.. You remember I asked from so long ago? wow! |
| shadwolf 12-Sep-2008 [7731] | yes i remembered ^^ |
| Graham 14-Sep-2008 [7732x2] | Ashley, would be feasible to enhance the spreadsheet to allow user defined column widths? ( in the options block ) |
At present the width option specifies a global width for all columns. | |
| Ashley 14-Sep-2008 [7734] | Should be fairly easy, I'll look at it tonight. BTW, please note that the sheet widget has one big bug ... cell words (e.g. A1, A2, B1, B2, etc) are currently added to the global context ... |
| Graham 14-Sep-2008 [7735x2] | eek! |
which means you can't access two sheets at the same time if they are using the same address range. | |
| Ashley 15-Sep-2008 [7737x2] | Correct. |
Uploaded build#116. sheet now supports 'widths option, as in: sheet options [size 3x3 widths [2 6 4]] | |
| Graham 15-Sep-2008 [7739x2] | cool |
Ashley are you keeping this new colour scheme or is it still experimental? | |
| Ashley 15-Sep-2008 [7741] | 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. |
| shadwolf 22-Sep-2008 [7742] | in rebol/desktop that's still the build 101 available when you click the icon is that normal? |
| [unknown: 5] 23-Sep-2008 [7743x2] | Good look at McCain's military encounter http://www.youtube.com/watch?v=vQsckD9trn4 |
sorry wrong group | |
| shadwolf 23-Sep-2008 [7745] | .. |
| Ashley 24-Sep-2008 [7746] | Yes, as soon as the current dev build is stabilized I'll bump the release build and update the supporting doc. |
| Claude 6-Oct-2008 [7747x7] | 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 | |
thank you in advance | |
here you are ..............;it is better http://users.skynet.be/fc078613/carte.r | |
here you are if you use windows.......; http://users.skynek.be/fc078613/carte.html !!!!!!!!!!!! | |
| Graham 6-Oct-2008 [7754] | You need to strip your example down. |
| Claude 6-Oct-2008 [7755x7] | hi i do it after |
give a look at http://users.skynek.be/fc078613/carte.html | |
excuse http://users.skynet.be/fc078613/carte.html | |
after download type "maintenance"/"joueurs" | |
if you try to do an update of one row and after selected another row , the table willl not work any more correctly !!!! | |
it's the same thing with "Ajouter" - add !!! i try to remove the action for widget table [table_joueur 'rtv] and no more problem !!!! | |
where is the mistake in this code : 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 ] | |
| Graham 6-Oct-2008 [7762x2] | that looks wrong set-text m_joueur_age (now/year - date_naissance/year) perhaps set-text m_joueur_age (form now/year - date_naissance/year) |
I think set-text only takes a string | |
| Claude 7-Oct-2008 [7764x7] | i test your proposal but it dont work!!! |
i comment all set-text line. and i keep only set-text to id, nom ,prenom, date_naissance. i still have the same problem | |
hi, i finaly find my problem | |
it seem it is the function set-text | |
i replace this func by a face/text: with show face | |
and now it work well | |
ashley a don't know how to tell you this bug......... | |
| older newer | first last |