AltME groups: search

display "Main Window" [
	button "Click Me!" [
		display "Bug Window" [

   label "Select a value from the drop list and then tab out" return 
			drop-list "Focus here" 20 data [ "A" "B" ] return 
			button "quit" [ halt ] 
		]
	]
]

do-events

and this other function to remove-allr-rows   ;-)

do %rebgui.r

display "table test" compose/deep [

 tl: table 100x50 #W options [ "Item" left .99 ] data [ "A" ] return

 text "Select item, then click on probe selected.  Remove and then 
 try again." return
	button "Probe" [ probe tl/selected probe tl/picked ]
	button "Remove" [ clear tl/data tl/redraw ]  
] do-events

After all the elements are removed, and no row is highlighted, picked 
still => [1] and selected goes from [ ] to [none]
This is anomalous and inconsistent.

and a cause of a lot of my problems :(

Yes, and don't forget to close any tickets these changes have fixed.

I will check our changes in and paste the changes doc so you can 
see what we have changed. What's than needed is to update the Wiki 
docs.

Information on various SVN client software and the URL to use is 
on the main Trac page: http://trac.geekisp.com/rebgui


I've also added a section on "Making Source Code Changes" ... please 
read it before making changes.

I am doing this and find that when I hover over the button, it disappears.

Ah, fails on new install. Fix tested and uploaded, please try again.

yes, "!"and  "_" are very useful for this purpose :)

I am very pressed for the free time. I sent what is done to Graham, 
and have only a sketchy doc .... but yes, overall I think it is already 
worth a beta, or alpha at least, as some ppl might object wrt feature-design

Why does check/data has got values of [true none] and not [true false] 
?

Check is tri-state: Tick (true), Cross (false) and Unknown (none). 
Cross is selected with a right-click.

#include %ctx-rebgui.r

or run create-distribution.r to produce rebgui.r and then

#include %rebgui.r


Note that %rebgui.r is also available at http://www.dobeash.com/download.html
, but may not be the latest build.

Uploaded build#34 which closes the following tickets: 21,53,3,44,41,4,5

and fixes a few other problems:

1) Table dividers did not resize

2) Drop-list failed to display when items > available space and direction 
was 'downward
3) Replaced REBGUI-BUILD check with ctx-rebgui/build word

4) Added /caret-head and /caret-tail refinements to show-text (makes 
writing certain on-* type triggers easier)

I grabbed the drop-list by itself ... and I get this error

I'm adding a 'no-dividers option to the table widget, and looking 
at ticket 53 and the drop-list error ... hopefully I'll get some 
time over the weekend to resolve these.

Sometimes when I enter text in the project-name field of the Projects 
tab and then click on the Tasks tab I get a "tell Microsoft about 
this" type error, but not always.

Ok, here it is: 


rebol [
    title: "CRITICAL CHAIN To-Do List Maker"
    owner: "Louis A. Turk"
    rebol: none
]
either exists? %session-time.txt [   ;for digital timer
    session-time: to-time read %session-time.txt
][
    session-time: 0:00:00.000
    write %session-time.txt session-time
]
time-start: now/precise
do %rebgui.r
;WHAT IS rebgui-ctx.r and where do I get it?????????????
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 "verdana"]

if exists? %project-list.txt [project-list: read %project-list.txt][write 
%project-list.txt [] project-list: []]

