World: r3wp

Graham, I haven't ventured into the world of RebGUI other than the 
demos, but in View the data attribute of the radio button is none 
until selected, true when selected, then false when the selection 
is changed.

ie.  Radio5/data: none

I hope RebGUI works the same way.

No, the value of face/picked contains the current selection and is 
set by clicking a radio button or using the select-item function 
which simulates a click. By default it is not possible to simulate 
a null click.

Build#99 uploaded with fix to above. You can now do:

	rg/select-item 0

or:

	rg/select-item none

thanks

display "" [ radio-group data [ "one" "two" ] [set-focus fld ] fld: 
field ] do-events

shows the focus and then loses it

display "" [ ck: check data none [ print "checked" ] button "Change" 
[ set-data ck true ]] do-events

doesn't trigger the action on the check

Do we need a 'set-action function that triggers an action associated 
with a widget?

That's not a trivial thing to do with the current design ... and 
then add the complexity of action types (single, double or alt-clicks; 
combined with various on-* triggers ... it gets messy very quickly).

so, how to trigger the action?

It should just work, I'll take a look at it later today.

table/set-row does a trigger on the action

so, there is some inconsistency

/select-row ?

The action in that case is a by-product of the primary purpose ... 
select a row. select-item (radio-group) does tha same. I can't recall 
whether there's a select-state for check though.

I guess I should not put complicated code inside the action block 
... and just factor it all out.

Depends, you can call action functions directly, as in:

	s: button "Save" [...]
	button "Do A then save" [... s/action/on-click s]
	button "Do B then save" [... s/action/on-click s]

rebol []

do %rebgui.r

pu: does [ display/parent "" [

 table 20x20 options [ multi "item" left .9 ] data [ "a" "b" "c" ] 
 return
	button "close" [ unview/only face/parent-face ] 
]]

display "test" [
	text "Try multi selecting with control" return
	button "test" [ pu ]
]

do-events

multi-select fails the second time round.

Build#100 uploaded with fix to above problem.

The "set focus" problem cannot be fixed given the order of calls 
to 'show within the widget. The check trigger issue can be addressed 
with code similar to that given above for the save button sample.

Yep, fixed.

Is there a way to program a drop/edit-list to drop the list without 
having to click on it?

Ashley;  Congrats on hiiting the RebGUI century mark.  Deserving 
of kudos.   Hip hip hooray!  :)

Thanks.

Graham, how about something like:

	display "test" [
		d: drop-list data [1 2 3]
		button [d/pane/action/on-click d/pane]
	]

that works :)

Ashely, any way to get the caret appear at the click point of an 
area instead of always defaulting to the end of the text??

Hmm, I'm sure it never used to do that ... I think a bug has been 
introduced along the way. Need to fix that one.

it has done this for as long as I can remember

Is there a way to tell a table to sort on a particular column?

Sure.

display "" [

 t: table 60x40 #HW options ["ID" right .3 "Number" left .4 "Char" 
 center .3] data [
		1 "One"		a
		2 "Two"		b
		3 "Three"	c
		4 "Four"	d
		5 "Five"	e
		6 "Six"		f
		7 "Seven"	g
		8 "Eight"	h
		9 "Nine"	i
		10 "Ten"	j
	]
	button "ID" [t/pane/2/feel/engage t/pane/2 'down none]
	button "Number" [t/pane/4/feel/engage t/pane/4 'down none]
]

Not pretty, but it works.

what about refreshing the table data and keeping the existing sort 
in place?

I think if you use t/redraw it always defaults to no sort

Build#101 uploaded with fix to caret problem. All widgets defined 
in behaviors/caret now focus on event/offset and only default to 
tail if focus change was not caused by a mouse click (i.e. tab or 
a manual set-focus).

Can area widgets take a background image?

Most widgets, including area, can:

	b: load %a.png
	display "" [
		field %a.png effect [fit]
		area b effect [aspect]
	]

I should have guessed !

In the following script I would like to be able to click on a row 
of the table to populate the data entry fields, so that I can edit 
the data for the record displayed in that row. How do I do that? 
 

rebol []
do %sqlite.r
do %rebgui.r
unless value? 'ctx-rebgui [

    either exists? %rebgui-ctx.r [do %rebgui-ctx.r] [do %rebgui.r]
]
set-colors
tab-size: 120x55

fonts: reduce [font-sans-serif font-fixed font-serif "Courier New"]
if not exists? %id.txt [write %id.txt 1]
either not exists? %indodex.db [
    CONNECT/create %indodex.db

    SQL "create table base (ID, Title, Nama, Alamat, Kota, Propinsi, 
    Telefon, Handfon, Fax, Email, URL, Tgl_Nikah, Nota)"

    SQL "create table birthdays (ID, Nama, Jenis, Hubungan, Tgl_Lahir, 
    Agama, Nota)"
][
    CONNECT/flat %indodex.db
]

