World: r3wp

Same type of example ... Modal-1 opens, but never Modal-2

Ok, answer as suggested by Volker is to use 'hide-popup instead of 
unview ...

I've tried to download RebGUI from REBOL Desktop (as suggested on 
http://www.dobeash.com/rebgui.html) but it crashes with:
** Script Error: Cannot use path on none! value
** Where: context
** Near: header/version

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

Ashley: works now, thanks.

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

In 'request-dir, directories starting with "!" are sorted before 
"..", this looks strange.

ah, I can see someone else is using ! trick to have favorite dirs 
at the top :-)

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

(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 still didn't made it upload our changes. Sorry. I hope to do it 
tomorrow.

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

I might work on it on Sunday .... to have it realeased on monday 
... the docs need definitely an update ...

needs a few changes to rebgui as well ...

I expect Robert has RebGui which fits grid too, as it is all done 
by Cyphre, no?

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.

OK, thanks.

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

must i use create-distribution.r ?

how can i use it ?

thanks for help

someone have news about http://www.xidys.com/rebgui-grid.jpg?????

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

ticket 53 is still faulty when I just tested it now.

very good thanks

i don't know if I'm not used to these table dividers now extending 
down the whole table .. perhaps we could have an option to turn them 
off??

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

** Script Error: caret-to-offset expected offset argument of type: 
any-string
** Where: edit-text
** Near: caret: caret-to-offset face view*/caret attempt

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.

could text-list be fixed, in the same manner, as table was, that 
scrolling hilite by holding arrow-up (down), simply does not hide 
hilite "under the horizon"? :-)

Why won't this line display:

label "Project:" text (form project-name/text) 80x5

Is there an error message ?

No, it just doesn't display anything.

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

Works for me.

Hummm, what could be causing it not to work for me?

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.

Usually, it just doesn't display anything.

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.

maybe you have started the event loop

haven't

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

My questions are in the code. Look for ???????????????

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?