do show-cc: make function! [] [
display "CRITICAL CHAIN To-Do List Maker Version 1.0.0" [

    ;HOW CAN THE FOLLOWING TWO LINES BE CONVERTED TO WORK WITH RebGUI????????

    ;banner "0:00:00" rate 1 effect [gradient 0x1 0.0.150 0.0.50] 115x24

    ;feel  [engage: func [face act evt] [face/text: copy to-string round 
    (session-time + (difference now/precise time-start)) show face]]
    tab-panel #HW data [
        "Projects" [
            label "Project Name:" project-name: field  144x5

            label "Priority:" priority: drop-list 30 #W "1" data ["1" "2" "3" 
            "4" "5" "6" "7" "8" "9" "10"] 10x5
            return

            label "Objectives:" label "                                      
                                                                             
                                        Exchange Rate" exchange-rate: field 20x5
            return
            area 200x50
            return
            label "Deliverables:" 
            return
            area 200x50
            return
            button "Save" [show-text ex-status "Saved"]
            button "Add" [show-text ex-status "Edit"]
            return
        ]
        "Tasks" [

            ;WHY DOES THE FOLLOWING LINE ALWAYS DISPLAY A BLANK STRING?????????

            label "Project:" t-project-name: text (either <> "" project-name/text 
            [(form project-name/text)]["ERROR: Project NAME field is empty."]) 
            80x5
            label "Task Name:" t-name: field 79x5
            return
            label "Description:" 
            return
            t-description: area 200x50
            return

            label "Vender/Work Place:" t-vw-place: drop-list "Mega Mall" data 
            ["Grand Hardware" "Mega Mall" "Pasar Lima"] 63x5

            label "Resources Needed:" t-resource: drop-list "Louis A. Turk" data 
            ["Bus to Manado" "Louis A. Turk" "Caleb Turk" "Samuel Turk" "Compaq 
            SR1520NX"] 63x5
            return

            label "Total Hours Required:" t-hours: drop-list data [0.2 0.4 0.6 
            0.8 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0 10.0 11.0 12.0 13.0 14.0 
            15.0] 14x5
            label "Cost:" t-cost: field
            return
            return
            button "Save" []
        ]
        "Venders/Work Places" [
            label "Vender/Work Place Name:" vw-place: field 152x5
            return
            label "Street Address:" vw-street: field 171x5
            return
            label "City:" vw-city: field 103x5 
            label "State" vw-state: field 38x5 
            label "Zip:" vw-zip: field 23x5
            return
            label "Phone 1:" vw-phone1: field 29x5
            label "Phone 2:" vw-phone2: field 29x5
            label "Fax:" vw-fax: field 29x5
            label "Email:" vw-email: field 48x5
            return
            label "Contacts: " vw-contacts: field 181
            return
            label "Notes:" 
            return
            vw-notes: area 200x50
            return
            button "Save" []
        ]
        "Resources" [
            label "Name:" r-name: field 100x5
            return
            label "Cost:" r-cost: field 30x5 

            label "per" r-label: drop-list data ["Hour" "Day" "Week" "Month" 
            "Year"]
            return []
        ]
        "Make Lists/Charts" [
        ]
        "How To" [
        ]
        "Help" [
        ]
    ]
]
] ;end show-cc
do-events

I have another question also. I need a button that set a switch and 
display different text on the button to show how the switch is set. 
Does reb-gui have such a button?

Pardon all the obvious typos. set = sets, and display = displays

The idea is to modify the field so whenever you type a key, the t-project-name 
is shown,

and to modify the t-project-name REDRAW so it sets its own text depending 
on the status of the field's text.
Let's look at them:

probe project-name/feel
probe t-project-name/feel

project-name/feel: make project-name/feel [
	use [body][

  body: second :engage ; we get the engage function body block using 
  SECOND

  append second third body [show t-project-name] ; <- add this snippet 
  of code to it
	]
]


And let's modify the t-project-name REDRAW function (it has no feel 
so we make one
from the default FACE feel):

t-project-name/feel: make face/feel [
	redraw: func [face action position][
		if empty? face/text: project-name/text [face/text: "ERROR:"]
	]
]

Now all together:

Uploaded build#36 which adds a no-divider option for table, corrects 
resizing problems with info areas, and adds viewed? func if not defined 
(i.e. script is being encapped with enface).

Graham, ticket #53 is working under latest build and I could not 
reproduce drop-list problem. Also note the no-dividers option ;)

Anton, thanks! I just arrived back home. I'll try your code Monday 
and get back with you.

Hello Maarten, I have a homemade tree view. It's not complete yet, 
but it works. I was planning to make it complete, but I stopped because 
I am waiting for REBOL 3 and VID+. Anyway, If you want to take a 
look at my homemade TreeView, send me an email [xy-:-cai-:-msa-:-hinet-:-net].

I get this with ticket #53 and the lastest table.r

probe
["A"]
[1]
remove and probe again
[none]
[1]


So, not working for me.  Do I need something more than the table.r 
?

Hmm, I'm running build#36 and get the following when running the 
test case from ticket# 53:

click on "A" to hilight, then "Probe":

["A"]
[1]

then click "Remove" followed by "Probe":

none
[]

Replace the display title with:

	display join "Build " ctx-rebgui/build ...

It should display "Build 36".

it will be good to insert cyphre widget (table and tree) into current 
version of RebGui !!

I've got the same image in different layouts and it assumes different 
shapes!

As for tree-view and menu - no need to reinvent the wheel - Cyphre's 
got really decent ones. The question is, how much would it take to 
redo them for RebGUI

Would it be difficult to make Rebgui look by default as Network Detective? 
IMO this is example of nice and attractive app design, still close 
to OS and less funky than VID ....

