AltME groups: search

Ashley is making the same point I am, "end user" vs. programmer (or 
tech).  Any time a programmer says "I do X all the time" all I think 
is that if "I can bottle the exact opposite of X I can make a billion 
dollars."


Hence I wrote above "The exception is when people are dumping databases, 
and those are not using formulas, but rather are for working out 
data.  This is done by programmers, not by users in general."


Never-the-less, if the goal here is the goal, which is for technical 
people to do this, we all still need a solve, which is speed to do 
it.


In Qtask we did part on the server, and part on the client.  So, 
we let you sort columns locally, but would send all the data to the 
server.  What we learned is:

The server would send down all the data.  Slow, but needed.
Then JS would arrange everything into a table.  Slow but needed.

Then JS would sort.  And we allowed 4 levels of sort… Slow, slow, 
slow, and turns out, not so needed.


It turns out that with anything more than about 20 lines it was better 
in the long run to just sort form the server side.


This is not to say this is how this will work where with Rebol.  
My point is more to the idea of playing with UI until you strike 
the right balance of speed and convenience.

Just noticed that we don't have a request-text requester

Is it because it is a function and not a path?

that could be a reason

A little confusing ...

How does one display a window so that it stays in front?

Graham - are you missing a ' or : in your question above?

Sorry, it was a math thing ...

I think it doesn't work because it's not a path

Cyphre and I have continued to fix bugs and enhance RebGUI. We still 
have some bugs to fix but than it's time for a new release. As new 
widgets we have done a CHART widget that lets you do bar, pie, torus 
charts.

some way to ensure a window stays in front would be nice .. ..

Does that by default:

	display "A" [button "A" 40x40 [display "B" [button "B" 20x20]]]


Click button A, then B, then A again ... at least that's the way 
it works under 1.3.2.3.1

display "A" [button "A" 40x40 [display "B" [button "B" 20x20 [ display 
"C" [ button "C" 10x10] ]]]]

It doesn't for me ... button C will not stay infront of button B, 
but will stay infront of button A

ie. both stay infront of A, but C does not stay infront of B.

Easy enough to do ... just change line 83 of %rebgui-display.r to 
read:

	... reduce ['parent last ...


Consequence of this change (in the example above) will be that closing 
window B will close C. I'm loath to introduce specific 'parent declarations 
... how about a refinement that overrides the default "parent is 
first" behaviour? e.g:

	display ...	-> the default, parent is first window

 display/parent	-> parent is last (usually previous/calling) window

Actually, a refinement would be good having tested the change above 
which does not suit.

radio-group: I think we need to enhance this widget by introducing 
an ID per selection option, that can be stored to a database. If 
you store the text, problems araise if the text is changed. If you 
store the selection poistion problems araise of the order is changed.

What do you think?

radio-group data ["Option 1" "Option2"] while developing your app 
becomes radio-group data ["Feature B" "Feature A"] 

How do you handle old records?

Sorry, it's been some time since I last used RebGui, so I've got 
a few questions.
(How) is it possible to ... ?

- change double-click handling of an area? (I would like to call 
a function with the position or word clicked on)
- change keyboard handling in an area? (like add auto-indent)

- have timer event, that fires after specified times (it would be 
ideal, if the timer could be reset on every key-press)
(I don't know how many changes RebGui adds in these areas).

Thanks,

Ingo

there's an example of a timer event on the front screen of the demo.

Anton, does your code to remove tabs from a tab panel destroy the 
widgets that are present in the removed tabs, or does it just hide 
them?

OK, thanks, one more question, I have searched the docs, but didn't 
find anything ...
How do I position the caret in a rebgui area?

Ashley, how do you programmatically select a tab to display?

Hmm, I want to position the caret, by clicking in a text-list, which 
lists sections of the document.
The action in my text-list
[
         __picked: first face/picked
         show-focus ar-text

         system/view/caret: at ar-text/text sections/:__picked/pos
         show ar-text
      ]

now, when I click into the text-list, ar-text is focused, and the 
caret is shown in my ar-text, but when I release the mouse-key, the 
text-list is focused again.
What can I do here?

I'll try to do some patching now ... sorry, I'm on a modem line, 
and need to be erachable by phone, so bye for now.

The following works with button, but not with text-list (which I 
want to use) ...

display "Try to change feel" [
   tl: text-list  feel [
      engage: func [f a e][
         print a
      ]
   ]
   data [ "click"]
   [print 'action]
]
do-events
probe tl/feel
halt

Graham, now that you show me the code, which is now available here
http://anton.wildit.net.au/rebol/rebgui/add-remove-tab-panels.r
I can almost remember writing it !

Ok, the technique used to add/remove tabs from the tab-panel looks 
quite destructive, replacing all the old tab faces with new ones 
whenever a tab is added or removed.

Ask Pekr for a copy of the beta version.

do you have a little bug too on widget table. when i run tour.r and 
select  list    text-list  and do a maxime of the windows, the little 
line between two column still stay little !!!!!  (excuse me for ma 
english :-p)

We were starting to get spam tickets being raised, so you must login 
to raise a ticket now. I've just verified the table error Claude 
found so I'll raise a ticket or fix it which ever is quicker.

What do you use for a ticket system?

Is there a way to trigger an action when the table row changes highlight? 
 If I reorder things using the column headers, the highlight changes 
and I want to initiate an action based upon that.

Perhaps it's a bug that the highlight changes at all when you sort?

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

for add a block of rows a once !!!!

i do not be able to suscribe to track.geekisp.com  to have a login 
:-(

Ask Ashley for a login name

I've forwarded both requests to Jaime, shouldn't be longer than a 
day or so.

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

So, there is no way of determining whether a row is really selected 
or not.

and a cause of a lot of my problems :(

Ashley, I have a bunch of changes to RebGUI. How to proceed? Should 
I mail them all to you? Should I just checkin our version to the 
Subversion repository?

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.

Is there any reason why I shouldn't do a 'show-text on a button to 
change the button text?

Reichart, sort off. As I use for my apps, I have hired Cyphre (until 
you snapped him away) to make a bunch of extensions to RebGUI that 
I need.

Dead link update on this page:  http://www.dobeash.com/rebgui.html

old: 	http://home.wilddsl.net.au/anton/rebol/doc/create-a-rebgui-widget.html

new: 	http://anton.wildit.net.au/rebol/doc/create-a-rebgui-widget.html

Is there a data facet to the button that I should not be using for 
my own purposes?

button/data is a block containing 3 button state images ... so using 
that would be bad. ;)

I can now use 'unview in a loop as a form of return :)

(The real solution is to use a filesystem with custom tags.)

Petr, what's the state WRT grid widget? Can we see a beta version?

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

needs a few changes to rebgui as well ...

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

hi,  i would like to include rebgui in a *.exe  with rebol/sdk.

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 find the table dividers now visually obtrusive .. is there a way 
to put them on a diet ?

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.

No, I was wrong about that. Just a few seconds....

Well, there is no error message. But a long object is being displayed, 
with its text: field an empty string.

Here is the code segment:

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

    ;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" [
            ;(print [form project-name/text])

            ;label "Project:" display (form project-name/text) 80x5 ;[show-color 
            ex-dr1op-list to word! face/text]

            label "Project:" t-project-name: text (form project-name/text) 80x5
            ;ex-drop-list: box 20x20 black
            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 "Black" data ["Grand 
            Hardware" "Mega Mall" "Pasar Lima"] 64x5

            label "Resources Needed:" t-resource: drop-list data ["Bus to Manado" 
            "Louis A. Turk" "Caleb Turk" "Samuel Turk" "Compaq SR1520NX"] 64x5
            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"
        ]

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.

What rebol version are you running ? Are you encapping ? What does 
the Microsoft error message say exactly ? Can you reproduce the error 
reliably ? Please post a copy of the code that can reproduce the 
error so we can try to track it down.

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?

Now I do not seem to be getting the Microsoft error message at all, 
but I don't know what I changed to make a difference.

Well, from a bug-isolating point of view, it's not much use unless 
you can reproduce the bug at least in a semi-reliable way.

1) Convert the next two lines to 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]] 


(Note; to-string makes a copy for you already, so no need to copy 
again.

Actually, showing the face converts face/text to string for you automatically...)

2) "Why does the following line always display a blank string ?"