do show-cc: make function! [] [
set-colors
(i: to-integer read %id.txt)
label-width: 19
f-width: 59
display "IndoDex Ver. 1.0.1" compose/only [
            button-size 16x8
            margin 1x1
            space 1x1
            ;image %roladex.jpg 
            ;return
            label 7 "ID:" id: text (to-string i) 7
            pad 17
            ;label 13 "Nama:" 

            title: drop-list 30 #W "Pak" data ["Pak" "Ibu" "Sdr." "Sdri." "Drs." 
            "Dr." "Tuan" "Nyonya" "Nona" "Pdt."] 17x5
            nama: field f-width
            label label-width "Telefon:" 
            telefon: field f-width
            label label-width "Handfon:" 
            handfon: field f-width
            return
            pad 31
            label label-width "Fax:" 
            fax: fax: field f-width
            label label-width "E-Mail:" 
            email: field f-width
            label label-width "URL:" 
            url: field f-width
            return
            pad 31
            label label-width "Alamat:" 
            alamat: field f-width
            label label-width "Kota:"
            kota: field f-width
            label label-width "Propinsi:"
            propinsi: field f-width
            return
            pad 31
            label label-width "TglNikah:" 
            tgl_nikah: field f-width
            label label-width "Nota:" 
            nota: field 139
            return
            return

            t: table options ["ID" left .03 "Title" left .04 "Nama" left .2 "Telefon" 
            left .16 "Handfon" left .14 "Fax" left .14 "E-mail" left .15 "URL" 
            left .15] data (sql "select id, title, nama, telefon, handfon, fax, 
            email, url from base") 270x150 
            return
            button "Add" [
                either all [nama/text <> "" nama/text <> none][

                    SQL reduce ["insert into base values (?, ?, ?, ?, ?, ?, ?, ?, ?, 
                    ?, ?, ?, ?)" id/text title/text nama/text alamat/text kota/text propinsi/text 
                    telefon/text handfon/text fax/text email/text URL/text tgl_nikah/text 
                    nota/text]

                    insert t/data SQL "select id title nama alamat kota propinsi telefon 
                    handfon fax email URL tgl_nikah nota from base"

                    ;a: sql/flat "select id/text title/text nama/text alamat/text kota/text 
                    propinsi/text telefon/text handfon/text fax/text email/text URL/text 
                    tgl_nikah/text nota/text from base"
                    ;sql reduce [insert table/data a]
                    id/text: form i: i + 1
                    save %id.txt i
                    clear-text nama
                    clear-text alamat
                    clear-text kota
                    clear-text propinsi
                    clear-text telefon
                    clear-text handfon
                    clear-text fax
                    clear-text email
                    clear-text url
                    clear-text tgl_nikah
                    clear-text nota
                    ;show id
                    t/redraw
                    return
                ][
                    alert {Cannot save if "Nama" field is empty.}
                ]
            ]
            button "Update" []
            button "GUI Info" [

                print [id/text " " title/text " " nama/text " " alamat/text newline]
            ]
            button "DB Info" [
                print [TABLES newline]
                SQLite/col-info?: true
                newline
                print [SQL "select * from base" newline]
                print [SQLite/columns newline]
                print [ROWS "base" newline]
            ]
            button "Halt" [
                halt
            ]
            button "Quit" [
                quit
            ]
]
]
do-events

check out t/selected

Thanks, Graham. I'll check.

I'm putting in some background text as an image as a prompt to users, 
but it would be nice to clear the background image as soon as the 
user click types anything like those search fields in browsers

like this   field effect (to-image layout/tight [ backdrop white 
text "enter search term" ] font-color 230.230.230 ) [ aspect ]

I'm sure there's a native rebgui way of doing this rather than using 
'layout !

(to-image layout/tight [ backdrop white text "enter search term" 
 font-color 230.230.230 ] )

and have it restored when we clear the field

How about:


 field %a.png effect [fit] on-focus [face/image: none true] on-unfocus 
 [face/image: load %a.png true]

Looks logical - I'll give it a go.

It's getting a bit awkward now .. I have to set the image at startup, 
restore it on an unfocus event, and then restore it again if I clear 
the field.

I think I need to store the image in the field itself .. perhaps 
as a new type of field widget

How come things I create end up four times the size I specify?
button "Test" 10x10 maroon [print face/size]
prints 40x40 when I click it...