I think you have to touch every widget and create the eye-candy.

We are starting to adapt thier rules to Qtask, and are bringing all 
the styles and interface onto one page, where we can set tempaltes, 
and then the whole site just "snaps" into style.

no wonder the ui for the detective is good - it was designed by Chris 
:) and implemented by Romano.

Would it be difficult to make Rebgui look by default as Network Detective?
 ... Yes and no. Several things would need to be changed:

1) Default window background color and effect
2) Default color scheme
3) Default spacing, font and font size

which are all easy, and then some widget specific changes:

1) Tab-panel tabs drawn differently
2) Scroller effect added (so the background has a nice gradient)
3) Check-box and radio-button changes
4) Other widgets?


The hard part is to do all this and maintain a consistent look and 
feel. An added complexity is that RebGUI widgets are scaleable, which 
means it can't cheat and use bitmaps and pre-defined pixel metrics. 
Have a close look at the Apple user-interface guidelines ... they 
handle multiple widget sizes by hard-coding the pixel metrics for 
each pre-determined size. It looks great, but it's not a generic 
solution. You can't easily take the Apple interface and make it work 
on a mobile-phone ... or a 90" Plasma display.


I'm no graphics artist, but if someone can come up with a RebGUI 
style guide that plugs the values into the questions posed above, 
and a majority of folks think it looks "cool *and* professional", 
then I'll implement it. If it means taking a cue from Aqua, Vista 
or whatever then so be it. Anyone up to the challenge?

I tried to explain that about Apple GUI here once, and no one seemed 
to understand my point.  Which is the same point you are making. 
 I think the general solution is "hinting" like they do with fonts, 
but do it at the GUI level.  So you have one set for the 640x480 
all the way to 2Kx1K group, then a supper small set for cell phones.

whatever rich-text rendering, with curren R2 View kernel, will be 
slow, and if not, surely non editable ...

Louis, from memory, that script allows the display of formatted text, 
supporting bold/italic/underline, different font sizes and colours.

Download and install a dictionary file: http://www.dobeash.com/RebGUI/edit.html#section-4.2

I already had the dictionary and didn't realize it. Anywat it still 
doesn't work. What else could I be doing wrong?

Spell-check requires a locale.dat file (which you can copy and rename 
from those under the language directory) and a matching dictionary 
file in the dictionary directory. Example:

	1) Copy %language/British.dat %locale.dat
	2) Download and unzip %British.dat into %dictionary/British.dat
	3) Run %tour.r
	4) Click "Field" then "Area" tabs
	5) Click in the area and press Ctrl+S


This should bring up a spell-check dialog with suggested word replacements.

Build#39 available. Fixes the above issue and makes two other minor 
changes:

	1) Bumped the min required View version to 1.3.2

 2) Deleted the last line of %ctx-rebgui.r (which issued a halt if 
 the script was invoked in isolation - see Ladislav's comment in the 
 SQLite group from 2nd Nov)

I had a screen where I had 4 area widgets and  I wanted to just expand 
the top area widget and hide all the others with a toggle button.

I am trying to get an understanding of RebGui using the tour.r. Can 
someone assist me with  bit of code that will show 3 or 4 images 
down the left side of a window and a tabbed panel directly to its 
right. IE: Icons vertically down the left next to a panel that fills 
the remainder of the window.

Graham, with regards to your resize question, the following should 
be enough to get you started:

	display "Test" [
		a: area #HW
		b: area

  button [ctx-rebgui/span-resize a as-pair b/size/x 0 hide b show a]
	]


If you want to take into account margin and gap sizes then you'll 
need to use values from ctx-rebgui/sizes

I have a table populated .. and remove each row.  Once it's empty, 
and I try and sort, I get the error.  But I have not updated to the 
latest table code yet.

the reason is that if you are have anonymous tables, the only way 
to work out the length of a row is to take all the selected and divide 
by the length of picked

How about just adding 'cols and 'rows attributes then?

- display now returns face

 - clear-widget uses radio-group/select-item and table/text-list select-row
 - table/rows attribute added to complement table/cols
 - text-list/rows attribute added
 - get-input and set-input funcs added


These later functions allow you to easily get and put values into 
a display or tab-panel, even one containing nested grouping widgets 
such as 'group-box or 'tab-panel. Handles the following input widgets: 
area check check-group drop-list edit-list field group-box password 
radio-group slider tab-panel table text-list.


The /type refinement of get-input is usefull in design/debug mode 
to get a formatted list of widget type/value pairs.

