World: r3wp

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

If we can get the data, we can suck it into Qtask, then it will be 
there.

And Graham, this statement is not TO YOU, but rather to anyone here 
would like to "help"

it is paid service? how much does it cost? Qtask offer is fair of 
course, but if guys are used to trac service, and it is not expensive, 
maybe we could sponsor it ...

Pekr, agreed.  You are alwys welcome though to upload the data to 
Qtask's tasks, at least you guys will never lose it.

I don't mind where the source resides, as long as:

	a) It doesn't cost me anything
	b) It's accessable via standard SVN clients
	c) It's simple


Jamie very kindly sponsored the first 3 years of hosting on geekisp, 
and when that ceased Graham created a project on CodePlex (which 
I assume offers free hosting?). That seems to be working OK so far, 
but I'm happy to move across to Qtask if it meets above three source 
hosting requirements.

Uploaded build 120 which addresses the stack-overflow issue (and 
as a by-product drastically cuts the number of calls to next-field/back-field 
when tabbing) ... please test.


I'll also echo Graham's call for issue tracker submissions, as I'm 
now prioritzing fixes based on what's in there.

Still get a stack overflow with my test case .. http://rebgui.codeplex.com/WorkItem/View.aspx?WorkItemId=23092