t-project-name: text (either <> "" project-name/text [(form project-name/text)]["ERROR: 
Project NAME field is empty."]) 80x5

It is unclear to me what you want here exactly.
The code in the parens is only evaluated once, at layout time.
But project-name/text hasn't been set to anything at this time
(other than maybe a default empty string.)

Do you want the t-project-name/text to dynamically reflect the status
of the project-name field ? That is, to update as you type ?

But let's test with some shorter code:

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

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).

Is there a tree widget for RebGUI? I need to build something to browse 
the filesystem

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].

Is there a tree widget

 ... no, but the request-dir function would be much better if there 
 was one.

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".

Pekr, send me a link to a screen shot of it?

yes, Maarten's. Robert is right, every widget would have to be a 
bit adapted. IMO the biggest problem is with tabs - they simply don't 
work on dark background - they look like few pixels error during 
rendering. The space between tabs is not big enough.

but I noticed there is one trick - not to put tabs directly on the 
background, instead try to put them in a box (groupbox?)

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.

Is it possible to display an HTML page in a RebGUI window? Not display 
HTML code, but to display the formatted HTML page.

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

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.

Hmm, I've just noticed that an error occurs upon completion of spell-check. 
I'll have a look at this one.

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.

display "" compose/deep [ image %1.png return image %2.png return 
image %3.png @ 50x0 tab-panel 190x50 data [ "p" [] "a" [] "n" [] 
"e" [] "l" [] ]

Or use a group-box, as in:

	display "Test" [
		group-box "Images" data [
			after 1
			image %images/go-first.png
			image %images/go-first.png
			image %images/go-first.png
		]
		tab-panel 20x30 data ["A" [] "B" []]
	]

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

thanks for the code snippet. Is there any way to add a background 
to the DISPLAY?

How can you make a graphic to be the background?

In 'display, there is this code 

        foreach window view*/screen-face/pane [
 	                if title = window/text [return]
        ]

which should be changed to:

        foreach window view*/screen-face/pane [
 	                if title = window/text [return none]
        ]

so that if you have: 


win: display "title" [] ... an error is not produced as win does 
not have a value

Can't reproduce that with the following line:

	table options ["A" left .5 "B" left .5] data []

do you have a simple test case?

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.

Build#42 (Trac only) has your "return none" fix plus a fix to the 
long-standing tool-bar tooltip bug (tooltip not hiding after tool-bar 
button clicked).

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

(Ok, sorry, that was not a well-considered comment of mine.)