I'm still open on the names, and will probably add a 'clear-input 
type function to round out the set. I chose the word 'input as both 
'form and 'values implies a superset of input [values]. I also considered 
other action words such as read, write, load and save; but to my 
mind they are so well established in REBOL that they already have 
other meanings (e.g. load-form, like load-image, would imply loading 
a form from disk).

'set is OK except that the logical complement is 'unset.

the ? above is because you introduce it as saying you have implemented 
'set-input and then the example uses 'put-input ....

Ah, missed that. It should be get and put.


load-fields suffers from the dual problems of "load" (as described 
above) and begs the question, "what about other widgets that are 
not fields but except input". We'de have folks looking for load-area, 
load-text-list, etc

Ashley, please take a look at the xpeers RebGUI stuff. We have added 
a lot and should align the code lines.

Resizing: I have a question how to best implement the following:
- I have three tables from left to right

- I want to make a horizontal resizing in that the middle and right 
table are moved and narrowed.
- The left most tables only uses #X
- The moving should be right aligned to the left side table


I hope you understand what I mean. Using #WX screws up the layout 
as the gaps between the table get to big

But than the tables 2 and 3 don't change their width, right? So what 
I want is that all three tables get narrowed and are still horizontally 
aligned with the distance given by SPACE 2x2 for example.

Current system does not support more than one resize per axis (i.e. 
you can have one #W per x axis and one #Y per y axis). What you are 
asking for is a form of proportional resizing.

We enhanced a lot of the widgets etc. to much to list here. The problem 
is I don't find the time to document everything and publish it. So, 
if someone want to do it, let me know.

Area: I just use it for notes and therefor it's OK.

and he can decide what he wants to use.

Refer to your question (and answer) of Nov 9.

I wanted to remember the spell check window, and it seems that I 
have to capture the face/parent-face/parent-face/offset and not the 
face/parent-face/offset as expected.  Why is this?

I have the same problem also with closing windows.  Sometimes the 
button is in a layout with nothing else.  Sometimes I use unview/only 
face/parent-face and sometimes it works, and other times it does 
nothing.

Robert and Ashley, many thanks! I now have table displayed.

Guys, it would be great if you could submit this as code for the 
cookbook.

It would take a beginner like me months of part time reading and 
thinkering to come up with this.
Think of the "outside in" approach proposed by B.Meyer.

Works here. Are you sure the label is not being set/changed dynamically? 
Which raises the interesting question of whether the show-text, data 
and title funcs should be "locale aware" ...

Probably because you don't have a space between "Occupation:" and 
 "Occ:"

one space and two tabs

hmm ... retract my being able to reproduce the problem. Change your 
locale.dat file to have the following:

words: [
	"AA:"	"A:"
	"BB:"	"B:"
]

and verify labels "AA:" and "BB:" are translated correctly.

Really? Even with code as simple as:

	display "Test" [label "AA:"]


The code that does the translations is nothing more than a simple 
select, which you can run manually by adding a halt to your code 
and doing the following from the console:

	select ctx-rebgui/locale*/words "AA:"

Build#47 committed to SVN, fixes locale bug and adds new translate 
function as described above.

note that whatever the state of the radio-button, the selected value 
is always none, and the radio buttons are not mutually exclusive 
:(

The values are only 1 and 2 if the mouse is used to select the radio 
buttons

Build#48 committed to SVN, incorporating Robert's/Cyphre's extensive 
changes ((including new chart, drop-tree, grid, input-grid & panel 
widgets). Panel & Input-Grid added to %tour.r.


These new widgets (apart from panel) have an impressive range of 
options/features ... but scant documentation or usage examples. If 
Robert/Cyphre could post a few examples here that would help. If 
anyone reads the source code and figures something out then an entry 
or two here would be appreciated: http://trac.geekisp.com/rebgui/wiki/WidgetList

I'm going to hack in some notes/docs on the web-page. (As I'm currently 
using our changelog as documentation, and it's way to much these 
days.).

Big ones still open are CHART and TABLE (added a lot of stuff as 
well). Other changes we did effect: group-box, field, radio-group

I just synced to 48, and none of the native requesters work.

They flash and then disappear again.

deleted my local store,and resynced.  Now works

of course I will do. I am just catching back, I was away for 3 days 
- I visited Iron Maiden concert in Stuttgart and it was really an 
energy taking experience :-))

