World: r3wp

Ashley, this is what I think you should do ..  after signing up as 
a contributor, checkout the repository I uploaded.  Then copy all 
your source files over the ones in this new checkout, and then commit. 
 That should give us the latest.

codeplex has a source code browser and issue tracker.

Well, the build that's up there is 118, so I just synced against 
that. I'll have a play with this over the weekend (I've got a few 
changes to upload).

.

Ok, as long as I didn't make any changes while playing around ....

If anyone wants write access to the project, just sign up to codeplex 
and let us know so that we can join you to the Rebgui project.

In rebgui-widgets.r , any objections to changing

			attempt [remove find span #X]
			attempt [remove find span #Y]

to 

			all [ find span #X remove find span #X]
			all [ find span #Y remove find span #Y]

REMOVE accepts NONE as argument in the last versions.

2.7.6 ?

interesting.

It was a recent change, don't remember when it happened exactly.

makes it simpler.

still needs to be  
all [ series? span remove find span #Y ]

What is wrong with this line:  


current-projects: table (tab-size + 80x35) options ["Priority" right 
.03 "ProjectName" left .2 "ExchangeRate" left .2 "Objectives" left 
.3 "Deliverables" left .1] data [(SQL "select * from projects")]

where's your compose/deep ?

And if you sql thingy returns a block .. you don't need the extra 
[ ]

compose/only/deep, in that case

Graham and Izkata, thanks for the help.  But I must be misunderstanding 
something, as it is still not working. Here is what I have:

CONNECT/create/flat %cl.db

if error? err: try [
	SQL "select * from projects"
][
	er: disarm err
	if find er/arg1 "no such table" [

  SQL "create table projects (Priority, ProjectName, ExchangeRate, 
  Objectives, Deliverables)"
	]
]

do show-cc: make function! [] [
	display "CRITICAL LINKS Version 1.0.0" compose/only/deep [
		;image %chain.jpg
		return

  group-box "Critical Chain and Theory of Constraints principles" #W 
  data [

   text "1. REMEMBER YOUR PURPOSE" font [color: blue size: 26 shadow: 
   1x1]
			return
			;bar
			;return

   text "2. Free Up Your Major Constraint" font [color: red size: 20 
   shadow: none]
			return

   text "3, Focus on one project at a time---don't multi-task." font 
   [color: black size: 12 shadow: none]
		]
		at 103x14
		image %critical-chain.jpg 30x6
		at 133x2
		group-box "Redeem the Time" #W data [
			after 2
			label "   System Clock Time:" my-time:    text 28x7 "0:00:00"
			return
			bar
			return
			label "Average session time:" my-session: text 28x7 "0:00:00" 
		]
		return


  ;******************************************************************
		tab-panel #HWLV data [

                           ;******************************************************************
			"Projects" [
				label "Project Name:" ProjectName: field  141x5 

    label "Priority:" Priority: drop-list 30 #W "1" data ["1" "2" "3" 
    "4" "5" "6" "7" "8" "9" "10"] 10x5
				return
				label "Objectives:" 
				pad 131
				label "Exchange Rate" ExchangeRate: field 20x5
				return
				Objectives: area 200x10 
				return
				label "Deliverables:" 
				return
				Deliverables: area 200x10
				return
				label "Current Projects:"
				return

    current-projects: table (tab-size + 80x35) #HWLV options ["Priority" 
    right .03 "ProjectName" left .2 "ExchangeRate" left .2 "Objectives" 
    left .3 "Deliverables" left .1] data [(SQL "select * from projects")]
				return

                                                     button "Save" [

                     SQL reduce ["insert into projects values (?,?,?,?,?)" Priority/text 
                     ProjectName/text ExchangeRate/text Objectives/text Deliverables/text]
				    current-projects/redraw
			              ]
                                                      pad 20

                                                      radio-group 60x5 data [1 "Add" "Edit"]
				pad 20
				button "Quit" [quit]
                                         ]

>> describe "projects"

== [0 "Priority" "" 0 none 0 1 "ProjectName" "" 0 none 0 2 "ExchangeRate" 
"" 0 none 0 3 "Objectives" "" 0 none 0 4 "Deliverables" "...
>>

Graham, which braces were you talking about?

[(SQL "select * from projects")]

Graham, thanks. That fixed it.  Strange. I took those braces off 
right after you told me to, and it didn't work.  Well, I had been 
up all night working on this. So maybe I just did it in my mind. 
 : >)   Thanks again.

Thanks again to Izkata also.

Hummm.  After entering one record I'm now getting:

** Script Error: ProjectName has no value

The problem I have with GUI programming is that I don't know how 
to find bugs.  How do you guys do it?

Louis, I haven't looked at your code, but it might be as simple as 
predefining ProjectName, like ProjectName: "" or something.

You look at the error message .... and fix it.

They actually mean somet hing.

Ashley, what's happening here?

display "" [
	text "Enter some text and then enter" return
	field 
	on-focus [ clear-text face true ]
	on-click [ print face/text ]
]

do-events

when you enter text and enter, the text is cleared ....

ctx-rebgui/behaviors/action-on-enter has 'field in it by default 
... so pressing enter *does not leave the field* but instead causes 
the field to regain focus.

any suggestions on how to obtain the wanted behaviour?

Change it so the field *prior* to this one clears it on-unfocus?

it's to be like the search fields you see on web pages .. click on 
it .. and the existing text disappears allowing you to enter your 
search term.

Ah, I see. What you need is a new method, on-mouse-focus, which would 
ignore keyboard focus changes?

Yes that sounds good.

Also, I have reports of this error ... not sure where it is coming 
from 

make object! [
   code: 902
   type: 'internal
   id: 'stack-overflow
   arg1: none
   arg2: none
   arg3: none
   near: [unless find [object! block!] type?/word get]
   where: 'into-widget
]

well, I mean I know it is coming from rebgui-edit.r and the 'into-widget 
function which has a recursive find ....

but not sure of the circumstances of how it is being triggered.

The user thinks that they tabbed on something which is consistent 
with this function's function.

Well, in the meantime I have wrapped the into-widget with an error 
try and return none if there is an error.

Unfortunately this did not help .. just shifted the error elsewhere. 
 Now getting

make object! [
   code: 902
   type: 'internal
   id: 'stack-overflow
   arg1: none
   arg2: none
   arg3: none
   near: [all [
           face/show?
           find behaviors/tabbed face/type
           not find face/options 'info
           face
       ]]
   where: 'tabbed?
]

Is it possible to rewrite the tabbing functions so that it doesn't 
use recursion?

I have recreated the stack overflow error on tabbing here http://rebgui.codeplex.com/WorkItem/View.aspx?WorkItemId=23092

Basically a table with focus, and the only widget inside a panel 
will cause a stack overflow as it tries to tab out looking for the 
next widget that can accept focus.

Good test case. I'll look at it over the weekend.

It would also be good to be able to tab into a table ... if that's 
feasible.

Since we no longer have access to the geekisp trac and issues database 
... would all of those who remember any existing issues please enter 
them into the new issue tracker.
http://rebgui.codeplex.com/WorkItem/List.aspx

Why do you no longer have access to it?

Because I presume Jaime stopped paying for it ...