Now I'm seeing the same problem in my app.  Windows are just flashing 
open and closing immediately :(

did you incorporated all changes or are there some left out?

 I left out the number-field widget and all references to it (as per 
 Cyphre's note in the widget source). Your button changes, especially 
 the addition of a click? word, were incompatible with mine so I left 
 them out as well. The rest of the changes were merged in pretty much 
 as they are; I have not had time to review/optimize the code in depth 
 ... although I fixed a few incompatibilities that prevented tour.r 
 from working. For your reference these were the minor changes I made::


 - instead of drop-list generating an error if it doesn't get a block 
 of strings, I changed it so it forms values within a block
	- radio-group does a reduce on the data block

 - rewrote panel widget so it works consistently and doesn't require 
 /origin changes to layout

 - the detect up feel in rebgui-display was failing with requestors 
 and an invalid mouse-down-offset so I added it as an extra condition 
 of the all block

 - tool-tip-time was incorrectly initialized to now, changed to now/time/precide 
 so it works on Mac/Linux

 - renamed tooltip-bkg to tooltip-fill and made tool-bar widget use 
 these new tooltip color settings (3 in total)
	- updated tour.r radio-group labels to strings
	- added panel and input-grid examples to tour.r
	- added place-holder entries in Trac WidgetList


My primary objective was to merge these changes ASAP before the code 
had diverged too much more. I'm happy with the merged result (it 
works and there are 5 new widgets), but it's probably not well tested 
or stable enough for a bundle yet.

I synced to a new repository again .. and am seeing the same problem 
still.

There is an intermittent condition which causes modal ( dialog ) 
windows to flash and close immediately.

Ashley, thanks for the feedback. WRTstability and quality. I'm using 
this code for several month now in a very big and complex application. 
It works very good.


We take a look at your modifications and merge them back to our stream, 
so we are back in sync.

drop-tree: It's a menu system, that uses a tree in a drop-down list. 
It's very compact, easy to understand. The idea is, instread of having 
10 menus horizontally and you have to remember where funciton XYZ 
is located in, you get a hierarchical overview and just choose it.

tree: Well, drop-tree has a complete tree widget inside. So, I think 
we should extract it and provide it as a seperate widget as well. 
Anyone going to do it?

Plus grid and chart? ;)

One thing I'd like changed with input-grid (and potentially grid 
and chart) is to separate the specification dialect into the options 
block and leave data as a block "of text values for all cells in 
the grid". It's difficult to do this for widgets like drop-tree and 
tab-panel where data and specification are merged, but where the 
separation is clean, as for table and input-grid, it makes it easier 
to conceptualize by having options/specification in one block (options) 
and values in another (data).

hmm, Cyphre reported that menu system demo is not working with 2.7.4 
... I tried that and got even different message "query has no value" 
....

Run tour.r and let your mouse hover over the logo, a tooltip should 
appear. ;)

re: area hilight. Refer rebgui-edit.r

	;added AREA too according to Robert's request -Cyphre
	hilight-on-focus: [area edit-list field spinner]

 caret-on-focus: [area drop-list edit-list field grid password spinner]
	action-on-enter: [drop-list edit-list field password spinner]


All of these can be modified at runtime by reference to ctx-rebgui/edit/<block>/<word> 
... the bigger question is what constitutes a reasonable set of default 
values.


re: radio-group. Robert's changes forced labels to be strings. I'm 
pretty comfortable with this change as label expects a string argument 
and a radio-group is a collection of labels. On the other hand, the 
reason I changed drop-list (to form all values) is that it is not 
reasonable to expect an arbitrary list of values to all be strings 
(e.g. a list of postcodes), and/or to expect the developer to maintain 
their string state. I'm open to counter arguments on this one though.

I had someone else email me with that exact same thought today! They 
wanted the ability to load and save RebGUI preference settings. Something 
I need to think about if we want to support a basic level of "skinning".

That's what the options block is for. drop-list and a few other widgets 
need to be enhanced to fully implement this.

I've been thinking about Jean-Francois' comment. A simple but complete 
working example of a RebGUI + SQLite database would really help us 
those of us that are not professionals. If I start a new group for 
this, and reduce my program to just a few fields to make it as simple 
as possible, would you guys help me get it working? and we will just 
leave it in the public domain.

Added a RebGUI cookbook with sections on SQLite integration and SDK 
app creation: http://www.dobeash.com/RebGUI/cookbook.html

radio-group: The DATA block format has changed in our version. You 
now use:
	data [1 "text-1" 1 "text-2" 2 "text-3" 3]


The first INTEGER specifies the default value. All labels get IDs. 
This has the advantage, that you can resort the labels but the ID 
is still valid. And this feature you need if you store the selection 
of a radio-group in a database.

Yes, and you can use /picked as well.